SORT5 
.PROC,SORT5*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMPROC 
. 
  
* SORT/MERGE 5
*CALL     PSRLEV
  
.*****  SORT5 
.*
  
.*
.*  START SORT5 VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,SORT5,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        SORT5. 
EXIT. 
REVERT(ABORT)  SORT5. 
  
  
.DATA,ZZZPROC 
.PROC,SORT5.
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=SRT5,#PN=PN,#PR=PR,DISK=0)
SKIPEI(USER)
*IF,DEF,63CSET
NOTE(USER,NR);*IDENT 63CSET;*DEFINE 63CSET
*ENDIF
PACK(USER)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=ST5) 
COMPASS(A,I,B=TXT5,L=LIST,#PC=1234) 
COMPASS(A,I,S=SYSTEXT,S=CPUTEXT,B=SKELGEN,L=LIST) 
SYMPL(ET=T,I=COMPILE,B=RELOCS,LR=LIST)
SYMPL(ET=T,I=COMPILE,B=RELOCS,LR=LIST)
*  CREATE THE SM5SORT RELOCATABLE 
SYMPL(ET=T,I=COMPILE,B=LIB,S=SRT5LIB,LR=LIST) 
* 
*  CREATE THE SM5MERG RELOCATABLE 
* 
SYMPL(ET=T,I=COMPILE,B=LIB,S=SRT5LIB,LR=LIST) 
SYMPL(ET=T,I=COMPILE,B=RELOCS,LR=LIST)
COMPASS(A,I,S=SYSTEXT,S=IOTEXT,S=PSSTEXT,G=TXT5,B=RELOCS,L=LIST)
BEGIN(GETULIB,INSTALL,SYSLIB,SYMLIB,FORTRAN)
SKELGEN(SKEL,NOLIB) 
COPYLM(SKEL,RELOCS,BASE,,E) 
RETURN(COMPILE,TXT5,SKEL,RELOCS,SKELGEN)
* 
* PUT USER-CALLABLE RELOCATABLES ON LIB2
REWIND(BASE)
COPYBF(BASE,LIB2) 
* 
* CREATE THE SORT5 (0,0) OVERLAY ON LGO 
LDSET(LIB=SYMLIB/FORTRAN) 
LDSET(ERR=ALL,PRESET=DEBUG) 
LOAD(BASE/NR) 
NOGO(LGO) 
* 
* CREATE THE MERGE (0,0) OVERLAY ON LGO 
LDSET(LIB=SYMLIB/FORTRAN) 
LDSET(ERR=ALL,PRESET=DEBUG) 
LOAD(BASE/NR) 
NOGO(LGO) 
* 
* ADD CAPSULES TO LIB2
BKSP(LIB2)
LDSET(LIB=SYMLIB/FORTRAN) 
LDSET(OMIT=$SYMSM$$$/$SYMSC$$$) 
LDSET(ERR=ALL,PRESET=DEBUG) 
GROUP(SORT5)
CAPSULE($S$$ERMSG$) 
CAPSULE($S$$ERR$) 
CAPSULE($S$$GINPR$) 
CAPSULE($S$$GNIMG$) 
CAPSULE($S$$GNINI$) 
CAPSULE($S$$GNFMG$) 
CAPSULE($S$$GNGRU$) 
CAPSULE($S$$GNLNG$) 
CAPSULE($S$$GNOPM$) 
CAPSULE($S$$GNPRU$) 
CAPSULE($S$$GNSHT$) 
CAPSULE($S$$GNSRT$) 
CAPSULE($S$$GTCSP$) 
CAPSULE($S$$GTSPC$) 
CAPSULE($S$$MAIN$)
CAPSULE($S$$MGDSN$) 
CAPSULE($S$$MRGPH$) 
CAPSULE($S$$LNGSM$) 
CAPSULE($S$$SRTPH$) 
CAPSULE($S$$STREC$) 
CAPSULE($S$$VDATA$) 
LOAD(BASE/NR) 
NOGO(LIB2)
LDSET(ERR=ALL,PRESET=DEBUG) 
GROUP(SORT5)
CAPSULE($S$$CMGFS$) 
LDSET(LIB=SYSLIB) 
LDSET(OMIT=$CMM.CUL$) 
LDSET(OMIT=$CMM.ICM$) 
LDSET(USE=$CMM.CVS$)
LDSET(EPT=$S$$CMGFS$) 
LDSET(NOEPT)
LOAD(BASE/NR) 
NOGO(LIB2)
BEGIN(SAVELIB,INSTALL,LIB=LIB,LIBNAME=SYSLIB) 
BEGIN(SAVELIB,INSTALL,LIB=LIB2,LIBNAME=SRT5LIB,NX=1)
BEGIN(PRDOUT,INSTALL,PRDNAME=SRT5,#PNO=PNO,#PRO=PRO)
BEGIN(GENDIR,INSTALL,LIB=52)
BEGIN(SAVELGO,INSTALL,PRDNAME=SRT5) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  SORT5. 
EXIT. 
REVERT(ABORT)  SORT5. 
*WEOR 
