:JOB HIOLPRT1,FIELD.SUPPORT,HP32002;RESTART;OUTCLASS=,2
:COMMENT
:COMMENT
:COMMENT           HIOLPRT1 - MODULE 38
:COMMENT
:COMMENT
:PURGE P38P002C
:PURGE U38U002C
:BUILD U38U002C;CODE=USL;DISC=127,16
:FILE NEW=TEXT,NEW;TEMP;REC=-80,16,F,ASCII;DISC=4000,16,16
:FILE INCLIOQ=PD8P002C.HP32002.SUPPORT
:SPL M38M002C.HP32002.SUPPORT,U38U002C,,S38S002C.HP32002.SUPPORT,*NEW
:RUN CROSSREF.PUB.SUPPORT
:PREP U38U002C,P38P002C;PMAP; &
:PATCH= 32
:PURGE U38U002C
:SAVE P38P002C
:EOJ
