&DL      PROC  &P,1                                                     00000000
XDELIM   NAME  X   . DELIMETERS FOR CCA GENERATION                      00000100
LNETBL   NAME  0                                                        00000200
TERMTB   NAME  1                                                        00000300
ENDCCA   NAME  2                                                        00000400
QTABLE   NAME  3                                                        00000500
PRCSTB   NAME  4                                                        00000600
.* .                                                                    00000700
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000800
.* .                                                                  * 00000900
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00001000
.* .                                                                  * 00001100
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00001200
.* .                                                                  * 00001300
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001400
         GBL   &TN#LTND                                                 00001500
         GBL   &TN#LNDX            . 9700 LINE INDEX                    00001600
         GBL   &TN#TTND                                                 00001700
         GBL   &TN#LSTP            . LABEL OF LAST ENTRY                00001800
         GBL   &TS#LINS            . TOTAL NUMBER OF LINES              00001900
         GBL   &TS#TRMS            . TOTAL NUMBER OF TERMINALS          00002000
         GBL   &TS#QUEU            . TOTAL NUMBER OF QUEUES             00002100
         GBL   &TS#PRCS            . TOTAL NUMBER PROCESS FILES         00002200
         GBL   &TS#BPS1,&TS#BPN1,&TS#BPT1                               00002300
         GBL   &TS#BPS2,&TS#BPN2,&TS#BPT2                               00002400
         GBL   &TS#BPS3,&TS#BPN3,&TS#BPT3                               00002500
         GBL   &TS#HOFS,&TS#COFS                                        00002600
         GBL   &TN#CUSR,&TN#CNME                                        00002700
         GBL   &BLOCK1,&BLOCK2,&BTOTAL                                  00002800
         GBL   &CTCI,&TRACK1,&TRACK2,&TOTAL,&TN#DLFD                    00002900
         GBL   &TN#QTND                                                 00003000
         GBL   &TN#LSTQ            . LABEL OF LAST QUEUE IN LINE        00003100
         GBL   &TN#IQDX            . INDEX # OF INTERCEPT QUEUES        00003200
         GBL   &TN#QIDX            . INDEX # OF QUEUES                  00003300
         GBL   &TN#IQCT            . # OF INTERCEPT QUEUES IN LINE      00003400
         GBL   &TN#PNDX            . INDEX CURRENT ENTRY                00003500
         GBL   &TN#NUMQ                 NUMBER OF QUEUES                00003600
         GBL   &LLLLL,&TN#STRT                                          00003700
         GBLA  &FIQ                                                     00003710
         GBL   &CRJE                                                    00003800
         GBLA  &DQFCNT                                                  00003850
         LCLA  &DQFCNT2
.* .                                                                    00003900
.*                                                                      00004000
.*       THIS PROC GENERATES THE DELIMITERS FOR NETWORK CCA.            00004100
.*       LNETBL - PROVIDES NAME OF LAST LINE TABLE ENTRY                00004200
.*       TERMTB - PROVIDES NAME OF LAST TCT ENTRY IN LINE GROUP         00004300
.*       ENDCCA - MARKS END OF A NETWORK DEFINITION                     00004400
.*       QTABLE - PROVIDES NAME OF LAST QUEUE ENTRY                     00004500
.*       PRCSTB - PROVIDES NAME OF LAST PROCESS FILE ENTRY              00004600
.*                                                                      00004700
         DO    &P(0)=0                                                  00004800
&TN#LNDX SET   0                   . START WITH ZERO                    00004900
&TN#LTND SET   '&P(1)'             . LAST LINE TABLE NAME               00005000
         ENDO                                                           00005100
.*                                                                      00005200
         DO    &P(0)=1                                                  00005300
&TN#TTND SET   '&P(1)'             . LAST TERMINAL NAME                 00005400
         CNOP  0,4                                                      00005500
TN#TN&LLLLL EQU *                                                       00005600
         ENDO                                                           00005700
.* .                                                                    00005800
         DO    &P(0)=2                                                  00005900
&DQFCNT2 SETA  &DQFCNT                                                  00005950
DQF#&DQFCNT EQU   0                . LAST DISC QUEUE FILE LINK
&DQFCNT  SETA  &DQFCNT2+1
.* .                               . END OF CCA DEFINITION              00006000
.* .                               . TERMINATE DESTINATION TABLE        00006100
&DL      TN#ENTRY WRAPUP                                                00006200
.* .                               . TERMINATE PROCESS CHAIN IF VOID    00006300
         DO    '&TN#LSTP'=''       . LAST PRCS FILE NAME                00006400
TN#PRCST EQU   0                   . LINK IN CCA CONTROL                00006500
         ENDO                                                           00006600
         DO    &CRJE                                                    00006700
         BFILES                                                         00006800
         ENDO                                                           00006900
         DO    '&TOTAL'=''                                              00006901
&CTCI    SET   0
TM#MWORK DC    2F'0'                    . TCI WORK AREA
TN#SDTF  EQU   0
TN#SWA   EQU   0
TN#CTDTF EQU   *
         ENDO
