developer55
Answered On : Dec 26th, 2011
It is used to save the file-structure as a member of pds.. so that other programs can use it if requried.
Login to rate this answer.
Workinfg-storage section.
pds: TEST.RASH.LIB.ABC.COPY(COPYBK1)
02 VAR-LIST.
05 VAR1 PIC X(10)
05 VAR2 PIC X(10)
05 VAR3 PIC X(10)
05 VAR4 PIC X(10)
05 VAR5 PIC X(10)
TEST.RASH.LIB.ABC.PROG(TESTPROG)
DATA DIVISION.
WORKING-STORAGE SECTION.
01 CPY-VARIABLES-FRM-PDS.
COPY COPYBK1.
PROCEDURE DIVISION.
00000-MAIN-PARA.
MOVE HI TO VAR1
DISPLAY VAR1
MOVE VAR1 TO VAR2 VAR3 VAR4
DISPLAY VAR2 VAR3 VAR4
STOP-RUN
Login to rate this answer.
Don't forget to specify the library where that copy book resides ie.., in SYSLIB
Login to rate this answer.