How do you put a DISPLAY in an Easytrieve program?

Products

• PanAudit Plus
• Easytrieve Report Generator
• PAN/SQL

Issue/Introduction

Putting Display's in an Easytrieve program. 

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

Environment

Running an Easytrieve program.

Resolution

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