• Subject: RE: DDS timeout
  • From: Brian Lawson <blawson@xxxxxxxxxxxxx>
  • Date: Sat, 13 Dec 1997 10:10:06 -0500
  • Organization: HJM Systems, Inc.

Hi All:

Are you doing a Write/Read instead of an EXFMT?

Brian Lawson
HJM Systems, Inc.
New York, NY
Voice: 212-714-1055 x.32
blawson@hjmsys.com


-----Original Message-----
From:   Loyd Goodbar [SMTP:loydg@vegas21.com]
Sent:   Thursday, December 11, 1997 4:31 PM
To:     MIDRANGE-L@midrange.com
Subject:        DDS timeout

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
+---
umidr
+---
| 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
+---


This thread ...


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

This mailing list archive is Copyright 1997-2019 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].