&DL      PROC  &P,0                                                     00000000
XRB#REND NAME  X         . 06/03/75 USERID ENTRY END MACRO              00000100
REND     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
         GBL   &TN#CNME                                                 00001200
         LCL   &RBLAST                                                  00001300
&RBLAST  SET   X'20'                                                    00001400
         PRINT OFF                                                      00001500
         RB#DSCTS                                                       00001600
         PRINT ON                                                       00001700
         ORG   TR#B&TN#CNME+(RB#UTOTE-EUCNT)                            00001800
         DC    Y(&RBTOTU)          . TOTAL # USERIDS TO CONTROL SECT    00001900
         ORG   TR#B&TN#CNME+RB#UCLEN+RB#ULEN*(&RBTOTU-1)+(RB#UFLG-EUENTC00002000
               )                                                        00002100
         DC    YL1(&RBFLG++&RBLAST) . SET LAST ENTRY IN FLAG            00002200
         ORG                                                            00002300
&SYSECT  CSECT                                                          00002400
         END                                                            00002500
