*DECK CHEKDSQ 
          IDENT     CHEK$SQ 
          COMMENT   CRM SQ I/O CHECK ROUTINE
          LIST      C,F,X 
          SST 
          B1=1
* CALL /CHEKDSQ/               /CHEKDSQ/*COMDECK /CHEKDSQ/
*CALL /CHEKDSQ/ 
          END 
