*COMDECK SVMZAP 
      _***********************
      *                      *
      *  SERVICE MODULE ZAP  *
      *                      *
      ***********************?
_ 
*              ---- SVM LOCAL WORK EVENT CONTROL BLOCK ---- 
  
*              ---- STATUS HANDLER ---- 
? 
      DYLISTCB[   D6STAT].BYNAME    := $5350; 
      DYLISTCB[   D6STAT].BYPRADDR  := /ENTRY(PNSWEPROC); 
      DYLISTCB[   D6STAT].BYPAGE    := /PGNUM(PNSWEPROC); 
      DYLISTCB[   D6STAT].BYMAXCNT  := 1; 
      DYLISTCB[   D6STAT].BYINC     := 3; 
      DYLISTCB[   D6STAT].BYFEINC   := 0; 
      DYLISTCB[   D6STAT].BYRELEASE := /TRUE; 
_ 
*              ---- NOTIFY HANDLER ---- 
? 
      DYLISTCB[ D6NOTIFY].BYNAME    := $4E4F; 
      DYLISTCB[ D6NOTIFY].BYPRADDR  := /ENTRY(PNNWEPROC); 
      DYLISTCB[ D6NOTIFY].BYPAGE    := /PGNUM(PNNWEPROC); 
      DYLISTCB[ D6NOTIFY].BYMAXCNT  := 1; 
      DYLISTCB[ D6NOTIFY].BYINC     := 2; 
      DYLISTCB[ D6NOTIFY].BYFEINC   := 1; 
      DYLISTCB[ D6NOTIFY].BYRELEASE := /TRUE; 
_ 
*              ---- BROADCAST HANDLER ----
? 
      DYLISTCB[ D6BRDCST].BYNAME    := $4252; 
      DYLISTCB[ D6BRDCST].BYPRADDR  := /ENTRY(PNBWEPROC); 
      DYLISTCB[ D6BRDCST].BYPAGE    := /PGNUM(PNBWEPROC); 
      DYLISTCB[ D6BRDCST].BYMAXCNT  := 1; 
      DYLISTCB[ D6BRDCST].BYINC     := 2; 
      DYLISTCB[ D6BRDCST].BYFEINC   := 1; 
      DYLISTCB[ D6BRDCST].BYRELEASE := /TRUE; 
_ 
*              ---- INITIALIZATION ERROR HANDLER ---- 
? 
      DYLISTCB[D6INITERR].BYNAME    := $4945; 
      DYLISTCB[D6INITERR].BYPRADDR  := /ENTRY(PNINITERR); 
      DYLISTCB[D6INITERR].BYPAGE    := /PGNUM(PNINITERR); 
      DYLISTCB[D6INITERR].BYMAXCNT  := 1; 
      DYLISTCB[D6INITERR].BYINC     := 2; 
      DYLISTCB[D6INITERR].BYFEINC   := 1; 
      DYLISTCB[D6INITERR].BYRELEASE := /TRUE; 
  
_?
      CNTCBIVT  := BSPGWIDTH; 
      CNTCTIVT  := NJPGWIDTH; 
_?
      _************************************************ 
      *                                               * 
      *       INITIALIZE SERVICE MESSAGE TABLE        * 
      *                                               * 
      ************************************************? 
      /I := 0;
  
      DBPFCTBL[/D8REG].DBPFC     := /D8REG; 
      DBPFCTBL[/D8REG].DBOUTRTE  := /J4DISPATCH;
      DBPFCTBL[/D8REG].DBHANDLER := /ENTRY(PNSMREG);
  
      DBPFCTBL[/D8ICN].DBPFC     := /D8ICN; 
      DBPFCTBL[/D8ICN].DBOUTRTE  := /J4DISPATCH;
      DBPFCTBL[/D8ICN].DBHANDLER := /ENTRY(PNSMICN);
  
      DBPFCTBL[/D8TCN].DBPFC     := /D8TCN; 
      DBPFCTBL[/D8TCN].DBOUTRTE  := /J4DISPATCH;
      DBPFCTBL[/D8TCN].DBHANDLER := /ENTRY(PNSMTCN);
  
      DBPFCTBL[/D8CHC].DBPFC     := /D8CHC; 
      DBPFCTBL[/D8CHC].DBOUTRTE  := /J4DISCARD; 
  
      DBPFCTBL[/D8NPU].DBPFC     := /D8NPU; 
*IF DEF,HLIP
      DBPFCTBL[/D8NPU].DBOUTRTE  := /J4DISPATCH;
      DBPFCTBL[/D8NPU].DBHANDLER := /ENTRY(PNNPUSM);
*ENDIF
*IF -DEF,HLIP 
      DBPFCTBL[/D8NPU].DBOUTRTE  := /J4DISCARD; 
