&DL      PROC  &P,20                                                    00000000
XRB#DSCT NAME  X                        . RBP DSECTS                    00000100
RB#DSCTS NAME  0                                                        00000200
RB#DSECT NAME  1                                                        00000300
.* .                                                                    00000400
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000500
.* .                                                                  * 00000600
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000700
.* .                                                                  * 00000800
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000900
.* .                                                                  * 00001000
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001100
         GBL   &CBSEH,&CBSE,&CARP                                       00001200
         GBL   &CVARP,&CUCNT,&CUENT                                     00001300
         GBL   &CRBUF                                                   00001400
         GBL   &CRMSG,&CFILE                                            00001500
         LCL   &AAAAA,&BBBBB                                            00001600
         LCL   &RBSEH,&RBSE,&RARP                                       00001700
         LCL   &RVARP,&RUCNT,&RUENT                                     00001800
         LCL   &RRBUF                                                   00001900
         LCL   &RRMSG,&RFILE                                            00002000
         DO    '&CBSEH'=''                                              00002100
&CBSEH   SET   0                                                        00002200
         ENDO                                                           00002300
         DO    '&CBSE'=''                                               00002400
&CBSE    SET   0                                                        00002500
         ENDO                                                           00002600
         DO    '&CARP'=''                                               00002700
&CARP    SET   0                                                        00002800
         ENDO                                                           00002900
         DO    '&CVARP'=''                                              00003000
&CVARP   SET   0                                                        00003100
         ENDO                                                           00003200
         DO    '&CUCNT'=''                                              00003300
&CUCNT   SET   0                                                        00003400
         ENDO                                                           00003500
         DO    '&CUENT'=''                                              00003600
&CUENT   SET   0                                                        00003700
         ENDO                                                           00003800
         DO    '&CRBUF'=''                                              00003900
&CRBUF   SET   0                                                        00004000
         ENDO                                                           00004100
         DO    '&CRMSG'=''                                              00004200
&CRMSG   SET   0                                                        00004300
         ENDO                                                           00004400
         DO    '&CFILE'=''                                              00004500
&CFILE   SET   0                                                        00004600
         ENDO                                                           00004700
&AAAAA   SET   1                        . SELECT ALL DSECTS             00004800
&BBBBB   SET   N'&P                     . NUMBER OF PARAMETERS          00004900
         DO    &BBBBB=0                 . IF 0 SELECT ALL               00005000
         GOTO  .BYP1                                                    00005100
         ENDO                                                           00005200
&AAAAA   SET   0                        . INDIVIDUALS SPECIFIED         00005300
.BYP1    LABEL                                                          00005400
&RBSEH   SET   &AAAAA                   . SELECT BSET HEADER            00005500
&RBSE    SET   &AAAAA                   . SELECT BSET                   00005600
&RARP    SET   &AAAAA                   . SELECT RBP ARP                00005700
&RVARP   SET   &AAAAA           . SELECT RBP ARP FOR DUST               00005800
&RUCNT   SET   &AAAAA           . SELECT RBP USERID CONTROL SECTION     00005900
&RUENT   SET   &AAAAA           . SELECT RBP USERID ENTRY TABLE         00006000
&RRBUF   SET   &AAAAA                  . SELECT RBP BUFFER PREFIX       00006100
&RRMSG   SET   &AAAAA                                                   00006200
&RFILE   SET   &AAAAA                                                   00006300
         DO    &BBBBB=0                 . IF 0 BYPASS SCAN              00006400
         GOTO  .BYP3                                                    00006500
         ENDO                                                           00006600
&S       DO    &BBBBB                                                   00006700
.* .                                                                    00006800
.* .     INDIVIDUAL SELECTION                                           00006900
.* .                                                                    00007000
         DO    '&P(&S)'='EBSEH'                                         00007100
&RBSEH   SET   1                                                        00007200
         GOTO  .BYP2                                                    00007300
         ENDO                                                           00007400
         DO    '&P(&S)'='EBSE'                                          00007500
&RBSE    SET   1                                                        00007600
         GOTO  .BYP2                                                    00007700
         ENDO                                                           00007800
         DO    '&P(&S)'='EBSE'                                          00007900
&RBSE    SET   1                                                        00008000
         GOTO  .BYP2                                                    00008100
         ENDO                                                           00008200
         DO    '&P(&S)'='ERARP'                                         00008300
&RARP    SET   1                                                        00008400
         GOTO  .BYP2                                                    00008500
         ENDO                                                           00008600
         DO    '&P(&S)'='EVARP'                                         00008700
&RVARP   SET   1                                                        00008800
         GOTO  .BYP2                                                    00008900
         ENDO                                                           00009000
         DO    '&P(&S)'='EUCNT'                                         00009100
&RUCNT   SET   1                                                        00009200
         GOTO  .BYP2                                                    00009300
         ENDO                                                           00009400
         DO    '&P(&S)'='EUENT'                                         00009500
