Sample JCL for TAR JSON report

//JOBNAME JOB ................. 
//*******************************************************************
//*                MVIMS/TRANSACTION ACCOUNTING RECORD CSV REPORT   *
//*******************************************************************
//CSVRPTCR EXEC PGM=PRSICSV,                                          
// PARM='TAR,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 ALSO FILTER RECORDS BASED ON FIELD VALUE. TO FILTER PLEASE   *
* USE FILTER VALUE WITHIN "". IN BELOW EXAMPLE ONLY TAR RECORDS WITH   *
* TRAN NAME "IVTNO" WILL BE REPORTED.                                  *
*                                                                      *
*---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
*TATRAN    DS  CL8    Y    N    "IVTNO"    TRANSACTION NAME      *    CY
*                                                                      *
* YOU CAN ALSO EXCLUDE TAR RECORDS FROM REPORT BASED ON FILTER VALUE.  *
* USE ! BEFORE FILTER VALUE.                                           *
* IN BELOW EXAMPLE TAR RECORDS WITH TRAN NAME "IVTNO" WILL NOT BE      *
* REPORTED.                                                            *
*---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
*TATRAN    DS  CL8    Y    N    "!IVTNO"    TRANSACTION 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 *  *                                   *   * *
************************************************************************
TARECLEN   DS  H      N    N        RECORD DESCRIPTOR (RDW)      *    BN
           DS  H      N    N        RESERVED                     *    XN
TARECID    DS  C      N    N        LOG RECORD ID                *    CY
           DS  CL1    N    N        RESERVED                     *    XN
