*M* RCVTAB LIST OF TABLES TO SAVE/RESTORE BY RECOVERY.
*P* NAME: RCVTAB
*P* DESCRIPTION:
*P* FOUR PROCS ARE USED:
*P*            TB BYTE TABLE
*P*            TH HALFWORD TABLE
*P*            TW WORD TABLE
*P*            TD DOUBLE WORD TABLE
*P*            THE GENERAL FORM IS:
*P*            TX,SREF TABLENAME,NUMBER OF ENTRIES,FIRST ENTRY
*P*       WHERE:
*P*       SREF IS OPTIONAL AND INDICATES THE TABLE IS SREF'D.
*P*       FIRST ENTRY IS IS OPTIONAL AND INDICATES THE ENTRY
*P*            TO START THE SAVE/RESTORE. ZERO IS THE DEFAULT.
         DEF      RCVTAB:
*,*               PATCHING DEF FOR XDELTA
         DEF      TABLE
*,*               ADDRESS OF RECOVERY SAVE AND RESTORE TABLES.
         DEF      TABLESZ
*,*               EQU OF SIZE IN WORDS OF RECOVERY SAVE AND RESTORE
*,*               TABLES.
S:S      FNAME
         PROC
         PEND     AF(AF(1)+2)
TB       CNAME    15,1
TH       CNAME    14,2
TW       CNAME    13,4
TD       CNAME    12,8
TBC      CNAME    15,1,1
THC      CNAME    14,2,1
TWC      CNAME    13,4,1
TDC      CNAME    12,8,1
         PROC
         LOCAL    X
         DO1      NUM(CF)=1
         REF      AF(1)
         DO1      SCOR(CF(2),SREF)
         SREF     AF(1)
X        SET      AF(3)
         DO1      NAME(2)-1
X        SET      X+AF(3)
         GEN,1,NAME(1)-1,15-NAME(1),17     ;
                  NAME(3),S:S(NUM(AF(2)),1,AF(2)),,BA(AF(1))+X
         PEND
         PAGE
         REF      PNAMEND,PPROCS
         REF      SV:LIM,SV:RSIZ,LPART,SNDDXSIZ
         SREF     RBLIMSZ,RBLIMSIX,MXSTRM
         REF      RESPARTSZ
         REF      DCTSIZ
         SREF     NSCPU
         SREF     LNOL
         REF      AVRTBLNE,AVRTBLSIZ
         PAGE
