Would a SYSOUT status keyword do the job? ALLOC FI(JOBOUT) SYSOUT(x) WRITER(INTRDR) MSG(2
Just a guess. David Elliot zSeries Software Support -----Original Message----- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Terry Sambrooks Sent: Tuesday, June 30, 2009 1:19 PM To: IBM-MAIN@bama.ua.edu Subject: BPXWDYN and the Internal Reader (INTRDR) Hi Folks, I am in need of some direction from this august body. As a bit of fun I am trying to mimic the TSO SUBMIT command available in REXX, by using BPXWDYN in a COBOL program to dynamically allocate an FTINCL output file and write it to the internal reader. The first BPXWDYN to allocate the FTINCL disk data set works a treat, i.e. RC = 0000. The second BPXWDYN which attempts to allocate the output to the internal reader fails with either rc=0025 or 002M (i.e. -24). I will admit to not having experimented with the OUTDES component yet, but am wondering whether this is actually possible given the BPXWDYN does not have the full capability of TSO ALLOC, at least that is implied in the manual. The COBOL Working Storage elements are: 01 ALLOC-FT-JOB. 03 FILLER PIC X(30) VALUE 'ALLOC FI(JOBIN) SHR MSG(2) DA('. 03 FT-JOB-DSN PIC X(45) VALUE SPACES. 01 ALLOC-JES-JOB. 03 FILLER PIC X(38) VALUE 'ALLOC FI(JOBOUT) WRITER(INTRDR) MSG(2)'. Kind regards - Terry Terry Sambrooks Director KMS-IT Limited 228 Abbeydale Road South Dore, Sheffield, S17 3LA, UK Tel: +44 (0)114 262 0933 WEB: www.legac-e.co.uk Company Reg: 3767263 at the above address All outgoing E-mail is scanned, but it remains the recipient's responsibility to ensure their system is protected from spy-ware, trojans, viruses, and worms. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html