× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. January 2007

Re: Overlaying program Parmeters

I'm attempting to reconstruct the contents of several posts in order to draw some conclusions from them in aggregate. If this is incorrect, please post the proper fragments in one go. 

PGM        (&usr &tnbr &pro &bol &po &emsg &rcnt +
            &lst1 &lst2 &lst3 &lst4)

DCL        &usr *CHAR 10
DCL        &tnbr *CHAR 7
DCL        &pro *CHAR 8
DCL        &bol *CHAR 11
DCL        &po  *CHAR 12
DCL        &emsg *CHAR 80
DCL        &rcnt *CHAR 3
DCL        &lst1 *CHAR 30000
DCL        &lst2 *CHAR 30000
DCL        &lst3 *CHAR 30000
DCL        &lst4 *CHAR 30000

CALL INROLLXML (&usr &tnbr &pro &bol &po &emsg
&rcnt &lst1 &lst2 &lst3 &lst4)

C     *Entry        Plist
C                   Parm                    @@USR            10
C                   Parm                    @@TNBR            7
C                   Parm                    @@PRO             8
C                   Parm                    @@BOL            11
C                   Parm                    @@PO             12
C                   Parm                    @@EMSG           80
C                   Parm                    @@RCNT            3
C                   Parm                    @@LST1        30000
C                   Parm                    @@LST2        30000
C                   Parm                    @@LST3        30000
C                   Parm                    @@LST4        30000
If this is correct, read Scott's post again, and look at the FAQ entry 'Garbage in parameters.' They both explain what the problem is. You must fill the storage for all the variables in the CL when you call it from the command line. That means you need to have a quote, 80 characters/blanks and a quote for &EMSG. You need a quote, 30000 characters/blanks and a quote for &LST1 and so on. If you do something like
call mytestcl ('user' '1234567' '12345678' '12345678901' '123456789012' 'msg is shorter than 80' '123' 'short1' 'short2' 'short3' 'short4')
then you will have the problems you describe. That's because there's a mis-match between the command line and your CL program. Not between the CL and the RPG. 

  --buck

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.