Re: I wanna check US Holiday!!!

There's a RTVHOLIDAY tool in TAA Tools.  See:

http://www.taatool.com/document/L_rtvholiday.htm

Al

Al Barsa, Jr.
Barsa Consulting Group, LLC

400>390

914-251-1234
914-251-9406 fax

http://www.barsaconsulting.com
http://www.taatool.com



                                                                           
             Vern Hamberg                                                  
             <vhamberg@centerf                                             
             ieldtechnology.co                                          To 
             m>                        Midrange Systems Technical          
             Sent by:                  Discussion                          
             midrange-l-bounce         <midrange-l@xxxxxxxxxxxx>           
             s@xxxxxxxxxxxx                                             cc 
                                                                           
                                                                   Subject 
             12/03/2003 02:37          Re: I wanna check US Holiday!!!     
             PM                                                            
                                                                           
                                                                           
             Please respond to                                             
             Midrange Systems                                              
                 Technical                                                 
                Discussion                                                 
             <midrange-l@midra                                             
                 nge.com>                                                  
                                                                           
                                                                           




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.


_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.