How do you put a DISPLAY in an Easytrieve program?

Document ID : KB000014017
Last Modified Date : 14/02/2018
Show Technical Document Details
Introduction:

Putting Display's in an Easytrieve program. 

Question:

May I see an example of how to put a DISPLAY in an Easytrieve program?

Environment:
Running an Easytrieve program.
Answer:

The following code is an example of putting a DISPLAY in an Easytrieve program.

 

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:

Will product the following;

 

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