TB       CNAME    15,1
TH       CNAME    14,2
TW       CNAME    13,4
TD       CNAME    12,8
         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,NAME(1),15-NAME(1),17  ;
                  AF(2),,BA(AF(1))+X
         PEND
         PAGE
         REF      SV:LIM,SV:RSIZ,LPART,SNDDXSIZ
         SREF     RBLIMSZ,RBLIMSIX,MXSTRM
         REF      RESPARTSZ
         SREF     NSCPU
         DEF      TABLE,TABLESZ
         PAGE
TABLE    EQU      %
         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:BB
         TW       SL:IOC
         TW       SL:IOPC
         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       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
         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
         DO1      8
         DATA     0                 PATCH AREA FOR ADDITIONAL TABLES
TABLESZ  EQU      %-TABLE
         END
		 
