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
What is static and dynamic call in cobol?
How to print 10 to 1 if the input have only 10 digit number?
What are the different open modes available in cobol?
What is rmode(24)
What are the cobol coding sheets?
What is the LINKAGE SECTION used in COBOL?
What is the difference between Structured COBOL Programming and Object Oriented COBOL programming?
What are the pertinent COBOL commands?
What is link edit in cobol?
What is amode(24)?
What are the rules of the move verb?
What is the usage of comp fields in cobol?
how we sort two input files based on a common column and giving one o/p file please send me the coding logic?
A table has two indexes defined. Which one will be used by the SEARCH?
what is search and searchall?what is the diffrence between them?give an best example?