Hi Gil,
Thank you for the suggestions.
Here is a job that actually worked. (The DSNAMES have been scrubbed.)
// SET DS=MY
//CREATE EXEC PGM=IEFBR14
//PAX DD DISP=(,CATLG),
// UNIT=SYSALLDA,
// DATACLAS=DCZFSEXT,
// STORCLAS=SCZFSEXT,
// SPACE=(CYL,(1000,500),RLSE),
// RECFM=U,BLKSIZE=27998,
// DSN=&DS..PAX
//STEP001 EXEC PGM=BPXBATCH
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//STDPARM DD *
SH pax -wzvf "//'MY.PAX'"
/MyDirectory
//STEP002 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
CALL *(BPXWDYN) +
'ALLOC DD(SYSUT1) +
DSN(''MY.PAX'') +
SHR REUSE MSG(WTP)'
CALL *(AMATERSE) 'SPACK'
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD DISP=(,CATLG),
// UNIT=SYSALLDA,
// DATACLAS=DCZFSEXT,
// STORCLAS=SCZFSEXT,
// SPACE=(CYL,(1000,500),RLSE),
// RECFM=FB,LRECL=1024,BLKSIZE=27648
// DSN=&DS..PAX.TRS
Regards,
David
On 2021-10-13 10:48, Paul Gilmartin wrote:
On Wed, 13 Oct 2021 10:24:06 -0400, David Spiegel wrote:
I agree with your hypothesis ... the PAX fails because it cannot get an
Exclusive ENQ on MY.PAX
With respect to the spawned (PAX) Address Space, though, it is possible
that the spawn itself could take longer than the Batch Job switching
steps and defeat the entire purpose.
I consider that unlikely, but I call few things impossible when others have
suggested them earlier in the thread.
I think coding a SLEEP (or equivalent) in the TSO input could prevent this.
I'll suggest:
//SYSTSIN DD. *
call *(BPXWDYN) 'alloc dd(sysut1) dsn(''my.pax'') shr reuse msg(WTP)'
call *(BPXBATCH)
call *(BPXWDYN) 'alloc dd(sysut1) dsn(''my.pax'') shr reuse msg(WTP)'
...
I've found that BPXWDYN( ... msg(WTP)) gives the best diagnostics.
<https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fdocs%2Fen%2Fzos%2F2.5.0%3Ftopic%3Dservices-bpxwdyn-text-interface-dynamic-allocation-dynamic-output&data=04%7C01%7C%7Cd721ac79ff9d46687bbf08d98e58a686%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637697333751478444%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=VN8pDIH6UN6gAA73uXkTH5eg5U0BkzR0G5bOsZQEG5U%3D&reserved=0>
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email tolists...@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
