*DECK GETDS 
          IDENT     GET$S 
          LIST      C,F,X 
          TITLE     IDENT    GET$S
          ENTRY     SKGT$S
          COMMENT   CRM GET/SKIPF RT=S BUFFERED 
          SST 
          B1=1
* CALL /GETDS/               /GETDS/  *COMDECK /GETDS/
*CALL /GETDS/ 
          END 
