*COMDECK FTLSTDCLS
  
#     LIST OF FIT PARAMETERS FOR READ RELATION.                        #
  
        BEGIN 
        ITEM FITLWSA U(0,24,18);       #WSA (INPUT TO CDCS)            #
        ITEM FITLES U(0,0,9);          #ES (RETURNED BY CDCS)          #
        ITEM FITLRL U(0,9,24);         #RL (RETURNED BY CDCS)          #
        ITEM FITADR U(0,42,18);        #UCP FIT ADDRESS (SET BY COBOL) #
        END 
  
#     ERROR CODE DEFINITIONS FOR CONTROL BREAK AND NULL OCCURRENCE.    #
  
      DEF DFNULLST #O"627"#;           #NULL OCCURRENCE                #
      DEF DFCTLBRK #O"632"#;           #CONTROL BREAK                  #
      DEF DFNOREAD #O"777"#;           #NO READ WAS DONE ON THIS FILE  #
  