*ENDIF
  
      DBPFCTBL[/D8OLD].DBPFC     := /D8OLD; 
      DBPFCTBL[/D8OLD].DBOUTRTE  := /J4DISPATCH;
      DBPFCTBL[/D8OLD].DBHANDLER := /ENTRY(PNSMOLD);
  
      DBPFCTBL[/D8NPI].DBPFC     := /D8NPI; 
      DBPFCTBL[/D8NPI].DBOUTRTE  := /J4DISPATCH;
      DBPFCTBL[/D8NPI].DBHANDLER := /ENTRY(PNSMNPI);
  
      DBPFCTBL[/D8SUP].DBPFC     := /D8SUP; 
      DBPFCTBL[/D8SUP].DBOUTRTE  := /J4DISPATCH;
      DBPFCTBL[/D8SUP].DBHANDLER := /ENTRY(PNSMSUP);
  
      DBPFCTBL[/D8CNF].DBPFC     := /D8CNF; 
      DBPFCTBL[/D8CNF].DBOUTRTE  := /J4DISPATCH;
      DBPFCTBL[/D8CNF].DBHANDLER := /ENTRY(PNSMCNF);
  
      DBPFCTBL[/D8ENB].DBPFC     := /D8ENB; 
      DBPFCTBL[/D8ENB].DBOUTRTE  := /J4DISPATCH;
      DBPFCTBL[/D8ENB].DBHANDLER := /ENTRY(PNSMENB);
  
      DBPFCTBL[/D8DIB].DBPFC     := /D8DIB; 
      DBPFCTBL[/D8DIB].DBOUTRTE  := /J4DISPATCH;
      DBPFCTBL[/D8DIB].DBHANDLER := /ENTRY(PNSMENB);
  
      DBPFCTBL[/D8NPS].DBPFC     := /D8NPS; 
      DBPFCTBL[/D8NPS].DBOUTRTE  := /J4DISPATCH;
      DBPFCTBL[/D8NPS].DBHANDLER := /ENTRY(PNSMSTAT); 
  
      DBPFCTBL[/D8LLS].DBPFC     := /D8LLS; 
      DBPFCTBL[/D8LLS].DBOUTRTE  := /J4DISPATCH;
      DBPFCTBL[/D8LLS].DBHANDLER := /ENTRY(PNSMSTAT); 
  
      DBPFCTBL[/D8LIS].DBPFC     := /D8LIS; 
      DBPFCTBL[/D8LIS].DBOUTRTE  := /J4DISPATCH;
      DBPFCTBL[/D8LIS].DBHANDLER := /ENTRY(PNSMSTAT); 
  
      DBPFCTBL[/D8TES].DBPFC     := /D8TES; 
      DBPFCTBL[/D8TES].DBOUTRTE  := /J4DISPATCH;
      DBPFCTBL[/D8TES].DBHANDLER := /ENTRY(PNSMSTAT); 
  
      DBPFCTBL[/D8TRS].DBPFC     := /D8TRS; 
      DBPFCTBL[/D8TRS].DBOUTRTE  := /J4DISPATCH;
      DBPFCTBL[/D8TRS].DBHANDLER := /ENTRY(PNSMSTAT); 
  
      DBPFCTBL[/D8CPS].DBPFC     := /D8CPS; 
      DBPFCTBL[/D8CPS].DBOUTRTE  := /J4DISPATCH;
      DBPFCTBL[/D8CPS].DBHANDLER := /ENTRY(PNSMSTAT); 
  
      DBPFCTBL[/D8VCS].DBPFC     := /D8VCS; 
      DBPFCTBL[/D8VCS].DBOUTRTE  := /J4DISPATCH;
      DBPFCTBL[/D8VCS].DBHANDLER := /ENTRY(PNSMSTATUS); 
  
      DBPFCTBL[/D8STU].DBPFC     := /D8STU; 
      DBPFCTBL[/D8STU].DBOUTRTE  := /J4DISCARD; 
  
      DBPFCTBL[/D8STI].DBPFC     := /D8STI; 
      DBPFCTBL[/D8STI].DBOUTRTE  := /J4DISCARD; 
  
      DBPFCTBL[/D8MSG].DBPFC     := /D8MSG; 
      DBPFCTBL[/D8MSG].DBOUTRTE  := /J4DISPATCH;
      DBPFCTBL[/D8MSG].DBHANDLER := /ENTRY(PNSMMSG);
  
      DBPFCTBL[/D8LOG].DBPFC     := /D8LOG; 
      DBPFCTBL[/D8LOG].DBOUTRTE  := /J4DISCARD; 
  
      DBPFCTBL[/D8ALM].DBPFC     := /D8ALM; 
      DBPFCTBL[/D8ALM].DBOUTRTE  := /J4DISCARD; 
  
      DBPFCTBL[/D8CDI].DBPFC     := /D8CDI; 
      DBPFCTBL[/D8CDI].DBOUTRTE  := /J4DISCARD; 
  
_ 
************************************************************************
*              DEFINES A PAGE VALUE AND AN ENTRY ADDRESS               *
*              FOR EACH ROUTINE CALLS.                                 *
************************************************************************
? 
      BRTNJUMP[C1PNCONFIGURE].JPAGEVAL := /PGNUM(PNCONFIGURE);
      BRTNJUMP[C1PNCONFIGURE].JENTADDR := /ENTRY(PNCONFIGURE);
_?
      BRTNJUMP[C1PNSMGEN    ].JPAGEVAL := /PGNUM(PNSMGEN);
      BRTNJUMP[C1PNSMGEN    ].JENTADDR := /ENTRY(PNSMGEN);
_?
*IF DEF,PERFORM 
_ 
*     ----- PAGE NUMBER FOR PGDSTAT ----- 
? 
      BPGSWITCH[P1PNDSTAT   ]          := /PGNUM(PGDSTAT);
*ENDIF
_ 
* * *   PAGE NUMBERS FOR PGIVTCMD AND PGPRUCMD
? 
      BPGSWITCH[P1PTIVTCMD]            := /PGNUM(PGIVTCMD); 
  
_********************************************************************** 
*                                                                     * 
*                   BASE LCB FIELD DESCRIPTOR TABLE                   * 
*                                                                     * 
**********************************************************************? 
_?
      D0LCBFDT              := DGLCBFDT;    _LCB FDT POINTER           ?
      /I                    := 0;           _LOCAL FIELD COUNTER       ?
_?
      /I                    := /I + 1;
  
      /BZSECURITY          := 1;
      /I                    := /BZSECURITY; 
      DGLCBFDT[/I].DDFSTRT  := /START(BZSECURITY);
      DGLCBFDT[/I].DDFLNTH  := /LENGTH(BZSECURITY); 
      DGLCBFDT[/I].DDFDISP  := BZSECURITY;
_?
*IF DEF,ASYNC 
      /BZLNSPD             := 2;
      /I                    := /BZLNSPD;
      DGLCBFDT[/I].DDFSTRT  := /START(BZLNSPD); 
      DGLCBFDT[/I].DDFLNTH  := /LENGTH(BZLNSPD);
      DGLCBFDT[/I].DDFDISP  := BZLNSPD; 
_?
*ENDIF
*IF -DEF,ASYNC
*IF DEF,X25 
*IF DEF,X25DEBUG
      /BZLNSPD              := $15; 
      /I                    := /I + 1;
      DGLCBFDT[/I].DDFFN    := /BZLNSPD;
      DGLCBFDT[/I].DDFSTRT  := /START(BZLNSPD); 
      DGLCBFDT[/I].DDFLNTH  := /LENGTH(BZLNSPD);
      DGLCBFDT[/I].DDFDISP  := BZLNSPD; 
_?
*ENDIF
_  ******  CAUTION - HIDDEN *IF DEF,X25  ******  ?
_  ******            FOR FN = 3 TO 15    ******  ?
*IF DEF,X25 
      /BZN2                := 3;
      /I                    := /BZN2; 
      DGLCBFDT[/I].DDFSTRT  := /START(BZN2);
      DGLCBFDT[/I].DDFLNTH  := /LENGTH(BZN2); 
      DGLCBFDT[/I].DDX25EX  := /TRUE; 
      DGLCBFDT[/I].DDFDISP  := BZN2;
