[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: RE: your mail
Sender: <nellestj@xxxxxxx>
Okay - I'm getting closer. I have the data structure declared at the top of the program like you suggested, and now I'm using the LIKEDS for the PR and PI. I'm still getting error messages though, and I think they have to do with the fields inside the data structure. In the PR and PI areas, so I need to declare all of the field lenths again? If I don't I get a message that says "field not defined", but if I do I get an error message as well. Do I have to enter a 'T' for each of the fields? The error messages I'm getting are:
32 LIKE keyword is expected but not found; definition is
ignored.
18 The name or indicator is not defined.
Here's how I have it:
* *ENTRY PLIST:
D WBROME PR extpgm('WBROME')
D peOrderNo 7A const
D peCustCdBck 6A
D peLoadAtCdBck 6A
D peConsigCdBck 6A
D peBillToCdBck 6A
D peDivisionBck 3A
D pePreLdTrlrBck 6A
D peOrgCtyCdBck 4A
D peOrgStCdBck 2A
DStopInfo LIKEDS(StopInfo_T) DIM(18)
D peStopNum
D peStopTyp
D peIsCallR
D peIsBill
D peIsApptR
D peIsApptM
D peApptMB
D peApptMJ
D peIsSealR
D peIsPODR
D peIsJITstp
D peIsLive
D peETAJul
D peCustCdStp
D peRegion
D peErlyWnd
D peLateWnd
Thanks again for all of your help!
>
> From: Scott Klement <sk@xxxxxxxxxxxxxxxx>
> Date: 2005/05/04 Wed AM 06:13:09 GMT
> To: ftpapi@xxxxxxxxxxxxx
> Subject: RE: your mail
>
> 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
> -----------------------------------------------------------------------
>
-----------------------------------------------------------------------
This is the FTPAPI mailing list. To unsubsribe from the list send mail
to majordomo@xxxxxxxxxxxxx with the body: unsubscribe ftpapi mymailaddr
-----------------------------------------------------------------------