*COMDECK COM39B 
          CONTROL NOLIST;    #COM39B# 
    # CHANGES TO COM39B MUST ALSO BE REFLECTED IN COM39A #
#*******************************************************************# 
     DEF  ECF  #L$CFLM#;#CF BUFFER SIZE#
     BASED ARRAY BCF [0:ECF] S(1) ;     #CODE FILE# 
          ITEM CF   I(0,0,60),
               CFOP S:QCFOP   (0,0,12), 
               CFWC I         (0,12,6), 
               CFST I         (0,18,18),
             #INSTRUCTION  ENTRIES# 
               CFI       U(0,36,3), 
               CFIJ      U(0,36,6), 
               CFIJK     U(0,36,9), 
               CFJ       U(0,39,3), 
               CFJK      U(0,39,6), 
               CFSJK     I(0,39,6), 
               CFK       U(0,42,3), 
               CFKK      I(0,42,18),
               CFKL      I(0,45,15),
               CFML I(0,42,18), 
             #CONTROL ENTRIES # 
               CFTYP     I(0,42,18),
             #PRSF ENTRIES #
               CFRA      U(0,42,18),
               CFD       I(1,0,60); 
#*******************************************************************# 
          CONTROL LIST;      #COM39B# 
