MACRO                                                          00050000
         TBLGEN &OPTBL,&SQVAL,&TNAME,&TID,&LENG,&BREG                   00100000
         GBLA  &LN,&ENDC,&NDX                                           00150000
         GBLC  &TNM,&REP,&REPA,&BLK                                     00200000
.*       GENERATES TABLES IN X1A. ONE WITH OFFSET AND ONE WITH          00210000
.*       VALUES AT THE CORRESPONDING OFFSETS.  SEE MODULE X1A.          00220000
&TNM     SETC  '&TNAME'                 NAME TO BE GEN'ED FOR TABLE     00250000
&LN      SETA  K'&TNAME                                                 00300000
         AIF   (&LN LE 8).TGBGN                                         00350000
         MNOTE '&TNM EXCEEDS 8 CHARACTERS - IT HAS K'&TNAME CHARACTERS' 00400000
         MEXIT                                                          00450000
.TGBGN   ANOP                                                           00500000
&LN      SETA  &LENG                    LENGTH ATTR FOR EACH TBL ENTRY  00550000
&TNM     EQU   *                                                        00600000
&BLK     SETC  '  '                                                     00650000
&NDX     SETA  0                                                        00700000
&ENDC    SETA  N'&OPTBL                                                 00750000
         AIF   ('&TID' EQ 'SEQT').SEQTBL                                00800000
.* THE DEFAULT ID IS OP CODE TABLE ID                                   00850000
.OCTBL   ANOP                                                           00900000
&NDX     SETA  &NDX+1                                                   00950000
&REP     SETC  '&SYSLIST(1,&NDX)'                                       01000000
         AIF   (&NDX GE &ENDC).OUT1                                     01050000
         ORG   &TNM.+JT&REP.*&LN                                        01100000
         DC    AL&LN.(&REP.-&BREG.)                                     01150000
         AGO   .OCTBL                                                   01200000
.* STATEMENT SEQUENCING TABLE                                           01250000
.SEQTBL  ANOP                                                           01300000
&NDX     SETA  &NDX+1                                                   01350000
&REP     SETC  '&SYSLIST(1,&NDX)'                                       01400000
&REPA    SETC  '&SYSLIST(2,&NDX)'                                       01450000
         AIF   (&NDX GE &ENDC).OUT2                                     01500000
         ORG   &TNM.+JT&REP.*&LN                                        01550000
         DC    AL&LN.(&REPA.)                                           01600000
         AGO   .SEQTBL                                                  01650000
.OUT1    ANOP                                                           01700000
         DC    AL&LN.(&REP.-&BREG.)                                     01750000
         AGO   .EXIT                                                    01800000
.OUT2    ANOP                                                           01850000
DMMY     EQU   *                                                        01900000
         DC    AL&LN.(&REPA.)                                           01950000
.EXIT    ANOP                                                           02000000
         DS    0H                                                       02050000
         MEND                                                           02100000