PPT Slide

In this example, the copybook is stored in an external file called “MXS.P390.COPYLIB (CBHDR2)”

* of 42

/* REXX */

. . .

IF "RXVSAM"("OPEN FILE(SYSUT1) COPYBOOK(MXS.P390.COPYLIB(CBHDR2))",

" SEQ")<ɬ THEN DO

SAY 'RC='VSAMCODE 'MSG='VSAMMSG

. . .

END

. . .

DO WHILE "RXVSAM"("READNEXT FILE(SYSUT1)")=0

SAY 'EMPLOYEE:'NAME_LAST',' NAME_FIRST ' ',

'STARTING DATE:'START_DATE /* show start date */

END

. . .