*COMDECK CKFILCOM 
      DEF CKSRECLEN  #4#;              #LENGTH OF A CHECKSUM RECORD    #
      ITEM CKSWA;                      #VAR WORD ADDR INTO CKSUM FILE  #
      ARRAY CKSREC[3] S;             #USED TO READ/WRITE CKSUM RECORDS #
        BEGIN 
          ITEM CKSWORD U(0,0,60); 
          ITEM CKSNAME   C(0,0,30);    #AREA OR RELATION NAME, 1-30 CHR#
          ITEM CHECKSUM  U(3,0,60);    #CHECKSUM VALUE                 #
        END 
*CALL CKSCOM
