.MACRO $DSCDEF,$GBL $DEFINI DSC,$GBL $EQU DSC$K_DTYPE_Z 0 $EQU DSC64$K_DTYPE_Z 0 $EQU DSC$K_DTYPE_BU 2 $EQU DSC64$K_DTYPE_BU 2 $EQU DSC$K_DTYPE_WU 3 $EQU DSC64$K_DTYPE_WU 3 $EQU DSC$K_DTYPE_LU 4 $EQU DSC64$K_DTYPE_LU 4 $EQU DSC$K_DTYPE_QU 5 $EQU DSC64$K_DTYPE_QU 5 $EQU DSC$K_DTYPE_OU 25 $EQU DSC64$K_DTYPE_OU 25 $EQU DSC$K_DTYPE_B 6 $EQU DSC64$K_DTYPE_B 6 $EQU DSC$K_DTYPE_W 7 $EQU DSC64$K_DTYPE_W 7 $EQU DSC$K_DTYPE_L 8 $EQU DSC64$K_DTYPE_L 8 $EQU DSC$K_DTYPE_Q 9 $EQU DSC64$K_DTYPE_Q 9 $EQU DSC$K_DTYPE_O 26 $EQU DSC64$K_DTYPE_O 26 $EQU DSC$K_DTYPE_F 10 $EQU DSC64$K_DTYPE_F 10 $EQU DSC$K_DTYPE_D 11 $EQU DSC64$K_DTYPE_D 11 $EQU DSC$K_DTYPE_G 27 $EQU DSC64$K_DTYPE_G 27 $EQU DSC$K_DTYPE_H 28 $EQU DSC64$K_DTYPE_H 28 $EQU DSC$K_DTYPE_FC 12 $EQU DSC64$K_DTYPE_FC 12 $EQU DSC$K_DTYPE_DC 13 $EQU DSC64$K_DTYPE_DC 13 $EQU DSC$K_DTYPE_GC 29 $EQU DSC64$K_DTYPE_GC 29 $EQU DSC$K_DTYPE_HC 30 $EQU DSC64$K_DTYPE_HC 30 $EQU DSC$K_DTYPE_FS 52 $EQU DSC64$K_DTYPE_FS 52 $EQU DSC$K_DTYPE_FT 53 $EQU DSC64$K_DTYPE_FT 53 $EQU DSC$K_DTYPE_FSC 54 $EQU DSC64$K_DTYPE_FSC 54 $EQU DSC$K_DTYPE_FTC 55 $EQU DSC64$K_DTYPE_FTC 55 $EQU DSC$K_DTYPE_FX 57 $EQU DSC64$K_DTYPE_FX 57 $EQU DSC$K_DTYPE_FXC 58 $EQU DSC64$K_DTYPE_FXC 58 $EQU DSC$K_DTYPE_CIT 31 $EQU DSC64$K_DTYPE_CIT 31 $EQU DSC$K_DTYPE_T 14 $EQU DSC64$K_DTYPE_T 14 $EQU DSC$K_DTYPE_VT 37 $EQU DSC64$K_DTYPE_VT 37 $EQU DSC$K_DTYPE_T2 38 $EQU DSC64$K_DTYPE_T2 38 $EQU DSC$K_DTYPE_NU 15 $EQU DSC64$K_DTYPE_NU 15 $EQU DSC$K_DTYPE_NL 16 $EQU DSC64$K_DTYPE_NL 16 $EQU DSC$K_DTYPE_NLO 17 $EQU DSC64$K_DTYPE_NLO 17 $EQU DSC$K_DTYPE_NR 18 $EQU DSC64$K_DTYPE_NR 18 $EQU DSC$K_DTYPE_NRO 19 $EQU DSC64$K_DTYPE_NRO 19 $EQU DSC$K_DTYPE_NZ 20 $EQU DSC64$K_DTYPE_NZ 20 $EQU DSC$K_DTYPE_P 21 $EQU DSC64$K_DTYPE_P 21 $EQU DSC$K_DTYPE_V 1 $EQU DSC64$K_DTYPE_V 1 $EQU DSC$K_DTYPE_VU 34 $EQU DSC64$K_DTYPE_VU 34 $EQU DSC$K_DTYPE_ZI 22 $EQU DSC64$K_DTYPE_ZI 22 $EQU DSC$K_DTYPE_ZEM 23 $EQU DSC64$K_DTYPE_ZEM 23 $EQU DSC$K_DTYPE_DSC 24 $EQU DSC64$K_DTYPE_DSC 24 $EQU DSC$K_DTYPE_BPV 32 $EQU DSC64$K_DTYPE_BPV 32 $EQU DSC$K_DTYPE_BLV 33 $EQU DSC64$K_DTYPE_BLV 33 $EQU DSC$K_DTYPE_ADT 35 $EQU DSC64$K_DTYPE_ADT 35 $EQU DSC$K_DTYPE_CAD 178 $EQU DSC64$K_DTYPE_CAD 178 $EQU DSC$K_DTYPE_ENT 179 $EQU DSC64$K_DTYPE_ENT 179 $EQU DSC$K_DTYPE_GBL 180 $EQU DSC64$K_DTYPE_GBL 180 $EQU DSC$K_DTYPE_EPT 181 $EQU DSC64$K_DTYPE_EPT 181 $EQU DSC$K_DTYPE_R11 182 $EQU DSC64$K_DTYPE_R11 182 $EQU DSC$K_DTYPE_FLD 183 $EQU DSC64$K_DTYPE_FLD 183 $EQU DSC$K_DTYPE_PCT 184 $EQU DSC64$K_DTYPE_PCT 184 $EQU DSC$K_DTYPE_DPC 185 $EQU DSC64$K_DTYPE_DPC 185 $EQU DSC$K_DTYPE_LBL 186 $EQU DSC64$K_DTYPE_LBL 186 $EQU DSC$K_DTYPE_SLB 187 $EQU DSC64$K_DTYPE_SLB 187 $EQU DSC$K_DTYPE_MOD 188 $EQU DSC64$K_DTYPE_MOD 188 $EQU DSC$K_DTYPE_EOM 189 $EQU DSC64$K_DTYPE_EOM 189 $EQU DSC$K_DTYPE_RTN 190 $EQU DSC64$K_DTYPE_RTN 190 $EQU DSC$K_DTYPE_EOR 191 $EQU DSC64$K_DTYPE_EOR 191 $EQU DSC$K_CLASS_Z 0 $EQU DSC64$K_CLASS_Z 0 $EQU DSC$K_CLASS_S 1 $EQU DSC64$K_CLASS_S 1 $EQU DSC$K_CLASS_D 2 $EQU DSC64$K_CLASS_D 2 $EQU DSC$K_CLASS_V 3 $EQU DSC64$K_CLASS_V 3 $EQU DSC$K_CLASS_A 4 $EQU DSC64$K_CLASS_A 4 $EQU DSC$K_CLASS_P 5 $EQU DSC64$K_CLASS_P 5 $EQU DSC$K_CLASS_PI 6 $EQU DSC64$K_CLASS_PI 6 $EQU DSC$K_CLASS_J 7 $EQU DSC64$K_CLASS_J 7 $EQU DSC$K_CLASS_JI 8 $EQU DSC$K_CLASS_SD 9 $EQU DSC64$K_CLASS_SD 9 $EQU DSC$K_CLASS_NCA 10 $EQU DSC64$K_CLASS_NCA 10 $EQU DSC$K_CLASS_VS 11 $EQU DSC64$K_CLASS_VS 11 $EQU DSC$K_CLASS_VSA 12 $EQU DSC64$K_CLASS_VSA 12 $EQU DSC$K_CLASS_UBS 13 $EQU DSC64$K_CLASS_UBS 13 $EQU DSC$K_CLASS_UBA 14 $EQU DSC64$K_CLASS_UBA 14 $EQU DSC$K_CLASS_SB 15 $EQU DSC64$K_CLASS_SB 15 $EQU DSC$K_CLASS_UBSB 16 $EQU DSC64$K_CLASS_UBSB 16 $EQU DSC$K_CLASS_BFA 191 $EQU DSC$S_DSCDEF 14 $EQU DSC$A_HANDLE -12 $EQU DSC$L_BYTEOFF -8 $EQU DSC$L_LOGUNIT -4 $EQU DSC$W_LENGTH 0 ; A one-word field specifiec to the descriptor class $EQU DSC$S_DSCDEF1 8 $EQU DSC$W_MAXSTRLEN 0 $EQU DSC$B_DTYPE 2 $EQU DSC$B_CLASS 3 $EQU DSC$A_POINTER 4 $EQU DSC$K_Z_BLN 8 $EQU DSC$C_Z_BLN 8 $EQU DSC$K_S_BLN 8 $EQU DSC$C_S_BLN 8 $EQU DSC$K_D_BLN 8 $EQU DSC$C_D_BLN 8 $EQU DSC$K_P_BLN 8 $EQU DSC$C_P_BLN 8 $EQU DSC$K_J_BLN 8 $EQU DSC$C_J_BLN 8 $EQU DSC$K_VS_BLN 8 $EQU DSC$C_VS_BLN 8 $EQU DSC$S_DSCDEF2 8 $EQU DSC$A_BASE 4 $EQU DSC$K_UBS_BLN 12 $EQU DSC$C_UBS_BLN 12 $EQU DSC$S_DSCDEF3 12 $EQU DSC$L_POS 8 $EQU DSC$S_DSCDEF4 12 $EQU DSC$W_MAXLEN 8 $EQU DSC$K_SD_BLN 12 $EQU DSC$C_SD_BLN 12 $EQU DSC$S_DSCDEF5 20 $EQU DSC$B_SCALE 8 $EQU DSC$B_DIGITS 9 $EQU DSC$B_AFLAGS 10 $EQU DSC$V_FL_REDIM 4 ; If set, the array can be redimensioned $EQU DSC$V_FL_COLUMN 5 $EQU DSC$V_FL_COEFF 6 $EQU DSC$V_FL_BOUNDS 7 $EQU DSC$B_DIMCT 11 $EQU DSC$L_ARSIZE 12 $EQU DSC$A_A0 16 $EQU DSC$S_DSCDEF6 28 $EQU DSC$L_V0 16 $EQU DSC$L_S1 20 $EQU DSC$L_S2 24 $EQU DSC$S_DSCDEF7 28 $EQU DSC$L_M1 20 $EQU DSC$L_M2 24 $EQU DSC$K_PI_BLN 12 $EQU DSC$C_PI_BLN 12 $EQU DSC$K_JI_BLN 12 $EQU DSC$C_JI_BLN 12 $EQU DSC$S_DSCDEF8 12 $EQU DSC$A_FRAME 8 $EQU DSC$S_DSCDEF9 16 $EQU DSC$L_SB_L1 8 $EQU DSC$L_SB_U1 12 $EQU DSC$S_DSCDEF10 20 $EQU DSC$L_UBSB_L1 12 $EQU DSC$L_UBSB_U1 16 .SYMBOL_ALIGNMENT QUAD $EQU DSC64$S_DSCDEF64 16 $EQU DSC64$S_LENGTH 8 $EQU DSC64$Q_LENGTH 8 $EQU DSC64$S_DSCDEF1_64 24 $EQU DSC64$W_MBO 0 $EQU DSC64$B_DTYPE 2 $EQU DSC64$B_CLASS 3 $EQU DSC64$L_MBMO 4 $EQU DSC64$S_MAXSTRLEN 8 $EQU DSC64$Q_MAXSTRLEN 8 $EQU DSC64$S_POINTER 8 $EQU DSC64$PQ_POINTER 16 $EQU DSC64$K_Z_BLN 24 $EQU DSC64$C_Z_BLN 24 $EQU DSC64$K_S_BLN 24 $EQU DSC64$C_S_BLN 24 $EQU DSC64$K_D_BLN 24 $EQU DSC64$C_D_BLN 24 $EQU DSC64$K_P_BLN 24 $EQU DSC64$C_P_BLN 24 $EQU DSC64$K_J_BLN 24 $EQU DSC64$C_J_BLN 24 $EQU DSC64$K_VS_BLN 24 $EQU DSC64$C_VS_BLN 24 $EQU DSC64$S_DSCDEF2_64 24 $EQU DSC64$S_BASE 8 $EQU DSC64$PQ_BASE 16 $EQU DSC64$K_UBS_BLN 32 $EQU DSC64$C_UBS_BLN 32 $EQU DSC64$S_DSCDEF3_64 32 $EQU DSC64$S_POS 8 $EQU DSC64$Q_POS 24 $EQU DSC64$K_SD_BLN 32 $EQU DSC64$C_SD_BLN 32 $EQU DSC64$S_DSCDEF5_64 48 $EQU DSC64$B_SCALE 24 $EQU DSC64$B_DIGITS 25 $EQU DSC64$B_AFLAGS 26 $EQU DSC64$V_FL_REDIM 4 $EQU DSC64$V_FL_COLUMN 5 $EQU DSC64$V_FL_COEFF 6 $EQU DSC64$V_FL_BOUNDS 7 $EQU DSC64$B_DIMCT 27 $EQU DSC64$L_MBZ 28 $EQU DSC64$S_ARSIZE 8 $EQU DSC64$Q_ARSIZE 32 $EQU DSC64$S_A0 8 $EQU DSC64$PQ_A0 40 $EQU DSC64$S_DSCDEF6_64 64 $EQU DSC64$S_V0 8 $EQU DSC64$Q_V0 40 $EQU DSC64$S_S1 8 $EQU DSC64$Q_S1 48 $EQU DSC64$S_S2 8 $EQU DSC64$Q_S2 56 $EQU DSC64$S_DSCDEF7_64 64 $EQU DSC64$S_M1 8 $EQU DSC64$Q_M1 48 $EQU DSC64$S_M2 8 $EQU DSC64$Q_M2 56 $EQU DSC64$K_PI_BLN 32 $EQU DSC64$C_PI_BLN 32 $EQU DSC64$K_JI_BLN 32 $EQU DSC64$C_JI_BLN 32 $EQU DSC64$S_DSCDEF8_64 32 $EQU DSC64$S_FRAME 8 $EQU DSC64$PQ_FRAME 24 $EQU DSC64$S_DSCDEF9_64 40 $EQU DSC64$S_SB_L1 8 $EQU DSC64$Q_SB_L1 24 $EQU DSC64$S_SB_U1 8 $EQU DSC64$Q_SB_U1 32 $EQU DSC64$S_DSCDEF10_64 48 $EQU DSC64$S_UBSB_L1 8 $EQU DSC64$Q_UBSB_L1 32 $EQU DSC64$S_UBSB_U1 8 $EQU DSC64$Q_UBSB_U1 40 .SYMBOL_ALIGNMENT NONE $DEFEND DSC,$GBL,DEF .ENDM