*DECK PUTDSQ
          IDENT     PUT$SQ
          COMMENT   CRM SQ PUT ROUTINE
          ENTRY     FLSH$SQ 
          ENTRY     PTCM$SQ,PTIO$SQ,PTRT$SQ,PTFL$SQ,PTG1$SQ 
          ENTRY     PTLP$SQ 
          LIST      C,F,X 
          TITLE     PUT$SQ
* CALL /PUTDSQ/               /PUTDSQ/ *COMDECK /PUTDSQ/
*CALL /PUTDSQ/
          END 
