How do we temporarily override the Date Format in CA Earl Reports

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

How do we temporarily override the Date Format in CA Earl Reports

Answer:

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                                                  
/*