HOW TO MOVE REDEFINES CLAUSE FROM INPUT TO OUTPUT ?
Answer / 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 |
How would the number +1234 be stored if a PIC clause of PICTUREs9(4) comp-3 were used?
plz any one tell clearly the justify right clause?
if a>b continue display x. dispaly y. end-if display 1 display 2. display 3. what should be my output ?
can we read records in a file from botom to top. if possible how can we read
waht is inspect verb? where it can be in real time?
1) can we display the index?
What will happen if you code GO BACK instead of STOP RUN in a stand-alone COBOL program i.e. a program which is not calling any other program ?
What is an index for tables?
What is the difference between a binary search and a sequential search? What are the pertinent cobol commands?
What is the Purpose of POINTER Phrase in STRING command in COBOL?
How do you set a return code to the JCL from a COBOL program?
What is amode(24), amode(31), rmode(24) and rmode(any) (applicable to only mvsesa enterprise server) ?