CSV and XML File Production › Generating XML Files › Sample JCL and Control Statements

Sample JCL and Control Statements

//         JOB
//*
//* THIS JOB WILL RUN JSIMAIN TO PROCESS SMF RECORDS AND CREATE
//* BOTH A PRINTED AND XML VERSION OF THE OUTPUT JARS REPORTS.
//* THE XML REPORT GENERATED WILL MATCH THE SAMPLE REPORT ABOVE IN
//* TERMS OF THE FIELDS USED.  THE SCHEMA THAT IS PRODUCED WILL ALSO
//* BE SIMILAR.
//*
//* PLEASE NOTE: THE IBM XML TOOLKIT FOR Z/OS DOES NOT HAVE TO BE
//* CONCATENATED TO STEPLIB IF THE TOOLKIT IS IN THE SYSTEM LINK LIST.
//*
//JARS      EXEC PGM=JSIMAIN,REGION=6M
//STEPLIB   DD DSN=CAI.CAJRLOAD,DISP=SHR
//          DD DSN=IBM.XML.TOOLKIT,DISP=SHR
//CAIJSNAP  DD SYSOUT=*,DCB=(RECFM=VBS,LRECL=125,BLKSIZE=882)
//CAIJSPRT  DD SYSOUT=*
//SYSOUT    DD SYSOUT=*
//CAIJSC    DD SYSOUT=*
//CAIJSOUT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSLIST   DD SYSOUT=*
//SORTWK01  DD UNIT=SYSDA,SPACE=(CYL,(5))
//SORTWK02  DD UNIT=SYSDA,SPACE=(CYL,(5))
//SORTWK03  DD UNIT=SYSDA,SPACE=(CYL,(5))
//SORTWK04  DD UNIT=SYSDA,SPACE=(CYL,(5))
//SORTWK05  DD UNIT=SYSDA,SPACE=(CYL,(5))
//SORTWK06  DD UNIT=SYSDA,SPACE=(CYL,(5))
//CAIJSCT2  DD UNIT=SYSDA,DISP=(,DELETE,DELETE),SPACE=(TRK,(10,1))
//CAIJSCT1  DD UNIT=SYSDA,DISP=(,DELETE,DELETE),SPACE=(TRK,(10,1))
//***************************************************************
//* SMF INPUT DATASET
//***************************************************************
//CAIJSSMF  DD DSN=SMF.MANDUMP1,DISP=SHR
//***************************************************************
//HISTFILE  DD DSN=CAI.CAJARS.HISTFILE,DISP=SHR
//CAIJSACT  DD DSN=CAI.CAJARS.ACCTFILE,DISP=SHR
//***************************************************************
//* XML OUTPUT DATA SETS (CAIJX__ - XML, CAIJM__ - SCHEMAS)
//***************************************************************
//CAIJXX1   DD DSN=CAI.CAJARS.XMLLIB(XMLE),DISP=SHR
//CAIJMX1   DD DSN=CAI.CAJARS.XMLLIB(XMLES),DISP=SHR
//***************************************************************
//CAIJSCIN  DD *
 SELECT     1                                     A
AHEADER     SAMPLE XML REPORT
ASORT    01608                                   1             X1      3
ADISPLAY   004210260261214266209265242276
/*
//

Note that only the XML ddname suffix is coded, so that the Output XML ddnames are CAIJXX1 and CAIJMX1. Since the codepage is also omitted, the output files are in the EBCDIC character set.