RE: I wanna check US Holiday!!!

["York, Albert" <albert.york@xxxxxxxxxxxxxx>]

Yes. I remember. It's CHGHAIRLIN RECEDE(*NO)

Albert York                          


        -----Original Message-----
        From:   michaelr_41@xxxxxxxxxxxxxx [SMTP:michaelr_41@xxxxxxxxxxxxxx]
        Sent:   Wednesday, December 03, 2003 1:24 PM
        To:     Midrange Systems Technical Discussion
        Subject:        Re: I wanna check US Holiday!!!

        I think there's a TAA tool for just about whatever ails you. I've
used
        one for baldness.

        On Wed, 3 Dec 2003 16:04:46 -0500, "Al Barsa"
<barsa@xxxxxxxxxxxxxxxxxxx>
        said:
        > 
        > 
        > 
        > 
        > 
        > 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.
        > 
        > 
        > 
        > _______________________________________________
        > 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.
        > 
        -- 
          
          michaelr_41@xxxxxxxxxxxxxx

        -- 
        http://www.fastmail.fm - Access your email from home and the web
        _______________________________________________
        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.