How to use HTML reporting when running CA Easytrieve 11.6 in compatibility mode (NEWFUNC N)

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

Introduction:

 

When running CA Easytrieve 11.6 in compatibility mode (NEWFUNC N), the CA Easytrieve 6.4 description is valid when using extended reports like HTML.

In the "CA Easytrieve Extended Report Facility Guide 6.4" there is a chapter 7 "HTML reports".

Here are some important notes from this chapter:

 

-          All examples shown in this chapter are contained on the CA-Easytrieve Plus product tape in the SAMPJCL file.

-          The EZTPXRPT module must be available to the CA-Easytrieve Plus runtime to format a report for HTML or any other report type.

-          You have to create an EZTPXRPT module.

 

Instructions: 

 

This is a complete example how to prepare and use an extended HTML report with CA Easytrieve 11.6-C (NEWFUNC N).

 

  1. Create an EZTPXRPT module - SYSIN can be extended according to your needs

//jobcard...

//XRPT01 EXEC PGM=EZTPX04,REGION=4M                       

//STEPLIB  DD DISP=SHR,DSN=your.EZTP.R116.CBAALOAD  

//SYSPRINT DD SYSOUT=*                                    

//SYSOUT   DD SYSOUT=*                                     

//OUTPUT   DD SYSOUT=*                                    

//SYSLST   DD SYSOUT=*                                    

//SYSLIN    DD DISP=(MOD,PASS),DSN=&&XRPT,                

// UNIT=SYSDA,                                             

// SPACE=(80,(200,50),RLSE)                               

//SYSIN   DD *                                            

* Complete Extended reporting specification file :        

*                                                         

*                                                          