&RUENT   SET   1                                                        00009600
         GOTO  .BYP2                                                    00009700
         ENDO                                                           00009800
         DO    '&P(&S)'='ERBUF'                                         00009900
&RRBUF   SET   1                                                        00010000
         GOTO  .BYP2                                                    00010100
         ENDO                                                           00010200
         DO    '&P(&S)'='ERMSG'                                         00010300
&RRMSG   SET   1                                                        00010400
         GOTO  .BYP2                                                    00010500
         ENDO                                                           00010600
         DO    '&P(&S)'='EFILE'                                         00010700
&RFILE   SET   1                                                        00010800
         GOTO  .BYP2                                                    00010900
         ENDO                                                           00011000
.BYP2    LABEL                                                          00011100
         ENDO                                                           00011200
.BYP3    LABEL                                                          00011300
         DO    (1-(&CBSEH=1))*&RBSEH                                    00011400
&CBSEH   SET   1                                                        00011500
         EJECT                                                          00011600
*        TITLE 'BATCH STATION ENTRY TABLE HEADER'                       00011700
EBSEH    DSECT                                                          00011800
EBSLAST  DC    F'0'                    ADDRESS OF LAST TABLE ENTRY      00011900
EBSCOUNT DC    X'00'                   NUMBER OF TABLE ENTRIES          00012000
EBSHFLG  DC    XL1'00'                 . SHUTDOWN FLAGS                 00012100
EBSHUT   EQU   X'80'                   . SHUTDOWN COMPLETE              00012200
EBSHBEG  EQU   X'40'                   . SHUTDOWN STARTED               00012300
EBSHINIT EQU   X'20'               . RBP INIT - TYIELD & AWAKE          00012310
EBSHNSEP EQU   X'08'                    . NO FILE SEPARATOR             00012320
EBSHNLOG EQU   X'04'                    . NO LOG INFO
EBSHNACT EQU   X'02'                    . NO ACCT INFO
*                                                                       00012400
         DC    XL2'00'                                                  00012500
*                                                                       00012600
EBSPRE   DC    F'0'                    . ICAM PREAMBLE ADDRESS          00012700
EBSPUB   DC    F'0'                    . SYSTEM READER PUB ADDRESS      00012800
EBSRCCB  DC    F'0'                    . CCB ADDRESS FOR READER         00012900
EBSNET   DC    F'0'                    . DATA BUFFER ADDRESS FOR READER 00013000
EBSHLTH  EQU   *-EBSLAST               BATCH STATION HEADER LENGTH      00013100
EBSBEGIN EQU   EBSHLTH                 . STATION ENTRIES BEGIN HERE     00013200
         ENDO                                                           00013300
         DO    (1-(&CBSE=1))*&RBSE                                      00013400
&CBSE    SET   1                                                        00013500
         EJECT                                                          00013600
