PPT Slide

* of 42

Uses COBOL or PL1 copybooks to automatically create REXX variables for each field in the record

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

"SEQUPD")<ɬ THEN DO

. . .

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

IF EMPLOYEE_STATE='CO' THEN AREA_CODE='303'

. . .

CALL "RXVSAM" "REWRITE FILE(SYSUT1)"

. . .

END