Many ways to skin the cat.  Your way works fine too, and is one less line of 
code :)

_________________________________________________________________
Dave Jousma
Assistant Vice President, Manager, Mainframe Engineering
david.jou...@53.com
1830 East Paris, Grand Rapids, MIĀ  49546 MD RSCB2H
p 616.653.8429
f 616.653.2717

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Tuesday, May 17, 2016 10:19 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: JCL "COMMAND" statements

On 2016-05-16, at 13:08, Jousma, David wrote:
> ...                                                   
>   exit                                                                        
>                                                                 
> 
> /* Allocate results output file  */                                        
> ddnm = 'DD'||random(1,99999)                                               
> Address TSO "Alloc Fi("ddnm") SYSOUT"                                      
>  
I'll grant that the likeihood of a collision is minuscule, the Birthday Problem 
doesn't apply here, but why not spare your reviewers the mental gymnastics of 
verifying that by reducing it to zero:

/* Allocate results output file  */
call BPXWDYN( "Alloc rtddn(ddnm) SYSOUT msg(WTP)" )

-- gil

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

This e-mail transmission contains information that is confidential and may be 
privileged.   It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to