*        TITLE 'BATCH STATION ENTRY (BSE)'                              00013700
EBSE     DSECT                                                          00013800
EBSUSER  DC    XL6'00'             ACTIVE USERID                        00013900
EBSLINE  DC    XL2'00'           . LINE NUMBER                          00014000
EBSFORM  DC    XL8'00'                 LAST FORM MAME PRINTED           00014100
EBSCARD  DC    XL8'00'                 LAST SPECIAL CARDS PUNCHED       00014200
EBSNAME  DC    XL4'00'                 WORK STATION ID                  00014300
SPCFCBLC DC    F'0'                    ADDRESS OF COMMAND FILE CCB      00014400
SPDFCBLC DC    F'0'                    ADDRESS OF DATA CCB              00014500
EBSPRINT DC    F'0'                    ADDRESS PRINT CCB                00014600
EBSPUNCH DC    F'0'                    ADDRESS PUNCH CCB                00014700
EBSMSSTR DC    F'0'                    MESSAGE LIST START               00014800
EBSMSSTP DC    F'0'                    MESSAGE LIST STOP                00014900
EBSTCT   DC    F'0'              . TCT ADDRESS                          00015200
*                                                                       00015300
EBSMODE  DC    X'00'               . DDI MODE FLAG BYTE                 00015400
*                                                                       00015500
EBDDIN   EQU   X'80'               . INPUT MCT SENT                     00015600
EBDDIOUT EQU   X'40'               . OUTPUT SENT                        00015700
EBINACT  EQU   X'20'               . INPUT TRAFFIC                      00015800
EBCPRT   EQU   X'10'                    . PRINT OUTPUT FOR CENTRAL      00015900
EBCPNH   EQU   X'08'                    . PUNCH OUTPUT FOR CENTRAL      00016000
*                                                                       00016100
EBSFLAG  DC    X'00'                   WORK STATION FLAGS               00016200
EBSCONN  EQU   X'80'                   STATION IS CONNECTED             00016300
EBSATCH  EQU   X'40'                   STATION IS ATTACHED              00016400
EBSPROC  EQU   X'20'                   PROCESSING SESSION-USER LOGON    00016500
EBSREAD  EQU   X'10'                   READ IN PROGRESS                 00016600
EBSINP   EQU   X'08'                   INPUT IN PROGRESS                00016700
EBSOUT   EQU   X'04'                   OUTPUT IN PROGRESS               00016800
EBSSHUT  EQU   X'02'                   STATION SHUTDOWN IN PROGRESS     00016900
EBSDISB  EQU   X'01'                   STATION PRINTER DISABLED         00017000
*                                                                       00017100
SPFLAG   DC    X'00'                   SPOOLIN FLAGS                    00017200
SREMOTE  EQU   X'80'                   REMOTE WORK STATION PROCESSING   00017300
SFIRST   EQU   X'40'                   FIRST TIME INITIALIZATION SWITCH 00017400
SCONTIN  EQU   X'20'                   COMMAND CONTINUATION             00017500
SEOF     EQU   X'10'                   INPUT END OF FILE                00017600
SDISCON  EQU   X'02'                   STATION DISCONNECTED             00017700
SDISCREQ EQU   X'01'                   DISCONNECT REQUIRED              00017800
SPMODE   DC    X'00'                   WORK STATION OPERATING MODE      00017900
*                                                                       00018000
SMODE0   EQU   0                       WORK STATION IS NOT CONNECTED.   00018100
*                                                                       00018200
SMODE4   EQU   4                       WORK STATION IS CONNECTED.       00018300
*                                      HAS NOT BEEN IDENTIFIED.         00018400
*                                                                       00018500
SMODE8   EQU   8                       WORK STATION IS CONNECTED.       00018600
*                                      INACTIVE STATE.                  00018700
*                                      FIRST INPUT RECORD MUST BE AN    00018800
*                                      RSTART OR AN RSTOP COMMAND.      00018900
*                                                                       00019000
SMODE16  EQU   16                      WORK STATION IS CONNECTED.       00019100
*                                      INACTIVE STATE.                  00019200
*                                      BYPASS ALL INPUT UNTIL A VALID   00019300
*                                      RSTART OR RSTOP IS RECOGNIZED.   00019400
SMODE32  EQU   32                      WORK STATION IS ATTACHED.        00019500
*                                      ACTIVE STATE.                    00019600
*                                      NEXT INPUT RECORD MUST BE AN     00019700
*                                      RLOGON OR AN RSTOP COMMAND.      00019800
*                                                                       00019900
SMODE40  EQU   40                      WORK STATION IS ATTACHED.        00020000
*                                      ACTIVE STATE.                    00020100
*                                      BYPASS ALL INPUT UNTIL A VALID   00020200
*                                      RLOGON OR RSTOP IS RECOGNIZED.   00020300
*                                                                       00020400
SMODE64  EQU   64                      USER IS LOGGED ON.               00020500
*                                      PROCESSING STATE.                00020600
*                                      NEXT INPUT RECORD MUST BE A      00020700
*                                      // JOB OR REMOTE COMMAND.        00020800
*                                                                       00020900
SMODE72  EQU   72                      USER IS LOGGED ON.               00021000
*                                      PROCESSING STATE.                00021100
*                                       BYPASS ALL INPUT UNTIL A // JOB 00021200
*                                      OR REMOTE COMMAND IS RECOGNIZED. 00021300
*                                                                       00021400
SMODE80  EQU   80                      USER IS LOGGED ON.               00021500
*                                      PROCESSING STATE.                00021600
*                                       BYPASS ALL INPUT UNTIL A // JOB 00021700
*                                      OR REMOTE COMMAND IS RECOGNIZED. 00021800
SMODE96  EQU   96                      USER IS LOGGED ON.               00021900
*                                      PROCESSING STATE.                00022000
*                                      NEXT INPUT RECORD MUST BE A      00022100
*                                      // JOB COMMAND.                  00022200
*                                                                       00022300
SMODE128 EQU   128                     COMMAND FILE SPOOLIN IN PROGRESS 00022400
*                                      NULL FILE.                       00022500
*                                      BYPASS ALL INPUT UNTIL AN END OR 00022600
*                                      REMOTE COMMAND IS RECOGNIZED.    00022700
*                                                                       00022800
SMODE136 EQU   136                     COMMAND FILE SPOOLIN IN PROGRESS 00022900
*                                      NULL FILE - ACCEPT DATA COMMAND. 00023000
*                                                                       00023100
SMODE140 EQU   140                 COMMAND FILE SPOOLIN IN PROGRESS     00023200
*                                  JOB ACCEPTED MSG SENT (/& PROCESSED) 00023300
*                                  NEXT MUST BE // JOB OR // FIN        00023400
*                                                                       00023500
*                                                                       00023600
SMODE144 EQU   144                     COMMAND FILE SPOOLIN IN PROGRESS 00023700
*                                      ACTIVE FILE.                     00023800
SMODE152 EQU   152                     DATA FILE SPOOLIN IN PROGRESS    00023900
*                                      NULL FILE - ACCEPT // JOB COMND  00024000
*                                                                       00024100
SMODE160 EQU   160                     DATA FILE SPOOLIN IN             00024200
*                                      PROGRESS.  ACTIVE FILE.          00024300
*                                                                       00024400
EBSJBSTR DC    F'0'                . JOB OUTPUT QUEUE HEAD              00024500
EBSHROUT EQU   EBSJBSTR                                                 00024600
EBSJBSTP DC    F'0'                . JOB OUTPUT QUEUE TAIL              00024700
EBSTROUT EQU   EBSJBSTP                                                 00024800
EBSLNTH  EQU   *-EBSE              . LENGTH OF BSET                     00024900
EBSLNGTH EQU   *-EBSE              . LENGTH OF BSET                     00025000
         EJECT                                                          00025100
