RE: PROTOTYPING - What type of data are values as *MONTH, *DAY, *SYS

Also,
*YEAR and so forth are figurative constants. Meaning they are set once
during program startup and never changed. So if you run a job through
Midnight over new years, it still represents last years date. 
As programmers we should be moving away fro UDATE and *YEAR and use date
fields that we declare in our code.
D Today       S         D   Inz(*SYS)
D JobDate     S         D   Inz(*JOB)

-Bob Cozzi


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Wilt, Charles
Sent: Tuesday, February 15, 2005 12:01 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: PROTOTYPING - What type of data are values as *MONTH, *DAY,
*SYS

Hm,  didn't realize that would work.

BUT...looks like it's a special case since *YEAR, *DATE are used to access
the job date.

For what the original poster wanted, and for what I've wanted to do.  You
need to be able to pass *DAYS (not *DAY!!), *WEEKS, *MONTHS, or for instance
*MDY, or *ISO0.

That is not possible as far as I can tell.



Charles Wilt
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Tyler, Matt
> Sent: Tuesday, February 15, 2005 12:42 PM
> To: 'RPG programming on the AS400 / iSeries'
> Subject: RE: PROTOTYPING - What type of data are values as 
> *MONTH, *DAY,
> *SYS
> 
> 
> All you have to do is create your procedure parameter 
> definition with the
> CONST keyword.  
> 
>      H OPENOPT(*NOINZOFL)                         
>      H OPTION(*NODEBUGIO: *SRCSTMT)               
>      H DFTACTGRP(*NO) ACTGRP(*CALLER )            
>      DTEST             PR                         
>      D DATE                           8  0 CONST  
>      C                   CALLP     TEST(*YEAR)    
>      C                   CALLP     TEST(*DATE)    
>      C                   RETURN                   
>                                                   
>      PTEST             B                          
>      DTEST             PI                         
>      D DATE                           8  0 CONST  
>      C     DATE          DSPLY                    
>      C                   RETURN                   
>      PTEST             E                          
> 
> Thank you,
> Matt Tyler
> WinCo Foods, LLC
> mattt@xxxxxxxxxxxxxx
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Paul Morgan
> Sent: Tuesday, February 15, 2005 10:32 a
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Re: PROTOTYPING - What type of data are values as 
> *MONTH, *DAY,
> *SYS
> 
> Has anyone put in a request for an enumerated variable in 
> RPG?  Naming the
> enumerated values would let us pass *TODAY or *DAY as a value 
> to a function
> enumerated parameter.  Similar to the special values you can put on a
> command parameter.
> 
> Paul
> 
> -- 
> Paul Morgan
> Senior Programmer Analyst - Retail
> J. Jill Group
> 100 Birch Pond Drive, PO Box 2009
> Tilton, NH 03276-2009
> Phone: (603) 266-2117
> Fax:   (603) 266-2333
> "Bob Cozzi" wrote
> ...
> We'd all like to do that kind of thing.
> The only way out is to allow some form of special value to go into the
> parameter, such as -1 or 0 for *TODAY
> 
> 
> 
> -- 
> 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.
> 
> 

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