Display Program; Rpg Program - Intermec EasyCoder 3400d User Manual

Twinax Interface

Display program

A*
A* PROGRAM: DEM44D
A*
A
A
A
**************************************
A R SCRN01
**********************
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A NAME
A 80
A
A

RPG program

H 1
*
* PROGRAM NAME:
*
* DESCRIPTION:
*
FDEM44D CF E
FQPRINT O F
*
E
E
E
*
I DS
I
I
*
*** INITIALIZE VALUES **
*
C
C
C
C
C
*
22
DSPSIZ(24 80 *DS3)
MSGLOC(23)
PRINT
CF03(03 'END OF JOB')
1 32'I N T E R M E C'
DSPATR(HI)
2 3DATE EDTCDE(Y)
2 68'DEM44D'
3 3TIME EDTWRD('0 :
3 31'XXXX DEMONSTRATION'
DSPATR(HI)
6 16'THIS PROGRAM WILL SHOW HOW TO -
PRINT TO AN OUTQUE'
8 16'ON THE IBM AS/400.
QPRINT AS THE '
10 16'OUTPUT FILE AND PRT01 AS THE OUT-
QUE.
12 16'NOT HAVE EITHER OR BOTH, PLEASE -
STOP AND CHANGE'
14 16'THE CLP PROGRAM DEM44C.'
17 14'PLEASE ENTER YOUR NAME:'
25 B 17 40
ERRMSG('NAME CAN NOT BE LEFT BLANK'-
80)
23 30'CMD 3: END OF JOB'
DEM44R
THIS PROGRAM WILL DEMONSTRATE THE XXXX PRINTER
WORKSTN
132 OF PRINTER
INIT 1 10 80
WRK 80 1
QRX 125 1
27
MOVE '1' ON
MOVE '0' OFF
MOVE 'Y' YES
MOVE 'N' NO
Z-ADD1 AX
: ')
WE ARE USING -
IF YOU DO'
1 80 CMDQ
36 QUEUE
1
1
1
1
30
DEM44R