*                                                                       00025200
*        RBP VCON TABLE                                                 00025300
*                                                                       00025400
RB#ENT   DSECT                                                          00025500
RB#INP   DS    A                       . REMOTE INPUT ENTRY ADDRESS     00025600
RB#ODDI  DS    A                   . DDI RETURN TO SPPS                 00025700
RB#OMRT  DS    A                   . MSG MANAGER RETURN TO SPPS         00025800
RB#OPRT  DS    A                   . DDI RETURN TO SPRT                 00025900
RB#OPNH  DS    A                   . DDI RETURN TO SPNH                 00026000
RB#SPPS  DS    A                   . SPPS ENTRY FOR OUTPUT SEARCH       00026100
RB#MPRT  DS    A                        . SPRT RETURN FROM MSG MANAGER  00026200
RB#OUMMR DS    A                   . SPNH RETURN FROM MSG MGR           00026210
RB#ELNG  EQU   *-RB#ENT                . LENGTH OF TABLE                00026300
         ENDO                                                           00026400
         DO    (1-(&CARP=1))*&RARP                                      00026500
&CARP    SET   1                                                        00026600
         EJECT                                                          00026700
*                                                                       00026800
* REMOTE BATCH PROCESSOR (RBP) ACTIVITY REQUEST PACKET (ARP)            00026900
*                                                                       00027000
ERARP    DSECT                                                          00027100
TR#BIRL  DS    XL1               . IRL INDICATOR                        00027200
TR#BIRLB EQU   X'80'          .   IRL BIT                               00027400
TR#BMCPQ EQU   X'00'             . QUEUE TO MCP QUEUE                   00027410
TR#BLINK DS    AL3            . 3 CHAIN PACKET ADDRESS                  00027500
TR#BLNKA EQU   TR#BIRL,4         . FULLWORD CHAIN PACKET ADDRESS        00027600
TR#BENT  DS    A              . 4 ENTRY ADDRESS                         00027700
TR#BCMPA EQU   TR#BENT+1,3                                              00027800
TR#BOPN1 DS    XL1               . OPEN                                 00027900
TR#BTNDX DS    1C                . TASK ARP IS RUNNING UNDER            00028000
TR#BCNDX DS    1H                . CCA INDEX                            00028010
TR#BRBPE DS    A              . 4 RBP ENTRY ADDRESS                     00028100
TR#BSAVH DS    H                       . 2 HALFWORD SAVE AREA           00028200
TR#BTSKT DS    XL1            . 1 TASK INDEX TO                         00028300
TR#BTSK1 EQU   X'01'          .   TASK INDEX 1                          00028400
TR#BTSK2 EQU   X'02'          .   TASK INDEX 2                          00028500
TR#BTSK3 EQU   X'03'          .   TASK INDEX 3                          00028600
TR#TSKF DS     XL1            . 1 TASK INDEX FROM                       00028700
TR#BSAV1 DS    A                       . 4 SAVE AREA 1                  00028800
TR#BSAV2 DS    A              . 4 SAVE AREA 2                           00028900
TR#BSAV3 DS    A              . 4 SAVE AREA 3                           00029000
TR#BSAV4 DS    A              . 4 SAVE AREA 4                           00029100
TR#BLID  DS    1H                . LINE ID                              00029110
TR#BSID  DS    1H                . STATION (TERM) ID
TR#BARPL EQU   *-TR#BIRL         . LENGTH OF ARP ONLY
TR#BR0   DS    A                        . REG SAVE AREA                 00029200
TR#BR1   DS    A                        . REG SAVE AREA                 00029400
TR#BR2   DS    A                        . REG SAVE AREA                 00029600
TR#BR3   DS    A                        . REG SAVE AREA                 00029800
TR#BR4   DS    A                        . REG SAVE AREA                 00029900
TR#BR5   DS    A                        . REG SAVE AREA                 00030100
TR#BR6   DS    A                        . REG SAVE AREA                 00030300
TR#BR7   DS    A                        . REG SAVE AREA                 00030400
TR#BR8   DS    A                   . REG SAVE AREA                      00030500
TR#BR9   DS    A                   . REG SAVE AREA                      00030600
TR#BR10  DS    A                        . REG SAVE AREA                 00030700
TR#BR11  DS    A                        . REG SAVE AREA                 00030800
TR#BR12  DS    A                        . REG SAVE AREA                 00030900
TR#BR13  DS    A                        . REG SAVE AREA                 00031000
TR#BR14  DS    A                        . REG SAVE AREA                 00031100
TR#BR15  DS    A                        . REG SAVE AREA                 00031200
TR#BRBPR DS    A                   . 4 RBP RETURN ADDRESS               00031300
TR#BRPAR DS    A                   . 4 RBP RETURN PARAMETER             00031400
TR#BLNTH EQU   *-ERARP                                                  00031500
*                                                                       00031600
*        RSPRT/RSPPS/RSPNH/RSVS OUTPUT ARP INFORMATION                  00031700
*                                                                       00031800
TR#BLCD  EQU   TR#BENT,4           . SKIP CODE AND LINE POSITION (LAST) 00031900
TR#BLPP  EQU   TR#BOPN1,2        . LINES PER PAGE                       00032000
TR#BLOP  EQU   TR#BCNDX,2        . CURRENT LINE ON PAGE                 00032100
TR#BPLCT EQU   TR#BRBPE,4          . PRINTER LINE CONTROL TABLE ADDRESS 00032200
TR#BOUID EQU   TR#BSAVH,6               . WORD 5&6 - ACTIVE USERID      00032300
TR#BOJID EQU   TR#BSAVH+6,2        . BINARY JOB NUMBER                  00032400
TR#BOFLG EQU   TR#BSAV2,1               . WORD7 - FLAG BYTE             00032500
TR#BOCNT EQU   X'80'                    . ROUT SPECIFIED CONTINUE       00032600
TR#BODEL EQU   X'40'                    . ROUT SPECIFIED DELETE         00032700
TR#BOBEG EQU   X'20'                    . ROUT SPECIFIED BEGIN          00032800
TR#BOALL EQU   X'10'                    . ROUT SPECIFIED U=ALL          00032900
TR#BOIMD EQU   X'08'                    . IMMEDIATE OUTPUT TO SUBMITTER 00033000
TR#BOUUU EQU   X'04'               . ROUT SPECIFIED U=USERID            00033100
TR#BOJJJ EQU   X'02'               . ROUT SPECIFIED J=JOBNAME           00033200
*                                                                       00033210
TR#BSPKT EQU   X'01'               . THIS PKT IS FOR RSTATUS
*   IF TR#BSPKT IS NOT SET, THE PKT IS A JOB OUTPUT PACKET
TR#BSJJJ EQU   X'02'               . RSTATUS SPECIFIED JOB
TR#BSUUU EQU   X'04'               . RSTATUS SPECIFIED USERID
TR#BSTTT EQU   X'10'               . RSTATUS SPECIFIED TERMID
*
TR#BOST  EQU   TR#BSAV2+1,1             . SPRT/SPNH CONTROL FLAGS       00033300
TR#BOLOG EQU   X'80'                    . LOG HAS BEEN PRINTED          00033400
TR#BOSEP EQU   X'40'                    . FILE SEPARATOR HAS BEEN PRINT 00033500
TR#BOPRN EQU   X'20'                    . PRINT OUTPUT COMPLETE         00033600
TR#BOPNH EQU   X'10'                    . PUNCH OUTPUT COMPLETE         00033700
TR#BONON EQU   X'08'               . NO PRINT FILES FOUND               00033800
TR#BOIPU EQU   X'04'               . INVALID RECIPIENT                  00033900
TR#BONPU EQU   X'02'               . NO PUNCH OUTPUT                    00034000
TR#BHOLD EQU   X'02'               . RSPRT HOLD SEARCH FLAG             00034100
TR#BOCPU EQU   X'01'               . CALL OUTPUT WRITER FOR PUNCH       00034200
*                                                                       00034300
TR#BOTYP EQU   TR#BSAV2+2,2             . WORD 7 - J/U =                00034400
*                                                                       00034500
TR#BOJOB EQU   TR#BSAV3,8               . WORD 8&9 - JOB NAME FROM ROUT 00034600
*                                                                       00034700
TR#BOUSR EQU   TR#BSAV3,6               . WORD 8&9 - USERID FROM ROUT   00034800
*                                                                       00034900
*                                                                       00035000
*        MESSAGE MANAGER DATA FOR CANNED MESSAGES                       00035100
*                                                                       00035200
TR#BMID  EQU   TR#BR0,4                 . MSGID ($00/)                  00035300
TR#BNUM  EQU   TR#BR0+2,1               . MSG NUM - 100                 00035400
TR#BMNUM EQU   TR#BR0+2,1               . MSG NUM - 100                 00035500
TR#BMTIM EQU   TR#BR1,4                 . TIME OF DAY (HHMM)            00035600
TR#BMTXT EQU   TR#BR2,6                 . START OF FILL CHARACTERS      00035700
TR#BMEND EQU   X'08'                    . INDICATOR FOR END OF FILL     00035800
*                                                                       00035900
*                                                                       00035910
*        DATA FOR RMSG PROCESSING
*
TR#BCFU  EQU   TR#BR0,6            . FROM USERID
TR#BCFT  EQU   TR#BR1+2,4          . FROM TERMID
TR#BCTU  EQU   TR#BR2+2,6          . TO USERID
TR#BCTT  EQU   TR#BR4,4            .  TO TERMID
TR#BCTXT EQU   TR#BR5,40           . TEST
*
*
*
*        DATA FOR RSTATUS PROCESSING
*
TR#BRSJB EQU   TR#BR0,8            . JOBNAME
TR#BRSUS EQU   TR#BR2,6            . SUBMITTING USERID
TR#BRSTM EQU   TR#BR3+2,4          . SUBMITTING TERMID
TR#BRSDU EQU   TR#BR4+2,6          . DESTINATION USERID
TR#BRSST EQU   TR#BR6,40           . STATUS
*
         ENDO                                                           00036000
         DO    (1-(&CVARP=1))*&RVARP                                    00036100
