MODIFYX 
.PROC,MODIFYX.
  
.* THIS PROC USED BY JOBS: NOS TAF IAF MMF MSS OSTEXT TOOLS TRACER XEDIT
.* AND HSIO.
.* ESTABLISHES PROPER MODIFY1 PROC AS LOCAL TO CALLING JOB. 
.* PROC ACCESSES SOPL FOR COMPILE FILE(COMPRESSED IF PAR 'A' USED.
  
IFE(FILE(USER,AS),L00001) 
  UNLOAD(MODIR) 
  NOTE(MODIR,NR)+*REWIND USER+*INWIDTH 150+*READ USER,* 
  UNLOAD(MODIFY2) 
ELSE(L00001)
  UNLOAD(MODIR) 
  RENAME(MODIFY1=MODIFY2) 
ENDIF(L00001) 
REVERT.        MODIFYX
EXIT. 
REVERT(ABORT)  MODIFYX
.DATA,MODIFY1 
.PROC,MODIFY1,A=/$A,$.
PACK(MODIR) 
MODIFY(A#_I=MODIR,LO=E) 
UNLOAD(MODIR) 
NOTE(MODIR,NR)+*REWIND USER+*INWIDTH 150+*READ USER,* 
REVERT.        MODIFY1
EXIT. 
REVERT(ABORT)  MODIFY1
.DATA,MODIFY2 
.PROC,MODIFY1,A=/$A,$.
PACK(MODIR) 
MODIFY(A#_I=MODIR,LO=E) 
UNLOAD(MODIR) 
REVERT.        MODIFY2
EXIT. 
REVERT(ABORT)  MODIFY2
*WEOR 
