Re: RE: "If %scan(x:y)" is not valid???

[jrc@xxxxxxxxxx]

>> if    date = %range( 20030101 20030201 )
>
>YES!  I would go for this.

If you would go for this, then write it!

I have preached on this topic in the past and it seems an appropriate time to 
do so again:  one of the beautiful things about ILE is the ability to write 
one's own BIFs.  In essence, RPG has become xRPG - extensible RPG!

A function like this would be simple to write and could be easily incorporated 
into your code:

Write a sub-routine called inDateRange.
Send it 3 parameters, testDate, BegDate and EndDate.
Return an indicator based on whether or not the testDate falls within the 
confines of the beginning and ending dates.

In your code it would look something like this:

if inDateRange( myDate : begDate : endDate );
...
endif ;

Define the module for export, create a service program, and put the service 
program into a global binding directory.  *(the service program part is an 
optional step since you can put the module itself in the binding directory, but 
I would recommend taking the service program approach.  There are numerous 
benefits but it is too much for this message).

Now the BIF "inDateRange" is available to all of your programs provided that 
they reference the binding directory.  That's why we have one global binding 
directory.  These are all of our tools and BIFs that would be useful regardless 
of the application.  Date routines, string manipulators, math functions, etc. 
all go in this global directory, and in essence we have a custom extended 
version of RPG.

It sounds like more work than it really is but I think you will find such an 
approach well worth your while.


Cheers,

Joel