|
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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.