RE: Passing Parms

["Douglas W. Palme" <dpalme@xxxxxxxxxxx>]

Thanks Matt,
I'll give it a whirl.....

Douglas


On Tue, 13 Dec 2005 08:12:21 -0700, Tyler, Matt wrote
> Douglas,
>       You define your parameters in the D-specs (typed as a date type)
> then when you call your program you can pass a date or a 10 character
> field to the program that will receive the date.
> 
>       IF you pass a 10 character date, YOU MUST pass the data in the
> same date format as the called program has defined it (this goes for
> program or command line execution of the program receiving the date
> parameter).
> 
>       Passing a date string from a command line is in fact just
> passing a 10 character string of a date.  There is no command line
> designation that a 10 character string is a date literal (like you 
> can with an EVAL statement, EVAL DATE = d'2005-12-13').
> 
> Here are two programs that work for passing date parameters:
> 
>       TESTDATE8:
> D DATE            s               d              
> C     *ENTRY        PLIST                        
> C                   PARM                    DATE 
> C     DATE          DSPLY                        
> C                   EVAL      *INLR = *ON        
> C                   RETURN
> 
>       TESTDATE9:
> D DATE            s               d   inz(*job)       
> D DATEC           s             10A                   
>  ****
> C                   CALL      'TESTDATE8'             
> C                   PARM                    DATE      
>  ****
> C                   EVAL      DATEC = %CHAR(DATE:*ISO)
> C                   CALL      'TESTDATE8'             
> C                   PARM                    DATEC     
>  ****
> C                   EVAL      *INLR = *ON             
> C                   RETURN
> 
> You would then use the MONITOR op-code to check for invalid date on the
> incoming parameter like...
> 
> C                       IF        %PARMS > 01
> C                   MONITOR                            
> C                   EVAL      DATE = DATE                       
> C                   ON-ERROR  00112                            
> C                     ...                            
> C                   ENDMON                            
> C                   ENDIF
> 
> Thank you,
> Matt Tyler
> WinCo Foods, LLC
> mattt@xxxxxxxxxxxxxx
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Douglas W. Palme
> Sent: Tuesday, December 13, 2005 7:20 AM
> To: RPG Group
> Subject: Passing Parms
> 
> I still struggle with the issue of passing date parms to a program....
> 
> Is there a specific format that they must be in? the user is going to
> enter 
> it as a type *USA, but it seems like at least from the command line I
> can 
> never get them to pass correctly.
> 
> Suggestions or hints?
> 
> If you bought it, it was hauled by a truck - somewhere, sometime.
> 
> --
> 
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
>  mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To 
> subscribe, unsubscribe, or change list options, visit: 
> http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-
> L-request@xxxxxxxxxxxx Before posting, please take a moment to 
> review the archives at http://archive.midrange.com/rpg400-l.


If you bought it, it was hauled by a truck - somewhere, sometime.