HOW TO MOVE REDEFINES CLAUSE FROM INPUT TO OUTPUT ?
Answer Posted / adarsha
01 ws-misc-vars.
05 system-date pic x(06) value spaces.
05 system-date-rede redefines system-date
10 system-dt-yy pic x(02) value spaces.
10 system-dt-mm pic x(02) value spaces.
10 system-dt-dd pic x(02) value spaces.
01 ws-rep-dt-frmt pic x(06) value space.
.
.
.
procedure division.
move system-date to ws-rep-dt-frmt.
*** when you want any particular variable to be recevied or
stored in a particular format you can redefine them in the
way you want.. here system-date-rede has the same value as
system-date !
| Is This Answer Correct ? | 1 Yes | 0 No |
Post New Answer View All Answers
Which is not true about evaluate statement
How do get the result of your program directly on your pc?
I have a program with an Array of 5000 occurences which is being passed from 5 sub levels to the front end screen. Thess 5 programs using each 5*2 = 10 different arrays with size as 5000. This is causing the transaction to utilize more storage consupmtion. I am looking to reduce the storage consumption. As part of that initially i thought Dynamic array may solve my problem. After viewing the comments given i see its same as normal array. IS there any other way we can resolve this issue?
how to move the records from file to array table. give with code example
How arrays can be defined in COBOL?
What is rmode(any) ?
What is the difference between next sentence and continue in cobol programing language?
I need to compare 3 variables(dates) and do some processing based on the earliest date. There could be more then 1 date record in any of the 3 fields. What is the best way to code this?
What is the LINKAGE SECTION used in COBOL?
How can i load all the data from a file to Table (array) in cobol.How i manage the occurs clause with out reading the file.Any options avilable ? Please can any one help me it is urgent?
How to change size of Initial number of records to *NOMAX for ALL PF files from perticular library, how can I do that
please..could u give an example about USAGE IS POINTER ..and explain why and when we use it ?
How to use the same COBOL program in Batch and CICS on lines? explain with an example
How to get the last record in vsam file in cluster? And how can you get the ksds file records into cobol program?
Differentiate between structured cobol programming and object-oriented cobol programming.