Re: STRS36PRC

[cmassoglia@xxxxxxxxxxx (Charlie Massoglia)]

Dana Keaton 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                                                   
>
You have to concatenate the variables like you do with an OPNQRYF select.

  STRS36PRC  PRC(DLY003X) CURLIB(MOOP) +                     
                PARM(&DAY *CAT &GENESEE *CAT &STEWARD *CAT &SCRDTE)        


Charlie Massoglia, Massoglia Technical Consulting, Inc.
PO Box 1065, Okemos, MI 48854, USA
517-676-9700  Fax: 517-676-1006  EMAIL: cmassoglia@voyager.net


+---
| 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
+---