I wanna check US Holiday!!!

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.



---------------------------------
Do you Yahoo!?
Protect your identity with Yahoo! Mail AddressGuard