IBM OS/390 User Manual

&&OPTIONS 1100001
/LIB FULL ALL
&&OPTIONS 0010001
/LOAD DTSPROCS
/OPTION NOPROMPT
&&OPTIONS 0010001
/LIST 1 1 IEBUPDTE
&&IF &&RETCOD NE *READY &&GOTO TAG11
/PURGE IEBUPDTE
&&LABEL TAG11
/INPUT NOPROMPT
DUMMY LINE
/END
/SAVE IEBUPDTE
/EDIT IEBUPDTE
NEXT
GET $$PUNCH
TOP
DEL 1
L SYSIN
NEXT
DEL 2
REPEAT *
O XXXXX YYYYYYYYYYYYYYYYYYYYYYYYYYYYYY
LUP SYSIN
NEXT
&&NOP C

′

YYYYYYYYYYYYYYYYYYYYYYYYYYYYYY

′ ,

LEVEL=00,SOURCE=0,

LUP SYSIN
NEXT
&&NOP C

′

XXXXX

′ . /  

ADD NAME=

′

*

LUP SYSIN
NEXT
ZONE 19 55
&&NOP C

′″ 

* G

ZONE 1 72
LUP SYSIN
NEXT
&&LABEL ILOOP
DUP
&&NOP C 

′ . /  

ADD NAME=

′

INCLUDE

′

&&NOP C 

′ ,

LEVEL=00,SOURCE=0,LIST=ALL

″

NEXT
&&IF &&RETCOD NE INVALID &&GOTO -ILOOP
I./ ENDUP
I $$DITTO EOJ
I /*
I /&
END
&&TYPE PLEASE SUBMIT IEBUPDTE FROM YOUR ICCF LIBRARY

The second method for migrating ICCF members to a PDS for TSO/E utilizes the
ICCF utility DTSUTIL and an assembler program to change the output from
DTSUTIL to a format acceptable to IEBUPDTE. Using the PUNCH command of the
ICCF utility DTSUTIL with the PUNCTL option and SYSPCH assigned to tape, you
can create a tape of selected ICCF members with imbedded ADD MEMBER and
END OF MEMBER statements. These unblocked 81 byte records will become
input to an assembler language program. This program will use the information
from the ADD MEMBER statement to create IEBUPDTE control statements, will

VSE to OS/390 Migration Workbook