*DECK WEOXDSQ 
          IDENT     WEOX$SQ 
          COMMENT   WRITE END OF SECTION/PARTITION
          TITLE     WEOX$SQ - WEOP$SQ AND WEOS$SQ 
          B1=1
          SST 
* CALL /WEOXDSQ/
*CALL /WEOXDSQ/ 
          END 
