Re: I wanna check US Holiday!!! -- MIDRANGE-L

Murali, can you find out what controls the creation of YPROF? Is it on your iSeries box that it is created? Then use the same process. Someone had to have written it - it's not a standard part of OS/400. Is it controlled by something like ROBOT job scheduler? Or were you the one that had a customer with Advanced Job Scheduler? Maybe something in there controls it. Use the same mechanism. Maybe there is an API. ROBOT has functions you can call to check these things against their internal objects. No point in reinventing the wheel, eh?

No magic bullet that I know of. Holidays vary according to the policies of your customer. Every company can have a different set. There are some rules for them, maybe, that you could use. Easter is relative to some solar or lunar events, I think. Thanksgiving is Thursday of a certain week in November.

One method is to have a file with the holidays in it - perhaps year and day-number in the year (kind of *JUL format), then figure out whether the day you test is in that file - there are CEE* APIs for dates that could do this, maybe even something in RPG. SQL has DAYOFYEAR, I think. This file could be generated by rule, if you can find out what they are, at year-end or at program initialization; or entered by the customer according to their requirements - Help Systems' ROBOT has those calendar kinds of things that can be applied to different jobs.

Good luck
Vern

At 09:10 AM 12/3/2003 -0800, you wrote:

Following  is  the part of the program YPPM01
=======================================
             FTP:         IF         COND(&BKSYS = '85B') THEN(DO)
RTVDTAARA DTAARA(YODCTEST *ALL) RTNVAR(&TEST)

IF COND(&TEST = '*YES') THEN(DO)

CLRSAVF FILE(QS36SAVF/YIMPORT)
(7100)     SAVOBJ     OBJ(*ALL) LIB(YIMPORT) DEV(*SAVF) +
                               SAVF(QS36SAVF/YIMPORT) DTACPR(*YES)
CLRSAVF FILE(QS36SAVF/YDATA) ============================================== This program is failing at the statement SAVOBJ and giving the following error. **** CPF3701 received by YPPM01 at 7100. (C D I R) Cannot allocate object for file YPROF in YIMPORT. FILE YPROF in YIMPORT not saved. ****

I found that file YPROF will nt be generated on a US holiday. I will have to make a change to check for a holiday. For our system Night Time date is changed on next date 8:00AM I have to use this night time date to check for holiday depending on when i check... How can i modify my program to check for holiday sothat i can capture this message and send a message to users. what i thought sofar is putting a monmsg and the followed by sndusrmsg.Iam still doubtful!!I request the folks here to share their valuable knowledge and suggest me what should i do to see i should nt get this error in future... Thank you so much from bottom of my heart to this list and to the folks who are sharing their knowledge and spending valuable time ... Thanks in adv for help, Murali.