× 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.


  • Subject: DDS timeout
  • From: loydg@xxxxxxxxxxx (Loyd Goodbar)
  • Date: Thu, 11 Dec 1997 21:30:49 GMT

Hi,

(Please excuse the long post...)

I'm trying to write a program that displays information on the screen
and times out after say 5 seconds. I have the messages from August
where someone else was doing something similar (but I'm not using
subfiles). 

I'm overriding the display to WAITRCD(5), and using the INVITE keyword
in DDS. Because I need the display to wait until there's input before
timing out, INVITE has an indicator attached to it.

Here's what's happening: when I run the program LVWEDGEC: I can type
an account number (will be a card swipe in production, so it's an
invisible field). Indicator 2 gets turned on, because the IACCT field
is now protected, the cursor moves to the topleft corner, and "timeout
period" displays on the screen. But the display never times out. It's
as if INVITE isn't active.

I've tried INVITE at the record and file levels, with no effect. I've
tried READing the display file and display record format names, with
no effect.

If someone could point me in the right direction, I'd greatly
appreciate it. It feels like I have all the pieces but don't have them
in the right place yet.

TIA,
Loyd Goodbar

CLP: LVWEDGEC
--------------------------------------------------------------------------------
 *************** Beginning of data **
 PGM                                 
 OVRDSPF FILE(LVWEDGED) WAITRCD(5)   
 CALL LVCUSTOM/LVWEDGER              
 /* NEXT LINE IS THE SIGNOFF COMMAND */
 /*GNOFF*/                           
 ENDPGM                              
 ****************** End of data *****

DDS: LVWEDGED
--------------------------------------------------------------------------------
 *************** Beginning of data ***********************************
      A*%%TS  SD  19971211  103104  LOYD        REL-V3R7M0  5716-PW1  
      A*%%EC                                                          
      A                                      DSPSIZ(24 80 *DS3)       
      A                                      PRINT                    
      A          R WDG                                                
      A*%%TS  SD  19971211  103104  LOYD        REL-V3R7M0  5716-PW1  
      A  02                                  INVITE                   
      A                                      CA01(01)                 
      A                                  7 18'Acct:'                  
      A                                  9 18'Name:'                  
      A            ONAME         40A  O  9 24                         
      A            IACCT          7Y 0B  1  3EDTCDE(3)                
      A                                      DSPATR(ND)               
      A  02                                  DSPATR(PR)               
      A            OACCT          7Y 0O  7 24EDTCDE(3)                
      A                                 13 18'Available points...:'   
      A                                 15 18'Points earned today:'   
      A                                 17 18'LTD points.........:'   
      A            OPTA           7Y 0O 13 39EDTCDE(3)                
      A            OPTT           7Y 0O 15 39EDTCDE(3)               
      A            OPTL           7Y 0O 17 39EDTCDE(3)               
      A                                 21 34'timeout period'        
      A N02                                  DSPATR(ND)              
 ****************** End of data *************************************

RPG: LVWEDGER
----------------------------------------------------------------------------
*************** Beginning of data ********************************
     H            Y                                               
     FLCN     IF  E           K        DISK                       
     FL$B2    IF  E           K        DISK                       
     FL$E     IF  E           K        DISK                       
     FLVWEDGEDCF  E                    WORKSTN                    
     C                     MOVE UDATE     BEGDTE  60              
     C                     MOVE UDATE     ENDDTE  60              
     C*-- *IN01 FOR COMMAND KEY F1 TO EXIT PROGRAM
     C*-- *IN02 ON FOR INVITE/WAIT, OFF FOR DATA INPUT
     C                     MOVE *OFF      *IN01                   
     C           *IN01     DOWEQ*OFF                              
     C                     Z-ADD0         IACCT                   
     C                     MOVEL*BLANKS   ONAME                   
     C                     Z-ADD0         OACCT                   
     C                     Z-ADD0         OPTT                    
     C                     Z-ADD0         OPTL                    
     C                     Z-ADD0         OPTA                    
     C                     MOVE *OFF      *IN02                   
     C                     EXFMTWDG                               
     C           IACCT     IFGT 0                                 
     C                     Z-ADDIACCT     OACCT                   
     C                     MOVEL*BLANKS   ONAME                   
     C           IACCT     CHAINRCN                  99           
     C           *IN99     IFEQ *OFF                              
     C           PFNMCN    CAT  PLNMCN:1  ONAME                   
     C                     ELSE                                   
     C           'UNKNOWN' CAT  'PATRON':1ONAME                   
     C                     ENDIF                                  
     C                     EXSR GETB                              
     C                     Z-ADDSUBAMT    OPTT                    
     C           IACCT     CHAINR$E                  97           
     C                     Z-ADDCERN$E    OPTL                    
     C*-- OPTA VARIABLE NOT IMPLEMENTED YET
     C*-- TURN ON INVITE, DISABLE INPUT ON SCREEN,
     C*-- AND WAIT FOR TIMEOUT
     C                     MOVE *ON       *IN02                   
     C                     WRITEWDG                               
     C                     READ WDG                      89       
     C                     MOVE *OFF      *IN02                   
     C                     MOVE *OFF      *IN88                   
     C                     MOVE *OFF      *IN89                   
     C                     ENDIF                                  
     C                     ENDDO                                  
     C                     MOVE *ON       *INLR                   
***** SUBROUTINE GETB SNIPPED
     C*-- END OF PROGRAM                                           
 ****************** End of data ************************************

Loyd Goodbar
MIS manager
Las Vegas Casino
Greenville, Mississippi
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MIDRANGE-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-Ups:

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.