ASMB
      HED RDBAP COPY SCHEDULING TABLE 
      NAM RD.TB,30 91750-16205 REV.2013 800523
* 
* 
******************************************************************* 
* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED 
* NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR
* TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR WRITTEN
* CONSENT OF HEWLETT-PACKARD COMPANY. 
******************************************************************* 
* 
* 
*     SOURCE:    91750-18205
*     RELOC:     91750-16205
* 
*     PRGMR:     CEJ
* 
* 
******************************************************************* 
* 
* 
* 
*  This subroutine contains the RDBAP copy scheduling table.  This table
*  must reside in SSGA to quarantee the information it contains is correct. 
* 
*  The table contains enough room for 20 entries where each entry is as-
*  signed to a specific copy of RDBAP.  Each entry is eight words long
*  and is of the following format:
* 
*         word                      contents
*                    +-----------------------------------------+
*         1-3        |               master                    |-> zero if
*                    |              program's                  |   entry is 
*                    |                name                     |   empty
*                    -------------------------------------------   entry is 
*          4         |         node number of master           |   empty
*                    -------------------------------------------
*         5-7        |               name of                   |
*                    |              RDBAP copy                 |
*                    |              (3 words)                  |
*                    -------------------------------------------
*          8         |       class number for RDBAP copy       |
*                    +-----------------------------------------+
* 
*  This table can be expanded by adding 1 to #ENTR for each extra RDBAP 
*  copy desired and adding eight to the REP statement immediately following.
* 
      ENT RD.TB 
* 
RD.TB DEF *+1 
#COPY DEC 0         Number of copies scheduled. 
#ENTR DEC 20        Number of entries in table. 
      UNL 
      REP 160       RDBAP copy scheduling table.
      NOP 
      LST 
      BSS 0 
      END 
      END$
                                                                                                                                                                                  