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

[Dan <dbcerpg@xxxxxxxxx>]

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