• Subject: Re: STRS36PRC
  • From: cmassoglia@xxxxxxxxxxx (Charlie Massoglia)
  • Date: Wed, 10 Sep 1997 20:39:44 -0400 (EDT)

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

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].