! *** 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 DECLARE LONG CONSTANT CONV$M_SIGNAL = x'00000001' DECLARE LONG CONSTANT CONV$M_FDL_STRING = x'00000002' DECLARE LONG CONSTANT CONV$S_CONVDEF = 2 record CONVDEF variant case WORD CONV$W_CONVDEF case group CONV$R_CONVDEF_BITS BYTE SIGNAL_bits ! COMMENT ADDED BY SDL - SIGNAL_bits contains bits SIGNAL through FILL_0_ end group CONV$R_CONVDEF_BITS end variant end record CONVDEF DECLARE LONG CONSTANT CONV$K_OPTIONS_COUNT = 0 DECLARE LONG CONSTANT CONV$K_CREATE = 1 DECLARE LONG CONSTANT CONV$K_SHARE = 2 DECLARE LONG CONSTANT CONV$K_FAST = 3 DECLARE LONG CONSTANT CONV$K_MERGE = 4 DECLARE LONG CONSTANT CONV$K_APPEND = 5 DECLARE LONG CONSTANT CONV$K_SORT = 6 DECLARE LONG CONSTANT CONV$K_WORK_FILES = 7 DECLARE LONG CONSTANT CONV$K_KEY = 8 DECLARE LONG CONSTANT CONV$K_PAD = 9 DECLARE LONG CONSTANT CONV$K_PAD_CHARACTER = 10 DECLARE LONG CONSTANT CONV$K_TRUNCATE = 11 DECLARE LONG CONSTANT CONV$K_EXIT = 12 DECLARE LONG CONSTANT CONV$K_FIXED_CONTROL = 13 DECLARE LONG CONSTANT CONV$K_FILL_BUCKETS = 14 DECLARE LONG CONSTANT CONV$K_READ_CHECK = 15 DECLARE LONG CONSTANT CONV$K_WRITE_CHECK = 16 DECLARE LONG CONSTANT CONV$K_FDL = 17 DECLARE LONG CONSTANT CONV$K_EXCEPTION = 18 DECLARE LONG CONSTANT CONV$K_PROLOGUE = 19 DECLARE LONG CONSTANT CONV$K_IGNORE_PROLOGUE = 20 DECLARE LONG CONSTANT CONV$K_SECONDARY = 21 DECLARE LONG CONSTANT CONV$K_MAX_OPTIONS = 21 DECLARE LONG CONSTANT CONV$C_MAX_OPTIONS = 21 DECLARE LONG CONSTANT CONV$S_OPTIONS = 88 DECLARE LONG CONSTANT CONV$S_CONV$OPTIONS = 88 record CONV$OPTIONS LONG CONV$L_OPTIONS_COUNT LONG CONV$L_CREATE LONG CONV$L_SHARE LONG CONV$L_FAST LONG CONV$L_MERGE LONG CONV$L_APPEND LONG CONV$L_SORT LONG CONV$L_WORK_FILES LONG CONV$L_KEY LONG CONV$L_PAD LONG CONV$L_PAD_CHARACTER LONG CONV$L_TRUNCATE LONG CONV$L_EXIT LONG CONV$L_FIXED_CONTROL LONG CONV$L_FILL_BUCKETS LONG CONV$L_READ_CHECK LONG CONV$L_WRITE_CHECK LONG CONV$L_FDL LONG CONV$L_EXCEPTION LONG CONV$L_PROLOGUE LONG CONV$L_IGNORE_PROLOGUE LONG CONV$L_SECONDARY end record CONV$OPTIONS DECLARE LONG CONSTANT CONV$K_STATISTICS_COUNT = 0 DECLARE LONG CONSTANT CONV$K_FILE_COUNT = 1 DECLARE LONG CONSTANT CONV$K_RECORD_COUNT = 2 DECLARE LONG CONSTANT CONV$K_EXCEPT_COUNT = 3 DECLARE LONG CONSTANT CONV$K_VALID_COUNT = 4 DECLARE LONG CONSTANT CONV$K_MAX_STATISTICS = 4 DECLARE LONG CONSTANT CONV$C_MAX_STATISTICS = 4 DECLARE LONG CONSTANT CONV$S_STATISTICS = 20 DECLARE LONG CONSTANT CONV$K_KEY_NUMBER = 5 DECLARE LONG CONSTANT CONV$K_REC_OUT = 6 DECLARE LONG CONSTANT CONV$K_NODES = 7 DECLARE LONG CONSTANT CONV$K_WRK_ALQ = 8 DECLARE LONG CONSTANT CONV$K_INI_RUNS = 9 DECLARE LONG CONSTANT CONV$K_MRG_ORDER = 10 DECLARE LONG CONSTANT CONV$K_MRG_PASSES = 11 DECLARE LONG CONSTANT CONV$K_SORT_DIO_COUNT = 12 DECLARE LONG CONSTANT CONV$K_SORT_BIO_COUNT = 13 DECLARE LONG CONSTANT CONV$K_SORT_ELAPSED_TIME = 14 DECLARE LONG CONSTANT CONV$K_SORT_CPU_TIME = 16 DECLARE LONG CONSTANT CONV$K_SORT_PF_COUNT = 18 DECLARE LONG CONSTANT CONV$K_LOAD_DIO_COUNT = 19 DECLARE LONG CONSTANT CONV$K_LOAD_BIO_COUNT = 20 DECLARE LONG CONSTANT CONV$K_LOAD_ELAPSED_TIME = 21 DECLARE LONG CONSTANT CONV$K_LOAD_CPU_TIME = 23 DECLARE LONG CONSTANT CONV$K_LOAD_PF_COUNT = 25 DECLARE LONG CONSTANT CONV$K_EXT_STATISTICS = 25 DECLARE LONG CONSTANT CONV$C_EXT_STATISTICS = 25 DECLARE LONG CONSTANT CONV$S_EXT_STATISTICS = 104 DECLARE LONG CONSTANT CONV$S_CONV$STATISTICS = 104 record CONV$STATISTICS LONG CONV$L_STATISTICS_COUNT LONG CONV$L_FILE_COUNT LONG CONV$L_RECORD_COUNT LONG CONV$L_EXCEPT_COUNT LONG CONV$L_VALID_COUNT LONG CONV$L_KEY_NUMBER LONG CONV$L_REC_OUT LONG CONV$L_NODES LONG CONV$L_WRK_ALQ LONG CONV$L_INI_RUNS LONG CONV$L_MRG_ORDER LONG CONV$L_MRG_PASSES LONG CONV$L_SORT_DIO_COUNT LONG CONV$L_SORT_BIO_COUNT BASIC$QUADWORD CONV$Q_SORT_ELAPSED_TIME BASIC$QUADWORD CONV$Q_SORT_CPU_TIME LONG CONV$L_SORT_PF_COUNT LONG CONV$L_LOAD_DIO_COUNT LONG CONV$L_LOAD_BIO_COUNT BASIC$QUADWORD CONV$Q_LOAD_ELAPSED_TIME BASIC$QUADWORD CONV$Q_LOAD_CPU_TIME LONG CONV$L_LOAD_PF_COUNT end record CONV$STATISTICS DECLARE LONG CONSTANT RECL$K_STATISTICS_COUNT = 0 DECLARE LONG CONSTANT RECL$K_SCAN_COUNT = 1 DECLARE LONG CONSTANT RECL$K_DATA_COUNT = 2 DECLARE LONG CONSTANT RECL$K_INDEX_COUNT = 3 DECLARE LONG CONSTANT RECL$K_TOTAL_COUNT = 4 DECLARE LONG CONSTANT RECL$K_MAX_STATISTICS = 4 DECLARE LONG CONSTANT RECL$C_MAX_STATISTICS = 4 DECLARE LONG CONSTANT RECL$S_STATISTICS = 20 DECLARE LONG CONSTANT RECL$S_RECL$STATISTICS = 20 record RECL$STATISTICS LONG RECL$L_STATISTICS_COUNT LONG RECL$L_SCAN_COUNT LONG RECL$L_DATA_COUNT LONG RECL$L_INDEX_COUNT LONG RECL$L_TOTAL_COUNT end record RECL$STATISTICS