TARCDVER   DS  CL2    N    N        RECORD VERSION               *    CY
TACUST     DS  CL18   N    N        CUSTOMER ID                  *    CY
TATRAN     DS  CL8    Y    N        TRANSACTION CODE             *    CY
TAAPPC     DS  C      N    N        APPC/IMS FLAG                *    CY
TASYSID    DS  C      N    N        SYSTEM IDENTIFICATION        *    CY
TAIMSLEV   DS  CL4    N    N        CURRENT IMS LEVEL            *    CY
TAPSBNAM   DS  CL8    Y    N        PROGRAM NAME                 *    CY
TAREGID    DS  CL8    N    N        MESSAGE REGION ID            *    CY
TACLASS    DS  CL3    N    N        MESSAGE REGION INPUT CLASS   *    CY
TARECTYP   DS  C      N    N        RECORD TYPE                  *    CY
TATRANT    DS  C      N    N        TRANSACTION TYPE             *    CY
TARSPOPT   DS  CL1    N    N        RESPONSE OPTION CODE         *    CY
TADTRCAT   DS  H      N    N        DET TRANS CATEGORY -DETAIL   *    XN
TAARVDT    DS  F      N    N        TRAN ARRIVAL DATE            *    BN
TAARVTM    DS  F      N    N        TRAN ARRIVAL TIME            *    WN
TADATE     DS  F      N    N        TRAN START DATE              *    BN
TASTRTM    DS  F      N    N        TRAN START TIME              *    WN
TAENDDT    DS  F      N    N        TRAN STOP DATE               *    BN
TAENDTM    DS  F      N    N        TRAN STOP TIME               *    WN
TATRMDT    DS  F      N    N        TRAN TERMINATION DATE        *    BN
TATRMTM    DS  F      N    N        TRAN TERMINATION TIME        *    WN
TALGTRNM   DS  CL8    N    N        LOGICAL TERMINAL NAME        *    CY
TAUSERID   DS 8CL1    N    N        SECURITY USER ID             *    CY
TAAGN      DS  CL8    N    N        AGN                          *    CY
TAASID     DS  XL2    N    N        ADDRESS SPACE ID             *    BN
TAPG       DS  XL2    N    N        PERFORMANCE GROUP            *    CY
TARIMSID   DS  CL4    N    N        IMS SYSTEM ID                *    CY
TARSMFID   DS  CL4    N    N        SMF SYSTEM ID                *    CY
TARVTAM    DS  CL8    N    N        VTAM NODE NAME               *    CY
TARFLAG1   DS  CL1    N    N        LSO PROCESSING FLAG          *    CY
TAOSCODE   DS  CL3    N    N        OS CODE                      *    CY
TAUSER     DS  CL20   N    N        RESERVED FOR USER USE        *    CY
TATRNSN    DS  F      N    N        NUMBER OF TRANSACTIONS       *    BN
TAINQTM    DS  F      N    N        INPUT Q TIME                 *    WN
TAELAPSE   DS  F      N    N        ELAPSED TIME                 *    WN
TAMPROCP   DS  2F     N    N        MSG PROGRAM CPU TIME         *    TN
TAMDLICP   DS  2F     N    N        MSG DLI CPU TIME             *    TN
TAMBUFCP   DS  2F     N    N        MSG BUF HANDLER CPU TIME     *    TN
TAMOPNCP   DS  2F     N    N        MSG OPEN/CLOSE CPU TIME      *    TN
TACDLICP   DS  2F     N    N        CTL DLI CPU TIME             *    TN
TACBUFCP   DS  2F     N    N        CTL BUF HANDLER CPU TIME     *    TN
TACOPNCP   DS  2F     N    N        CTL OPEN/CLOSE CPU TIME      *    TN
TARUSER2   DS  F      N    N        ADDITIONAL USER AREA         *    CY
TATRNDB2   DS  F      N    N        NUM OF TRANS ACCESSED DB2    *    BN
TAAKCORE   DS  2F     N    N        ALLOCATED KCORE MINS         *    BN
TAUKCORE   DS  2F     N    N        USED KCORE MINS              *    BN
TACRALOC   DS  H      N    N        CORE ALLOCATED (K UNITS)     *    BN
TACRUSED   DS  H      N    N        CORE USED (K UNITS)          *    BN
TARESSID   DS  CL4    N    N        DB2 SUBSYSTEM ID             *    CY
TASPRC     DS  H      N    N        FAST PATH SYNC POINT R/C     *    BN
TABGQCT    DS  H      N    N        FAST PATH BALG Q COUNT       *    BN
TANBA      DS  H      N    N        FAST PATH NBA                *    BN
TAOBA      DS  H      N    N        FAST PATH OBA                *    BN
TABUSED    DS  H      N    N        FAST PATH BUFFERS USED       *    BN
TANCIC     DS  H      N    N        FAST PATH CI CONTENTIONS     *    BN
TANWFB     DS  H      N    N        FAST PATH BUFFER WAITS       *    BN
TARC       DS  CL8    N    N        FAST PATH ROUTING CODE       *    CY
TAFLAG     DS  CL1    N    N        FAST PATH FLAGS              *    CY
TAFLAG0    DS  CL1    N    N        COPIED FROM TRNFLAG0         *    CY
TASUBID    DS  CL4    N    N        SUBSYS ID FOR SYSEVENT       *    CY
TARSWCNT   DS  CL2    N    N        R-MSG SWITCH COUNT           *    BN
TARSENCT   DS  CL2    N    N        R-MSG SENT COUNT             *    BN
TARDEQCT   DS  CL2    N    N        R-MSG DEQUEUE COUNT          *    BN
TARPRGDT   DS  CL4    N    N        R-ORIGINAL DATE              *    BN
TARORGTM   DS  CL4    N    N        R-ORIGINAL TIME              *    WN
TARARVDT   DS  CL4    N    N        R-ARRIVAL DATE               *    BN
TARARVTM   DS  CL4    N    N        R-ARRIVAL TIME               *    WN
TARISRDT   DS  CL4    N    N        R-MSG INSERT DATE            *    BN
TARISRTM   DS  CL4    N    N        R-MSG INSERT TIME            *    WN
TARSNTDT   DS  CL4    N    N        R-MSG SENT DATE              *    BN
TARSNTTM   DS  CL4    N    N        R-MSG SENT TIME              *    WN
TARDEQDT   DS  CL4    N    N        R-MSG DEQUEUE DATE           *    BN
TARDEQTM   DS  CL4    N    N        R-MSG DEQUEUE TIME           *    WN
TALINE     DS  CL2    N    N        INPUT LINE NUMBER            *    BN
TAPTERM    DS  CL2    N    N        INPUT PTERM NUMBER           *    BN
TARINQ     DS  CL4    N    N        RESP OPTION INPUT QUEUE      *    SN
TAROUTQ    DS  CL4    N    N        RESP OPTION OUTPUT QUEUE     *    SN
TARDEQ     DS  CL4    N    N        RESP OPTINE DEQUEUE TIME     *    WN
TARRSP     DS  CL4    N    N        RESP OPTION RESPONSE TIME    *    WN
TARMSGLV   DS  CL2    N    N        RESP MSG SWITCH LEVEL        *    BN
TACSW      DS  X      N    N        ANC                          *    CY
TAMSFI2    DS  X      N    N        RE PSTMSFI2                  *    CY
TAPSTNO    DS  CL2    N    N        PST NUMBER                   *    BN
           DS  CL2    N    N        RESERVED FOR FUTURE USE      *    XN
