CMPMAIN 
* /---   FILE TYPE = E
* /---   BLOCK      CMPMAIN    00 000   81/11/15  16.35 
          IDENT  CMPMAIN
          END