I don't see that you dump the S99MSG. stem or check RESULT - the perm concat
seems to be failing.
On Wed, 2 Apr 2014 10:57:43 -0500 Paul Gilmartin <paulgboul...@aim.com> wrote:
:>On Wed, 2 Apr 2014 11:58:35 +0300, Binyamin Dissen wrote:
:>
:>>Sorry for the typo.
:>>
:>>Look at your BPXWDYN error messages - look at the S99MSG stem
:>>
:>There were no error messages.
:>
:>>:>>You need to specify the PERM[C] attribute, otherwise the files are
temporarily
:>>:>>concatenated and can split.
:>>:>>
:>Here's a test case and its output. I'd welcome any analysis:
:>
:>/* **************************************** */
:>/* Rexx */ signal on novalue /*
:> Doc: determine DDNAME leakage.
:>*/
:>trace C
:>
:>call BPXWDYN 'alloc dummy msg(2)'
:>
:>call BPXWDYN 'alloc dd(SYSLIB) shr dsn(SYS1.MACLIB) msg(2)'
:>call BPXWDYN 'alloc rtddn(CAT1) shr dsn(SYS1.MODGEN) msg(2)'
:>say; say 'Allocated:'
:>call DDinfo
:>
:>call BPXWDYN 'concat ddlist(SYSLIB,'CAT1') msg(2)'
:>say; say 'Catenated:'
:>call DDinfo
:>
:>call BPXWDYN 'free dd(SYSLIB) msg(2)'
:>say; say 'Freed; note that' CAT1 'is not freed:'
:>call DDinfo
:>
:>call BPXWDYN 'alloc dd(SYSLIB) shr dsn(SYS1.MACLIB) msg(2)'
:>call BPXWDYN 'concat ddlist(SYSLIB,'CAT1') permc msg(2)'
:>say; say 'Catenated, with PERMC; note that' CAT1 'is not catenated:'
:>call DDinfo
:>return( 0 )
:>
:>DDinfo:
:> do I = 1 until last<>0
:> Call bpxwdyn 'info inrelno('I')' ,
:> 'inrtddn(ddn) inrtdsn(dsn) inrtlst(last)'
:> say I ddn copies( '(catenated)', ddn='') dsn; end I
:> return( 0 )
:>/* **************************************** */
:>user@HOST: catdd
:>
:>Allocated:
:>1 SYS00001 NULLFILE
:>2 SYSLIB SYS1.MACLIB
:>3 SYS00002 SYS1.MODGEN
:>
:>Catenated:
:>1 SYS00001 NULLFILE
:>2 SYSLIB SYS1.MACLIB
:>3 (catenated) SYS1.MODGEN
:>
:>Freed; note that SYS00002 is not freed:
:>1 SYS00001 NULLFILE
:>2 SYS00002 SYS1.MODGEN
:>
:>Catenated, with PERMC; note that SYS00002 is not catenated:
:>1 SYS00001 NULLFILE
:>2 SYS00002 SYS1.MODGEN
:>3 SYSLIB SYS1.MACLIB
:>user@HOST:
:>/* **************************************** */
:>
:>Thanks,
:>gil
:>
:>----------------------------------------------------------------------
:>For IBM-MAIN subscribe / signoff / archive access instructions,
:>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
--
Binyamin Dissen <bdis...@dissensoftware.com>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.
I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
