On Thu, 2 Sep 2021 10:04:14 -0500, Weizman arbel wrote:
>i am want it from rexx foreground
>"ALLOC F(SORTOUT) REUSE NEW RECFM(F B)",
>" SPACE(2,2) CYL RELEASE DSO(PS) BLKSIZE(0)"
>
Change that to:
call BPXWDYN "ALLOC" ,
"RTDSN(D) RTVOL(V)" , /* Add these options. */
F(SORTOUT) REUSE NEW RECFM(F,B)",
" SPACE(2,2) CYL RELEASE DSO(PS) BLKSIZE(0)"
(Do you need LRECL, also?)
>i am want to relese (free) sortout and
>browse/use the temp file by 2nd dd
>
>"ALLOC F(SORTOUT dd2nd) REUSE NEW RECFM(F B)",
>...
Becomes:
call BPXWDYN ""ALLOC F(Sdd2nd) DSN("D" VOL("V") REUSE OLD",
(RECFM should be unnecessarry.)
>"FREE F(SORTOUT)"
>
>browse the file by dd2nd
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
