GDSX Manual

DCCBDECS and ULHDECSE Listings
Extended General Device Support (GDSX) Manual–134303
C-8
DCCBDECS Listing
Begin
Int(32) Link[0:1]; !For placing device on linked lists
Int Namelen; !Length of SU name
Struct Name_; !Name of subdevice (was 0:11 words)
Begin
String Byte[0:31];
End;
Int Name = Name_;
Int Accesslen; !Length of access name
Struct Accesspoint_; !Real access name (was 0:11 words)
Begin
String Byte[0:31];
End;
Int Accesspoint = Accesspoint_;
Int Lineno; !Line number
Int Flags; !Becomes TCB.STATE when device started
Int(32) Tcbaddr; !Address of opener
Int Flags1; !See below
Int(32) Stats; !Address of XSTATS block
Int Type; ! For Deviceinfo support
Int Subtype; ! "
Int Physreclen; ! "
Int(32) Data[0:-1]; !User-defined terminal data
End;
!******************************************************************************!
! For each line managed by GDS, there is an entry in the line table !
! with the following format. !
!******************************************************************************!
Struct Line^Template(*); !Line table entry
Begin
Int Namelen; !Length of LINE name
Struct Name_; !Name of LINE was [0:7].
Begin
String Byte[0:31];
End;
Int Name = Name_;
Int Accesslen; !Length of access name
Struct Accesspoint_; !Real access name (was 0:11)
Begin
String Byte[0:31];
End;
Int Accesspoint = Accesspoint_;
Int Lineno; !Line number
Int(32) Tcbaddr; !Address of TCB for line handler
Int Opens; !Number of active terminals on line
Int Flags1; !See below
Int State; !Application defined state
Int Cmap[0:15]; !Bit map of DCBs on this line
Int Amap[0:15]; !Bit map of Active DCBs on line
Int(32) Stats; !Address of XSTATS block
End;
Define
Session^Flag = Flags1.<0> #, !Session Flags
Session^Control^Flag= Flags1.<1> #, !Session control mechanism
! 0: Control 11/12
! 1: Other means
Server^Flag = Flags1.<2> #, !Server Flags
Server^Control^Flag = Flags1.<3> #, !Ways of server is used
! 0: only server requests
! 1: can function as FE/BE
Open^State = Flags1.<10> #, !DCB is in 'open-state'
Temporary = Flags1.<11> #, !Deallocate when closed
Nowaitdepth^Def = Flags1.<12:15>#; !Parameter to open
!------------------------------------------------------------------------------!
! With each file, with the exception of $RECEIVE, opened within the GDS, an !
! FCB is associated. The FCB serves to store open parameters for the file so !