RE: automatic wait!!!

["Tucker Gerry" <Gerry.Tucker@xxxxxxxxxxx>]

RETRY:  RTVOBJD OBJ(SFE.PARM) OBJTYPE(*FILE) RTNLIB(&FLIB)
                MONMSG CPF9812 EXEC(DO)
                        DLYJOB DLY(30)
                        GOTO CMDLBL(RETRY)
                ENDDO




>>  -----Original Message-----
>>  From: murali dhar [mailto:hydchap1@xxxxxxxxx]
>>  Sent: 13 November 2003 03:04
>>  To: Midrange Systems Technical Discussion
>>  Subject: Re: automatic wait!!!
>>  
>>  
>>  James,
>>  I dont want to use MONMSG(I cant use in this case due
>>  to certain constraignts),some times if the file is nt
>>  there it may skip that line and file is very important
>>  which has to be processed further,
>>  I want my progam Retry till the file arrives..is there
>>  anyway i can make my program automatic wait and retry
>>  every 30 seconds....
>>  TIA,
>>  Murali.
>>  --- "James W. Kilgore" <email@xxxxxxxxxxxxxxxxxxx>
>>  wrote:
>>  > murali,
>>  > 
>>  > read up on the MONMSG command.
>>  > 
>>  > murali dhar wrote:
>>  > > hi
>>  > > I ve a program YSETLIB which runs during a batch
>>  > > 
>>  > > CALL YSETLIB PARM(' ')                            
>>  >    
>>  > >                
>>  > > I get the following error if the file SFE.PARM
>>  > (which
>>  > > iam using)comes lately from other programs....
>>  > > -------
>>  > >    400 - RTVOBJD OBJ(SFE.PARM) OBJTYPE(*FILE)
>>  > > RTNLIB(&FLIB)            
>>  > > File SFE.PARM in library *LIBL not found.         
>>  >    
>>  > >                 
>>  > > Function check. CPF9812 unmonitored by YSETLIB at
>>  > > statement 400,      
>>  > >   instruction X'000F'.                            
>>  >    
>>  > 
>>  > _______________________________________________
>>  > 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.
>>  > 
>>  
>>  
>>  __________________________________
>>  Do you Yahoo!?
>>  Protect your identity with Yahoo! Mail AddressGuard
>>  http://antispam.yahoo.com/whatsnewfree
>>  _______________________________________________
>>  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.
>>  
>>