&CVARP   SET   1                                                        00036200
         EJECT                                                          00036300
*                                                                       00036400
* RBP OPCOM ARP                                                         00036500
*                                                                       00036600
* RBP OPCOM USES RBP ARP                                                00036700
* NO SPECIAL DSECT                                                      00036800
*                                                                       00036900
*                                                                       00037000
         ENDO                                                           00037100
         DO    (1-(&CUCNT=1))*&RUCNT                                    00037200
&CUCNT   SET   1                                                        00037300
         EJECT                                                          00037400
*                                                                       00037500
*                                                                       00037600
*                                                                       00037700
*                                                                       00037800
* RBP USERID CONTROL SECTION DSECT                                      00037900
*                                                                       00038000
EUCNT    DSECT                                                          00038100
RB#UTOTE DS    H                   . 2  TOTAL NUMBER OF USERID ENTRY    00038200
RB#UACTE DS    H                   . 2  NUMBER OF ACTIVE ENTRIES        00038300
RB#UCLEN EQU   *-RB#UTOTE          .    LENGTH OF USERID CONTROL SECT   00038400
*                                                                       00038500
*                                                                       00038600
         ENDO                                                           00038700
         DO    (1-(&CUENT=1))*&RUENT                                    00038800
&CUENT   SET   1                                                        00038900
         EJECT                                                          00039000