.* .                                                                    00007000
.* .                                                                    00007100
.*       FOLLOWING USED FOR BUFFER POOLS STATISTICS                     00007200
.* .                                                                    00007300
.* .                                                                    00007400
         TITLE ' &TN#CUSR - COMMUNICATIONS CONTROL AREA SUMMARY'        00007500
  PNOTE *,'                                                           ' 00007600
  PNOTE *,'                                                           ' 00007700
  PNOTE *,'                                                           ' 00007800
  PNOTE *,'CCA ID:                                     &TN#CUSR       ' 00007900
  PNOTE *,'NETWORK NAME:                               &TN#CNME       ' 00008000
  PNOTE *,'PRIMARY MODULE NAME:                        CCA$&TN#CNME   ' 00008100
  PNOTE *,'START CARD LABEL:                           &TN#STRT       ' 00008200
  PNOTE *,'                                                           ' 00008300
         DO    'CCA$&TN#CNME'='&TN#STRT'=0                              00008400
  PNOTE 'TN#001','START CARD LABEL AND MODULE NAME MUST BE THE SAME   ' 00008500
         ENDO                                                           00008600
  PNOTE *,'                                                           ' 00008700
  PNOTE *,'** STATISTICS SUMMARY ***                                  ' 00008800
  PNOTE *,'                                                           ' 00008900
  PNOTE *,'         TOTAL NUMBER OF LINES:             &TS#LINS       ' 00009000
  PNOTE *,'         TOTAL NUMBER OF TERMINALS:         &TS#TRMS       ' 00009100
  PNOTE *,'         TOTAL NUMBER OF PROCESS FILES:     &TS#PRCS       ' 00009200
  PNOTE *,'         TOTAL NUMBER OF QUEUES:            &TS#QUEU       ' 00009300
  PNOTE *,'                                                           ' 00009400
  PNOTE *,'                                                           ' 00009500
  PNOTE *,'** BUFFER POOLS SUMMARY ***                                ' 00009600
  PNOTE *,'                                                           ' 00009700
  PNOTE *,'         ACTIVITY REQUEST PACKET POOL                      ' 00009800
  PNOTE *,'            BUFFER SIZE:                    &TS#BPN1       ' 00009900
  PNOTE *,'            NUMBER IN POOL:                 &TS#BPS1       ' 00010000
  PNOTE *,'            THRESHOLD VALUE:                &TS#BPT1       ' 00010100
  PNOTE *,'                                                           ' 00010200
  PNOTE *,'         NETWORK DATA BUFFERS                              ' 00010300
  PNOTE *,'            BUFFER SIZE:                    &TS#BPN3       ' 00010400
  PNOTE *,'            NUMBER IN POOL:                 &TS#BPS3       ' 00010500
  PNOTE *,'            THRESHOLD VALUE:                &TS#BPT3       ' 00010600
  PNOTE *,'            HEADER OFFSET:                  &TS#HOFS       ' 00010700
  PNOTE *,'            CONT. SEG. OFFSET:              &TS#COFS       ' 00010800
  PNOTE *,'                                                           ' 00010900
         DO    &CTCI                                                    00011000
  PNOTE *,'** DISC FILE SUMMARY ***                                   ' 00011100
  PNOTE *,'                                                           ' 00011200
  PNOTE *,'         DISC FILE NAME:                    &TN#DLFD       ' 00011300
  PNOTE *,'         NUMBER TRACKS FOR DISC BUFFERING:  &TRACK1        ' 00011400
  PNOTE *,'         NUMBER TRACKS FOR TRANSIENT TCI:   &TRACK2        ' 00011500
  PNOTE *,'         TOTAL NMBR TRACKS NEEDED FOR FILE: &TOTAL         ' 00011600
  PNOTE *,'                                                           ' 00011700
  PNOTE *,'IF ASSIGNMENTS ARE MADE IN BLOCKS VALUES ARE:              ' 00011800
  PNOTE *,'                                                           ' 00011900
  PNOTE *,'NUMBER BLOCKS FOR DISC BUFFERING:         &BLOCK1          ' 00012000
  PNOTE *,'NUMBER BLOCKS FOR TRANSIENT:              &BLOCK2          ' 00012100
  PNOTE *,'TOTAL NUMBER OF BLOCKS FOR FILE:          &BTOTAL          ' 00012200
  PNOTE *,'                                                           ' 00012300
  PNOTE *,'                                                           ' 00012400
         ENDO                                                           00012500
  PNOTE *,'** END OF NETWORK SUMMARY ***                              ' 00012600
  PNOTE *,'                                                           ' 00012700
  PNOTE *,'                                                           ' 00012800
  PNOTE *,'                                                           ' 00012900
&TN#STRT CSECT                                                          00013000
         ENDO                                                           00013100
.* .                                                                    00013200
         DO    &P(0)=3                                                  00013300
&TN#QTND SET   '&P(1)'             . LAST QUEUE TABLE NAME              00013400
         CNOP  0,4                                                      00013500
         DO    &FIQ=0                                                   00013510
TN#Q&LLLLL EQU *                   . FIRST QUEUE TABLE ADDRESS          00013600
         ENDO                                                           00013610
&TN#LSTQ SET   '&P(1)'             . LABEL OF LAST QUEUE                00013700
         DO    '&TN#QIDX'=''                                            00013800
&TN#QIDX SET   0                   . INITIALIZE INDEX VALUE             00013900
         ENDO                                                           00015500
         ENDO                                                           00015550
.* .                                                                    00015600
         DO    &P(0)=4                                                  00015700
&TN#PNDX SET   1000                                                     00015800
&TN#NUMQ SET   0                        # Q'S = 0                       00015900
&TN#LSTP SET   '&P(1)'             . LABEL OF LAST PRCS FILE ENTRY      00016000
         CNOP  0,4                                                      00016100
TN#PRCST EQU   *                   . START OF PROCESS FILES             00016200
         ENDO                                                           00016300
.ZZZZ    LABEL                                                          00016400
         END                                                            00016500
