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

["Wilt, Charles" <CWilt@xxxxxxxxxxxx>]

Igor,

I've wanted to be able to do that myself.  Unfortunately, it doesn't seem to be 
possible at present.



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 
> Igor.Beslic@xxxxxxxxxxxx
> Sent: Tuesday, February 15, 2005 4:59 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: PROTOTYPING - What type of data are values as 
> *MONTH, *DAY, *SYS
> 
> 
> Hello!
> 
> Please, can somebody explain me what are exactly *MONTH, *DAY, *SYS, 
> *YEAR, *OMIT, *NOPASS etc. values?? Where are they stored 
> when program 
> runs??
> 
> I have subprocedure that does some time calculations. I would 
> like to pass 
> optional parametar to it (*MONTH,*DAY,*YEAR) but if I pass it 
> as in PI 
> (10A) builtin function wont accept it because it has no same 
> parametar 
> type. I wonder is there any way to make call to 
> getInnerPeriodLength on 
> this way getInnerPeriodLength(d1,d2,d3,d4,*MONTH).
> 
> Here is te code (for now I just *DAYS):
> 
> 
>      P getInnerPeriodLength...
>      P                 B                   EXPORT
>      D getInnerPeriodLength...
>      D                 PI             5P 0
>      D  dateZStart                     D
>      D  dateZEnd                       D
>      D  dateKStart                     D
>      D  dateKEnd                       D
>      D  resultUnit                   10A   OPTIONS(*NOPASS) VALUE
>      D  checkWildCard  S               N   inz(*off)
> 
>       /free
>         
>         If dateZEnd<dateZStart;
>            return 0;
>         EndIf;
>         
>         If dateKEnd<dateKStart;
>            return 0;
>         EndIf;
>         
>         If %Parms()>4;
>            checkWildCard=*ON;
>         EndIf;
> 
> 
>         Select;
> 
>         
>           WHen dateZStart>dateKStart AND dateKEnd>dateZStart
>                AND dateKEnd<dateZEnd;
>                return %Diff(dateKEnd:dateZStart:*DAYS)+1;
> 
>         
>           WHen dateZStart<dateKStart AND dateKEnd<dateZEnd;
>                return %Diff(dateKEnd:dateKStart:*DAYS)+1;
> 
>         
>           WHen dateZStart<dateKStart AND dateKEnd>dateZEnd;
>                return %Diff(dateZEnd:dateKStart:*DAYS)+1;
> 
>         
>           WHen dateZStart>dateKStart AND dateKEnd>dateZEnd;
>                return %Diff(dateZEnd:dateZStart:*DAYS)+1;
> 
>           Other;
>                return 0;
>         EndSl;
> 
>       /end-free
>      P                 E 
> 
> Thank you!
> 
> Igor Bešlić, dipl. ing. rač. 
> Zelinska 2, 10000 Zagreb
> tel: +385 1 6326422
> -- 
> 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.
> 
>