*COMDECK CKSCOM 
      BASED ARRAY CKSBLK[0] S(1);      #CHECKSUM BLOCK                 #
        BEGIN 
          ITEM CKSWRD U(0,0,60);       #CHECKSUM WORD                  #
          ITEM CKSRLS U(0,36,12);      #NUMBER OF RELATIONS            #
          ITEM CKSARS U(0,48,12);      #NUMBER OF AREAS                #
        END 
      ARRAY CKSPRNT[6] S(1);
       BEGIN
        ITEM CKSFIL C(0,0,10)=["          "];    #BLANK FILL           #
        ITEM CKSPRNM C(1,0,30);                  #AREA/RELATION NAME   #
        ITEM CKSFILL C(4,0,10)=["          "];   #BLANK FILL           #
        ITEM CKSVAL C(5,0,20);                   #CHECKSUM VALUE       #
       END
      ITEM CKSPTR;                     #VAR PTR USED IN CKSUM PROCESS  #
      XREF FUNC CKSUM U;