_?
      /BZK                 := 4;
      /I                    := /BZK;
      DGLCBFDT[/I].DDFSTRT  := /START(BZK); 
      DGLCBFDT[/I].DDFLNTH  := /LENGTH(BZK);
      DGLCBFDT[/I].DDX25EX  := /TRUE; 
      DGLCBFDT[/I].DDFDISP  := BZK; 
_?
      /BZ1LPVC             := 5;
      /I                    := /BZ1LPVC;
      DGLCBFDT[/I].DDFSTRT  := /START(BZDUMB);
      DGLCBFDT[/I].DDFLNTH  := /LENGTH(BZDUMB); 
      DGLCBFDT[/I].DDX25EX  := /TRUE; 
      DGLCBFDT[/I].DDFDISP  := BZDUMB;
_?
      /BZ2LPVC             := 6;
      /I                    := /BZ2LPVC;
      DGLCBFDT[/I].DDFSTRT  := 7; 
      DGLCBFDT[/I].DDFLNTH  := 7; 
      DGLCBFDT[/I].DDX25EX  := /TRUE; 
      DGLCBFDT[/I].DDFDISP  := BZLPVC;
_?
      /BZDCE               := 7;
      /I                    := /BZDCE;
      DGLCBFDT[/I].DDFSTRT  := /START(BZDCE); 
      DGLCBFDT[/I].DDFLNTH  := /LENGTH(BZDCE);
      DGLCBFDT[/I].DDX25EX  := /TRUE; 
      DGLCBFDT[/I].DDFDISP  := BZDCE; 
_?
      /BZTRANSTYPE         := 8;
      /I                    := /BZTRANSTYPE;
      DGLCBFDT[/I].DDFSTRT  := /START(BZTRANSTYPE); 
      DGLCBFDT[/I].DDFLNTH  := /LENGTH(BZTRANSTYPE);
      DGLCBFDT[/I].DDX25EX  := /TRUE; 
      DGLCBFDT[/I].DDFDISP  := BZTRANSTYPE; 
_?
      /BZ1LSVC             := 9;
      /I                    := /BZ1LSVC;
      DGLCBFDT[/I].DDFSTRT  := /START(BZDUMB);
      DGLCBFDT[/I].DDFLNTH  := /LENGTH(BZDUMB); 
      DGLCBFDT[/I].DDX25EX  := /TRUE; 
      DGLCBFDT[/I].DDFDISP  := BZDUMB;
_?
      /BZ2LSVC             := 10; 
      /I                    := /BZ2LSVC;
      DGLCBFDT[/I].DDFSTRT  := 7; 
      DGLCBFDT[/I].DDFLNTH  := 7; 
      DGLCBFDT[/I].DDX25EX  := /TRUE; 
      DGLCBFDT[/I].DDFDISP  := BZLSVC;
_?
      /BZLCN               := 11; 
      /I                    := /BZLCN;
      DGLCBFDT[/I].DDFSTRT  := /START(BZLCN); 
      DGLCBFDT[/I].DDFLNTH  := /LENGTH(BZLCN);
      DGLCBFDT[/I].DDX25EX  := /TRUE; 
      DGLCBFDT[/I].DDFDISP  := BZLCN; 
_?
      /BZT1                := 12; 
      /I                    := /BZT1; 
      DGLCBFDT[/I].DDFSTRT  := /START(BZT1);
      DGLCBFDT[/I].DDFLNTH  := /LENGTH(BZT1); 
      DGLCBFDT[/I].DDX25EX  := /TRUE; 
      DGLCBFDT[/I].DDFDISP  := BZT1;
_?
      /BZ1PKTLNTH          := 13; 
      /I                    := /BZ1PKTLNTH; 
      DGLCBFDT[/I].DDFSTRT  := 14;
      DGLCBFDT[/I].DDFLNTH  := 6; 
      DGLCBFDT[/I].DDX25EX  := /TRUE; 
      DGLCBFDT[/I].DDFDISP  := BZFRMCNT;
_?
      /BZ2PKTLNTH          := 14; 
      /I                    := /BZ2PKTLNTH; 
      DGLCBFDT[/I].DDFSTRT  := 7; 
      DGLCBFDT[/I].DDFLNTH  := 7; 
      DGLCBFDT[/I].DDX25EX  := /TRUE; 
      DGLCBFDT[/I].DDFDISP  := BZFRMCNT;
_?
      /BZLCW               := 15; 
      /I                    := /BZLCW;
      DGLCBFDT[/I].DDFSTRT  := /START(BZLCW); 
      DGLCBFDT[/I].DDFLNTH  := /LENGTH(BZLCW);
      DGLCBFDT[/I].DDX25EX  := /TRUE; 
      DGLCBFDT[/I].DDFDISP  := BZLCW; 
_?
*ENDIF
_  ******  CAUTION - HIDDEN *ENDIF FOR X25 CODE  ******  ?
      /BZQDISC              := 17;
      /I                    := /BZQDISC;
      DGLCBFDT[/I].DDFSTRT  := /START(BZQDISC); 
      DGLCBFDT[/I].DDFLNTH  := /LENGTH(BZQDISC);
      DGLCBFDT[/I].DDFDISP  := BZQDISC; 
      /BZRECON             := 18; 
      /I                    := /BZRECON;
      DGLCBFDT[/I].DDFSTRT  := /START(BZRECON); 
      DGLCBFDT[/I].DDFLNTH  := /LENGTH(BZRECON);
      DGLCBFDT[/I].DDFDISP  := BZRECON; 
_?
      DGLCBFDT[ 0].DDSTART  := /BZSECURITY; 
      DGLCBFDT[ 0].DDNUMENT := /I;          _NUMBER 0F LCB FDT ENTRIES ?
  
_********************************************************************** 
*                                                                     * 
*                   BASE TCB FIELD DESCRIPTOR TABLE                   * 
*                                                                     * 
**********************************************************************? 
_?
      D0TCBFDT              := DGTCBFDT;    _TCB FDT POINTER           ?
      /I                    := 0;           _LOCAL FIELD COUNTER       ?
_?
      /BSSHN                := 20;          _SELECTED HOST NODE        ?
      /I                    := /BSSHN;
      DGTCBFDT[/I].DDFSTRT  := /START(BSSHN); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSSHN);
      DGTCBFDT[/I].DDFDISP  := BSSHN; 
_?
_ POSITION 21 WAS RESERVED IN RELEASE 2.2 AND 2.3 FOR AUTOLOGIN ? 
_?
      /BSACON               := 22;          _AUTO CONNECTION           ?
      /I                    := /BSACON; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSACON);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSACON); 
      DGTCBFDT[/I].DDFDISP  := BSACON;