RCVTAB:    EQU    %
TABLE    EQU      %
         TW       SMAKFLG           **MUST BE FIRST ENTRY*********
         TW       SL:ONCB
         TW       S:GUAIS
         TW       S:BUAIS
         TW       SL:TB
         TW       SL:UB
         TW       SL:QUAN
         TW       SL:QMIN
         TW       SL:SQUAN
         TW       SL:OLTO
         TW       SL:OITO
         TW       S:OUAIS
         TW       SL:PI
         TW,SREF  SL:RAMR
         TW,SREF  SL:RAMF
         TW,SREF  SL:AIRM
         TW,SREF  SL:RATOR
         TW,SREF  SL:AIRTO
         TW       S:USID
         TW       SL:OXMF
         TW       SL:BXMF
         TW       SL:OIMF
         TW       SL:BIMF
         TW       SL:ETIME
         TW       SL:ELO
         TW       SL:EPO
         TW       SL:EDO
         TW       SL:EUO
         TW       SL:ETS
         TW       SL:EPS
         TW       S:SYMDB
         TW       S:SYMDO
         TW       S:SYMDG
         TW       SL:BDF,SV:LIM+1
         TW       SL:ODF,SV:LIM+1
         TW       SL:GDF,SV:LIM+1
         TW       SL:BMX,SV:LIM+1
         TW       SL:OMX,SV:LIM+1
         TW       SL:GMX,SV:LIM+1
         TH       SH:RTOT,SV:RSIZ+1
         TH       SH:RBSUM,SV:RSIZ+1
         TH       SH:ROSUM,SV:RSIZ+1
         TH       SH:RGSUM,SV:RSIZ+1
         TB       SB:RBMX,SV:RSIZ+1
         TB       SB:ROMX,SV:RSIZ+1
         TB       SB:RGMX,SV:RSIZ+1
         TB       SB:RBDF,SV:RSIZ+1
         TB       SB:RODF,SV:RSIZ+1
         TB       SB:RGDF,SV:RSIZ+1
         TB       PLB:MIN,RESPARTSZ  (SV:RSIZ+1)*(LPART+1)
         TB       PLB:MAX,RESPARTSZ  (SV:RSIZ+1)*(LPART+1)
         TH       PLH:TL,LPART+1
         TH       PLH:TU,LPART+1
         TH       PLH:QN,LPART+1
         TH       PLH:TOL,LPART+1
         TH       PLH:FLG,LPART+1
         TW       SGB
         TW       S:BFIS
         TW       BL:IFS
         TW       BL:OFS
         TW       GI:SDA,3,1
         TB       GIB:UN,3,1
         TB       SSTAT,1
         TB       SNDDX,SNDDXSIZ+1
         TB       STB:TYP,SNDDXSIZ+1
         TB       SYMX,SNDDXSIZ+1
         TW       SH:COMID          COMID SEED & PFA STEALING FLAG
         TB,SREF  STB:LNK,MXSTRM+1
         TH,SREF  STH:FLG,MXSTRM+1
         TW,SREF  RB:XFLG
         TW,SREF  RB:FLAG,RBLIMSZ,RBLIMSIX
         TB,SREF  RBB:LPZ,RBLIMSZ,RBLIMSIX
         TB,SREF  RBB:CPZ,RBLIMSZ,RBLIMSIX
         TD,SREF  RBD:WSN,RBLIMSZ,RBLIMSIX
         TB,SREF  RBB:ID,RBLIMSZ,RBLIMSIX
         TB,SREF  RBB:HFE,RBLIMSZ,RBLIMSIX
         TB,SREF  RBB:HOU,RBLIMSZ,RBLIMSIX
         TB,SREF  RBB:HIN,RBLIMSZ,RBLIMSIX
         TW,SREF  SL:BSTRT
         TW,SREF  SL:MPCALR
         TB,SREF  SB:INIT,NSCPU+1
         TH,SREF  SH:MINQ,NSCPU+1
         TH,SREF  SH:MAXQ,NSCPU+1
         TW       ALLODIRA,2
         TB,SREF  MODE5,LNOL
         TB       DCT3,DCTSIZ+1
         TB       DCT5,DCTSIZ+1
         TW       DCT9,DCTSIZ+1
         TB       DCT15,DCTSIZ+1
         TB       DCT24,DCTSIZ+1
         TW       DCT25,DCTSIZ+1
         TDC      P:AC,PNAMEND+1
         TDC      P:NAME,PPROCS+1
         TWC      P:SA,PNAMEND+1
         TWC      P:TCB,PNAMEND+1
         TBC,SREF PB:C#,PPROCS+1
         TBC,SREF PB:DC#,PNAMEND+1
         TBC      PB:DCBSZ,PNAMEND+1
         TBC      PB:DSZ,PNAMEND+1
         TBC      PB:HVA,PNAMEND+1
         TBC      PB:LNK,PPROCS+1
         TBC      PB:PSZ,PPROCS+1
         TBC      PB:PVA,PPROCS+1
         THC      PH:DDA,PNAMEND+1
         THC      PH:PDA,PPROCS+1
         TWC      RCVRDSZ
         TW       DUMPFILE
         TW,SREF  COCMESS,16
         TW       SL:BPRIO
         TW       SL:OPRIO
         TW       SL:GPRIO
         TD       AVRTBL,AVRTBLNE-AVRTBLSIZ,AVRTBLSIZ
         TW       S:QUIET
         TW       S:SGCSAV
         DO1      8
         DATA     0                 PATCH AREA FOR ADDITIONAL TABLES
TABLESZ  EQU      %-TABLE
         END

