&DL      PROC  &P,3                                                     00000000
XRB#NAME NAME  X         . 06/03/75 RBP USERID ENTRY TABLE              00000100
RNAME    NAME  0                                                        00000200
.* .                                                                    00000300
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000400
.* .                                                                  * 00000500
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000600
.* .                                                                  * 00000700
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000800
.* .                                                                  * 00000900
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001000
         GBL   &RBTOTU,&RBFLG                                           00001100
         LCL   &RBPASS                                                  00001200
&RBPASS  SET   X'40'                                                    00001300
         DO    ''='&RBTOTU'                                             00001400
&RBTOTU  SET   0                                                        00001500
         ENDO                                                           00001600
         DO    ''='&P(1)'                                               00001700
         PNOTE 'RBP001','USERID NOT SPECIFIED, ENTRY IGNORED'           00001800
         GOTO  .A                                                       00001900
         ENDO                                                           00002000
         DO    ''='&P(2)'                                               00002100
         PNOTE 'RBP002','ACCOUNT NO. NOT SPECIFIED, ENTRY IGNORED'      00002200
         GOTO  .A                                                       00002300
         ENDO                                                           00002400
&RBFLG   SET   0                                                        00002500
&RBTOTU  SET   &RBTOTU+1                                                00002600
         DC    CL6'&P(1)'          . USERID                             00002700
         DC    CL2' '              . BLANK FILL                         00002800
         DC    CL4'&P(2)'          . ACCOUNT NUMBER                     00002900
         DO    1-(''='&P(3)')                                           00003000
&RBFLG   SET   &RBFLG++&RBPASS     . SET PASSWORD REQUIRED IN FLAG      00003100
         ENDO                                                           00003200
         DO    ''='&P(3)'                                               00003300
         DC    CL8' '              . NO PASSWORD                        00003400
         ENDO                                                           00003500
         DO    1-(''='&P(3)')                                           00003600
         DC    CL8'&P(3)'          . PASSWORD - LEFT JUSTIFIED          00003700
         ENDO                                                           00003800
         DC    YL1(&RBFLG)         . FLAG BYTE                          00003900
         DC    XL3'00'             . UNUSED                             00004000
.A       LABEL                                                          00004100
         END                                                            00004200
