&DL      PROC  &P,0,&TERMS=,&CCA=,&PREVIEW=3,                          X00000000
               &COMPL=,&ERROR=,&INOTICE=,                              X00000100
               &DATIME=,&SOURCE=,&TRANSNO=,                            X00000200
               &SINPUT=NO,&ETPTG=NO,&TIME=0,&PRCS=0,&OVERUN=NO,        X00000300
               &EXTAREA=,&DELIVERY=,&FREEINPT=,                        X00000400
               &DSECTS=(YES,NOLIST)                                     00000500
XMTABLE  NAME  X    . TCI USER MACRO FOR GENERATING USER TABLES         00000600
MTABLE   NAME  0                                                        00000700
.* .                                                                    00000800
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000900
.* .                                                                  * 00001000
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00001100
.* .                                                                  * 00001200
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00001300
.* .                                                                  * 00001400
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001500
         GBL   &DATIM,&SOURS,&TRANS                                     00001600
         GBL   &DELV               . FOR SUPPRESS DELV. NOTICE FLAG     00001700
         GBL   &FREE               . FOR INHIBIT INPUT FUNC.            00001800
         GBL   &TX,&UX,&TY,&UY                                          00001900
         GBL   &TC,&UC,&NUM                                             00002000
         GBL   &TINDX,&UINDX                                            00002100
         GBL   &TAD,&UAD           . FOR LABEL CONCATINATION            00002200
         GBL   &SLOTADR                                                 00002300
         GBL   &UETPTG             . TIMER PRESENT FLAG                 00002400
         GBL   &OINPUT             . OPTIONAL INPUT NOTIFICATION        00002500
         GBL   &AETPTG             . ETPTG COMPLETION ADDRESS           00002600
         GBL   &ETIME              . TIME VALUE IN SECONDS              00002700
         GBL   &SECTORS                                                 00002800
         GBL   &IOVER                                                   00002900
         LCL   &SLOTS                                                   00003000
         LCL   &XX                                                      00003100
         LCL   &ZZ                                                      00003200
.* .                                                                    00003300
         PRINT OFF                                                      00003400
         DO    '&DSECTS(1)'='YES'                                       00003500
         DO    '&DSECTS(2)'='LIST'                                      00003600
         PRINT ON                                                       00003700
         ENDO                                                           00003800
         TM#DSCTS TCS,TTT,OMSG,IMSG,PTAB                                00003900
         ENDO                                                           00004000
         PRINT ON                                                       00004100
         EJECT                                                          00004200
*                                                                       00004300
*        TITLE           -        'TRANSACTION CONTROL SECTION'         00004400
*                                                                       00004500
         DO    '&PREVIEW'='3'                                           00004600
         PNOTE '*','DEFAULT THREE WORD PREVIEW AREA SELECTED'           00004700
         ENDO                                                           00004800
         DO    ('&TERMS'='')++('&CCA'='')++('&COMPL'='')++('&ERROR'='')X00004900
               ++('&INOTICE'='')                                        00005000
         PNOTE 'P','REQUIRED KEYWORD PARAMETER MISSING'                 00005100
         GOTO  .EXIT                                                    00005200
         ENDO                                                           00005300
&DATIM   SET   0                                                        00005400
&SOURS   SET   0                                                        00005500
&TRANS   SET   0                                                        00005600
&FREE    SET   'TM#TTHIN'          . DEFAULT=INHIBIT INPUT AFTER INPUT  00005700
&SLOTS   SET   0                   . MOPEN WILL MODIFY IN TTT           00005800
&SECTORS SET   0                   . MOPEN WILL MODIFY IN TTT           00005900
         DO    '&DATIME'='YES'                                          00006000
&DATIM   SET   'TM#TTDAT'                                               00006100
         ENDO                                                           00006200
         DO    '&SOURCE'='YES'                                          00006300
&SOURS   SET   'TM#TTSRC'                                               00006400
         ENDO                                                           00006500
         DO    '&TRANSNO'='YES'                                         00006600
&TRANS   SET   'TM#TTRNM'                                               00006700
         ENDO                                                           00006800
         DO    ('&FREEINPT'='YES')                                      00006900
&FREE    SET   0                                                        00007000
         ENDO                                                           00007100
&OINPUT  SET   0                   . DEFAULT = MANDATORY INPUT NOTIF    00007200
         DO    '&SINPUT'='YES'                                          00007300
&OINPUT  SET   'TM#TCSIN'          . SPECIFIED = OPTIONAL INPUT NOTIF   00007400
         ENDO                                                           00007500
&AETPTG  SET   '&ETPTG'                                                 00007600
&UETPTG  SET   'TM#TCTIM'                                               00007700
         DO    '&ETPTG'='NO'                                            00007800
&UETPTG  SET   0                   . NO ETPTG FOR USER                  00007900
&AETPTG  SET   0                   . NO ETPTG FOR USER                  00008000
         ENDO                                                           00008100
