FCS3
.PROC,FCS3*I,\
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD3 
*CALL COMPROC 
. 
  
* FCS3 - FILE CONVERSION AIDS SYSTEM 3.0
*CALL     PSRLEV
* 
  
.*
.*  START FCS3 VIA SUBPROC. 
.*
BEGIN(SUBPROC,INSTALL,FCS3,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF) 
REVERT.        FCS3.
EXIT. 
REVERT(ABORT)  FCS3.
  
  
.DATA,ZZZPROC 
.PROC,FCS3. 
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=FCS3,#PN=PN,#PR=PR) 
BEGIN(UP,INSTALL,RANDOM=NO,PCDECK=FCP,PCPL=CPRD,#PC=PC,#CC=CC)
RFL(70000)
FTN(A,I,B=PARSE,L=LIST) 
FTN(A,I,B=MASSEM,L=LIST)
FTN(A,I,B=CBLACT,L=LIST)
FTN(A,I,S=CPCTEXT,S=IOTEXT,B=CBLSEL,L=LIST) 
FTN(A,I,B=FTNACT,L=LIST)
FTN(A,I,S=CPCTEXT,S=IOTEXT,B=FTNSEL,L=LIST) 
REWIND(PARSE,MASSEM,CBLACT) 
REWIND(CBLSEL,FTNACT,FTNSEL)
BEGIN(GETULIB,INSTALL,FORTRAN,SYSLIB,BAMLIB)
BEGIN(LOCALLD,INSTALL)
LIBGEN(F=CBLACT,P=A1) 
LIBGEN(F=FTNACT,P=A3) 
LIBGEN(F=MASSEM,P=A5) 
LOADLDR.
LDSET(LIB=A1,OMIT=FTRMAH/FTRMAS,PRESET=ZERO,ERR=ALL)
LOAD(PARSE) 
NOGO(CBLFCP1) 
LOADLDR.
LDSET(PRESET=ZERO,ERR=ALL)
LOAD(CBLSEL)
NOGO(CBLFCP2) 
LOADLDR.
LDSET(LIB=A3,OMIT=FTRMAH/FTRMAS,PRESET=ZERO,ERR=ALL)
LOAD(PARSE) 
NOGO(FTNFCP1) 
LOADLDR.
LDSET(OMIT=FTNMES,PRESET=ZERO,ERR=ALL)
LOAD(FTNSEL)
NOGO(FTNFCP2) 
LOADLDR.
LDSET(LIB=A5,OMIT=FTRFCA,PRESET=ZERO,ERR=ALL) 
LOAD(PARSE) 
EXECUTE(,COMPILE) 
RENAME(1TAPE10=TAPE10)
REWIND(A5)
LOADLDR.
LDSET(LIB=A5,OMIT=FTRFCA,PRESET=ZERO,ERR=ALL) 
LOAD(PARSE) 
EXECUTE(,COMPILE) 
REWIND(NEWPL,DISK,CBLFCP1,CBLFCP2)
REWIND(FTNFCP1,FTNFCP2,1TAPE10,TAPE10)
RENAME(NPL=NEWPL) 
REWIND(NPL) 
COPYBF(NPL,NEWPL) 
SKIPF(DISK) 
COPYBF(DISK,NEWPL,2)
COPYBF(CBLFCP1,NEWPL) 
COPYBF(CBLFCP2,NEWPL) 
COPYBF(FTNFCP1,NEWPL) 
COPYBF(FTNFCP2,NEWPL) 
COPYBF(1TAPE10,NEWPL) 
COPYBF(TAPE10,NEWPL)
BEGIN(PRDOUT,INSTALL,PRDNAME=FCS3,#PNO=PNO,#PRO=PRO)
UNLOAD(DISK)
* FCS3 DOES NOT GO ON *PRODUCT*.
REVERT.  FCS3 
EXIT. 
REVERT(ABORT)  FCS3 
*WEOR 
