WTOBATCH - issue lots of WTOs from a batch job

Function of the utility

This can be used in a batch job to issue lots ot WTOs to the console.

The WTOs that are written are the first 60 bytes of every card in the SYSIN DD provided, prefixed by the batch job name (so ops know who to blame :-)).

This is probably of very limited use.
I only use it in my weekly batch trigger job after a WTOROGM step, where if the operator replied cancel to the prompt then WTOBATCH dumps out WTOs explaining how to restart the job when needed.

Example useage

//WTOGEN   JOB (0),'WRITE WTOS',MSGLEVEL=1,CLASS=A,MSGCLASS=A
//WRITEWTO EXEC PGM=WTOBATCH
//SYSIN    DD  *
THIS WILL BE ANNOYING TO SOMEBODY
IF THERE ARE EVER A LOT OF CARDS PUT
INTO THIS CARD DECK.
NOW WHY DID I WRITE THIS ?
/*
//

Program Source

Source is stored here anyway so I won't lose it, this is the source code. You are free to copy and customise for your own use.
It is not supported; it works fine for my own use, and no enhancements are intended or should be requested.