• Subject: Re: What can be done to enhance the green screen applications?
  • From: "Bill Meecham" <wm@xxxxxxxxx>
  • Date: Tue, 26 Oct 1999 13:29:31 -0400
  • Organization: EXTOL Inc


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

This thread ...

Replies:

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