On 2013-10-23 10:55, Thomas Berg wrote:
>> -----Original Message-----
>> From: Paul Gilmartin
>> Sent: Wednesday, October 23, 2013 6:45 PM
>>
>> On Wed, 23 Oct 2013 09:21:25 -0700, Jon Perryman wrote:
>>
>>> 1. LMINIT allocates a new DD. The DDNAME is placed in the variable you
>>> specified in DATAID.
>
> LMINIT do really create a new allocation with a ddname in the format
> ISPnnnnn, e g ISP12345.
> Presumably it frees it a LMFREE.
>
Not by my experiment. The EXEC:
/* Rexx */ signal on novalue; /*
*/
trace R
RC = BPXWDYN( 'alloc rtddn(DDX) rtvol(VLX) new delete' ,
'dsn('userid()'.TEMP.LMTEST' ,
'dsorg(PS) recfm(V,B) lrecl(137) msg(WTP)' )
address 'ISPEXEC'
'LMINIT DATAID(LMID) DDNAME('DDX') ENQ(SHR)'
say value( 'DDX' ) value( 'VLX' ) value( 'LMID' )
if RC==0 then do
call GetIt
'LMOPEN DATAID('LMID') OPTION(OUTPUT)'
call PutIt
end
'LMFREE DATAID('LMID')'
exit( RC )
GetIt:
address 'TSO'
RC = outtrap("line.","*","NOCONCAT")
'LISTALC STATUS SYSNAMES'
return( RC )
PutIt:
do I = 1 to line.0
LL = line.I
'LMPUT DATAID('LMID') MODE(INVAR) DATALOC(LL)' ,
'DATALEN('length( line.I )')' 'NOBSCAN'
trace N
end I
return( RC )
/* ************************************* */
... runs with output:
5 *-* RC = BPXWDYN( 'alloc rtddn(DDX) rtvol(VLX) new delete' ,
'dsn('userid()'.TEMP.LMTEST' , 'dsorg(PS) recfm(V,B) lrec
l(137) msg(WTP)' )
>>> "0"
9 *-* address 'ISPEXEC'
10 *-* 'LMINIT DATAID(LMID) DDNAME('DDX') ENQ(SHR)'
>>> "LMINIT DATAID(LMID) DDNAME(SYS00048) ENQ(SHR)"
11 *-* say value( 'DDX' ) value( 'VLX' ) value( 'LMID' )
>>> "SYS00048 WORK02 ISR00023"
SYS00048 WORK02 ISR00023
...
and when I VIEW the content of TEMP.LMTEST, the only DDNAME allocated
to that data set is the SYS00048 allocated by BPXWDYN.
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
