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