_?
      /BSIPRI               := 23;          _INPUT PRIORITY            ?
      /I                    := /BSIPRI; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSIPRI);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSIPRI); 
      DGTCBFDT[/I].DDFDISP  := BSIPRI;
_?
      /BSUBL                := 24;          _UPLINE BLOCK LIMIT        ?
      /I                    := /BSUBL;
      DGTCBFDT[/I].DDFSTRT  := /START(BSUBL); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSUBL);
      DGTCBFDT[/I].DDFDISP  := BSUBL; 
_?
      /BSUBZ                := 25;          _UPLINE BLOCK SIZE         ?
      /I                    := /BSUBZ;
      DGTCBFDT[/I].DDFSTRT  := /START(BSUBZ); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSUBZ);
      DGTCBFDT[/I].DDFDISP  := BSUBZ; 
_?
      /BSABL                := 26;          _APPLICATION BLOCK LIMIT   ?
      /I                    := /BSABL;
      DGTCBFDT[/I].DDFSTRT  := /START(BSABL); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSABL);
      DGTCBFDT[/I].DDFDISP  := BSABL; 
_?
      /BSDBL                := 27;          _DOWN-LINE BLOCK LIMIT     ?
      /I                    := /BSDBL;
      DGTCBFDT[/I].DDFSTRT  := /START(BSDBL); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSDBL);
      DGTCBFDT[/I].DDFDISP  := BSDBL; 
_?
      /BSDBZMS              := 28;          _DOWN-LINE BLOCK SIZE MSB  ?
      /I                    := /BSDBZMS;
      DGTCBFDT[/I].DDFSTRT  := /START(BSDBZ); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSDBZ) - 8;
      DGTCBFDT[/I].DDFDISP  := BSDBZ; 
_?
      /BSDBZLS              := 29;          _DOWN-LINE BLOCK SIZE LSB  ?
      /I                    := /BSDBZLS;
      DGTCBFDT[/I].DDFSTRT  := /START(BSDBZ) - 3; 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSDBZ) - 3;
      DGTCBFDT[/I].DDFDISP  := BSDBZ; 
_?
      /BSXBZMS              := 30;          _TRANSMISSION BLOCK SIZE   ?
      /I                    := /BSXBZMS;
      DGTCBFDT[/I].DDFSTRT  := /START(BSXBZ); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSXBZ) - 8;
      DGTCBFDT[/I].DDFDISP  := BSXBZ; 
_?
      /BSXBZLS              := 31;          _TRANSMISSION BLOCK SIZE   ?
      /I                    := /BSXBZLS;
      DGTCBFDT[/I].DDFSTRT  := /START(BSXBZ) - 3; 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSXBZ) - 3;
      DGTCBFDT[/I].DDFDISP  := BSXBZ; 
_?
      /BSLOCK               := 32;          _LOCK INDICATOR            ?
      /I                    := /BSLOCK; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSLOCK);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSLOCK); 
      DGTCBFDT[/I].DDFDISP  := BSLOCK;
_?
      /BSHADON              := 33;          _H.A.D. RECEIVER FLAG      ?
      /I                    := /BSHADON;
      DGTCBFDT[/I].DDFSTRT  := /START(BSHADON); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSHADON);
      DGTCBFDT[/I].DDFDISP  := BSHADON; 
_?
      /BSTCLASS             := 34;          _TERMINAL CLASS            ?
      /I                    := /BSTCLASS; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSTCLASS);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSTCLASS); 
      DGTCBFDT[/I].DDFDISP  := BSTCLASS;
_?
      /BSPGWIDTH            := 35;          _DEVICE PAGE WIDTH         ?
      /I                    := /BSPGWIDTH;
      DGTCBFDT[/I].DDFSTRT  := /START(BSPGWIDTH); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSPGWIDTH);
      DGTCBFDT[/I].DDFDISP  := BSPGWIDTH; 
_?
      /BSPGLENGTH           := 36;          _DEVICE PAGE LENGTH        ?
      /I                    := /BSPGLENGTH; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSPGLENGTH);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSPGLENGTH); 
      DGTCBFDT[/I].DDFDISP  := BSPGLENGTH;
_?
      /BSPGWAIT             := 37;          _DEVICE PAGE WAIT          ?
      /I                    := /BSPGWAIT; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSPGWAIT);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSPGWAIT); 
      DGTCBFDT[/I].DDFDISP  := BSPGWAIT;
_?
      /BSCANCHAR            := 38;          _CANCEL CHARACTER          ?
      /I                    := /BSCANCHAR;
      DGTCBFDT[/I].DDFSTRT  := /START(BSCANCHAR); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSCANCHAR);
      DGTCBFDT[/I].DDFDISP  := BSCANCHAR; 
_?
      /BSBSCHAR             := 39;          _BACKSPACE CHARACTER       ?
      /I                    := /BSBSCHAR; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSBSCHAR);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSBSCHAR); 
      DGTCBFDT[/I].DDFDISP  := BSBSCHAR;
_?
      /BSCNTRLCHAR          := 40;          _CONTROL CHARACTER         ?
      /I                    := /BSCNTRLCHAR;
      DGTCBFDT[/I].DDFSTRT  := /START(BSCNTRLCHAR); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSCNTRLCHAR);
      DGTCBFDT[/I].DDFDISP  := BSCNTRLCHAR; 
_?
      /BSABTBLK             := 41;          _ABORT BLOCK CHARACTER     ?
      /I                    := /BSABTBLK; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSABTBLK);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSABTBLK); 
      DGTCBFDT[/I].DDFDISP  := BSABTBLK;
_?
      /BSUSR1               := 42;          _USER BREAK 1 CHARACTER    ?
      /I                    := /BSUSR1; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSUSR1);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSUSR1); 
      DGTCBFDT[/I].DDFDISP  := BSUSR1;
_?
      /BSUSR2               := 43;          _USER BREAK 2 CHARACTER    ?
      /I                    := /BSUSR2; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSUSR2);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSUSR2); 
      DGTCBFDT[/I].DDFDISP  := BSUSR2;
_?
      /BSCRIDLES            := 44;          _CR IDLES COUNT            ?
      /I                    := /BSCRIDLES;
      DGTCBFDT[/I].DDFSTRT  := /START(BSCRIDLES); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSCRIDLES);
      DGTCBFDT[/I].DDFDISP  := BSCRIDLES; 
_?
      /BSLFIDLES            := 45;          _LF IDLES COUNT            ?
      /I                    := /BSLFIDLES;
      DGTCBFDT[/I].DDFSTRT  := /START(BSLFIDLES); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSLFIDLES);
      DGTCBFDT[/I].DDFDISP  := BSLFIDLES; 
