*DECK  ERRDRM 
          IDENT     ERR$RM
          COMMENT   CRM ERROR PROCESSOR ENTRY.
          B1=1
          SST 
* CALL /PASSLOC/
*CALL /PASSLOC/ 
* CALL /ERRDRM/ 
*CALL /ERRDRM/
          END 
