AAM2
.PROC,AAM2*I,\
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMPROC 
. 
  
* AAM2 - ADVANCED ACCESS METHOD        (EXTENDED) 
*CALL     PSRLEV
* 
  
.*
.*  START AAM2 VIA SUBPROC. 
.*
BEGIN(SUBPROC,INSTALL,AAM2,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF) 
REVERT.        AAM2.
EXIT. 
REVERT(ABORT)  AAM2.
  
  
.DATA,ZZZPROC 
.PROC,AAM2. 
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=AAM2,#PN=PN,#PR=PR,DISK=0)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=AM2) 
RFL(77000)
SYMPL(ET=T,I,B=TXT1,L=LIST) 
REWIND(TXT1)
SYMPL(ET=T,I,Y=TXT1,B=TXT2,L=LIST)
REWIND(TXT1,TXT2) 
SYMPL(ET=T,I,Y=TXT1,Y=TXT2,B=AAMBIN,L=LIST) 
RETURN(TXT1,TXT2) 
COMPASS(A,I,S=IPTEXT,S=TXTCRM,B=AAMBIN,L=LIST)
COMPASS(A,I,S=TXTCRM,S=IOTEXT,B=MPBIN,L=LIST) 
COMPASS(A,I,B=SKELFIL,L=LIST) 
FTN(A,I,OPT=1,S=TXTCRM,B=FBLKBIN,L=LIST)
SYMPL(ET=T,I,B=FSTATBN,L=LIST)
COMPASS(A,I,S=TXTCRM,S=IOTEXT,S=CPCTEXT,B=FSTATBN,L=LIST) 
SYMPL(ET=T,I,B=MDISBIN,L=LIST)
COMPASS(A,I,S=TXTCRM,B=MDISBIN,L=LIST)
COMPASS(A,I,S=TXTCRM,S=IOTEXT,S=CPCTEXT,S=LDRTEXT,B=LIB,L=LIST) 
COMPASS(A,I,B=LIB,L=LIST) 
RETURN(COMPILE) 
REWIND(AAMBIN,SKELFIL)
COPYL(SKELFIL,AAMBIN,CAPBIN)
BEGIN(GETULIB,INSTALL,BAMLIB,FORTRAN,SRT5LIB,SYMLIB,SYSLIB) 
GROUP($AAM$$CTL$) 
CAPSULE($AAM$$CTL$,$NRO$$AA$,$OPNM$$AA$,$EXEC$$IS$) 
CAPSULE($SKGN$$IS$,$UPDT$$IS$,$RARE$$IS$) 
CAPSULE($EXEC$$MP$,$SKGN$$MP$,$UPDT$$MP$,$RARE$$MP$)
CAPSULE($EXEC$$DA$,$UPDT$$DA$,$OVFM$$DA$) 
CAPSULE($EXEC$$AK$,$UPDT$$AK$,$OVFM$$AK$) 
CAPSULE($CMPR$$01$) 
CAPSULE($MP$$KDEF$,$MPGN$$MP$)
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=BAMLIB) 
LDSET(OMIT=$SETUP.$/RECOVR/$RM$$SYS=$/$MSG=$) 
LDSET(OMIT=$CMM.ALF$/$CMM.FRF$/$EX$$CRM$/$ERR$$RM$) 
LDSET(OMIT=$CMM.GOS$) 
LOAD(CAPBIN)
NOGO(LIB) 
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=SRT5LIB/BAMLIB/SYSLIB)
LDSET(OMIT=$CLL$$RM$/$GTL$$RM$/$PTL$$RM$/$WMK$$RM$) 
LDSET(OMIT=$WEOP$$RM$/$CHEK$$RM$) 
LOAD(MPBIN) 
NOGO(LGO) 
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=FORTRAN/BAMLIB/SYSLIB)
LOAD(FBLKBIN) 
NOGO(LGO) 
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=BAMLIB/SYSLIB)
LOAD(FSTATBN) 
NOGO(LGO) 
LDSET(ERR=ALL,PRESET=ZERO)
LOAD(MDISBIN) 
NOGO(LGO) 
BEGIN(SAVELIB,INSTALL,LIB=LIB,LIBNAME=AAMLIB) 
BEGIN(PRDOUT,INSTALL,PRDNAME=AAM2,#PNO=PNO,#PRO=PRO)
BEGIN(GENDIR,INSTALL,LIB=6) 
BEGIN(SAVELGO,INSTALL,PRDNAME=AAM2) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  AAM2.
EXIT. 
REVERT(ABORT)  AAM2.
*WEOR 
