*COMDECK MFPDFDCLS
  
# DEFS FOR FO FILED IN FIT# 
      DEF FO$SQ #0#;
      DEF FO$WA #1#;
      DEF FO$IS #3#;
      DEF FO$DA #5#;
      DEF FO$AK #6#;
  
# DDL DATA-CLASS CODES                                                 #
  
        DEF ALPHANUMERIC #0#;          #ALPHANUMERIC DISPLAY CODE # 
        DEF ALPHABETIC   #1#;          #ALPHABETIC DISPLAY CODE # 
        DEF DATABASEKEY  #2#; 
        DEF DCNUMERIC    #3#;          #NUMERIC DISPLAY CODE, SIGN OVPN#
        DEF DCFIXED      #4#;          #NUM DC, WITH DECIMAL PT # 
        DEF DCFLOAT      #5#;          #NUM DC, WITH EXPONENT # 
        DEF DCDOUBLE     #6#;          #DISPLAY CODE DOUBLE PRECISION#
        DEF DCCOMPLEX    #7#;          #DISPLAY CODE COMPLEX #
        DEF DCLOGICAL    #8#;          #DISPLAY CODE LOGICAL #
        DEF BITSTRING    #9#; 
        DEF INTEGER      #10#;         #BINARY INTEGER #
        DEF FIXED        #11#;         #FLOATING POINT, UNNORMALIZED #
        DEF FLOATUNNORM  #12#;         #FLOATING POINT, UNNORMALIZED #
        DEF FLOATNORM    #13#;         #FLOATING POINT, NORMALIZED #
        DEF DOUBLE       #14#;         #FLOATING POINT, DOUBLE PREC. #
        DEF COMPLEX      #15#;         #FLOATING POINT, COMPLEX # 
        DEF LOGICAL      #16#;         #LOGICAL (BINARY 0 OR 1)#
# RETURN CODE DEFINITIONS FOR MFPRETCD  # 
      DEF  RCOKAY#0#; 
      DEF  RCNULL#1#; 
      DEF  RCIOERR#2#;
      DEF  RCEOI#3#;
      DEF  RCNEWRK#777#;
  
      #DEFS FOR READABILITY                                            #
        DEF CALL     # #;    #CALL CAN BE USED WHEN CALLING PROCEDURES #
        DEF XCALL    # #;    #XCALL CAN BE USED WHEN CALLING PROCEDURES#
        DEF THRU     #STEP 1 UNTIL#; #SHORTHAND FOR FOR-LOOP USE       #
  
  
      DEF FP$EOK #O"10"#;   # END OF KEY #
  