&ETIME   SET   &TIME                                                    00008200
         DO    '&TIME'='0'                                              00008300
&ETIME   SET   0                   . NO ETPTG FOR USER                  00008400
&AETPTG  SET   0                   . NO ETPTG FOR USER                  00008500
&UETPTG  SET   0                   . NO ETPTG FOR USER                  00008600
         ENDO                                                           00008700
&IOVER   SET   0                                                        00008800
         DO    '&OVERUN'='YES'                                          00008900
&IOVER   SET   'TM#TCOVR'                                               00009000
         ENDO                                                           00009100
         DS    0F                  . SET TO FULL WORD                   00009200
         DO    '&DL'=''=0                                               00009300
&CCA.TCS EQU   *                                                        00009301
&DL      EQU   *                                                        00009400
         ENDO                                                           00009500
         DO    '&DL'=''                                                 00009501
&CCA.TCS EQU   *
         ENDO
         DC    CL4'&CCA'           .CCA NETWORK NAME                    00009600
         DC    YL1(&PREVIEW*4)     . BYTES IN PREVIEW AREA              00009700
         DC    AL3(&INOTICE)       . INPUT NOTICE ADDRESS               00009800
         DC    YL1(&SECTORS)       . NUMBER DISC SECTORS PER MSC. SLOT  00009900
&DELV    SET   'TM#TCSDN'               . NO DELIVERY NOTICE            00010000
         DO    '&DELIVERY'=''=0                                         00010100
&DELV    SET   0                                                        00010200
         DC    AL3(&DELIVERY)      . DELIVERY NOTICE ADDRESS (OUTPUT)   00010300
         GOTO  .BYPS1                                                   00010400
         ENDO                                                           00010500
         DC    AL3(0)              . NO DELIVERY NOTICE SPECIFIED       00010600
