I think I've recently seen SDSFand Rexx examples here sufficient to make a start at this.
> -----Original Message----- > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On > Behalf Of Tony Thigpen > Sent: Friday, August 28, 2020 3:03 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: report splitting > > I need to clarify that we can't touch the programs. All the original > programmers are gone and with them their knowledge. The one contract > programmer they have is only allowed to make regulatory changes. > > This has to be done with a process that gets the reports out of the JES2 > queue and puts them back in as separate reports. It just need simple "if > I see this on a header line, break up the report" logic. > > I have written this for z/VSE before, I guess I just need to allocate > the time to convert the z/VSE code to z/OS. > > Tony Thigpen > > Mike Schwab wrote on 8/28/20 5:17 PM: > > https://urldefense.com/v3/__http://www.mabu.org/jcl- > reference.pdf__;!!JmPEgBY0HMszNaDT!5liv5KBe8CS6- > gtdU2bN0DxEO_hZAwtFGMCiJaPoAjGSf9-VlAHW08m6V1d6ww$ OS/390 > 2.10 from 2000 reference. > > Same example is on > > > https://urldefense.com/v3/__https://www.ibm.com/support/knowledgece > nter/en/SSLTBW_2.4.0/com.ibm.zos.v2r4.ieab600/outst.htm__;!!JmPEgBY0H > MszNaDT!5liv5KBe8CS6-gtdU2bN0DxEO_hZAwtFGMCiJaPoAjGSf9- > VlAHW08n1GeuG9Q$ > > > > //OUT1 OUTPUT DEST=STLNODE.WMSMITH > > //OUT2 OUTPUT CONTROL=DOUBLE > > //DS DD SYSOUT=C,OUTPUT=(*.OUT1,*.OUT2) > > > > So set one to print, and one to hold, then reference both. > > > > On Fri, Aug 28, 2020 at 8:21 AM Tony Thigpen <t...@vse2pdf.com> wrote: > >> > >> All, > >> > >> I have an old OS/390 2.10 system that I need to support for a few more > >> years until the customer finishes their off-platform migration. > >> > >> The current project involves removing costly third-party software that > >> is providing minimal returns for a large cost. One of those products is > >> a report archive system, but the only part still being used is the > >> function of 'report splitting' which just sticks the reports back into > >> the JES2 queue as separate reports. > >> > >> While writing something is fun, I don't really have time to write this > >> one as there are other things I need to write first. > >> > >> I don't see anything on the CBT that addresses this, but there may be a > >> small item in a larger bundle that I can't identify from the contents of > >> FILE001. Or, someone may have some basic code they can share so that I > >> don't have to re-invent the wheel on this one. > >> > >> > >> Tony Thigpen > >> > >> ---------------------------------------------------------------------- > >> For IBM-MAIN subscribe / signoff / archive access instructions, > >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > > > > > -- > > Mike A Schwab, Springfield IL USA > > Where do Forest Rangers go to get away from it all? > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