TACRACHG   DS  CL4    N    N        CORE ALLOCATED CHARGE        *    BN
TACRUCHG   DS  CL4    N    N        CORE USED CHARGE             *    BN
TAMSPCHG   DS  CL4    N    N        MSG PRGRAM CPU CHARGE        *    BN
TAMSDCHG   DS  CL4    N    N        MSG DLI CPU CHARGE           *    BN
TAMSCCHG   DS  CL4    N    N        MSG CLI CPU CHARGE           *    BN
TACDCHG    DS  CL4    N    N        MINIMUN TRANSACTION CHARGE   *    BN
           DS  CL4    N    N        RESERVED FOR FUTURE USE      *    XN
TARESCHG   DS  CL4    N    N        RESOURCE CHARGE              *    BN
TAUNTCHG   DS  CL4    N    N        UNIT CHARGE                  *    BN
TAPROCHG   DS  CL4    N    N        PRORATE CHARGE               *    BN
TABILCHG   DS  CL4    N    N        BILLABLE CHARGE              *    BN
TAVARCHG   DS  CL4    N    N        VARIANCE CHARGE              *    BN
TAFLG1     DS  CL1    N    N        MSG SENT OVERFLOW FLAG       *    CY
TAOSENCT   DS  CL4    N    N        TARSENCT OVERFLOW            *    BN
TAFLG2     DS  CL1    N    N        MSG SENT OVERFLOW FLAG       *    CY
TAODEQCT   DS  CL4    N    N        TARDEQCT OVERFLOW            *    BN
TARESSCP   DS  2F     N    N        DB2 CPU TIME                 *    TN
TAESSCHG   DS  F      N    N        DB2 CPU CHARGE               *    BN
TASAPX     DS  C      N    N        SAP TRN USING SAPEXIT?       *    CY
TASQOIMS   DS  CL8    N    N        ORIG IMSID FOR SHRD          *    CY
TASQOSTC   DS  CL8    N    N        ORIG STCK VALUE FOR SHRD Q   *    RN
           DS  CL1    N    N        RESERVED FOR FUTURE USE      *    XN
TANOSEGS   DS  CL2    N    N        NUMBER ON SEGMENTS           *    BN
TASMQGPN   DS  CL8    N    N        SMQ GROUP NAME               *    CY
TAABNCOD   DS  CL4    N    N        TRAN ABEND CODE              *    XN
           DS  CL8    N    N        RESERVED FOR FUTURE USE      *    XN
TAWLMSC    DS  CL8    N    N   WLM SERVICE CLASS OF TRAN'S RGN   *    CY
           DS  F      N    N        UNUSED                       *    XN
