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



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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

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.