RE: your mail

[Scott Klement <sk@xxxxxxxxxxxxxxxx>]

Sender: Scott Klement <sk@xxxxxxxxxxxxxxxx>

Hello,

> It would appear that Tammy wants to declare the DS as the last parameter for
> the PEP procedure. That's why it exists immediately below the last prototype
> (PR) and the procedure interface (PI) parameter.

Thanks, Larry.. I missed that in her e-mail, now that I re-read it, I 
think I understand what she's trying to do.

Tammy, could you try the following method instead?

First, declare a copy of your data structure that will only be used as a 
template. It defines the fields, but you'll never use it, since you only 
use it to declare the FORMAT of the data structure -- so that the REAL 
definitions can be made with LIKEDS.

I like to put "_T" at the end of these "template" data structures so that 
you'll know that it's a template.

For example:

D StopInfo_T         DS                 QUALIFIED
D                                       BASED(TEMPLATE)
D  peStopNum               1      2A
D  peStopTyp               2      3A
D  peIsCallR               4      4A
D  peIsBill                5      5A
D  peIsApptR               6      6A
D  peIsApptM               7      7A
D  peApptMB                8     17A
D  peApptMJ               18     22A
D  peIsSealR              23     23A
D  peIsPODR               24     24A
D  peIsJITstp             25     25A
D  peIsLive               26     26A
D  peETAJul               27     31A
D  peCustCdStp            32     37A
D  peRegion               38     40A
D  peErlyWnd              41     45A
D  peLateWnd              46     50A

Now that you have a template, you can use LIKEDS to put the data structure 
in the parameter list:

D  *ENTRY PLIST:
D  WBROME          PR                  extpgm('WBROME')
D  peOrderNo                      7A   const
D  peCustCdBck                    6A
D  peLoadAtCdBck                  6A
D  peConsigCdBck                  6A
 .
 .
D  peIsHazmat                     1A
D  peIsEDI                        1A
D  peBlindBill                    1A
D  StopInfo                           likeds(StopInfo_T) DIM(18)

And, of course, you'll want to declare the "PI" the same was as the "PR". 
Note that It's "StopInfo" (and NOT "StopInfo_T") that you'll reference in 
your program.

For example, to change peStopNum in the 2nd element of StopInfo, you'll 
do:
      StopInfo(2).peStopNum = '76';

hope that helps.
-----------------------------------------------------------------------
This is the FTPAPI mailing list.  To unsubsribe from the list send mail
to majordomo@xxxxxxxxxxxxx with the body: unsubscribe ftpapi mymailaddr
-----------------------------------------------------------------------