*                                                                       00039100
*                                                                       00039200
*                                                                       00039300
* RBP USERID ENTRY DSECT                                                00039400
* INCLUDES:                                                             00039500
*              USERID                                                   00039600
*              ACCOUNT NUMBER                                           00039700
*              OPTIONAL PASSWORD                                        00039800
*                                                                       00039900
EUENT    DSECT                                                          00040000
RB#UNAME DS    CL6                 . 6 6-CHARACTER USERID               00040100
         DS    CL2                 . 2 BLANK FILL USERID                00040200
RB#UACCT DS    CL4                 . 4 UNIQUE ACCOUNT NUMBER            00040300
RB#UPWRD DS    CL8                 . 8 PASSWORD - OPTIONAL              00040400
RB#UFLG  DS    XL1                 . 1 FLAG BYTE                        00040500
RB#UACT  EQU   X'80'               .   USERID IS ACTIVE                 00040600
RB#UPASS EQU   X'40'               .   PASSWORD IS REQUIRED             00040700
RB#ULAST EQU   X'20'               .   LAST USERID ENTRY                00040800
         DS    XL3                 . 3 UNUSED                           00040900
RB#ULEN  EQU   *-RB#UNAME          .   LENGTH OF SINGLE ENTRY           00041000
*                                                                       00041100
         ENDO                                                           00041200
         DO    (1-(&CRBUF=1))*&RRBUF                                    00041300
&CRBUF   SET   1                                                        00041400
         EJECT                                                          00041500
*                                                                       00041600
*        RBP BUFFER PREFIX                                              00041700
*                                                                       00041800
ERBUF    DSECT                                                          00041900
ERBCURI  DS    A                       CURRENT IMAGE ADDRESS            00042000
ERBNXTI  DS    A                       NEXT IMAGE ADDRESS               00042100
ERBMAXR  DS    Y                       MAX RECORDS PER BUFFER           00042200
ERBNUMR  DS    Y                       NUMBER RECORDS PROCESSED         00042300
ERBYTES  DS    Y                       NUMBER BYTES PER RECORD          00042400
ERBFLG   DS    XL1                     . BUFFER FLAG BYTE               00042500
*                                                                       00042600
ERBABT   EQU   X'80'                   . ABORT SCAN FLAG                00042700
ERBFIN   EQU   X'20'                   . JOB SPOOLED - // FIN FOUND     00042800
*                                      . CALL RUN PROCESSOR             00042900
         DS    XL1                     . UNUSED BYTE                    00043000
