UCOMMOD 
.PROC,UCOMMOD*I,
ZZLOCAL ' WRITE LOCAL COPY ONLY      (NO/YES)  '=(*N=NO,NO,YES,*K=YES), 
. 
EDIT,COMMOD,I=INN,L=0.
RETURN(INN) 
.IF, ($ZZLOCAL$ .EQ. $NO$) ,UCOMMOD1. 
  REPLACE,COMMOD. 
  REVERT. COMMOD REPLACED AND LOCAL.
.ELSE(UCOMMOD1) 
  REVERT. COMMOD LOCAL ONLY 
.ENDIF(UCOMMOD1)
.DATA,INN 
RS:/=FILE/,/=##FILE/;2
END 
.DATA,COMMOD
COMMOD
*IDENT COMMOD 
*DECK COMD1 
*D 1,4
*CALL COMD1 
*DECK COMD2 
*D 1,4
*CALL COMD2 
*DECK COMD3 
*D 1,4
*CALL COMD3 
*DECK COMD4 
*D 1,4
*CALL COMD4 
*DECK COMXOPL 
*D 1,2
*CALL COMXOPL 
*DECK COMX1 
*D 1,2
*CALL COMX1 
*DECK COMX2 
*D 1,2
*CALL COMX2 
*DECK COMX3 
*D 1,2
*CALL COMX3 
*DECK COMDEN
*D 1,2
*CALL COMDEN
*DECK COMDISK 
*D 1,4
*CALL COMDISK 
*DECK COMIA 
*D 1
*CALL COMIA 
*DECK COMIN 
*D 1
*CALL COMIN 
*DECK COMIUN
*D 1,10 
*CALL COMIUN
*DECK COMLIST 
*D 1,3
*CALL COMLIST 
*DECK COMOUT
*D 1
*CALL COMOUT
*DECK COMPFG
*D 1,3
*CALL COMPFG
*DECK COMTOB
*D 1
*CALL COMTOB
*DECK COMTOL
*D 1
*CALL COMTOL
*DECK COMUSER 
*D 1
*CALL COMUSER 
*DECK COMCCPL 
*D 1
*CALL COMCCPL 
*DECK COMCCPV 
*D 1
*CALL COMCCPV 
*DECK COMNECS 
*D 1,2
*CALL COMNECS 
*DECK COMNOPG 
*D 1,2
*CALL COMNOPG 
*WEOR 
