! *** PREDECLARED TYPES
     
      %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$QUADWORD
            LONG FILL ( 2 )
         END RECORD
         %LET %BASIC$QUADWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$OCTAWORD
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$OCTAWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN
         RECORD BASIC$HFLOAT_AXP
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$HFLOAT_AXP_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$F_FLOATING_COMPLEX
            SINGLE REAL_PART
            SINGLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$D_FLOATING_COMPLEX
            DOUBLE REAL_PART
            DOUBLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$G_FLOATING_COMPLEX
            GFLOAT REAL_PART
            GFLOAT IMAGINARY_PART
         END RECORD
         %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN
         RECORD BASIC$H_FLOATING_COMPLEX_AXP
            BASIC$HFLOAT_AXP REAL_PART
            BASIC$HFLOAT_AXP IMAGINARY_PART
         END RECORD
         %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1
      %END %IF
    
    
    ! 
    !  DEFINITIONS FOR 3271 LINE STATUS BLOCK (RETURNED BY IO$_RDSTATS)
    ! 
      DECLARE LONG CONSTANT XKSTS$K_LSTR = 0  !  OFFSET OF BEGINNING OF DATA AREA 
      DECLARE LONG CONSTANT XKSTS$C_LSTR = 0  !  OFFSET OF BEGINNING OF DATA AREA 
      DECLARE LONG CONSTANT XKSTS$M_ACT = x'00000001'
      DECLARE LONG CONSTANT XKSTS$M_DGN = x'00000002'
      DECLARE LONG CONSTANT XKSTS$K_DSTR = 45  !  LENGTH OF THE LINE STATUS BLOCK 
      DECLARE LONG CONSTANT XKSTS$C_DSTR = 45  !  LENGTH OF THE LINE STATUS BLOCK 
      DECLARE LONG CONSTANT XKSTS$S_XKSTSDEF = 45
      record XKSTSDEF
         BYTE XKSTS$B_CUAD                  !  CONTROL UNIT ADDRESS (HEX EBCDIC) 
         group XKSTS$R_LSTS_OVERLAY
            variant
               case
                  WORD XKSTS$W_LSTS         !  LINE STATUS 
               case
                  group XKSTS$R_LSTS_BITS
                      !  IF SET, LINE IS 'ON' (ACTIVE IN 3271 MODE) 
                      !  IF SET, LINE IS EXECUTING A DIAGNOSTIC QIO 
                     BYTE ACT_bits   ! COMMENT ADDED BY SDL - ACT_bits contains bits ACT through FILL_80_
                  end group XKSTS$R_LSTS_BITS
            end variant
         end group XKSTS$R_LSTS_OVERLAY
         BYTE XKSTS$B_PLSZ                  !  POOL SIZE 
         WORD XKSTS$W_BSIZ                  !  MAXIMUM BLOCK TO BE RECEIVED FROM IBM 
         BYTE XKSTS$B_ECNT                  !  ENQ THRESHOLD 
         WORD XKSTS$W_TNAK                  !  NUMBER OF NAKS TRANSMITTED 
         WORD XKSTS$W_RNAK                  !  NUMBER OF NAKS RECEIVED 
         WORD XKSTS$W_TENQ                  !  NUMBER OF ENQS SENT 
         WORD XKSTS$W_RENQ                  !  NUMBER OF ENQS RECEIVED 
         WORD XKSTS$W_TRVI                  !  NUMBER OF RVIS TRANSMITTED 
         WORD XKSTS$W_RRVI                  !  NUMBER OF RVIS RECEIVED 
         WORD XKSTS$W_RCNV                  !  NUMBER OF CONVERSATIONAL MODE RESPONSES 
    !   RECEIVED
         WORD XKSTS$W_CHAI                  !  NUMBER OF CHAINED WRITES RECEIVED 
         WORD XKSTS$W_GPOL                  !  NUMBER OF GENERAL POLLS RECEIVED 
         WORD XKSTS$W_XACK                  !  NUMBER OF INVALID ACKS RECEIVED 
         WORD XKSTS$W_HABO                  !  NUMBER OF HOST ABORTS ENCOUNTERED 
         WORD XKSTS$W_DABO                  !  NUMBER OF DRIVER ABORTS ENCOUNTERED 
         WORD XKSTS$W_RTIM                  !  NUMBER OF ACK RESPONSE TIMEOUTS 
         WORD XKSTS$W_DISC                  !  NUMBER OF DISCONNECTS ENCOUNTERED 
         WORD XKSTS$W_HARD                  !  NUMBER OF HARDWARE FAILURES (INCLUDING 
    !   DISCONNECTS) ENCOUNTERED
         WORD XKSTS$W_TBLK                  !  NUMBER OF BLOCKS TRANSMITTED 
         WORD XKSTS$W_RBLK                  !  NUMBER OF BLOCKS RECEIVED 
         WORD XKSTS$W_HABX                  !  NUMBER OF DUBIOUS ACK OUTS 
         WORD XKSTS$W_IEOT                  !  NUMBER OF EOTS IMPLYING ACK 
      end record XKSTSDEF