Sample JCL for PAR CSV report
The following figure provides sample JCL for running a PAR CSV report using the PRSICSV program. Before using the JCL, you should customize it by selecting the job control cards you want from the FLDSELCT DD and specifying any filter you want applied to the records.
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
Related topics
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*