_?
      /BSCRCALC             := 46;          _CALCULATE CARRIAGE RETURNS?
      /I                    := /BSCRCALC; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSCRCALC);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSCRCALC); 
      DGTCBFDT[/I].DDFDISP  := BSCRCALC;
_?
      /BSLFCALC             := 47;          _CALCULATE LINE FEEDS      ?
      /I                    := /BSLFCALC; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSLFCALC);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSLFCALC); 
      DGTCBFDT[/I].DDFDISP  := BSLFCALC;
_?
      /BSSPEDIT             := 48;          _SPECIAL EDIT              ?
      /I                    := /BSSPEDIT; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSSPEDIT);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSSPEDIT); 
      DGTCBFDT[/I].DDFDISP  := BSSPEDIT;
_?
      /BSECHOPLEX           := 49;          _ECHO-PLEX MODE            ?
      /I                    := /BSECHOPLEX; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSECHOPLEX);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSECHOPLEX); 
      DGTCBFDT[/I].DDFDISP  := BSECHOPLEX;
  
      /BSPARITY             := 50;          _DEVICE PARITY             ?
      /I                    := /BSPARITY; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSPARITY);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSPARITY); 
      DGTCBFDT[/I].DDFDISP  := BSPARITY;
  
      /BSBRUSR1             := 51;          _TREAT BREAK AS USER BREAK1?
      /I                    := /BSBRUSR1; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSBRUSR1);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSBRUSR1); 
      DGTCBFDT[/I].DDFDISP  := BSBRUSR1;
  
      /BSXPT                := 52;          _NONTRANSPARENT/TRANSPARENT?
      /I                    := /BSXPT;
      DGTCBFDT[/I].DDFSTRT  := /START(BSXPT); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSXPT);
      DGTCBFDT[/I].DDFDISP  := BSXPT; 
  
      /BSINDEV              := 53;          _INPUT DEVICE              ?
      /I                    := /BSINDEV;
      DGTCBFDT[/I].DDFSTRT  := /START(BSINDEV); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSINDEV);
      DGTCBFDT[/I].DDFDISP  := BSINDEV; 
  
      /BSOUTDEV             := 54;          _OUTPUT DEVICE             ?
      /I                    := /BSOUTDEV; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSOUTDEV);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSOUTDEV); 
      DGTCBFDT[/I].DDFDISP  := BSOUTDEV;
_?
      /BSFLASCII            := 55;          _FULL ASCII MODE           ?
      /I                    := /BSFLASCII;
      DGTCBFDT[/I].DDFSTRT  := /START(BSFLASCII); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSFLASCII);
      DGTCBFDT[/I].DDFDISP  := BSFLASCII; 
_?
      /BSXDBCHAR            := 56;          _TRANSPARENT BY CHARACTER  ?
      /I                    := /BSXDBCHAR;
      DGTCBFDT[/I].DDFSTRT  := /START(BSXDBCHAR); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSXDBCHAR);
      DGTCBFDT[/I].DDFDISP  := BSXDBCHAR; 
_?
      /BSXCNMS              := 57;          _TRANSPARENT COUNT MSB     ?
      /I                    := /BSXCNMS;
      DGTCBFDT[/I].DDFSTRT  := /START(BSXCNT);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSXCNT) - 8; 
      DGTCBFDT[/I].DDFDISP  := BSXCNT;
_?
      /BSXCNLS              := 58;          _TRANSPARENT COUNT LSB     ?
      /I                    := /BSXCNLS;
      DGTCBFDT[/I].DDFSTRT  := /START(BSXCNT) - 4;
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSXCNT) - 4; 
      DGTCBFDT[/I].DDFDISP  := BSXCNT;
_?
      /BSXCHAR              := 59;          _TRANSPARENT CHARACTER     ?
      /I                    := /BSXCHAR;
      DGTCBFDT[/I].DDFSTRT  := /START(BSXCHAR); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSXCHAR);
      DGTCBFDT[/I].DDFDISP  := BSXCHAR; 
  
      /BSXDBTIM             := 60;          _XPARENT DELIMITER BY TIME ?
      /I                    := /BSXDBTIM; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSXDBTIM);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSXDBTIM); 
      DGTCBFDT[/I].DDFDISP  := BSXDBTIM;
  
      /BSELCHAR             := 61;          _END-OF-LINE CHARACTER     ?
      /I                    := /BSELCHAR; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSELCHAR);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSELCHAR); 
      DGTCBFDT[/I].DDFDISP  := BSELCHAR;
  
      /BSELX                := 62;          _EOL INDICATOR   *NO FIELD*?
      /I                    := /BSELX;
      DGTCBFDT[/I].DDFSTRT  := /START(BSELCHAR);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSELCHAR); 
      DGTCBFDT[/I].DDFDISP  := BSELCHAR;
_?
      /BSCPEL               := 63;          _CURSOR POSTIONING EOL     ?
      /I                    := /BSCPEL; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSCPEL);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSCPEL); 
      DGTCBFDT[/I].DDFDISP  := BSCPEL;
_?
      /BSEBCHAR             := 64;          _END-OF-BLOCK CHARACTER    ?
      /I                    := /BSEBCHAR; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSEBCHAR);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSEBCHAR); 
      DGTCBFDT[/I].DDFDISP  := BSEBCHAR;
_?
      /BSEBX                := 65;          _EOB INDICATOR   *NO FIELD*?
      /I                    := /BSEBX;
      DGTCBFDT[/I].DDFSTRT  := /START(BSEBCHAR);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSEBCHAR); 
      DGTCBFDT[/I].DDFDISP  := BSEBCHAR;
_?
      /BSCPEB               := 66;          _CURSOR POSTIONING EOB     ?
      /I                    := /BSCPEB; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSCPEB);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSCPEB); 
      DGTCBFDT[/I].DDFDISP  := BSCPEB;
_?
      /BSRGLIN              := 67;          _INPUT CONTROL *REGULATION*?
      /I                    := /BSRGLIN;
      DGTCBFDT[/I].DDFSTRT  := /START(BSRGLIN); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSRGLIN);
      DGTCBFDT[/I].DDFDISP  := BSRGLIN; 
_?
      /BSRGLOUT             := 68;          _OUTPUT CONTROL *REGUL.*   ?
      /I                    := /BSRGLOUT; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSRGLOUT);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSRGLOUT); 
      DGTCBFDT[/I].DDFDISP  := BSRGLOUT;
_?
      /BSMXCHAR             := 69;          _MULTI MSG XPT TERMINATOR  ?
      /I                    := /BSMXCHAR; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSMXCHAR);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSMXCHAR); 
      DGTCBFDT[/I].DDFDISP  := BSMXCHAR;