ERBJOB   DS    XL8                      . JOB NAME BEING SPOOLED        00043100
ERBLNGTH EQU   *-ERBUF                 LENGTH OF PREFIX                 00043200
ERBTEXT  EQU   *                       START OF TEXT                    00043300
         EJECT                                                          00043400
*                                                                       00043500
* DSECT FOR PUNCH FILE SEPARATOR                                        00043600
* USE END OF NETWORK BUFFER                                             00043700
*                                                                       00043800
         ORG   ERBCURI                                                  00043900
         DS    CL160               . CREATE FILE SEP AT END OF BUFFER   00044000
ERBPUSH  DS    CL15               . 15 ASTERISKS                        00044100
ERBPUSBL DS    CL50                . BLANK MIDDLE AREA                  00044200
         ORG   ERBPUSBL                                                 00044300
         DS    CL3                 . 3 BLANKS                           00044400
ERBPUSJN DS    CL8                 . JOBNAME                            00044500
         DS    CL3                 . 3 BLANKS                           00044600
ERBPUSPN DS    CL8                 . PROGRAM NAME                       00044700
         DS    CL3                 . 3 BLANKS                           00044800
ERBPUSSN DS    CL3                 . JOB STEP NUMBER                    00044900
         DS    CL3                 . 3 BLANKS                           00045000
ERBPUSLF DS    CL8                 . LFD NAME                           00045100
         DS    CL3                 . 3 BLANKS                           00045200
ERBPUSAC DS    CL4                 . ACCOUNT NUMBER                     00045300
         DS    CL4                 . 4 BLANKS                           00045400
ERBPUST DS    CL15                 . 15 ASTERISKS                       00045500
ERBPUSLN EQU   *-ERBPUSH                                                00045600
ERBPUCRD DS    CL5                 . SPECIAL CARDS REQUIRED             00045700
ERBPUFN  DS    CL8                 . FORM (CARD) NAME                   00045800
         EJECT                                                          00045900
*                                                                       00046000
* WORKAREA FOR BUILDING INSERTION INFORMATION FOR MESSAGES              00046100
*                                                                       00046200
         ORG   ERBCURI                                                  00046300
         DS    CL160                                                    00046400
ERBFWKA  EQU   *                                                        00046500
ERBFJBNM DS    CL8                 . JOBNAME                            00046600
ERBFUSER DS    CL6                 . SUBMITTING USERID                  00046700
ERBPUTRM DS    CL4                 . TERMID - PUNCH OUTPUT TO CENTRAL   00046800
         ORG   ERBFWKA                                                  00046900
ERBFLFD  DS    CL8                 . LABEL ON // DATA                   00047000
ERBFFILE DS    CL17                . FILEID ON // DATA                  00047100
         ORG   ERBFWKA                                                  00047200
*                                                                       00047300
* WORKAREA FOR RBP COMMANDS                                             00047400
*                                                                       00047500
ERBCTMID DS    CL4                 . TERMID FROM RSTART                 00047600
         ORG   ERBFWKA                                                  00047700
ERBCUSID DS    CL6                 . USERID FROM RLOGON                 00047800
ERBCACCT DS    CL4                 . ACCOUNT NUMBER FROM RLOGON         00047900
ERBCPSWD DS    CL8                 . PASSWORD FROM RLOGON               00048000
ERBCLOL  EQU   *-ERBCUSID          . LENGTH OF RLOGON WORKAREA          00048100
         ENDO                                                           00048200
         DO    (1-(&CRMSG=1))*&RRMSG                                    00048300
&CRMSG   SET   1                                                        00048400
         EJECT                                                          00048500
