PAR CSV report sample JCL
Sample JCL for PRSICSV for PAR CSV report using the PRSICSV program
//JOBNAME JOB .................
//*******************************************************************
//* MVIMS/TRANSACTION ACCOUNTING RECORD CSV REPORT *
//*******************************************************************
//CSVRPTCR EXEC PGM=PRSICSV,
// PARM='PAR,BOTH' <- DFLT/TSEC/BOTH
//STEPLIB DD DSN=IMF.LOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//RESUTIL DD DSN=IRUF.DAYS(+1),DISP=SHR
//SELTRACE DD SYSOUT=*,DCB=BLKSIZE=133
//CSVFILE DD DSN=CSVFILE.TXT,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=VB,LRECL=12288,BLKSIZE=36868),
// UNIT=SYSDA,SPACE=(CYL,(50,100))
//FLDSELCT DD *
************************************************************************
* NOTES : *
* FOR FIELD TO BE PART OF REPORT CHANGE THE FLAG IN COLUMN 23 TO Y. *
* YOU CAN CHANGE COLUMN HEADER AS PER REQUIREMENT. *
* PLEASE DO NOT MODIFY FLAGS IN COLUMN 71 AND 72 ALSO PLEASE MAINTAIN *
* ITS COLUMN POSITION AS IT IS. *
* *
* YOU CAN FILTER RECORDS BASED ON FIELD VALUE. TO FILTER PLEASE *
* USE FILTER VALUE WITHIN "". IN BELOW EXAMPLE ONLY PAR RECORDS WITH *
* PROG NAME "DFSIVP1" WILL BE REPORTED. *
* *
*---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
*PAPSBNAM DS CL8 Y N "DFSIVP1" PSB NAME CY
* *
* YOU CAN ALSO EXCLUDE PAR RECORDS FROM REPORT BASED ON FILTER VALUE. *
* USE ! BEFORE FILTER VALUE. *
* IN BELOW EXAMPLE PAR RECORDS WITH PROG NAME "DFSIVP1" WILL NOT BE *
* REPORTED. *
*---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
*PAPSBNAM DS CL8 Y N "!DFSIVP1" PSB NAME *****CY
* *
* FILTER CAN BE USED ONLY ON FIELDS THAT HAVE FLAG "Y" IN COLUMN 72 *
* FILTERS ON MULTIPLE FIELDS WILL WORK AS LOGICAL AND FILTER *
* *
************************************************************************
* * * *FLAG* * COLUMN HEADER * * *
* * * *N/Y * * * * *
************************************************************************
PARECLEN DS H N N RECORD LENGTH (RDW) BN
DS H N N XN
PARECID DS C N N RECORD IDENTIFIER CY
PARSCAFL DS CL1 N N KEY FLAGS CY
PARRDVER DS CL2 N N PAR RECORD VERSION XN
DS CL18 N N RESERVED XN
PAPSBNAM DS CL8 Y N PSB NAME CY
PAAPPC DS C N N APPC FLAG CY
PASYSID DS C N N COMPUTER SYSTEM IDENTIFIER CY
PARIMSLV DS CL4 N N PAR IMS LEVEL NUMBER CY
PANBA DS H N N FAST PATH NBA BN
PAOBA DS H N N FAST PATH OBA BN
PABUHWM DS H N N FAST PATH BUHWM BN
DS CL2 N N RESERVED XN
PAREGID DS CL8 Y N MESSAGE REGION IDENTIFIER CY
PACLASS DS CL3 N N CLASS CY
PARECTYP DS C N N RECORD TYPE CY
PAPSBTYP DS C N N PSB TYPE FIELD CY
PAPSBTY2 DS C N N ADDITIONAL PROGRAM TYPES CY
PAPSTNO DS CL2 N N PST NUMBER BN
PADATE DS F N N PSB START DATE BN
PASTRTM DS F N N PSB START TIME WN
DS F N N RESERVED XN
DS F N N RESERVED XN
DS F N N RESERVED XN
DS F N N RESERVED XN
PAENDDT DS F N N PSB END DATE BN
PAENDTM DS F N N PSB END TIME WN
PAAGN DS CL8 N N AGN CY
DS CL4 N N RESERVED XN
PARWLMSC DS CL8 N N WLM SERVICE CLASS OF PGM'S CY
PASUBID DS CL4 N N RESERVED XN
PAASID DS XL2 N N ADDRESS SAPCE ID BN
PAPG DS XL2 N N PERFORMANCE GROUP NUMBER BN
PARIMSID DS CL4 N N IMS ID CY
PARSMFID DS CL4 N N SMF ID CY
PAFLAG1 DS X N N LSO FLAG CY
PARESSID DS CL4 N N DB2 SUBSYSTEM ID CY
DS CL4 N N RESERVED XN
PAOSCODE DS CL3 N N OS CODE CY
PASUSERA DS CL20 N N USER AREA CY
PANBPRGS DS F N N NUMBER OF PROGRAMS BN
PANBSABN DS H N N SYSTEM ABNORMAL TERMINATIONS BN
PANBUABN DS H N N USER ABNORMAL TERMINATIONS BN
PAELAPSE DS F N N ELAPSED TIME WN
PAPSCHTM DS 2F N N PROGRAM SCHEDULE CPU TIME TN
PAMOVHDT DS 2F N N MSG REGION OVERHEAD CPU TIME TN
PAAKCORE DS 2F N N ALLOCATED KCORE MINUTES TN
PAUKCORE DS 2F N N USED KCORE MINUTES TN
PAMSGGU DS F N N NBR OF MESSAGE GET UNIQUES BN
PAMSGGN DS F N N NBR OF MESSAGE GET NEXTS BN
PAMSGINS DS F N N NBR OF MESSAGE INSERTS BN
PAMSGPUR DS F N N NBR OF MESSAGE PURGE BN
PAMSGOTH DS F N N NBR OF MESSAGE OTHER BN
PARESPGM DS F N N NBR OF PGM SCH THAT ACCESSED BN
DS F N N RESERVED XN
PACRALOC DS H N N STORAGE ALLOCATED BN
PACRUSED DS H N N STORAGE USED BN
PAPPOLSZ DS F N N BUFFER POOL REQUIREMENT BN
PADPOLSZ DS F N N DMB POOL REQUIREMENT BN
DS F N N RESERVED XN
DS F N N RESERVED XN
DS F N N RESERVED XN
DS H N N RESERVED XN
DS C N N RESERVED XN
PARETID DS C N N COMPLETION IDENTIFIER CY
PARETCOD DS CL4 N N COMPLETION NUMBER CY
PACPSTRD DS F N N CONTROL PROGRAM START DATE BN
PACPSTRT DS F N N CONTROL PROGRAM START TIME WN
PACPENDD DS F N N CONTROL PROGRAM END DATE BN
PACPENDT DS F N N CONTROL PROGRAM END TIME WN
PACPCPUT DS 2F N N CONTROL PROGRAM CPU TIME TN
PACOCPU DS 2F N N CTL REGION OVHD CPU TIME TN
PASAPX DS C N N SAP PGM USING SAPEXIT? CY
PARDONCP DS D N N TOTAL CPU RUNING ON CP TN
PARDZPCP DS D N N CP ZIIP/AAP ELIG RUNING ON CP TN
PARPSBDL DS H N N SIZE OF PSB IN DLISAS PRIVATE BN
PARPSBSA DS H N N SIZE OF PSB IN CSA BUFFER POOL BN
DS CL13 N N RESERVED XN
DS XL124 N N PADDING FOR BATCH REPORTS XN
/* END OF DATA
//*******************************************************************
//** CREATE SMTP HEADER AND TRAILER FILE FOR EMAIL PROCESSING **
//*******************************************************************
//FILECRT1 EXEC PGM=SORT,COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*-----------------------------------------------------------------*
//* HEADER FILE: SEND EMAIL TO MULTIPLE EMAIL ADDRESSES *
//*-----------------------------------------------------------------*
//SORTIN DD *
HELO SERVER.NAME
MAIL FROM: <EMAILID>
RCPT TO: <EMAILID>
DATA
SUBJECT: EMAIL SUBJECTLINE
MIME-VERSION: 1.0
CONTENT-TYPE: TEXT/PLAIN
CONTENT-DISPOSITION: ATTACHMENT;
FILENAME=ATTACHMENT_NAME.CSV
/*
//OUT1 DD DSN=&MAILHED,DISP=(,PASS),
// UNIT=,SPACE=(CYL,(2,2),RLSE),
// DCB=(RECFM=VB,LRECL=12288,BLKSIZE=12292)
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=OUT1,FTOV,VLTRIM=C' '
/*
//FILECRT2 EXEC PGM=SORT,COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*----------------------------------------------------------------**
//* TRAILER FILE **
//*----------------------------------------------------------------**
//SORTIN DD *
.
QUIT
/*
//OUT2 DD DSN=&MAILTAL,DISP=(,PASS),
// UNIT=,SPACE=(CYL,(2,2),RLSE),
// DCB=(RECFM=VB,LRECL=12288,BLKSIZE=12292)
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=OUT2,FTOV,VLTRIM=C' '
/*
//*******************************************************************
//* SEND CSV FILE AS EMAIL ATTACHMENT TO MAIL BOX *
//*******************************************************************
//EMAILSND EXEC PGM=IEBGENER,COND=(0,LT)
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=(B,DC$SMTP)
//SYSUT1 DD DISP=OLD,DSN=&MAILHED
// DD DISP=SHR,DSN=CSVFILE.TXT
// DD DISP=OLD,DSN=&MAILTAL
//*******************************************************************
//* MVIMS/TRANSACTION ACCOUNTING RECORD CSV REPORT *
//*******************************************************************
//CSVRPTCR EXEC PGM=PRSICSV,
// PARM='PAR,BOTH' <- DFLT/TSEC/BOTH
//STEPLIB DD DSN=IMF.LOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//RESUTIL DD DSN=IRUF.DAYS(+1),DISP=SHR
//SELTRACE DD SYSOUT=*,DCB=BLKSIZE=133
//CSVFILE DD DSN=CSVFILE.TXT,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=VB,LRECL=12288,BLKSIZE=36868),
// UNIT=SYSDA,SPACE=(CYL,(50,100))
//FLDSELCT DD *
************************************************************************
* NOTES : *
* FOR FIELD TO BE PART OF REPORT CHANGE THE FLAG IN COLUMN 23 TO Y. *
* YOU CAN CHANGE COLUMN HEADER AS PER REQUIREMENT. *
* PLEASE DO NOT MODIFY FLAGS IN COLUMN 71 AND 72 ALSO PLEASE MAINTAIN *
* ITS COLUMN POSITION AS IT IS. *
* *
* YOU CAN FILTER RECORDS BASED ON FIELD VALUE. TO FILTER PLEASE *
* USE FILTER VALUE WITHIN "". IN BELOW EXAMPLE ONLY PAR RECORDS WITH *
* PROG NAME "DFSIVP1" WILL BE REPORTED. *
* *
*---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
*PAPSBNAM DS CL8 Y N "DFSIVP1" PSB NAME CY
* *
* YOU CAN ALSO EXCLUDE PAR RECORDS FROM REPORT BASED ON FILTER VALUE. *
* USE ! BEFORE FILTER VALUE. *
* IN BELOW EXAMPLE PAR RECORDS WITH PROG NAME "DFSIVP1" WILL NOT BE *
* REPORTED. *
*---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
*PAPSBNAM DS CL8 Y N "!DFSIVP1" PSB NAME *****CY
* *
* FILTER CAN BE USED ONLY ON FIELDS THAT HAVE FLAG "Y" IN COLUMN 72 *
* FILTERS ON MULTIPLE FIELDS WILL WORK AS LOGICAL AND FILTER *
* *
************************************************************************
* * * *FLAG* * COLUMN HEADER * * *
* * * *N/Y * * * * *
************************************************************************
PARECLEN DS H N N RECORD LENGTH (RDW) BN
DS H N N XN
PARECID DS C N N RECORD IDENTIFIER CY
PARSCAFL DS CL1 N N KEY FLAGS CY
PARRDVER DS CL2 N N PAR RECORD VERSION XN
DS CL18 N N RESERVED XN
PAPSBNAM DS CL8 Y N PSB NAME CY
PAAPPC DS C N N APPC FLAG CY
PASYSID DS C N N COMPUTER SYSTEM IDENTIFIER CY
PARIMSLV DS CL4 N N PAR IMS LEVEL NUMBER CY
PANBA DS H N N FAST PATH NBA BN
PAOBA DS H N N FAST PATH OBA BN
PABUHWM DS H N N FAST PATH BUHWM BN
DS CL2 N N RESERVED XN
PAREGID DS CL8 Y N MESSAGE REGION IDENTIFIER CY
PACLASS DS CL3 N N CLASS CY
PARECTYP DS C N N RECORD TYPE CY
PAPSBTYP DS C N N PSB TYPE FIELD CY
PAPSBTY2 DS C N N ADDITIONAL PROGRAM TYPES CY
PAPSTNO DS CL2 N N PST NUMBER BN
PADATE DS F N N PSB START DATE BN
PASTRTM DS F N N PSB START TIME WN
DS F N N RESERVED XN
DS F N N RESERVED XN
DS F N N RESERVED XN
DS F N N RESERVED XN
PAENDDT DS F N N PSB END DATE BN
PAENDTM DS F N N PSB END TIME WN
PAAGN DS CL8 N N AGN CY
DS CL4 N N RESERVED XN
PARWLMSC DS CL8 N N WLM SERVICE CLASS OF PGM'S CY
PASUBID DS CL4 N N RESERVED XN
PAASID DS XL2 N N ADDRESS SAPCE ID BN
PAPG DS XL2 N N PERFORMANCE GROUP NUMBER BN
PARIMSID DS CL4 N N IMS ID CY
PARSMFID DS CL4 N N SMF ID CY
PAFLAG1 DS X N N LSO FLAG CY
PARESSID DS CL4 N N DB2 SUBSYSTEM ID CY
DS CL4 N N RESERVED XN
PAOSCODE DS CL3 N N OS CODE CY
PASUSERA DS CL20 N N USER AREA CY
PANBPRGS DS F N N NUMBER OF PROGRAMS BN
PANBSABN DS H N N SYSTEM ABNORMAL TERMINATIONS BN
PANBUABN DS H N N USER ABNORMAL TERMINATIONS BN
PAELAPSE DS F N N ELAPSED TIME WN
PAPSCHTM DS 2F N N PROGRAM SCHEDULE CPU TIME TN
PAMOVHDT DS 2F N N MSG REGION OVERHEAD CPU TIME TN
PAAKCORE DS 2F N N ALLOCATED KCORE MINUTES TN
PAUKCORE DS 2F N N USED KCORE MINUTES TN
PAMSGGU DS F N N NBR OF MESSAGE GET UNIQUES BN
PAMSGGN DS F N N NBR OF MESSAGE GET NEXTS BN
PAMSGINS DS F N N NBR OF MESSAGE INSERTS BN
PAMSGPUR DS F N N NBR OF MESSAGE PURGE BN
PAMSGOTH DS F N N NBR OF MESSAGE OTHER BN
PARESPGM DS F N N NBR OF PGM SCH THAT ACCESSED BN
DS F N N RESERVED XN
PACRALOC DS H N N STORAGE ALLOCATED BN
PACRUSED DS H N N STORAGE USED BN
PAPPOLSZ DS F N N BUFFER POOL REQUIREMENT BN
PADPOLSZ DS F N N DMB POOL REQUIREMENT BN
DS F N N RESERVED XN
DS F N N RESERVED XN
DS F N N RESERVED XN
DS H N N RESERVED XN
DS C N N RESERVED XN
PARETID DS C N N COMPLETION IDENTIFIER CY
PARETCOD DS CL4 N N COMPLETION NUMBER CY
PACPSTRD DS F N N CONTROL PROGRAM START DATE BN
PACPSTRT DS F N N CONTROL PROGRAM START TIME WN
PACPENDD DS F N N CONTROL PROGRAM END DATE BN
PACPENDT DS F N N CONTROL PROGRAM END TIME WN
PACPCPUT DS 2F N N CONTROL PROGRAM CPU TIME TN
PACOCPU DS 2F N N CTL REGION OVHD CPU TIME TN
PASAPX DS C N N SAP PGM USING SAPEXIT? CY
PARDONCP DS D N N TOTAL CPU RUNING ON CP TN
PARDZPCP DS D N N CP ZIIP/AAP ELIG RUNING ON CP TN
PARPSBDL DS H N N SIZE OF PSB IN DLISAS PRIVATE BN
PARPSBSA DS H N N SIZE OF PSB IN CSA BUFFER POOL BN
DS CL13 N N RESERVED XN
DS XL124 N N PADDING FOR BATCH REPORTS XN
/* END OF DATA
//*******************************************************************
//** CREATE SMTP HEADER AND TRAILER FILE FOR EMAIL PROCESSING **
//*******************************************************************
//FILECRT1 EXEC PGM=SORT,COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*-----------------------------------------------------------------*
//* HEADER FILE: SEND EMAIL TO MULTIPLE EMAIL ADDRESSES *
//*-----------------------------------------------------------------*
//SORTIN DD *
HELO SERVER.NAME
MAIL FROM: <EMAILID>
RCPT TO: <EMAILID>
DATA
SUBJECT: EMAIL SUBJECTLINE
MIME-VERSION: 1.0
CONTENT-TYPE: TEXT/PLAIN
CONTENT-DISPOSITION: ATTACHMENT;
FILENAME=ATTACHMENT_NAME.CSV
/*
//OUT1 DD DSN=&MAILHED,DISP=(,PASS),
// UNIT=,SPACE=(CYL,(2,2),RLSE),
// DCB=(RECFM=VB,LRECL=12288,BLKSIZE=12292)
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=OUT1,FTOV,VLTRIM=C' '
/*
//FILECRT2 EXEC PGM=SORT,COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*----------------------------------------------------------------**
//* TRAILER FILE **
//*----------------------------------------------------------------**
//SORTIN DD *
.
QUIT
/*
//OUT2 DD DSN=&MAILTAL,DISP=(,PASS),
// UNIT=,SPACE=(CYL,(2,2),RLSE),
// DCB=(RECFM=VB,LRECL=12288,BLKSIZE=12292)
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=OUT2,FTOV,VLTRIM=C' '
/*
//*******************************************************************
//* SEND CSV FILE AS EMAIL ATTACHMENT TO MAIL BOX *
//*******************************************************************
//EMAILSND EXEC PGM=IEBGENER,COND=(0,LT)
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=(B,DC$SMTP)
//SYSUT1 DD DISP=OLD,DSN=&MAILHED
// DD DISP=SHR,DSN=CSVFILE.TXT
// DD DISP=OLD,DSN=&MAILTAL
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*