*DECK DFDCRM
          IDENT     DF$CRM
          COMMENT   HANDLE CRM ERROR AND NOTE PROCESSING (DAYFILE)
          TITLE     DF$CRM - DAYFILE ERROR MESSAGES 
          SST 
          B1=1
* CALL /DFDCRM/ 
*CALL  /DFDCRM/ 
          END 
