Coding DISPLAY and DISPLAY HEX statements
Article ID: 14017
Updated On:
Products
Issue/Introduction
Please provide an example of how to code DISPLAY and DISPLAY HEX statements within an Easytrieve program.
Environment
Easytrieve Report Generator, release 11.6
Resolution
PARM DEBUG(PMAP DMAP STATE XREF LONG) ABEXIT NO SORT(MSG(ALL))+
LIST FILE
FILE DUMMY
TEST0 W 8 N 0 VALUE 0 MASK(A '99999999')
TEST1 W 8 N 0 VALUE 42 MASK(B '99999999')
TEST-1 W 8 N 0 VALUE -999 MASK(C '99999999')
JOB INPUT NULL
DISPLAY 'TEST0 ' TEST0
DISPLAY HEX TEST0
DISPLAY 'TEST1 ' TEST1
DISPLAY HEX TEST1
DISPLAY 'TEST-1 ' TEST-1
DISPLAY HEX TEST-1
STOP
Additional Information
This will produce the following results:
TEST0 00000000
CHAR 00000000
ZONE FFFFFFFF
NUMR 00000000
1...5...
TEST1 00000042
CHAR 00000042
ZONE FFFFFFFF
NUMR 00000042
1...5...
TEST-1 00000999
CHAR 0000099R
ZONE FFFFFFFD
NUMR 00000999
1...5...
********************************** End of Data
Feedback
