|
midrange.com
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
+---
As an Amazon Associate we earn from qualifying purchases.
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.
