*DECK GETDSQ
          IDENT     GET$SQ
          COMMENT   CRM SQ GET ROUTINE
          LIST      C,F,X 
          TITLE       IDENT     GET$SQ
          SST 
          B1=1
          ENTRY     GET$SQ,SKGT$SQ,DXIT$SQ,AMAC$SQ,GXIT$SQ,AINI$SQ,ANBL$
,SQ 
          ENTRY     GTMR$SQ 
          ENTRY     GPAD$SQ 
* CALL /GETDSQ/               /GETDSQ/ *COMDECK /GETDSQ/
*CALL /GETDSQ/
          END 