_?
      /BSMXPT               := 70;          _SINGLE/MULTI MSG XPT      ?
      /I                    := /BSMXPT; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSMXPT);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSMXPT); 
      DGTCBFDT[/I].DDFDISP  := BSMXPT;
_?
      /BSCURPOS             := 71;          _ CURSOR POSITIONING       ?
      /I                    := /BSCURPOS; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSCURPOS);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSCURPOS); 
      DGTCBFDT[/I].DDFDISP  := BSCURPOS;
_?
      /BSLCW                := 72;          _X25                       ?
      /I                    := /BSLCW;
_  ******  CAUTION - HIDDEN *IF DEF,X25  ******  ?
*IF DEF,X25 
      DGTCBFDT[/I].DDFSTRT  := /START(BSLCW); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSLCW);
      DGTCBFDT[/I].DDFDISP  := BSLCW; 
*ENDIF
_  ******  CAUTION - HIDDEN *ENDIF FOR X25 CODE  ******  ?
_?
      /BSPVCSVC             := 73;          _X25                       ?
      /I                    := /BSPVCSVC; 
_  ******  CAUTION - HIDDEN *IF DEF,X25  ******  ?
*IF DEF,X25 
      DGTCBFDT[/I].DDFSTRT  := /START(BSPVCSVC);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSPVCSVC); 
      DGTCBFDT[/I].DDFDISP  := BSPVCSVC;
*ENDIF
_  ******  CAUTION - HIDDEN *ENDIF FOR X25 CODE  ******  ?
_?
      /BSNOSVC              := 74;          _X25                       ?
      /I                    := /BSNOSVC;
_  ******  CAUTION - HIDDEN *IF DEF,X25  ******  ?
*IF DEF,X25 
      DGTCBFDT[/I].DDFSTRT  := /START(BSNOSVC); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSNOSVC);
      DGTCBFDT[/I].DDFDISP  := BSNOSVC; 
*ENDIF
_  ******  CAUTION - HIDDEN *ENDIF FOR X25 CODE  ******  ?
_?
      /BSENSVC              := 75;          _X25                       ?
      /I                    := /BSENSVC;
_  ******  CAUTION - HIDDEN *IF DEF,X25  ******  ?
*IF DEF,X25 
      DGTCBFDT[/I].DDFSTRT  := /START(BSENSVC); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSENSVC);
      DGTCBFDT[/I].DDFDISP  := BSENSVC; 
*ENDIF
_  ******  CAUTION - HIDDEN *ENDIF FOR X25 CODE  ******  ?
_?
      /BSSUBDT              := 76;          _SUB-DEVICE TYPE           ?
      /I                    := /BSSUBDT;
      DGTCBFDT[/I].DDFSTRT  := /START(BSSUBDT); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSSUBDT);
      DGTCBFDT[/I].DDFDISP  := BSSUBDT; 
_?
      /BSRIC                := 77;
      /I                    := /BSRIC;
      DGTCBFDT[/I].DDFSTRT  := /START(BSRIC); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSRIC);
      DGTCBFDT[/I].DDFDISP  := BSRIC; 
_?
      /BSBCOMP              := 78;
      /I                    := /BSBCOMP;
_  ******  CAUTION - HIDDEN *IF DEF,BSC  ******  ?
*IF DEF,BSC 
      DGTCBFDT[/I].DDFSTRT  := /START(BSBCOMP); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSBCOMP);
      DGTCBFDT[/I].DDFDISP  := BSBCOMP; 
*ENDIF
_  ******  CAUTION - HIDDEN *ENDIF FOR BSC CODE  ******  ?
_?
      /BSMR                 := 79;          _MULTI-RECORD              ?
      /I                    := /BSMR; 
_  ******  CAUTION - HIDDEN *IF DEF,BSC  ******  ?
*IF DEF,BSC 
      DGTCBFDT[/I].DDFSTRT  := /START(BSMR);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSMR); 
      DGTCBFDT[/I].DDFDISP  := BSMR;
*ENDIF
_  ******  CAUTION - HIDDEN *ENDIF FOR BSC CODE  ******  ?
_?
      /BSDO                 := 80;          _DEVICE ORDINAL            ?
      /I                    := /BSDO; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSDO);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSDO); 
      DGTCBFDT[/I].DDFDISP  := BSDO;
_?
      /BSFTYPE              := 81;          _BATCH FILE TYPE           ?
      /I                    := /BSFTYPE;
      DGTCBFDT[/I].DDFSTRT  := /START(BSFTYPE); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSFTYPE);
      DGTCBFDT[/I].DDFDISP  := BSFTYPE; 
_?
      /BSSUPCC              := 82;          _SUPPRESS CARRIAGE CONTROL ?
      /I                    := /BSSUPCC;
      DGTCBFDT[/I].DDFSTRT  := /START(BSSUPCC); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSSUPCC);
      DGTCBFDT[/I].DDFDISP  := BSSUPCC; 
_?
      /BSLACEC              := 83;          _PUNCH LACE CARD           ?
      /I                    := /BSLACEC;
      DGTCBFDT[/I].DDFSTRT  := /START(BSLACEC); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSLACEC);
      DGTCBFDT[/I].DDFDISP  := BSLACEC; 
_?
      /BS1LIMIT             := 84;          _FILE LIMIT MSB            ?
      /I                    := /BS1LIMIT; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSALIMIT);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSALIMIT) - 8; 
      DGTCBFDT[/I].DDFDISP  := BSALIMIT;
_?
      /BS2LIMIT             := 85;          _FILE LIMIT LSB            ?
      /I                    := /BS2LIMIT; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSALIMIT) - 8;
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSALIMIT) - 8; 
      DGTCBFDT[/I].DDFDISP  := BSALIMIT;
_?
      /BSLIMC               := 86;          _PUNCH LIMIT CARD FLAG     ?
      /I                    := /BSLIMC; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSLIMC);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSLIMC); 
      DGTCBFDT[/I].DDFDISP  := BSLIMC;
_?
      /BSFLDPLX             := 87;
      /I                    := /BSFLDPLX; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSFLDPLX);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSFLDPLX); 
      DGTCBFDT[/I].DDFDISP  := BSFLDPLX;
_?
      /BSXWEPAY             := 88;          _X25 ACCEPT REVERSE CHARGES?
      /I                    := /BSXWEPAY; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSXWEPAY);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSXWEPAY); 
      DGTCBFDT[/I].DDFDISP  := BSXWEPAY;
