:JOB IOTAPE0,FIELD.SUPPORT,HP32002;RESTART;OUTCLASS=,2
:COMMENT
:COMMENT
:COMMENT     IOTAPE0 - MODULE 18
:COMMENT
:COMMENT
:PURGE P18P002C
:PURGE U18U002C
:BUILD U18U002C;CODE=USL;DISC=127,16
:FILE NEW=TEXT,NEW;TEMP;REC=-80,16,F,ASCII;DISC=2000,16,16
:SPL M18M002C.HP32002.SUPPORT,U18U002C,,S18S002C.HP32002.SUPPORT,*NEW
:RUN CROSSREF.PUB.SUPPORT
:PREP U18U002C,P18P002C;PMAP; &
:PATCH=128
:PURGE U18U002C
:SAVE P18P002C
:EOJ
