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