_?
      /BSDPLS               := 89;          _DATA PACKET LENGTH FOR PVC?
      /I                    := /BSDPLS; 
_  ******  CAUTION - HIDDEN *IF DEF,X25  ******  ?
*IF DEF,X25 
      DGTCBFDT[/I].DDFSTRT  := /START(BSDPLS);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSDPLS); 
      DGTCBFDT[/I].DDFDISP  := BSDPLS;
*ENDIF
_  ******  CAUTION - HIDDEN *ENDIF FOR X25 CODE  ******  ?
_?
      /BSXDBCHAR            := 100;         _TRANSPARENT BY CHARACTER  ?
      /I                    := /BSXDBCHAR;
      DGTCBFDT[/I].DDFSTRT  := /START(BSXDBCHAR); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSXDBCHAR);
      DGTCBFDT[/I].DDFDISP  := BSXDBCHAR; 
_?
      /BSAUREC              := 101;         _CODE SET REC              ?
      /I                    := /BSAUREC;
      DGTCBFDT[/I].DDFSTRT  := /START(BSAUREC); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSAUREC);
      DGTCBFDT[/I].DDFDISP  := BSAUREC; 
_?
      /BSPACER              := 102; 
      /I                    := /BSPACER;
      DGTCBFDT[/I].DDFSTRT  := /START(BSPACER); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSPACER);
      DGTCBFDT[/I].DDFDISP  := BSPACER; 
_?
      /BS4LPEOF             := 111;         _MODE 4 SEND EOF WRITE     ?
      /I                    := /BS4LPEOF; 
      DGTCBFDT[/I].DDFSTRT  := /START(BS4LPEOF);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BS4LPEOF); 
      DGTCBFDT[/I].DDFDISP  := BS4LPEOF;
_?
      /BSISYNC              := 112;         _SYNCHRONIZE INPUT         ?
      /I                    := /BSISYNC;
      DGTCBFDT[/I].DDFSTRT  := /START(BSISYNC); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSISYNC);
      DGTCBFDT[/I].DDFDISP  := BSISYNC; 
_?
      /BS01PADPAR           := 113;         _UP TO 144 FOR PAD PARAMS  ?
      /I                    := /BS01PADPAR; 
_  ******  CAUTION - HIDDEN *IF DEF,X25  ******  ?
*IF DEF,X25 
      DGTCBFDT[/I].DDFSTRT  := 15;
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR;
_?
      /BS02PADPAR           := 114; 
      /I                    := /BS02PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 7; 
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR;
_?
      /BS03PADPAR           := 115; 
      /I                    := /BS03PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 15;
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 1;
_?
      /BS04PADPAR           := 116; 
      /I                    := /BS04PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 7; 
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 1;
_?
      /BS05PADPAR           := 117; 
      /I                    := /BS05PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 15;
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 2;
_?
      /BS06PADPAR           := 118; 
      /I                    := /BS06PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 7; 
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 2;
_?
      /BS07PADPAR           := 119; 
      /I                    := /BS07PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 15;
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 3;
_?
      /BS08PADPAR           := 120; 
      /I                    := /BS08PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 7; 
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 3;
_?
      /BS09PADPAR           := 121; 
      /I                    := /BS09PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 15;
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 4;
_?
      /BS10PADPAR           := 122; 
      /I                    := /BS10PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 7; 
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 4;
_?
      /BS11PADPAR           := 123; 
      /I                    := /BS11PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 15;
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 5;
_?
      /BS12PADPAR           := 124; 
      /I                    := /BS12PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 7; 
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 5;
_?
      /BS13PADPAR           := 125; 
      /I                    := /BS13PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 15;
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 6;
_?
      /BS14PADPAR           := 126; 
      /I                    := /BS14PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 7; 
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 6;
_?
      /BS15PADPAR           := 127; 
      /I                    := /BS15PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 15;
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 7;
_?
      /BS16PADPAR           := 128; 
      /I                    := /BS16PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 7; 
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 7;
_?
      /BS17PADPAR           := 129; 
      /I                    := /BS17PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 15;
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 8;
_?
      /BS18PADPAR           := 130; 
      /I                    := /BS18PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 7; 
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 8;
_?
      /BS19PADPAR           := 131; 
      /I                    := /BS19PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 15;
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 9;
_?
      /BS20PADPAR           := 132; 
      /I                    := /BS20PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 7; 
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 9;
_?
      /BS21PADPAR           := 133; 
      /I                    := /BS21PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 15;
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 10; 
_?
      /BS22PADPAR           := 134; 
      /I                    := /BS22PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 7; 
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 10; 
_?
      /BS23PADPAR           := 135; 
      /I                    := /BS23PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 15;
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 11; 
_?
      /BS24PADPAR           := 136; 
      /I                    := /BS24PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 7; 
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 11; 
_?
      /BS25PADPAR           := 137; 
      /I                    := /BS25PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 15;
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 12; 
_?
      /BS26PADPAR           := 138; 
      /I                    := /BS26PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 7; 
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 12; 
_?
      /BS27PADPAR           := 139; 
      /I                    := /BS27PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 15;
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 13; 
_?
      /BS28PADPAR           := 140; 
      /I                    := /BS28PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 7; 
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 13; 
_?
      /BS29PADPAR           := 141; 
      /I                    := /BS29PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 15;
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 14; 
_?
      /BS30PADPAR           := 142; 
      /I                    := /BS30PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 7; 
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 14; 
_?
      /BS31PADPAR           := 143; 
      /I                    := /BS31PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 15;
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 15; 
_?
      /BS32PADPAR           := 144; 
      /I                    := /BS32PADPAR; 
      DGTCBFDT[/I].DDFSTRT  := 7; 
      DGTCBFDT[/I].DDFLNTH  := 7; 
      DGTCBFDT[/I].DDFDISP  := BSPADPAR + 15; 
*ENDIF
_  ******  CAUTION - HIDDEN *ENDIF FOR X25 CODE  ******  ?
      /BSXSTIME             := 146; 
      /I                    := /BSXSTIME; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSXSTIME);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSXSTIME); 
      DGTCBFDT[/I].DDFDISP  := BSXSTIME;
  
      /BSARTSFC             := 145; 
      /I                    := /BSARTSFC; 
_  ******  CAUTION - HIDDEN *IF DEF,ASYNC  ******?
*IF DEF,ASYNC 
      DGTCBFDT[/I].DDFSTRT  := /START(BSARTSFC);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSARTSFC); 
      DGTCBFDT[/I].DDFDISP  := BSARTSFC;