PRINTER NAME ( HTML )  -                                  

   DEFAULT-FONT ( 99 ) -                                  

   DEVICE ( DISK DISK ) -                                 

   RECORD ( V 20600 ) -                                    

   FILE-HEADER ( -                                        

      ' <HTML><HEAD>-                                     

      <TITLE>CA EZT 11.6-C HTML REPORT 20151223</TITLE>-  

      </HEAD><BODY><PRE>' ) -                              

   FILE-TRAILER ( -                                       

      ' </PRE></BODY></HTML>' )                           

* FONT 1 = ITEM = DEFAULT                                 

FONT NUMBER ( 1 ) WIDTH ( 100 )                            

FONT NUMBER ( 99 ) WIDTH ( 1 ) -                          

   FUNCTION-HEADER  ( 4CC36E ) -                          

   FUNCTION-TRAILER ( 4C61C36E )                          

* FONT 2 = <B>ITEM</B> = BOLD                             

FONT NUMBER ( 2 ) WIDTH ( 100 )  -                        

   FUNCTION-HEADER  ( 4CC26E ) -                          

   FUNCTION-TRAILER ( 4C61C26E )                          

* FONT 3 = <I>ITEM</I> = ITALICS                          

FONT NUMBER ( 3 ) WIDTH ( 100 )  -                        

   FUNCTION-HEADER  ( 4CC26E ) -                          

   FUNCTION-TRAILER ( 4C61C96E )                          

* FONT 4 = <U>ITEM</U> = UNDERLINE                        

FONT NUMBER ( 4 ) WIDTH ( 100 )  -                         

   FUNCTION-HEADER  ( 4CE46E ) -                          

   FUNCTION-TRAILER ( 4C61E46E )                          

* FONT 11 = <FONT SIZE=1>ITEM</FONT>                      

FONT NUMBER ( 11 ) WIDTH ( 75 ) -                         

   FUNCTION-HEADER ( 4CC6D6D5E340E2C9E9C57EF16E ) -       

   FUNCTION-TRAILER ( 4C61C6D6D5E36E )                    

* FONT 17 = <FONT SIZE=7>ITEM</FONT>                      

FONT NUMBER ( 17 ) WIDTH ( 300 ) -                        

   FUNCTION-HEADER ( 4CC6D6D5E340E2C9E9C57EF76E ) -       

   FUNCTION-TRAILER ( 4C61C6D6D5E36E )                    

* ANCHOR TAG: HEADER = <A HREF="DET.HTM#  TRAILER :  X">  

FONT NUMBER ( 24 ) WIDTH ( 100 ) -                        

 FUNCTION-HEADER ( 4CC140C8D9C5C67E7FC4C5E34BC8E3D47B ) - 

 FUNCTION-TRAILER ( 40E77F6E )                            

* ANCHOR TAG: HEADER = SPACE TRAILER = </A>               

FONT NUMBER ( 25 ) WIDTH ( 100 ) -                        

 FUNCTION-HEADER ( 40 ) -                                  

 FUNCTION-TRAILER ( 4C61C16E )                            

* ANCHOR TAG = <A NAME=" TRAILER = SPACE                  

FONT NUMBER ( 26 ) WIDTH ( 100 ) -                        

 FUNCTION-HEADER ( 4CC140D5C1D4C57E7F ) -                 

 FUNCTION-TRAILER (40)                                    

* ANCHOR TAG: HEADER = X"></A>  TRAILER = SPACE           

FONT NUMBER ( 27 ) WIDTH ( 100 ) -                        

 FUNCTION-HEADER ( E77F6E4C61C16E ) -                     

 FUNCTION-TRAILER ( 40 )                                  

//XRPT02   EXEC PGM=IEWL,PARM='LET,LIST,NCAL,MAP'         

//SYSUT1   DD UNIT=SYSDA,SPACE=(1700,(600,100))           

//SYSLMOD  DD DISP=SHR,DSN=your.EZTP.R116.CBAALOAD  

//SYSPRINT DD SYSOUT=*                                     

//SYSLIN    DD DISP=(OLD,DELETE),DSN=&&XRPT               

//         DD *                                           

 NAME EZTPXRPT(R)                                         

/*                                                        

 

 

  1. Create an HTML file - CA Easytrieve Compile&Go

 

//jobcard…

//   SET STEPLIB1='your.EZTP.R116.CBAALOAD'                      

//   SET  OUTFILE='your.EZT.HTML.RPTOUT'                              

//   SET   INFILE='your.EZT.PERSNL'                                   

//   SET  STORCLS='your_storage_class'                                                

//*------------------------------------------------------------------* 

//DELETE   EXEC PGM=IEFBR14                                            

//DD01     DD DSN=&OUTFILE,                                             

//            DISP=(MOD,DELETE,DELETE),UNIT=SYSDA                      

//*------------------------------------------------------------------* 

//COMPNGO  EXEC  PGM=EZTPA00                                           

//STEPLIB  DD  DISP=SHR,DSN=&STEPLIB1                                  

//PERSNL   DD  DISP=SHR,DSN=&INFILE                                    

//SYSPRINT DD  SYSOUT=*                                                

//SYSOUT   DD  SYSOUT=*                                                 

//RPTOUT   DD  DSN=&OUTFILE,                                           

//             DISP=(NEW,CATLG,DELETE),                                

//             STORCLAS=&STORCLS,                                      

//             SPACE=(CYL,(1,1),RLSE)                                  

//SYSIN    DD  *                                                       

FILE RPTOUT EXTENDED HTML                                              

FILE PERSNL F(150)                                                      

   REGION     1 1 N                                                    

   NAME-LAST 17 8 A                                                    

   GROSS     94 4 P 2                                                  

*                                                                       

JOB INPUT PERSNL                                                       

   PRINT                                                               

*                                                                       

REPORT MYREPORT PRINTER RPTOUT LINESIZE 3000 NOADJUST NODATE +         

   DTLCTL FIRST PAGESIZE 500                                           

   SEQUENCE REGION                                                     

   CONTROL  REGION NOPRINT                                             

   TITLE    'EASYTRIEVE HTML REPORT'                                   

   TITLE 2  '(ABOUT THE PERSONNEL FILE)'                               

   HEADING  REGION ('BRANCH ')                                          

   HEADING  NAME-LAST (#2 'NAME')                                      

   HEADING  GROSS (#2 'PAY')                                           

   LINE      REGION #2 NAME-LAST #4 GROSS                              

AFTER-BREAK. PROC                                                      

      IF LEVEL = 1                                                     

      DISPLAY ' '                                                      

      DISPLAY  TALLY ' BRANCH GROSS ' GROSS     

      DISPLAY 'BRANCH '                         

      DISPLAY ' '                               

  END-IF                                        

   IF LEVEL = 2                                 

       DISPLAY   'TOTALS'                       

       DISPLAY ' '                              

   END-IF                                       

END-PROC                                        

//

 

 

An excerpt from the output

 

12/23/15  4.58.53                             EASYTRIEVE PLUS 11.6-C  SP0                                      PAGE    1

                                       CA-Easytrieve EMEA GUERA01 CM64 20150413                                         

PROGRAMS AND ALL SUPPORTING MATERIALS COPYRIGHT (C) 1982, 2010 BY CA, INC.                                               

     1 FILE RPTOUT EXTENDED HTML                                                                                        

     2 FILE PERSNL F(150)                                                                                                

     3    REGION     1 1 N                                                                                              

     4    NAME-LAST 17 8 A                                                                                              

     5    GROSS     94 4 P 2                                                                                            

     6 *                                                                                                                

     7 JOB INPUT PERSNL                                                                                                 

...cut...

OPTIONS FOR THIS RUN - ABEXIT SNAP  DEBUG (STATE FLDCHK NOXREF)  LIST (PARM FILE)  PRESIZE   512                        

SORT (DEVICE SYSDA  ALTSEQ (YES EZTPAQTS) MSG DEFAULT  MEMORY MAX   WORK   3)  VFM (   64)                              

12/23/15  4.58.53                             EASYTRIEVE PLUS 11.6-C  SP0                                      PAGE    2

                                       CA-Easytrieve EMEA GUERA01 CM64 20150413                                         

PROGRAMS AND ALL SUPPORTING MATERIALS COPYRIGHT (C) 1982, 2010 BY CA, INC.                                              

FILE STATISTICS - EASYTRIEVE PLUS 11.6-C  SP0-12/23/15- 4.58-JSN00007                                                   

RPTOUT               72   OUTPUT        SAM  VAR UNBLK         ASA    20600    20604                                    

PERSNL               48    INPUT        SAM  FIX   BLK                  150     1800                                    

EZTR001              48    INPUT        VFM  FIX   BLK                   13      N/A                                    

...

 

The output file -  here you will see the title as defined above 

 

BROWSE    EUADG.EZT.HTML.RPTOUT                                                                           Line 00000000 Col 001 133

Command ===>                                                                                                       Scroll ===> CSR

*********************************************************** Top of Data *************************************************************

<HTML><HEAD><TITLE>CA EZT 11.6-C HTML REPORT 20151223</TITLE></HEAD><BODY><PRE>                                                      

<C>EASYTRIEVE HTML REPORT                                                                                                           

<C>(ABOUT THE PERSONNEL FILE)</C>                                                                                                    

<C>  </C>                                                                                                                           

<C>BRANCH    </C><B>  NAME</B><C>   </C><B>       PAY</B>                                                                            

<C>   1      </C><B>NAGLE   </B><C>   </C><U>      554.40 </U>                                                                      

<C>          </C><B>TALL    </B><C>   </C><U>      492.26 </U>                                                                       

...

 

 

Browsing the file via Browser

 


...

 

 

Additional Information:

 

If you change to NEWFUNC Y one day, then please review the 11.6 User Guide for further instructions on how to use extended reporting.

Please don't hesitate to open a CA support case if you require further assistance.