.BYPS1   LABEL                                                          00010700
         DC    XL1'0'              . RESERVED FOR ICAM USE              00010800
         DC    AL3(&COMPL)         . SVC COMPLETION ADDRESS             00010900
         DC    XL1'0'              . RESERVED FOR ICAM USE              00011000
         DC    AL3(&ERROR)         . CONTINGENY (ERROR) ADDRESS         00011100
         DC    XL1'0'              . NETWORK STATUS FLAGS               00011200
         DC    XL3'0'              . LINE STATUS MAP                    00011300
         DO    '&PRCS'>'0'                                              00011400
         DC    Y(U#PTAB-&DL)           . DISPLACEMENT TO PRCS TABLE     00011500
         ENDO                                                           00011600
         DO    '&PRCS'='0'                                              00011700
         DC    H'0'                    . RESERVED FOR ICAM              00011800
         ENDO                                                           00011900
         DC    H'0'                . OUTSTANDING INPUT MESSAGES.        00012000
         DC    YL1(&DELV++&IOVER++&OINPUT)  . GENERAL CONTROL FLAGS     00012100
         DC    XL1'00'                  . RESERVED FOR TCI              00012200
         DC    Y(&CCA.END-&CCA.TCS)     . SIZE IN BYTES OF MTABLE       00012201
         DC    F'00'               . RESERVED                           00012300
         EJECT                                                          00012400
*                                                                       00012500
*        TITLE           -        'USER TRANS. TERMINAL TABLES'         00012600
*                                                                       00012700
&TAD     SET   'TTT'                                                    00012800
&UAD     SET   'UEA'                                                    00012900
&TC      SET   1                                                        00013000
&UC      SET   1                                                        00013100
&NUM     SET   1                                                        00013200
         DO    &TERMS                                                   00013300
.*       GENERATING TTT001- TTT999 & UEA001-UEA999 FOR DISPL. FIELD     00013400
.*       TTTNNN = &TINDX.  UEANNN = &UINDX                              00013500
&TX      SET   ''                                                       00013600
&UX      SET   ''                                                       00013700
&XX      SET   0                                                        00013800
         DO    3                                                        00013900
&XX      SET   &XX+1                                                    00014000
&TY      SET   1                                                        00014100
&UY      SET   1                                                        00014200
         DO    (3-&XX)                                                  00014300
&TY      SET   &TY*10                                                   00014400
&UY      SET   &UY*10                                                   00014500
         ENDO                                                           00014600
&TY      SET   &TC/&TY-(&TC/(&TY*10))*10                                00014700
&UY      SET   &UC/&UY-(&UC/(&UY*10))*10                                00014800
&TX      SET   '&TX.&TY'                                                00014900
&UX      SET   '&UX.&UY'                                                00015000
         ENDO                                                           00015100
&TINDX   SET   '&TAD.&TX'                                               00015200
&UINDX   SET   '&UAD.&UX'                                               00015300
&TINDX   EQU   *                   . TTT ADDRESS LABEL                  00015400
         DO    &NUM=&TERMS                                              00015500
         DC    YL1(TM#TTLST++TM#TTDWN++&FREE) . TERMINAL & IRL FLAGS    00015600
         GOTO  .BYPS2                                                   00015700
         ENDO                                                           00015800
         DC    YL1(TM#TTDWN++&FREE) . TERMINAL & IRL FLAGS              00015900
.BYPS2   LABEL                                                          00016000
         DC    XL1'0'              . NO. CONTROL CHARS. SKIPPED         00016100
         DC    H'0'                . SLOT BITS (ICAM USE)               00016200
         DC    CL4'NAME'           . TERMINAL NAME AT EXECUTION TIME    00016300
         DC    XL1'00'                  . RESERVED FOR TCI              00016400
         DC    AL3(0)              . INPUT MESSAGE HEADER ADDRESS       00016500
&SLOTADR SET   (1+(&NUM-1)*(&SLOTS*&SECTORS))                           00016600
         DC    H'0'                . NUMBER INPUT TRANSACTIONS          00016700
         DC    H'0'                . NUMBER OUTPUT TRANSACTIONS         00016800
         DC    YL1(&DATIM++&SOURS++&TRANS)                              00016900
*                                  . USER INPUT FLAGS                   00017000
         DC    XL1'0'              . ICAM INPUT FLAGS                   00017100
         DC    XL1'0'              . USER OUTPUT FLAGS                  00017200
         DC    XL1'0'              . ICAM OUTPUT FLAGS                  00017300
         DC    Y(&NUM)             . TERMINAL NUMBER                    00017400
         DO    '&EXTAREA'=''=0                                          00017500
         DC    Y(&UINDX-&TINDX)    . DISPL. TO USER EXTENT AREA         00017600
         GOTO  .BYPS3                                                   00017700
         ENDO                                                           00017800
         DC    Y(0)                . NO USER WORKAREA SPECIFIED         00017900
.BYPS3   LABEL                                                          00018000
         DC    F'0'                . MREAD/MWRITE USER BUFFER ADDRESS   00018100
         DC    F'&SLOTADR'         . INPUT SLOT DISC ADDRESS            00018200
         DC    H'0'                     . RESERVED FOR TCI              00018300
         DC    H'0'                     . LINE NUMBER (SET BY MOPEN)    00018301
         DC    Y(0)                . INPUT AUX. DEVICE FIELD            00018400
         DC    Y(0)                . INPUT TEXT CHARACTER COUNT         00018500
         DC    (&PREVIEW)F'0'      . TEXT PREVIEW AREA                  00018600
&NUM     SET   &NUM+1                                                   00018700
&TC      SET   &TC+1                                                    00018800
&UC      SET   &UC+1                                                    00018900
         ENDO                                                           00019000
&UC      SET   1                                                        00019100
         DO    '&EXTAREA'=''=0                                          00019200
         EJECT                                                          00019300
*                                                                       00019400
*        TITLE           -        'USER TTT RELATED EXTENT AREA'        00019500
*                                                                       00019600
         DO    &TERMS                                                   00019700
&UX      SET   ''                                                       00019800
&ZZ      SET   0                                                        00019900
         DO    3                                                        00020000
&ZZ      SET   &ZZ+1                                                    00020100
&UY      SET   1                                                        00020200
         DO    (3-&ZZ)                                                  00020300
&UY      SET   &UY*10                                                   00020400
         ENDO                                                           00020500
&UY      SET   &UC/&UY-(&UC/(&UY*10))*10                                00020600
&UX      SET   '&UX.&UY'                                                00020700
         ENDO                                                           00020800
&UINDX   SET   '&UAD.&UX'                                               00020900
&UINDX   EQU   *                   . USER EXT. ADDRESS LABEL            00021000
         DC    (&EXTAREA)F'0'      . TTT RELATED EXTENT AREA            00021100
&UC      SET   &UC+1                                                    00021200
         ENDO                                                           00021300
         ENDO                                                           00021400
U#PTAB   EQU   *                                                        00021500
         DO    &PRCS                                                    00021600
         DC    XL4'00'                 . PRCS NAME                      00021700
         DC    A(0)                    . DTF ADDRESS                    00021800
         DC    Y(0)                    . DISP TO TTT                    00021900
         DC    XL1'00'                 . USER PRCS FLAGS                00022000
         DC    XL1'00'                 . TCI PRCS FLAGS                 00022100
         ENDO                                                           00022200
         DO    '&PRCS'>'0'                                              00022300
         ORG   *-1                                                      00022400
         DC    AL1(TM#TPLST)           . LAST PRCS ENTRY FLAG           00022500
         ORG   *+1                                                      00022600
         ENDO                                                           00022700
.EXIT    LABEL                                                          00022800
&CCA.END EQU   *                                                        00022801
         END                                                            00022900
