how to expose parameter list+values in called CL...

["Michael Rosinger" <mrosinger@xxxxxxxxx>]

List,

I've already bounced this off some knowledgeable contacts and have not 
gotten any hopeful response. I thought I would throw this out here to see if 
someone listening knows.

We would like to expose (display and/or print) the parameter list that is 
passed to a CL program at run-time.What would be really slick is if they 
could presented in the format of &variable = value for each parameter in the 
parameter list.

For example, if the CL header looks like this:

     PGM        PARM(&INFILE &PARMMBR &RDAY &CLERROR)

And that program is executed like this:

     CALL PGM(clprogram) PARM('TEST' 'DMS200' '3' 'N')

Then at execution time, I'd like to be able to get something like this:

     &INFILE='TEST' &PARMMBR='DMS200' &RDAY='3' &CLERROR='N'


Anyone know of a way to do this? I am really after a generic way of doing 
this from most of our CL. Any suggestions will be appreciated!