.PROC,RUNJOBS*I,
JN "HELPER JOB NAME" = (*N=BOTH, IRHF, PASSON, BOTH).
.HELP
 The RUNJOBS procedure RUNs the IRHF and PASSON helper jobs.
.ENDHELP
.IFE,$JN$.EQ.$PASSON$,PASSON.
  ROUTE,PASSJOB,DC=IN,OT=SYOT.
  REVERT. PASSON STARTED.
.ENDIF,PASSON.
.IFE,$JN$.EQ.$IRHF$,IRHF.
  ROUTE,IRHFJOB,DC=IN,OT=SYOT.
  REVERT. IRHF STARTED.
.ENDIF,IRHF.
.IFE,$JN$.EQ.$BOTH$,BOTH.
  ROUTE,PASSJOB,DC=IN,OT=SYOT.
  ROUTE,IRHFJOB,DC=IN,OT=SYOT.
  REVERT. IRHF AND PASSON STARTED.
.ENDIF,BOTH.
.DATA,PASSJOB.
PASSON,SC=NS.
USER,SYSTEMX,SYSTEMX.
NORERUN.
SETTL,*.
SETASL,*.
SETJSL,*.
USECPU(1)
PURGE,PASSDMP/NA.
OFFSW(1,2,3,4,5,6)
* SW1=NETDBG,   SW2=PASSDBG, SW3=MLIDBG
* SW4=PACERKLG, SW5=ROUTF,   SW6=PASSCHK
SET(EF=0)
OFFSW(6)
WHILE,.NOT.SW6,PASLOOP.
VEIAF.
EXIT.
DMD,0,150000.
IFE,EF.EQ.SSE.OR.EF.EQ.ODE.OR.EF.EQ.IDE,ABNDROP.
ONSW(6)
ENDIF,ABNDROP.
DEFINE,PASSDMP/NA,CT=PU,M=R.
REWIND,OUTPUT.
COPY,OUTPUT,PASSDMP.
DAYFILE,PASSDMP.
UNLOAD,PASSDMP.
IFE,SW5,ROF.
  ROUTE,OUTPUT,DC=LP.
ENDIF,ROF.
UNLOAD,OUTPUT.
ENDW,PASLOOP.
.DATA,IRHFJOB.
IRHF170,SC=NS.
USER,SYSTEMX,SYSTEMX.
NORERUN.
SETTL,*.
SETASL,*.
SETJSL,*.
USECPU(1)
PURGE,IRHFDMP/NA.
OFFSW(5)
* SW5=ROUTF
NOEXIT.
* CREATE LOCAL FILE TO USE FOR PARTNER JOB ACCOUNTING.
COPYBR,INPUT,PRACCNT.
REWIND,PRACCNT.
* CREATE LOCAL FILE TO CREATE THE LIDLIST FILE.
COPYBR,INPUT,GENFILE.
REWIND,GENFILE.
* SET R1 AND R2 TO THE TWO CHARACTER MACHINE ID.
$SET(R1=HID/100B)
$SET(R2=HID-(R1*100B))
* CALL PROC GENFILE TO CREATE LIDLIST FILE.
$BEGIN(,GENFILE,R1+B,R2+B)
RHPQEP.
DMD,0,150000.
DEFINE,IRHFDMP/NA,CT=PU,M=R.
REWIND,OUTPUT.
COPY,OUTPUT,IRHFDMP.
DAYFILE,IRHFDMP.
UNLOAD,IRHFDMP.
IFE,SW5,ROF.
  ROUTE,OUTPUT,DC=LP.
ENDIF,ROF.
UNLOAD,OUTPUT.
RETURN(GENFILE)
RETURN(LIDLIST)
RETURN(PRACCNT)
IFE,EF.NE.ODE.AND.EF.NE.OKE.AND.EF.NE.IDE.AND.EF.NE.SSE,NORMDRP.
  REQUEST,HELP. IRHF ABORTED.
ENDIF,NORMDRP.
.EOR
&JOB
USER,&USER,&PASSWORD,&FAMILY.
CHARGE,&CHARGE,&PROJECT.
USECPU(1)
.EOR
.EXPAND(OFF)
.PROC,GENFILE*I
,C1 [1ST CHARACTER OF MACHINE ID]
    =(1=A, 2=B, 3=C, 4=D, 5=E, 6=F, 7=G,
      10=H, 11=I, 12=J, 13=K, 14=L, 15=M, 16=N, 17=O,
      20=P, 21=Q, 22=R, 23=S, 24=T, 25=U, 26=V, 27=W,
      30=X, 31=Y, 32=Z, 33=0, 34=1, 35=2, 36=3, 37=4,
      40=5, 41=6, 42=7, 43=8, 44=9)
,C2 [2ND CHARACTER OF MACHINE ID]
    =(1=A, 2=B, 3=C, 4=D, 5=E, 6=F, 7=G,
      10=H, 11=I, 12=J, 13=K, 14=L, 15=M, 16=N, 17=O,
      20=P, 21=Q, 22=R, 23=S, 24=T, 25=U, 26=V, 27=W,
      30=X, 31=Y, 32=Z, 33=0, 34=1, 35=2, 36=3, 37=4,
      40=5, 41=6, 42=7, 43=8, 44=9).
GET,LIDLIST=LIDVE_C1_C2/NA.
REVERT. GENFILE
EXIT. GENFILE
REVERT(ABORT) GENFILE
/EOR
