*------------------------------------------------------------------ * (c) Copyright Roger Lacroix 1991 * * Designed, developed and programmed by Roger Lacroix *------------------------------------------------------------------ * * Sample code to show how to output static and dynamic fields * with WTO. * *------------------------------------------------------------------ SPACE LA R1,WTO001 MVC WTOMSG01,AAAANAME MVC WTOMSG02,BBBBNAME WTO MF=(E,(1)) * &WTOBLNK SETC (120)' ' WTO001 WTO '&WTOBLNK',MF=L ORG *-120 DC C'Header - xxxxxx yyyyy zzzzzz ' DC C'Name = ' WTOMSG01 DS CL8 DC C' - Thing = ' WTOMSG02 DS CL6 ORG , *