× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Chris, I am not sure I follow the flow here, but I wondered if you might 
try making two identical formats excepting for the wait record, and 
hardwire a 30 second wait and then call that format in the program, just 
to see what happens.  Another thought I had was to have all of the various 
DDS formats for the combined application in one DDS member, like we used 
to have to do on the Sys/36.

This may not be relevant to your case, but the other day Simon showed me 
this code in CL to process a one-second wait:

 AGAIN:      /* Get the current time  */ 
....
       /* Display the clock face                             */ 
       SNDRCVF    RCDFMT(RFIGLET) WAIT(*NO) 
       MONMSG     MSGID(CPF0887) EXEC(DO) 
       RCVMSG     MSGTYPE(*EXCP) 
       RCVF 
       IF         COND(&PB2 *EQ 01) THEN(WRKMSG MSGQ(*SYSOPR)) 
       IF         COND(&PB2 *EQ 02) THEN(GOTO CMDLBL(AGAIN)) 
       IF         COND(&PB2 *EQ 03) THEN(GOTO CMDLBL(ENDJOB)) 
       IF         COND(&IN03 *EQ '1') THEN(GOTO CMDLBL(ENDJOB)) 
       IF         COND(&IN06 *EQ '1') THEN(WRKMSG MSGQ(*SYSOPR)) 
       ENDDO 
       DLYJOB     DLY(1)
       GOTO       CMDLBL(AGAIN) 
 
_______________________
Booth Martin
boothm@earth.goddard.edu
http://www.spy.net/~booth
_______________________




"Chris Beck" <CBeck@good-sam.com>
Sent by: owner-rpg400-l@midrange.com
03/01/2000 02:23 PM
Please respond to RPG400-L

 
        To:     <RPG400-L@midrange.com>
        cc: 
        Subject:        Display timeout - please help


Hello I am trying to timeout a screen after thirty seconds.  I have done 
it in one program just fine, and now this program calls another prog that 
i need to timeout all the screens for. 

it calls a cl that overides the display files wait record timer to 30 
seconds. Then this cl calls the rpg that has the display files in it, and 
it wont work like it did in the first program.

This is my timeout section of code:

                  WRITESFLCTL 
                  READ CLK907MM               7172 
*IN71         IFEQ *ON 
STATUS    IFEQ 1331 
                  GOTO END 
                  ENDIF 
                  ENDIF 

Any suggestions? 


I am geting to the point of severe frustration.


Thanks chris


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: 
david@midrange.com
+---




+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.