How to use HTML reporting when running CA Easytrieve 11.6 in compatibility mode (NEWFUNC N)
Article ID: 35832
Updated On:
Products
Issue/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.
...
Environment
Component:
Resolution
This is a complete example how to prepare and use an extended HTML report with CA Easytrieve 11.6-C (NEWFUNC N).
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)
/*
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
*
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 USER01 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 USER01 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 ****.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 Broadcom support case if you require further assistance.
Attachments
Feedback
