OSLIB 
.PROC,OSLIB*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMXOPL 
*CALL COMPROC 
. 
  
* OSLIB 
*CALL     PSRLEV
* 
  
.*****  OSLIB 
.*      INSTALLATION INSTRUCTIONS:  
  
.***    INVOCATION
.*      BEGIN,OSLIB,INSTALL.
  
.***    INPUT.
.*         REQUIRES OPL_PSROUT. 
  
.***    OUTPUT: 
.*         BINARIES ADDED TO FILE *PRODUCT*.
  
  
.*
.*  START OSLIB VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,OSLIB,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        OSLIB. 
EXIT. 
REVERT(ABORT)  OSLIB. 
  
  
.DATA,ZZZPROC 
.PROC,OSLIB.
*CALL     PSRLEV
.*
.* BUILD SRVLIB,SFLIB,QSFLIB
.*
BEGIN(MODIFYX,INSTALL)   MAKE PROPER MODIFY1 PROC LOCAL 
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
NOTE(MODIR,NR)+*EDIT MAC1,MAC2
BEGIN(,MODIFY1,A) 
COMPASS(A,I,S=NOSTEXT,S=SSYTEXT,S=PSSTEXT,B=LIB1,L=LIST)
NOTE(MODIR,NR)+*EDIT RFORM,SYMSERV
BEGIN(,MODIFY1) 
SYMPL(ET=T,I,B=LIB1,L=LIST) 
NOTE(MODIR,NR)+*IDENT DUMMY 
NOTE(MODIR,NR)+*DEFINE,CRM
NOTE(MODIR,NR)+*EDIT SFORM,TERMIO,VIRTERM 
NOTE(MODIR,NR)+*EDIT EOR6 
NOTE(MODIR,NR)+*IDENT DUMMY2
NOTE(MODIR,NR)+*DEFINE,CRM
NOTE(MODIR,NR)+*EDIT SMFSUBS,VDTSUBS
BEGIN(,MODIFY1) 
SYMPL(I,ET=T,S=SYMLIB,B=LIB2,LXR=LIST)
COMPASS(A,I,S=IOTEXT,S=NOSTEXT,S=PSSTEXT,B=LIB2,L=LIST) 
RETURN(COMPILE) 
NOTE(MODIR,NR)+*IDENT DUMMY 
NOTE(MODIR,NR)+*DEFINE,QTRM 
NOTE(MODIR,NR)+*EDIT SFORM,VIRTERM
NOTE(MODIR,NR)+*EDIT EOR6 
NOTE(MODIR,NR)+*IDENT DUMMY2
NOTE(MODIR,NR)+*DEFINE,QTRM 
NOTE(MODIR,NR)+*EDIT SMFSUBS,VDTSUBS
BEGIN(,MODIFY1) 
SYMPL(I,ET=T,S=SYMLIB,B=LIB3,LXR=LIST)
COMPASS(A,I,S=IOTEXT,S=NOSTEXT,S=PSSTEXT,B=LIB3,L=LIST) 
.*
.* CREATE 8 DUMMY LIBRARIES (USRLIB1 - USRLIB8).
.* THIS PROVIDES A METHOD FOR SITES TO HAVE MORE THAN 2 
.* USER LIBRARIES IN A GLOBAL LIBRARY SET.
.*
NOTE(USRLIB1)+.PROC,USRLIB1.
NOTE(USRLIB2)+.PROC,USRLIB2.
NOTE(USRLIB3)+.PROC,USRLIB3.
NOTE(USRLIB4)+.PROC,USRLIB4.
NOTE(USRLIB5)+.PROC,USRLIB5.
NOTE(USRLIB6)+.PROC,USRLIB6.
NOTE(USRLIB7)+.PROC,USRLIB7.
NOTE(USRLIB8)+.PROC,USRLIB8.
BEGIN(SAVELIB,INSTALL,LIB=LIB1,LIBNAME=SRVLIB)
BEGIN(SAVELIB,INSTALL,LIB=LIB2,LIBNAME=SFLIB) 
BEGIN(SAVELIB,INSTALL,LIB=LIB3,LIBNAME=QSFLIB)
BEGIN(SAVELIB,INSTALL,LIB=USRLIB1,LIBNAME=USRLIB1)
BEGIN(SAVELIB,INSTALL,LIB=USRLIB2,LIBNAME=USRLIB2)
BEGIN(SAVELIB,INSTALL,LIB=USRLIB3,LIBNAME=USRLIB3)
BEGIN(SAVELIB,INSTALL,LIB=USRLIB4,LIBNAME=USRLIB4)
BEGIN(SAVELIB,INSTALL,LIB=USRLIB5,LIBNAME=USRLIB5)
BEGIN(SAVELIB,INSTALL,LIB=USRLIB6,LIBNAME=USRLIB6)
BEGIN(SAVELIB,INSTALL,LIB=USRLIB7,LIBNAME=USRLIB7)
BEGIN(SAVELIB,INSTALL,LIB=USRLIB8,LIBNAME=USRLIB8)
BEGIN(SAVELGO,INSTALL,PRDNAME=OSLB) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.        OSLIB ************************************ 
EXIT. 
REVERT(ABORT)  OSLIB ************************************ 
*WEOR 
