UPDATE
.PROC,UPDATE*I,\
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMPROC 
. 
  
* UPDATE - UPDATE 1 
*CALL     PSRLEV
* 
  
.*
.*  START UPDATE VIA SUBPROC. 
.*
BEGIN(SUBPROC,INSTALL,UPDATE,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF) 
REVERT.        UPDATE.
EXIT. 
REVERT(ABORT)  UPDATE.
  
  
.DATA,ZZZPROC 
.PROC,UPDATE. 
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=UPD1,#PN=PN,#PR=PR,DISK=0)
BEGIN(COMPCOM,INSTALL)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=UPD,NUMAUX=1)
COMPASS(A,I,S=PSSTEXT,S=IPTEXT,S=CPUTEXT,L=LIST)
COMPASS(A,I,S=PSSTEXT,S=IPTEXT,S=CPUTEXT,B=LIB,L=LIST)
COMPASS(A,I,B=LIB2,L=LIST)
RETURN(COMPILE) 
BEGIN(SAVELIB,INSTALL,LIB=LIB,LIBNAME=SYSLIB) 
BEGIN(SAVELIB,INSTALL,LIB=LIB2,LIBNAME=SYMLIB)
BEGIN(PRDOUT,INSTALL,PRDNAME=UPD1,#PNO=PNO,#PRO=PRO)
BEGIN(GENLIB,INSTALL,LIBRARY=SYMLIB,LIB=LIB2) 
GTR(LGO,GLOBLGO)ABS/* 
BEGIN(GENDIR,INSTALL,LIB=61)
BEGIN(SAVELGO,INSTALL,PRDNAME=UPD1) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  UPDATE.
EXIT. 
REVERT(ABORT)  UPDATE.
*WEOR 