TAXORGSW   DS  D      N    N        R-ORIGINAL MSGSW - STCK      *    RN
TAXORGAR   DS  D      N    N        R-ORIGINAL MSC  - STCK       *    RN
TAXMSCAR   DS  D      N    N        R-DESTINATION MSC - STCK     *    RN
TAXARVD1   DS  D      N    N        R-ARRIVAL FROM IMETRN        *    RN
TAXARVDT   DS  D      N    N        R-ARRIVAL DATE TIME          *    RN
TAXISRDT   DS  D      N    N        R-MSG INSERT DATE TIME       *    RN
TAXSNTDT   DS  D      N    N        R-MSG SENT DATE TIME         *    RN
TAXDEQDT   DS  D      N    N        R-MSG DEQUEUE DATE TIME      *    RN
TAXINQTM   DS  D      N    N        RESP OPTION INPUT Q TIME     *    BN
TAXINQ     DS  D      N    N        RESP OPTION INPUT Q TIME     *    BN
TAXOUTQ    DS  D      N    N        RESP OPTION OUTPUT Q TIME    *    BN
TAXDEQ     DS  D      N    N        RESP OPTION DEQUEUE TIME     *    BN
TAXRSP     DS  D      N    N        RESP OPTION RESPONSE TIME    *    BN
TAXTCPU    DS  D      N    N        TOTAL CPU BY TRAN            *    RN
TAXSTART   DS  D      N    N        TRAN START - TRNSTCK- STCK   *    RN
TAXENDTM   DS  D      N    N        TRAN END- TRNSTCKE - STCK    *    RN
TARW1OTH   DS  F      N    N        MISC IWAIT MICS              *    FN
TARW2OTH   DS  F      N    N        SYNC MISC  IWAIT MICS        *    FN
TARW2LCH   DS  F      N    N        SYNC LATCH IWAIT MICS        *    FN
TARW2IOV   DS  F      N    N        SYNC VSAM I/O IWAIT MICS     *    FN
TARW2IOO   DS  F      N    N        SYNC OSAM I/O IWAIT MICS     *    FN
TARW3OTH   DS  F      N    N        DLI/TM- MISC- IWAIT MICS     *    FN
TARW3LCH   DS  F      N    N        DLI/TM- LATCH IWAIT MICS     *    FN
TARW4OTH   DS  F      N    N        OPN/CLS MISC- IWAIT MICS     *    FN
TARW4DBR   DS  F      N    N        OPN/CLS DBRC- IWAIT MICS     *    FN
TARW4IO    DS  F      N    N        OPN/CLS I/O-- IWAIT MICS     *    FN
TARW5OTH   DS  F      N    N        DLI/DB- MISC- IWAIT MICS     *    FN
TARW5LCH   DS  F      N    N        DLI/DB- LATCH IWAIT MICS     *    FN
TARW5LCK   DS  F      N    N        DLI/DB- LOCK- IWAIT MICS     *    FN
TARW5IOV   DS  F      N    N        DLI/DB- VSAM- IWAIT MICS     *    FN
TARW5IOO   DS  F      N    N        DLI/DB- OSAM- IWAIT MICS     *    FN
TARW5IOD   DS  F      N    N        DLI/DB- DEDB- IWAIT MICS     *    FN
TAREAPPL   DS  F      N    N        APPL-- ELAPSED TIME MICS     *    FN
TAREDLTM   DS  F      N    N        DLI/TM ELAPSED TIME MICS     *    FN
TAREDLDB   DS  F      N    N        DLI/DB ELAPSED TIME MICS     *    FN
TAREDB2    DS  F      N    N        DB2--- ELAPSED TIME MICS     *    FN
TAREMQS    DS  F      N    N        MQS--- ELAPSED TIME MICS     *    FN
TAREOESS   DS  F      N    N        ESS--- ELAPSED TIME MICS     *    FN
TAREOPCL   DS  F      N    N        OP/CL- ELAPSED TIME MICS     *    FN
TARESYNC   DS  F      N    N        SYNC-- ELAPSED TIME MICS     *    FN
TARE1STD   DS  F      N    N        SCHD TO 1ST DLI---- MICS     *    FN
TARELDLI   DS  F      N    N        DLI LAST CALL ELAP- MICS     *    FN
TARFALST   DS  F      N    N        FALSE SCHED ELAP MICS        *    FN
TARXCPU    DS  F      N    N        CPU AFTER TRN STOP IS SET    *    FN
TARXCKPC   DS  F      N    N        COUNT OF CPK/SYNCPOINTS      *    BN
TARXCKPM   DS  F      N    N        MAX LOCKS HELD (HWMRK)       *    BN
TARXCKPT   DS  F      N    N        TOT LOCKS HELD, ALL CHKPT    *    BN
TAROTCON   DS  XL8    N    N        IMS CONNECT START TIME       *    RN
TAROTSTC   DS  CL8    N    N        IMS CONNECT STC/JOBN         *    CY
TAROTPRT   DS  XL2    N    N        IMS CONNECT PORT ID          *    BN
TAROTMCL   DS  C      N    N        OTMA CLIENT TYPE             *    CY
TARFLAG0   DS  C      N    N        FLAG BYTE 0                  *    CY
TAROTIP    DS  XL4    N    N        IMS CON CLIENT IP ADDR       *    XN
TAROTCLN   DS  CL8    N    N        IMS CONNECT CLIENT ID        *    CY
TAROTUSR   DS  CL8    N    N        OTMA SECURITY USER ID        *    CY
TAROTSTF   DS  X      N    N        OTMA IMS STATE FLAG          *    CY
TAROTSYF   DS  X      N    N        OTMA SYNCH FLAG              *    CY
TAROTSLF   DS  X      N    N        OTMA SYNCH LEVEL FLAG        *    CY
TAROTCLF   DS  X      N    N        OTMA CLIENT FLAG             *    CY
TAROTSCF   DS  X      N    N        OTMA SECURITY FLAG           *    CY
TAROTCOR   DS  CL16   N    N        OTMA CORRELATOR              *    CY
TAROTCLP   DS  XL2    N    N        IMS CON CLIENT PORT ID       *    BN
TAROTMAM   DS  XL16   N    N        OTMA TMEMBER NAME            *    CY
TARFALSC   DS  XL2    N    N        NUMBER OF FALSE SCHEDULES    *    BN
TARRSENM   DS  CL8    N    N        RSE NAME                     *    CY
TAROTMAP   DS  CL8    N    N        OTMA MAP NAME                *    CY
TARSTRTU   DS  XL4    N    N        TRAN. START TIME- MIJU       *    SN
TARSTOPU   DS  XL4    N    N        TRAN. STOP  TIME- MIJU       *    SN
TARCAPPL   DS  CL8    N    N        CICS APPLID                  *    CY
TARFLAG3   DS  XL1    N    N        MISC                         *    CY
TARMISCF   DS  XL1    N    N        MISC FLAG                    *    CY
           DS  XL1    N    N        UNUSED                       *    XN