*                                                                       00048600
* RBP MSG # EQUATES                                                     00048700
*                                                                       00048800
TR#M100  EQU   0                                                        00048900
TR#M101  EQU   1                                                        00049000
TR#M102  EQU   2                                                        00049100
TR#M103  EQU   3                                                        00049200
TR#M104  EQU   4                                                        00049300
TR#M105  EQU   5                                                        00049400
TR#M106  EQU   6                                                        00049500
TR#M107  EQU   7                                                        00049600
TR#M108  EQU   8                                                        00049700
TR#M109  EQU   9                                                        00049800
TR#M110  EQU   10                                                       00049900
TR#M111  EQU   11                                                       00050000
TR#M112  EQU   12                                                       00050100
TR#M113  EQU   13                                                       00050200
TR#M114  EQU   14                                                       00050300
TR#M115  EQU   15                                                       00050400
TR#M116  EQU   16                                                       00050500
TR#M117  EQU   17                                                       00050600
TR#M118  EQU   18                                                       00050700
TR#M119  EQU   19                                                       00050800
TR#M120  EQU   20                                                       00050900
TR#M121  EQU   21                                                       00051000
TR#M122  EQU   22                                                       00051100
TR#M123  EQU   23                                                       00051200
TR#M124  EQU   24                                                       00051300
TR#M125  EQU   25                                                       00051400
TR#M126  EQU   26                                                       00051500
TR#M127  EQU   27                                                       00051600
TR#M128  EQU   28                                                       00051700
TR#M129  EQU   29                                                       00051800
TR#M130  EQU   30                                                       00051900
TR#M131  EQU   31                                                       00052000
TR#M132  EQU   32                                                       00052100
TR#M133  EQU   33                                                       00052200
TR#M134  EQU   34                                                       00052300
TR#M135  EQU   35                                                       00052400
TR#M136  EQU   36                                                       00052500
TR#M137  EQU   37                                                       00052600
TR#M138  EQU   38                                                       00052700
TR#M139  EQU   39                                                       00052800
TR#M140  EQU   40                                                       00052900
TR#M141  EQU   41                                                       00053000
TR#M142  EQU   42                                                       00053100
TR#M143  EQU   43                                                       00053200
TR#M144  EQU   44                                                       00053300
TR#M145  EQU   45                                                       00053400
TR#M146  EQU   46                                                       00053500
TR#M147  EQU   47                                                       00053600
TR#M148  EQU   48                                                       00053700
TR#M149  EQU   49                                                       00053800
TR#M151  EQU   51                                                       00053900
TR#M152  EQU   52                                                       00054000
TR#M106A EQU   53                                                       00054100
TR#M153  EQU   TR#M106A                                                 00054200
TR#M108A EQU   54                                                       00054300
TR#M154  EQU   TR#M108A                                                 00054400
*                                                                       00054500
* DO NOT ASSIGN MESSAGES WITH PREFIXES MC#153 AND MC#154                00054600
* THE EQUIVALENTS OF THESE MESSAGES ARE THE SECOND LINES OF MC#106      00054700
* (RSTATUS) AND MC#108 (RMSG), RESPECTIVELY                             00054800
*                                                                       00054900
         EJECT                                                          00055000
*                                                                       00055100
*                                                                       00055200
* STATUS MESSAGE DSECT                                                  00055300
*                                                                       00055400
*                                                                       00055500
ERAMSG   DSECT                                                          00055600
ERAMLINK DS    A                   . LINK TO NEXT STATUS MSG            00055700
ERAMFWRD EQU   ERAMLINK,4                                               00055800
ERAMMLEN DS    Y                   . LENGTH OF STATUS MESSAGE - 64      00055900
         DS    Y                   . UNUSED                             00056000
ERAMTEXT DS    CL60                . STATUS MESSAGE TEXT                00056100
ERAMMEOM DS    XL4                 . DICE EOM 10010101                  00056200
ERAMLNTH EQU   *-ERAMSG            . LENGTH OF DSECT                    00056300
*                                                                       00056400
*                                                                       00056500
         ENDO                                                           00056600
         DO    (1-(&CFILE=1))*&RFILE                                    00056700
&CFILE   SET   1                                                        00056800
         EJECT                                                          00056900
*                                                                       00057000
*                                                                       00057100
* COMMAND PROCESSOR ENTRY ADDRESS DSECT                                 00057200
* RBP/JCL COMMAND DSECT                                                 00057300
*                                                                       00057400
*                                                                       00057500
ECMD     DSECT                                                          00057600
EJERROR  DS    V                   . ADDRESS OF ERROR ROUTINE           00057700
EJJOB    DS    V                   . ADDRESS OF // JOB                  00057800
EJAMP    DS    V                   . ADDRESS OF /&                      00057900
EJFIN    DS    V                   . ADDRESS OF // FIN                  00058000
EJDATA   DS    V                   . ADDRESS OF // DATA                 00058100
EJEND    DS    V                   . ADDRESS OF // END                  00058200
EROUT    DS    V                   . ADDRESS OF ROUT                    00058300
ERMSG    DS    V                   . ADDRESS OF RMSG                    00058400
ERSTATUS DS    V                   . ADDRESS OF RSTATUS                 00058500
ERLOGOFF DS    V                   . ADDRESS OF RLOGOFF                 00058600
ERSTART  DS    V                   . ADDRESS OF RSTART                  00058700
ERLOGON  DS    V                   . ADDRESS OF RLOGON                  00058800
ERSTOP   DS    V                   . ADDRESS OF RSTOP                   00058900
         ENDO                                                           00059000
&SYSECT  CSECT . RESTART CSECT                                          00059100
         END                                                            00059200
