LAR CSV report sample JCL

//JOBNAME JOB .................  
//*******************************************************************  
//*                MVIMS/TRANSACTION ACCOUNTING RECORD CSV REPORT   *  
//*******************************************************************  
//CSVRPTCR EXEC PGM=PRSICSV,                                           
// PARM='LAR,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 LAR RECORDS WITH   *
* LTERM NAME "LTERM1" WILL BE REPORTED.                                *
*                                                                      *
*---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
*TLLTERM    DS  CL8   Y    N  "LTERM1" LOGIAL TERMINAL NAME           CY
*                                                                      *
* YOU CAN ALSO EXCLUDE LAR RECORDS FROM REPORT BASED ON FILTER VALUE.  *
* USE ! BEFORE FILTER VALUE.                                           *
* IN BELOW EXAMPLE LAR RECORDS WITH LTERM NAME "LTERM1" WILL NOT BE    *
* REPORTED.                                                            *
*---+----1----+----2----+----3----+----4----+----5----+----6----+----7--                                                       
*TLLTERM    DS  CL8   Y    N  "!LTERM1" LOGIAL TERMINAL 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 *  *                                   *   * *
************************************************************************
TLRECLEN    DS  H     N    N        RECORD LENGTH (RDW)               BN
            DS  H     N    N                                          XN
TLRECID     DS  C     N    N        RECORD IDENTIFICATION             CN
            DS  CL1   N    N        RESERVED                          XN
TLRECVER    DS  CL2   N    N        TERMINA  RECORD VERSION           CN
TLCUST      DS  CL18  N    N        CUSTOMER IDENTIFICATION           CN
TLHOGH      DS  CL9   N    N        HIGH VALUES FOR SORT              CN
TLSYSID     DS  C     N    N        COMPUTER SYSTEM IDENTIFIER        CN
TLIMSLVL    DS  CL4   N    N        TERMINA IMS LEVEL                 CN
TLLTERM     DS  CL8   Y    N        LOGIAL TERMINAL NAME              CY
            DS  CL11  N    N        RESERVED                          XN
TLRECTYP    DS  C     N    N        RECORD TYPE                       CN
TLTERMT     DS  C     N    N        TERMINAL TYPE                     CN
TLSKPFLG    DS  C     N    N        TERMINAL SKIP FLAG                CN
            DS  CL2   N    N        RESERVED                          XN
TLLDATE     DS  F     Y    N        TERMINAL LOGON DATE (JULIAN)      BN
TLLTIME     DS  F     Y    N        TERMINAL LOGON TIME               WN
TLRDATE1    DS  F     N    N        DATE FROM LOG TAPE                BN
            DS  F     N    N        RESERVED                          XN
TLRDATE2    DS  F     N    N        DATE FROM LOG TAPE                BN
            DS  F     N    N        RESERVED                          XN
TLLEDATE    DS  F     N    N        TERMINAL LOGOFF DATE (JULIAN)     BN
TLLETIME    DS  F     N    N        TERMINAL LOGOFF TIME (HUNDRED)    WN
TLUSERID    DS  CL8   Y    N        USER ID                           CN
            DS  CL37  N    N        RESERVED                          XN
TLOSCODE    DS  CL3   N    N        OS CODE                           CN
TLUSERAR    DS  CL20  N    N        USER AREA                         CN
TLNOSES     DS  F     N    N        NUMBER OF TERMINAL SESSIONS       BN
TLLOGTM     DS  F     N    N        TERMINAL CONNECT TIME             WN
TLNOTRNS    DS  F     N    N        NUMBER OF TRANSACTIONS SUB        BN
TLCHARIN    DS  2F    N    N        COUNT OF CHARACTERS IN            BN
TLCHAROT    DS  2F    N    N        COUNT OF CHARACTERS OUT           BN
TLCHIOTH    DS  2F    N    N        COUNT OF OTHER CHARACTERS IN      BN
TLCHOOTH    DS  2F    N    N        COUNT OF OTHER CHARACTERS OUT     BN
TLMSGGU     DS  F     Y    N        NUMBER OF MESSAGE GET UNIQUES     BN
TLMSGGN     DS  F     N    N        NUMBER OF MESSAGE GET NEXTS       BN
TLMSGIN     DS  F     N    N        NUMBER OF MESSAGE INSERTS         BN
TLMSGPUR    DS  F     N    N        NUMBER OF MESSAGE PURGE           BN
TLMSGOTH    DS  F     N    N        NUMBER OF MESSAGE OTHER           BN
TLTOTRES    DS  F     N    N        TOTAL TRANS RESPONSE TIME         WN
TLTTRRSP    DS  F     N    Y        ACCUMULATED TAR-R-RESPOMSE        WN
TLTTRMSG    DS  F     N    Y        ACCUMULATED TAR-R-MSGSENT-CT      WN
            DS  CL92  N    N        UNUSED                            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