*COMDECK COM19A 
#**********************************************************************#
  
      DEF  ECRFB             #L$CRF#; 
      XREF  ITEM ECRF        I; 
  
      STATUS  QCRFTYP              # TYPES OF CRF FILE ENTRIES         #
          DEF,
          REF,
          SET,
          ATRB; 
  
      $BEGIN
      ARRAY [0:3] S(1);            # MUST MATCH STATUS LIST QCRFTYP    #
        BEGIN 
        ITEM  CRTYP$NAME      C (00,00,10) = [
          "DEF",
          "REF",
          "SET",
          "ATTRIBUTE" 
          ];
        END 
      $END
  
  
#     CRF$ARRAY MUST BE DEF-ED BY XRDEF AND CRFLST TO THE              #
#     APPROPRIATE ARRAY HEADER.  THIS IS THE ARRAY FOR THE CRF         #
#     FILE AND BUFFER.                                                 #
      CRF$ARRAY;
        BEGIN 
        ITEM  CRBUFWORD      I (00,00,60);
        ITEM  CRLNK          I (00,00,18);
        ITEM  CRTYP          S:QCRFTYP (00,24,18);
        ITEM  CRLIN          I (00,42,18);
        ITEM  CRF1           I (01,00,60);
        END 
  
#**********************************************************************#
