RBF5D 
.PROC,RBF5D*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMIN 
*CALL COMOUT
*CALL COMD2 
*CALL COMX2 
*CALL COMXOPL 
*CALL COMPROC 
. 
  
  
.*
.*  START RBF5D VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,RBF5D,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        RBF5D. 
EXIT. 
REVERT(ABORT)  RBF5D. 
  
  
.DATA,ZZZPROC 
.PROC,RBF5D.
*CALL     PSRLEV
* RBF5D - REMOTE BATCH FACILITY 1.6 
*CALL     PSRLEV
* 
  
.*****  RBF5D 
.*
.*      DEBUG VERSION 
.*
  
BEGIN(PRDIN,INSTALL,PRDNAME=RBF5,#PN=PN,#PR=PR,DISK=0)
SKIPEI(USER)
NOTE(USER,NR)+*IDENT  DEBUG 
NOTE(USER,NR)+*DEFINE DEBUG 
NOTE(USER,NR)+*DEFINE TRACE 
NOTE(USER,NR)+*/      END OF MODSET.
PACK(USER)
* 
BEGIN(PRDAUX,INSTALL,PRDNAME=NAM5,#PNO=PN2,#PRO=PR2)
* 
BEGIN(UP,INSTALL,RANDOM,PCPL=CNSP,#PC=PC,#CC=CC,PCDECK=RB5,NUMAUX=1)
RETURN(NAMIN) 
NOTE(NAMIN,NR);*IDENT DEBUGX
NOTE(NAMIN,NR);*DEFINE DEBUG
NOTE(NAMIN,NR);*C,EXINCSZ,EXGETSB,EXGITSB,EXREDUC 
NOTE(NAMIN,NR);*C,EXMREQ,EXMOVOK,EXRQTSB,EXRETSB
NOTE(NAMIN,NR);*C,EXSQUEZ,EXTINFO,EXTINIT,EXXFLMG 
NOTE(NAMIN,NR);*C,CWEOR020,EXGETBG,EXFRSTF,EXZERO,MACREL
PACK(NAMIN) 
UPDATE(P=AUXPL,N=0,I=NAMIN,Q,C=NAMCOMP) 
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
RFL(70000)
SYMPL(ET=T,I,B=RBFDEF,L=LIST) 
SYMPL(ET=T,I,Y=RBFDEF,B=RBFTXT,L=LIST)
SYMPL(ET=T,I,Y=RBFDEF,Y=RBFTXT,B=LIB,L=LIST)
COMPASS(A,I,S=CPUTEXT,S=NOSTEXT,B=LIB,L=LIST) 
COMPASS(A,I,S=CPUTEXT,S=NETTEXT,S=PSSTEXT,B=REL,L=LIST) 
SYMPL(ET=T,I=NAMCOMP,B=LIB,L=LIST)
COMPASS(A,I=NAMCOMP,S=NOSTEXT,S=PSSTEXT,S=IPTEXT,B=LIB,L=LIST)
LIBGEN(F=LIB,P=RBFLIB)
COPYCR(COMPILE,RBF,1,1,72)
BEGIN(PFGOUT,INSTALL,PRDNAME=RBF5,LFN=RBF)
BEGIN(ACCESS,INSTALL,PRODUCT,R) 
SYSGEN(UPSTRT,RBF,$$$JOB(JOBRBF,RB,RBF)$$$) 
RETURN(PRODUCT) 
BEGIN(GETULIB,INSTALL,NETIOD,FORTRAN,SYSLIB,SYMLIB) 
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=RBFLIB/NETIOD)
LOAD(REL) 
NOGO(LGO,RBF) 
BEGIN(PRDOUT,INSTALL,PRDNAME=RBF5,#PNO=PNO,#PRO=PRO)
RETURN(LIB) 
BEGIN(GENDIR,INSTALL,LIB=48)
BEGIN(SAVELGO,INSTALL,PRDNAME=RBF5) 
.IF, (R1G .EQ. 0) ,RBF5D1.
  BEGIN(END,INSTALL,MFT=R1G+) 
.ELSE(RBF5D1) 
  .* SAVE RBF5 DEBUG/TRACE BINARIES ON FILE SMDPFG FOR PRDNAME=RBFD.
  REWIND(SMDPFG,LGO)
  COPYEI(LGO,SMDPFG)
.ENDIF(RBF5D1)
REVERT.  RBF5D. 
EXIT. 
REVERT(ABORT)  RBF5D. 
*WEOR 
