On Tue, 28 Feb 2012 11:31:16 -0500, Shmuel Metz (Seymour J.) wrote:
>
>That looks overly complicated. Why not just pull it from the SSIB?
>
Someone shared such an example with me. It worked under TSO;
not under z/OS UNIX. I was then asked (on TSO-REXX), "Why don't
you just run it under TSO, then?"
Kind of like:
"The heater in my car doesn't work."
"Move to a warmer climate, then."
The following kludge works in both TSO and UNIX:
/* Rexx */ signal on novalue; /*
Doc: function JOBID() returns current Job ID.
*/
RC = BPXWDYN( 'alloc rtddn(DD) rtdsn(DSN) sysout msg(WTP)' )
RC = BPXWDYN( 'free dd('DD') msg(WTP)' )
parse value DSN with . '.' . '.' Job '.' .
return( Job )
I'm not proud,
gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
