On Wed, 17 Sep 2014 20:52:49 -0400, Shmuel Metz (Seymour J.) wrote:
>
>>OPEN, and return the address to Rexx.
>
>Be sure to CLOSE, FREEPOOL and free it when you're done.
>
It's a one-off. I'm leaving those responsibilities to job step termination.
(Yah,
I know one-offs have a habit of morphing into production. It's a one-off.)
Now, where's DSNTYPE hiding?
And a mystery: the DD statements:
29 //SYSEXEC DD UNIT=SYSALLDA,RECFM=VB,LRECL=222,
// DSNTYPE=LIBRARY,DSORG=PO,SPACE=(1000,500),DSN=&&SYSEXEC
30 //REXXOUT DD DISP=(OLD,PASS),DSN=&&SYSEXEC(SHOWDCB),
// VOL=REF=*.SYSEXEC
... show:
DCB: SYSEXEC 00019E38 LRECL: 222 BLKSI: 32760 RECFM: 50 VB DSORG:
0200
DCB: REXXOUT 00019CF0 LRECL: 222 BLKSI: 32760 RECFM: 50 VB DSORG:
0200
As I read the listing of the DCB macro, 0x0200 is DSORG=PS. No problem
with SYSEXEC, but isn't a PDS with a member specified, such as REXXOUT,
considered a sequential allocation; DSORG=PS; 0x4000?
Thanks,
gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
