How do we temporarily override the Date Format in CA Earl Reports
Article ID: 11322
Updated On:
Products
Issue/Introduction
How do we temporarily override the Date Format in CA Earl Reports
Environment
Component:
Resolution
The CA Earl report title date format is controlled by the DATE= option in the EARLOPT module, EARLGEN macro. The default is DATE=DDMMYY which results in dd/mm/yy in the report title. This article shows how to modify the date format for a single Earl execution.
The EARLOPT DATE= options are:
| DDMMYY Day first: | "dd/mm/yy" ex: 29/02/08 |
| DDMONYY Day first and the month name abbreviated: | "dd mon yy" ex: 29 FEB 08 |
| MMDDYY Month first: | "mm/dd/yy" ex: 02/29/08 |
| MONDDYY Month name abbreviation first then day: | "mon dd yy" ex: FEB 02 08 |
Here is sample JCL for you to generate EARLOPT with DATE=MMDDYY.
This will create a temporary library for use in the EARL step that follows.
* NOTE: Your CA Common Services PPOPTION member EARLOPT normally contains the EARLGEN defaults using to build your EARLOPT module and may include other customizations for your installation. Aside from the DATE= parameter, you should modify this example EARLGEN parameters to conform to your installation's specifications.
//ASMA90 EXEC PGM=ASMA90,PARM=(OBJECT,NODECK)
//SYSLIB DD DISP=SHR,DSN=your.CA.Common.Services.CAIMAC
//SYSUT1 DD DSN=&SYSUT1,SPACE=(1024,(120,120),,,ROUND),
// UNIT=SYSDA,DCB=BUFNO=1
//SYSPUNCH DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=&OBJ,DISP=(NEW,PASS),UNIT=SYSDA,
// SPACE=(3040,(40,40),,,ROUND),
// DCB=(BLKSIZE=3040,LRECL=80,RECFM=FBS,BUFNO=1)
//SYSIN DD *
EARLGEN BANNER=NO, NO BANNER HEADING REQUIRED X
CASE=MIXED, PRINT BANNER HEADING IN MIXED CASE X
COMPAT=NO, NO RELEASE 2.4 COMPATABILITY REQUIRED X
CPAGE=60, COMPILER LIST LENGTH 60 X
DATE=MMDDYY, DATE FORMAT DDMMYY X
DB=NONE, DATA BASE SUPPORT NOT REQUIRED X
DECEDIT=0, DECIMAL EDIT WITH . X
DISK=3390, DISK TYPE FOR WORK FILES X
LANG=0, LANGUAGE :- ENGLISH X
LIBRARY=YES, LIBRARY SUPPORT REQUIRED X
MESSAGE=YES, PRINT CA-EARL RUNTIME MESSAGES X
OUTPUT=YES, OUTPUT OF VSAM FILES ALLOWED X
PAGE=60, PAGE LENGTH 60 X
PRINTER=132, PRINTER WIDTH 132 X
SUPPRES=NO, SUPPRESS EMPTY REPORT (YES OR NO) X
SCAN=72, COMPILER SCAN WIDTH 72 X
SORT=NOSRAM, SORT WITHOUT CA-SRAM (USING SYSTEM SORT) X
UPDATE=YES UPDATE OF VSAM FILES ALLOWED
END
/*
//IEWL EXEC PGM=IEWL,COND=(0,NE),
// PARM='LIST,LET,MAP,XREF,NORENT,NCAL,SIZE=(264K,64K)'
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,10)),DISP=NEW
//SYSLMOD DD DISP=(NEW,PASS),DSN=&&EARLOPT,
// UNIT=SYSDA,SPACE=(TRK,(1,1,10))
//EARLOPT DD DSN=&OBJ,DISP=(OLD,DELETE)
//SYSLIN DD *
INCLUDE EARLOPT
NAME EARLOPT(R)
/*
//EARL EXEC PGM=EARL
//STEPLIB DD DISP=SHR,DSN=&&EARLOPT
// DD DISP=SHR,DSN=your.CA.Common.Services.CAILIB
//SYSPRINT DD SYSOUT=*
//SYSEARL DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//WORK1 DD UNIT=DISK,SPACE=(CYL,(1,1)) SRAM
//SYSUT1 DD UNIT=DISK,SPACE=(CYL,(1,1)) |
//SYSUT2 DD UNIT=DISK,SPACE=(CYL,(1,1)) |
//SYSUT3 DD UNIT=DISK,SPACE=(CYL,(1,1)) | COMPILER WORKFILES
//SYSUT4 DD UNIT=DISK,SPACE=(CYL,(9,1)) |
//SYSUT5 DD UNIT=DISK,SPACE=(CYL,(9,1)) |
//SYSUT6 DD UNIT=DISK,SPACE=(CYL,(9,1)) |
//EARLOBJ DD UNIT=DISK,SPACE=(CYL,(9,1)) |
//SYSIN DD *
! earl request goes here
/*
Feedback
