Output R6.4 EZTOPTBL definitions to a report

Products

• Easytrieve Report Generator

Issue/Introduction

Is there a way to output R6.4 EZTOPTBL definitions in a report?

Environment

Release : R6.2, R6.3, R6.4

Resolution

The following is a sample program and JCL for outputting a report.

SAMPLE PROGRAM:(EZTPX05A)

* DO NOT USE A PARM STATEMENT!             
*                                          
FILE OPT FB (80 6160)                      
OUTREC_  1   80  A                         
RECORD_  W   80  A  OCCURS 200 INDEX INDEX_
ENDREC_    W      80 A                     
END_  ENDREC_ +10  3 A       VALUE('END')  
COUNTER_ W    5  P                         
JOB INPUT NULL NAME XXXXXXXX               
   INDEX_ = 0                              
   CALL EZTPX05 USING(RECORD_)             
   COUNTER_ = 0                            
   DO WHILE COUNTER_ < 200                 
      INDEX_ = COUNTER_ * 80               
      OUTREC_ = RECORD_                    
      PUT OPT                              
      DISPLAY OUTREC_                      
      IF OUTREC_ = ENDREC_                 
         COUNTER_ = 200                    
      END-IF                               
      COUNTER_ = COUNTER_ + 1              
   END-DO                                  
   STOP                                    

SAMPLE JCL

//     JOB
//**************************************************************
//*   THIS JOB IS A COMPILE AND GO OF THE EASYTRIEVE PLUS       
//*   PROGRAM 'EZTPX05A' WHICH REGENERATES THE INPUT TO THE     
//*   OPTIONS TABLE.                                            
//*                                                             
//*   THIS EASYTRIEVE PLUS PROGRAM MUST NOT BE LINKED.          
//*   LINKING THIS PROGRAM RESULTS IN A COPY OF THE EXISTING    
//*   OPTIONS TABLE TO BE LINKED WITH IT.  THIS COPY OF THE     
//*   OPTIONS TABLE WILL BE THE ONE THAT IS REPORTED ON         
//*   EVERY TIME THE PROGRAM IS EXECUTED.                       
//*                                                             
//*   STEP: EASYTRIEVE PLUS COMPILE AND GO                      
//*         - TO GENERATE THE INPUT TO THE OPTIONS TABLE MACRO. 
//**************************************************************
//EZTPLUS  EXEC  PGM=EZTPA00                                    
//STEPLIB  DD  DSN='Prefix.eztpr64.CAILIB',DISP=SHR             
//SYSPRINT DD  SYSOUT=*                                         
//OPT      DD  SYSOUT=*                                         
//**************************************************************
//*   IF YOU WANT THE OUTPUT TO GO TO A DATASET WHICH CAN BE    
//*   USED AS INPUT TO THE ASSEMBLY OF THE OPTIONS TABLE        
//*   UNCOMMENT THE FOLLOWING LINES AND COMMENT OUT THE         
//*   ABOVE DD CARD FOR OPT.                                    
//**************************************************************
//*OPT     DD  DSN=YOUR.OPTIONS.TABLE.OUTPUT,                   
//*        DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,                  
//*        DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB),                
//*        SPACE=(TRK,(1,1))                                    
//**************************************************************
//EZTVFM   DD  UNIT=SYSDA,SPACE=(4096,(100,100))                
//SYSLIN   DD  UNIT=SYSDA,SPACE=(400,(100,50)),                 
//             DISP=(,PASS),DSN=&&SYSLIN                        
//SYSIN    DD  DSN=Prefix.user.pofile(EZTPX05A),DISP=SHR        
//