*DECK WARDSQ
          IDENT     WAR$SQ
* CALL /WARDSQ/               /WARDSQ/ *COMDECK /WARDSQ/
*CALL /WARDSQ/
          END 