TXMPROCP   DS  D      N    N        MSG PROGRAM CPU TIME         *    MN
TXMDLICP   DS  D      N    N        MSG DLI CPU TIME             *    MN
TXMBUFCP   DS  D      N    N        MSG BUF HANDLER CPU TIME     *    MN
TXMOPNCP   DS  D      N    N        MSG OPEN/CLOSE CPU TIME      *    MN
TXCDLICP   DS  D      N    N        CTL DLI CPU TIME             *    MN
TXCBUFCP   DS  D      N    N        CTL BUF HANDLER CPU TIME     *    MN
TXCOPNCP   DS  D      N    N        CTL OPEN/CLOSE CPU TIME      *    MN
TAXESSCP   DS  D      N    N        DB2 CPU TIME                 *    MN
TAXZTCPU   DS  D      N    N        TOTAL-CPU-ZIIP-ZAAP          *    RN
TAXZONCP   DS  D      N    N        CPU-NO-ZIIP-ZAAP             *    RN
TAXZAOCP   DS  D      N    N        ZAAP ON CP TIME              *    RN
TAXZIOCP   DS  D      N    N        ZIIP ON CP TIME              *    RN
TARSDCPU   DS  D      N    N        DLI CPU TIME                 *    RN
TARSBCPU   DS  D      N    N        BUFFER HANDLER CPU TIME      *    RN
TARSOCPU   DS  D      N    N        OPEN/CLOSE CPU TIME          *    RN
TARDLCMX   DS  F      N    N        MAX DC CALL TIME             *    SN
TARDLDMX   DS  F      N    N        MAX DB CALL TIME             *    RN
TARESSMX   DS  F      N    N        MAX ESS CALL TIME            *    WN
TARDLWMX   DS  F      N    N        MAX WAIT TIME                *    WN
TARDLDTH   DS  H      N    N        DLI DB OR ESS CALLS          *    BN
TARDLCTH   DS  H      N    N        DLI DC GT THRESHOLD          *    BN
TARDLDER   DS  H      N    N        DLI CALL ERRORS              *    BN
TARESSER   DS  H      N    N        ESS CALL ERRORS              *    BN
TAR1STCP   DS  F      N    N        SCHD-1ST-DLI CPU             *    WN
TAROT_MQMID DS CL24   N    N        MQS MESSAGE ID               *    CY
TAROTEIP   DS  XL4    N    N        ENERGIZER IP ADDRESS         *    CY
TARW5GSP   DS  F      N    N        HD GET SPACE IWAIT TIME      *    BN
           DS  XL4    N    N        UNUSED                       *    XN
