Formatting CA Roscoe SMF Records with CA Earl to produce a Report

Products

• Roscoe

Issue/Introduction

Formatting CA Roscoe SMF records with CA Earl to produce a report

 

 

Environment

Release:
Component: ROSCOE and Earl

Resolution

Step 1: Dump the SMF files.

Modify the following JCL below to dump your SMF files. Be sure to change the SMF number 
to correspond to the SMF number that you use for Roscoe records.

//JOBCARD JOB  
//EXEC PGM=IFASMFDP  
//SYSPRINT DD SYSOUT=*  
//INDD1  DD  DSN=SYS1.MAN1,DISP=SHR  
//INDD2  DD  DSN=SYS1.MAN2,DISP=SHR  
//INDD3  DD  DSN=SYS1.MAN3,DISP=SHR  
//OUTDD  DD  DISP=(NEW,CATLG),DSN=ROSCOE.SMF.ACCT,  
//  UNIT=3390,VOL=SER=volser,SPACE=(CYL,(3,3),RLSE),  
//  DCB=(RECFM=VBS,LRECL=32760)  
//SYSIN   DD *  
INDD(INDD1,OPTIONS(ALL))       
INDD(INDD2,OPTIONS(ALL))       
INDD(INDD3,OPTIONS(ALL))       
OUTDD(OUTDD,TYPE(nnn))  
/*

Step 2: Sort the SMF file created in Step 1 above.

Modify the SORT JCL below to delete unwanted records (SMF header & trailer records).

//JOBCARD JOB   
//STEP1    EXEC PGM=SORT  
//SYSPRINT DD  SYSOUT=*  
//SYSOUT   DD   SYSOUT=*  
//SORTIN   DD DSN=ROSCOE.SMF.ACCT,DISP=SHR  
//SORTOUT  DD  DSN=ROSCOE.SORTO,DISP=(,CATLG,DELETE),  
//             SPACE=(TRK,(50,50),RLSE),  
//             UNIT=3390,VOL=SER=WORK02,  
//             DCB=(RECFM=VB,LRECL=1020,BLKSIZE=1024)  
//SYSIN    DD *   
OPTION COPY,RUF=BYPASS  
MERGE FIELDS=COPY  
INCLUDE COND=(6,1,BI,EQ,X'F0')  
/*

Step 3: Execute EARL on the output created from the Step 2 SORTOUT above.

Modify the ROSCOE EARL JCL shown below to create your EARL reports.

//JOBCARD JOB   
//EARL     EXEC PGM=EARL,REGION=4M  
//STEPLIB  DD  DSN=ROSCOE.CAILIB,DISP=SHR  
//         DD  DSN=ROSCOE.RO60LIB,DISP=SHR  
//EARLLIB  DD  DSN=ROSCOE.SAMPJCL,DISP=SHR  
//EARLOBJ  DD  UNIT=DISK,SPACE=(CYL,(1,1))  
//ROSFILE  DD  DSN=ROSCOE.SORTO,DISP=SHR  
//SORTLIB  DD  DSN=SYS1.SORTLIB,DISP=SHR  
//SORTIN   DD  UNIT=DISK,SPACE=(CYL,(1,1))  
//SORTOUT  DD  UNIT=DISK,SPACE=(CYL,(1,1))  
//SYSUT1   DD  UNIT=DISK,SPACE=(CYL,(1,1))  
//SYSUT2   DD  UNIT=DISK,SPACE=(CYL,(1,1))  
//SYSUT3   DD  UNIT=DISK,SPACE=(CYL,(1,1))  
//SYSUT4   DD  UNIT=DISK,SPACE=(CYL,(1,1))  
//SYSUT5   DD  UNIT=DISK,SPACE=(CYL,(1,1))  
//SYSUT6   DD  UNIT=DISK,SPACE=(CYL,(1,1))  
//SORTWK01 DD  UNIT=DISK,SPACE=(CYL,(1,1))  
//SORTWK02 DD  UNIT=DISK,SPACE=(CYL,(1,1))  
//SORTWK03 DD  UNIT=DISK,SPACE=(CYL,(1,1))  
//WORK1    DD  UNIT=DISK,SPACE=(CYL,(1,1))  
//SYSUDUMP DD  SYSOUT=*  
//SYSPRINT DD  SYSOUT=*  
//SYSOUT   DD  SYSOUT=*  
//SYSIN    DD  DISP=SHR,DSN=ROSCOE.SAMPJCL(EARLRTM)