FORMAT
.PROC,FORMAT*I,\
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD3 
*CALL COMXOPL 
*CALL COMPROC 
. 
  
* FORMAT - 881 FACTORY FORMAT UTILITY 
*CALL     PSRLEV
* 
  
.*
.*  START FORMAT VIA SUBPROC. 
.*
BEGIN(SUBPROC,INSTALL,FORMAT,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF) 
REVERT.        FORMAT.
EXIT. 
REVERT(ABORT)  FORMAT.
  
  
.DATA,ZZZPROC 
.PROC,FORMAT. 
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=FMAT,#PN=PN,#PR=PR,DISK=0)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=FMT) 
RFL(65000)
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
COMPASS(A,I,S=0,B=CPTXT,L=LIST) 
SKIPR(COMPILE,2)
COMPASS(A,I,F=5,X=OPL,G=CPTXT,L=LIST) 
COMPASS(A,I,F=5,X=OPL,S=NOSTEXT,L=LIST) 
BEGIN(PRDOUT,INSTALL,PRDNAME=FMAT,#PNO=PNO,#PRO=PRO)
RETURN(LIB) 
BEGIN(GENDIR,INSTALL,LIB=25)
BEGIN(SAVELGO,INSTALL,PRDNAME=FMAT) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  FORMAT.
EXIT. 
REVERT(ABORT)  FORMAT.
*WEOR 