TAXELAPS   DS  D      N    N        ELAPSED TIME IN MICRO SEC    *    BN
TARIDBGU   DS  F      N    N        IMS DB GET UNIQUE CALL COUNT *    BN
TARIDBGN   DS  F      N    N        IMS DB GET NEXT CALL COUNT   *    BN
TARIDBIN   DS  F      N    N        IMS DB INSERT CALL COUNT     *    BN
TARIDBDL   DS  F      N    N        IMS DB DELETE CALL COUNT     *    BN
TARIDBRP   DS  F      N    N        IMS DB REPLACE CALL COUNT    *    BN
/*                                  END OF DATA                        
//*******************************************************************  
//*   DELETE JSON DATASET - REMOVE ASTERISKS IF THIS STEP IS NEEDED *  
//*******************************************************************  
//*DELETE  EXEC PGM=IEFBR14,COND=(4,LT)                                
//*JSONFLD DD DSN=JSONFILE.TXT,DISP=(MOD,DELETE),                 
//*           UNIT=SYSDA,SPACE=(TRK,1)                                 
//*******************************************************************  
//*        MVIMS/TRANSACTION ACCOUNTING RECORD JSON REPORT          *  
//*******************************************************************  
//JSONRPTC EXEC PGM=PRSJSON                                            
//STEPLIB  DD DSN=IMF.LOAD,DISP=SHR                         
//SYSPRINT DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//SYSUDUMP DD SYSOUT=*                                                 
//CSVINPUT DD DSN=CSVFILE.TXT,                                    
//            DCB=(RECFM=VB,LRECL=12288,BLKSIZE=0),                    
//            DISP=SHR                                                 
//JSONOUT  DD DSN=JSONFILE.TXT,                                   
//            DISP=(NEW,CATLG,DELETE),                                 
//            DCB=(RECFM=VB,LRECL=12288,BLKSIZE=36868),                
//            UNIT=SYSDA,SPACE=(CYL,(100,20))                          
//*******************************************************************  
//**  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 BBSYSD                                                          
  MAIL FROM: <EMAILID>                                                                                  
  RCPT TO: <EMAILID>                                                                                    
  DATA                                                                 
  SUBJECT: EMAIL SUBJECTLINE                                                      
  MIME-VERSION: 1.0                                                    
  CONTENT-TYPE: MULTIPART/MIXED; BOUNDARY="MULTIPLE FILES"  
  CONTENT-DISPOSITION: ATTACHMENT;                                     
  FILENAME=ATTACHMENT_NAME.CSV                                                                  
                                                                      
  --MULTIPLE FILES                                                     
  CONTENT-TYPE: TEXT/PLAIN                                             
  CONTENT-DISPOSITION: ATTACHMENT;                                     
  FILENAME=ATTACHMENT_NAME.JSON                                                            
  .                                                                    
  QUIT                                                                 
/*                                                                     
//OUT1     DD  DSN=&MAILHD1,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=*                                                
/*                                                                     
//SORTIN   DD  *                                                       
/*                                                                     
//OUT2     DD  DSN=&MAILHD2,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' '                                  
/*                                                                     
//FILECRT3 EXEC PGM=SORT,COND=(0,LT)                                   
//SYSOUT   DD  SYSOUT=*                                                
//*----------------------------------------------------------------**  
//* TRAILER FILE                                                   **  
//*----------------------------------------------------------------**  
//SORTIN   DD  *                                                       
/*                                                                     
//OUT3     DD  DSN=&MAILTAL,DISP=(,PASS),                              
//             UNIT=,SPACE=(CYL,(2,2),RLSE),               
//             DCB=(RECFM=VB,LRECL=12288,BLKSIZE=12292)              
//SYSIN  DD  *                                                       
  OPTION COPY                                                        
  OUTFIL FNAMES=OUT3,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=(9,DC$SMIP)                                    
//SYSUT1   DD  DISP=OLD,DSN=&MAILHD1                                 
//         DD  DISP=SHR,DSN=CSVFILE.TXT                         
//         DD  DISP=OLD,DSN=&MAILHD2                                 
//         DD  DISP=SHR,DSN=JSONFILE.TXT                        
//         DD  DISP=OLD,DSN=&MAILTAL