RE: passing parms between Cobol/400 & ILE-RPG

["Stone, Joel" <StoneJ@xxxxxxxxxxxxxxxx>]

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
I would suggest that you could be asking for trouble by naming each parm
field.

For example, lets say this program is called in 50 pgms, and you decide in 6
months that you want to add P1300-Start-Date as a parm.

The way you have set this up, you would have to hand-modify 50 pgms plus the
called pgm.

If you change it to "CALL 'PD1300RG' USING 1300RG-PARMS and list
P1300-Start-Date as an "05" field underneath an "01" level, then you would
simply recompile the 50 programs.  You would not have to modify the 50
programs!!

That is a BIG maintenance issue, imo.

If you were to leave a filler field to accomodate a few new fields, then you
would not have to even re-compile the programs (except where the new field
needs to be referenced).




-----Original Message-----
From: Dan [mailto:dbcerpg@yahoo.com]
Sent: Tuesday, December 10, 2002 1:47 PM
To: cobol400-l@midrange.com
Subject: RE: passing parms between Cobol/400 & ILE-RPG


--- Jon Paris <Jon.Paris@partner400.com> wrote:
> <snip>  The fields in the USING list _must_ be defined
> as 01 or 77 levels in the LINKAGE SECTION but do not
> have to be in the same sequence as the parms.

Um, well, I used the following and this works (am I asking for
trouble?):

  01  1300RG-PARMS.
      05  P1300-COMPANY-IN       PIC X(4).
      05  P1300-CLIENT-CODE-IN   PIC X(5).
      05  P1300-JOBNUM-IN        PIC X(11).
      05  P1300-MODE             PIC X(1).
      05  P1300-TE-FLAG          PIC X(1).
      05  P1300-RTN-CODE         PIC X(2).
      05  P1300-ERR-MSG          PIC X(80).
<snip>
       CALL 'PD1300RG' USING
                       P1300-COMPANY-IN
                       P1300-CLIENT-CODE-IN
                       P1300-JOBNUM-IN
                       P1300-MODE
                       P1300-TE-FLAG
                       P1300-RTN-CODE
                       P1300-ERR-MSG.

__________________________________________________
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com
_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
or email: COBOL400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.