*ENDIF
_  ******  CAUTION - HIDDEN *ENDIF FOR ASYNC CODE  ******?
  
      /BSMCI                := 147; 
      /I                    := /BSMCI;
      DGTCBFDT[/I].DDFSTRT  := /START(BSCRIDLES); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSCRIDLES);
      DGTCBFDT[/I].DDFDISP  := BSCRIDLES; 
  
      /BSMLI                := 148; 
      /I                    := /BSMLI;
      DGTCBFDT[/I].DDFSTRT  := /START(BSLFIDLES); 
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSLFIDLES);
      DGTCBFDT[/I].DDFDISP  := BSLFIDLES; 
      /BSXB12               := 149; 
      /I                    := /BSXB12; 
      DGTCBFDT[/I].DDFSTRT  := /START(BSXB12);
      DGTCBFDT[/I].DDFLNTH  := /LENGTH(BSXB12); 
      DGTCBFDT[/I].DDFDISP  := BSXB12;
_?
_?
      DGTCBFDT[ 0].DDSTART  := /BSSHN;      _FIRST ENTRY IN TCB FDT    ?
      DGTCBFDT[ 0].DDNUMENT := /I;          _NUMBER OF TCB FDT ENTRIES ?
  
_$J+? 
_********************************************************************** 
*                                                                     * 
*                      BASE TCB ACTION TABLE                          * 
*                                                                     * 
**********************************************************************? 
  /L := 0;                                  _ACTION TABLE INDEX        ?
  /L := /L + 1; 
  DGTCBAT[/L].DFFN    := /BSSHN;            _HOST NODE ID              ?
  DGTCBAT[/L].DFAKEY  := D2VUL; 
  DGTCBAT[/L].DFPARAM := $FF01; 
  
  /L := /L + 1; 
  DGTCBAT[/L].DFFN    := /BSXBZMS;          _TRANSMISSION BLOCK SIZE MS?
  DGTCBAT[/L].DFAKEY  := D2UPPAIR;
  DGTCBAT[/L].DFPARAM := 2043;
  
  /L := /L + 1; 
  DGTCBAT[/L].DFFN    := /BSXBZLS;          _TRANSMISSION BLOCK SIZE LS?
  DGTCBAT[/L].DFAKEY  := D2LOPAIR;
  DGTCBAT[/L].DFPARAM := 200; 
  
  /L := /L + 1; 
  DGTCBAT[/L].DFFN    := /BSTCLASS;         _TERMINAL CLASS            ?
  DGTCBAT[/L].DFAKEY  := D2TCBDFLT; 
  DGTCBAT[/L].DFPARAM := 0; 
  
  /L := /L + 1; 
  DGTCBAT[/L].DFFN    := /BSPGWIDTH;        _DEVICE PAGE WIDTH         ?
  DGTCBAT[/L].DFAKEY  := D2VM;
  DGTCBAT[/L].DFPARAM := $0014; 
  
  /L := /L + 1; 
  DGTCBAT[/L].DFFN    := /BSPGLENGTH;       _DEVICE PAGE LENGTH        ?
  DGTCBAT[/L].DFAKEY  := D2VM;
  DGTCBAT[/L].DFPARAM := $0008; 
  
  /L := /L + 1; 
  DGTCBAT[/L].DFFN    := /BSCANCHAR;        _CANCEL CHARACTER          ?
  DGTCBAT[/L].DFAKEY  := D2CHKCHAR; 
  DGTCBAT[/L].DFPARAM := 0; 
  
  /L := /L + 1; 
  DGTCBAT[/L].DFFN    := /BSCNTRLCHAR;      _CONTROL CHARACTER         ?
  DGTCBAT[/L].DFAKEY  := D2CHKCHAR; 
  DGTCBAT[/L].DFPARAM := 0; 
  
  /L := /L + 1; 
  DGTCBAT[/L].DFFN    := /BSUSR1;           _USER BREAK CHARACTER 1    ?
  DGTCBAT[/L].DFAKEY  := D2CHKCHAR; 
  DGTCBAT[/L].DFPARAM := 0; 
  
  /L := /L + 1; 
  DGTCBAT[/L].DFFN    := /BSUSR2;           _USER BREAK CHARACTER 2    ?
  DGTCBAT[/L].DFAKEY  := D2CHKCHAR; 
  DGTCBAT[/L].DFPARAM := 0; 
  
  /L := /L + 1; 
  DGTCBAT[/L].DFFN    := /BSELX;            _EOL INDICATOR             ?
  DGTCBAT[/L].DFAKEY  := D2ELX; 
  DGTCBAT[/L].DFPARAM := /BSELCHAR; 
  
  /L := /L + 1; 
  DGTCBAT[/L].DFFN    := /BSEBX;            _EOB INDICATOR             ?
  DGTCBAT[/L].DFAKEY  := D2ELX; 
  DGTCBAT[/L].DFPARAM := /BSEBCHAR; 
  
  /L := /L + 1; 
  DGTCBAT[/L].DFFN    := /BSBSCHAR;         _BACKSPACE CHARACTER       ?
  DGTCBAT[/L].DFAKEY  := D2CHKCHAR; 
  DGTCBAT[/L].DFPARAM := 0; 
  
  /L := /L + 1; 
  DGTCBAT[/L].DFFN    := /BSABTBLK;         _ABORT BLOCK CHARACTER     ?
  DGTCBAT[/L].DFAKEY  := D2CHKCHAR; 
  DGTCBAT[/L].DFPARAM := 0; 
  
  /L := /L + 1; 
  DGTCBAT[/L].DFFN    := /BSISYNC;          _SYNCHRONIZE INPUT         ?
  DGTCBAT[/L].DFAKEY  := D2ISYNC; 
  DGTCBAT[/L].DFPARAM := 0; 
  
  /L := /L + 1;                             _END OF TABLE              ?
  DGTCBAT[/L].DFEND   := D0ATEND; 
  DGTCBAT[/L].DFNEXT  := /NIL;
  
_********************************************************************** 
*                                                                     * 
*                      BASE LCB ACTION TABLE                          * 
*                                                                     * 
**********************************************************************? 
  /L := 0;                                  _ACTION TABLE INDEX        ?
  /L := /L + 1;                             _ SECURITY                 ?
  DGLCBAT[/L].DFFN    := /BZSECURITY; 
  DGLCBAT[/L].DFAKEY  := D2VUL; 
  DGLCBAT[/L].DFPARAM := $1F00; 
  
  /L := /L + 1;                             _END OF TABLE              ?
  DGLCBAT[/L].DFEND   := D0ATEND; 
  DGLCBAT[/L].DFNEXT  := /NIL;
  
