|
midrange.com
: > Has "ANYBODY" actually tried to design and use these features ??????
This was a previous discussion. Someone on this list provided a web site
that included push button example source for usage . I copied and modified
the heck out of it just as a 'Hello World' type test. The record dates are
a clue for when this all happened but I can't find a bookmark or other
reference. Sorry I can't give original credit. Here's what I did:
SOURCE FILE . . . . . . . BILLM/QCLSRC
MEMBER . . . . . . . . . PUSHBC
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8 ...+... 9 ...+... 0
100 PGM PARM(&PRTR)
07/21/98
200 DCLF FILE(PUSHBC)
07/21/98
300 DCL VAR(&USER) TYPE(*CHAR) LEN(10)
07/21/98
400 DCL VAR(&PRTR) TYPE(*CHAR) LEN(10)
07/21/98
500 MONMSG MSGID(CPF0000)
07/21/98
600 CHGVAR VAR(&FIELDP) VALUE(&PRTR)
07/21/98
700 RTVJOBA USER(&USER)
07/21/98
800
07/21/98
900
07/21/98
1000 START: SNDRCVF DEV(*FILE) RCDFMT(FMT01) WAIT(*YES)
07/21/98
1100 RMVMSG CLEAR(*ALL)
07/21/98
1200
07/21/98
1300 IF COND(&IN03) THEN(DO)
07/21/98
1400 GOTO END
07/21/98
1500 ENDDO
07/21/98
1600 IF COND(&USER *EQ '&FIELDP') THEN(DO)
07/21/98
1700 GOTO END
07/21/98
1800 ENDDO
07/21/98
1900 /* &F1 */
07/21/98
2000 /* F6-DISPLAY MESSAGES */
07/21/98
2100 IF COND(&IN06) THEN(DO)
07/21/98
2200 DSPMSG
07/21/98
2300 ENDDO
07/21/98
2400 /* START PRINT WRITER &FIELDP */
07/21/98
2500 IF COND(&F2 *EQ 1) THEN(DO)
07/21/98
2600 STRPRTWTR DEV(&FIELDP) OUTQ(&FIELDP)
07/21/98
2700 MONMSG MSGID(CPF3310)
07/21/98
2800 ENDDO
07/21/98
2900 /* DISPLAY OUTPUT QUEUE &FIELDP */
07/21/98
3000 IF COND(&F2 *EQ 2) THEN(DO)
07/21/98
3100 WRKOUTQ OUTQ(&FIELDP)
07/21/98
3200 ENDDO
07/21/98
3300 /* DISPLAY PRINTER MESSAGES &FIELDP */
07/21/98
3400 IF COND(&F2 *EQ 3) THEN(DO)
07/21/98
3500 DSPMSG MSGQ(&FIELDP)
07/21/98
3600 ENDDO
07/21/98
3700 /* DISPLAY SPOOL FILE &FIELDP */
07/21/98
3800 IF COND(&F2 *EQ 4) THEN(DO)
07/21/98
3900 WRKSPLF SELECT(*ALL &FIELDP)
07/21/98
4000 ENDDO
07/21/98
4100
07/21/98
4200 GOTO CMDLBL(START)
07/21/98
4300
07/21/98
4400 END: RETURN
07/21/98
4500 ENDPGM
07/21/98
* * * * E N D O F S O U R C E * * * *
============================================================================
==========
SOURCE FILE . . . . . . . BILLM/QDDSSRC
MEMBER . . . . . . . . . PUSHBC
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8 ...+... 9 ...+... 0
100 A*%%TS SD 19980721 100055
07/21/98
200 A*%%EC
07/21/98
300 A DSPSIZ(24 80 *DS3)
07/21/98
400 A ERRSFL
07/21/98
500 A CF03(03 'Exit')
07/21/98
600 A CSRINPONLY
07/21/98
700 A R FMT01
07/21/98
800 A*%%TS SD 19980721 100055
07/21/98
900 A TEXT('PRINTER CONTROL
MENU') 07/21/98
1000 A CA06(06 'MESSAGE')
07/21/98
1100 A BLINK
07/21/98
1200 A OVERLAY
07/21/98
1300 A WINDOW(4 34 10 28)
07/21/98
1400 A WDWTITLE((*TEXT '
PRINTER CONTROL M- 07/21/98
1500 A ENU'))
07/21/98
1600 A 2 1'PRINTER'
07/21/98
1700 A FIELDP 10A O 2 9DSPATR(UL)
07/21/98
1800 A F2 2Y 0B 4 1PSHBTNFLD((*NUMCOL 1))
07/21/98
1900 A PSHBTNCHC(1 'S>TART
PRINTER' ENTER) 07/21/98
2000 A PSHBTNCHC(2 '>OUT QUEUE'
ENTER) 07/21/98
2100 A PSHBTNCHC(3 '>PRINTER
MESSAGES' - 07/21/98
2200 ENTER)
07/21/98
2300 A PSHBTNCHC(4 '>SPOOL
FILES' ENTER) 07/21/98
2400 A F1 2Y 0B 9 2PSHBTNFLD
07/21/98
2500 A PSHBTNCHC(1 '>EXIT'
CF03) 07/21/98
2600 A PSHBTNCHC(2 '>MESSAGES'
CF06) 07/21/98
2700 A R DUMMY
07/21/98
2800 A TEXT('PREVENTS PREVIOUS
SCREEN FROM- 07/21/98
2900 A BEING CLEARED')
07/21/98
3000 A ASSUME
07/21/98
3100 A 5 9' '
07/21/98
3200
07/21/98
3300
07/21/98
3400
07/21/98
* * * * E N D O F S O U R C E * * * *
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@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-2025 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.
