Re: STRS36PRC

[Neil Palmer <neil@xxxxxxxxxxxxxx>]

DCL VAR(&PARMS) TYPE(*CHAR) LEN(xx)
(xx should be exact length or the 4 parms, and the 3 commas to separate)
CHGVAR &PARMS VALUE(&PARM1 *CAT ',' *CAT &PARM2 *CAT ',' *CAT &PARM3 +
                    *CAT ',' *CAT &PARM4)
(didn't use your variable names as I can't see them right now)
(note - individual parms must be defined with exact length, as a blank
at the right will cause an OCL string with a blank before the next comma,
and it will not read any further) 
STRS36PRC PRC(MYPROC) PARM(&PARMS)
  
...Neil
(PS - line 2 should say "exact length of the 4 parms")


On Wed, 10 Sep 1997 KeatonDana@aol.com wrote:

> I'm working with some legacy code and need to pass 4 parameters from my cl to
> an old OCL program.  I'm not sure how to do this.  Can anyone point me in the
> right direction? Thanks in advance. The problem is I enclose it with quotes &
> it assumes a string  
> 
> Example   : Small sample of the code
>                                                                  
>    STRS36PRC  PRC(DLY004X) CURLIB(MOOP) PARM(&day) 'this one works fine
>         
>    STRS36PRC  PRC(DLY003X) CURLIB(MOOP) +                   
>                            PARM(&DAY &GENESEE &STEWARD &SCRDTE)        
>     ENDPGM                                                   
> 
> Thanks again....
> 
> Dana Keaton
> 
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
> | To unsubscribe from this list send email to MAJORDOMO@midrange.com
> |    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---
> 
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---