|
|
|
Member CAJRCSVJ, found in the CAJRJCL library, is used as an example of the JCL requirements and SORT control statement changes necessary to create CSV files as output from CA JARS.
//CAJRCSVJ JOB (ACCTINFO),'PGMR',CLASS=A,MSGCLASS=X,REGION=0M //********************************************************************* //* * //* MEMBER : CAJRCSVJ IN CAI.CAJRJCL * //* * //* PURPOSE: THIS IS AN EXAMPLE JCL MEMBER THAT SHOWS THE USER HOW * //* TO CREATE CSV FILES IN A PDS USING THE CA-JARS * //* REPORT WRITER. THE CAIJSCSV AND CAIJSIDX DD WHICH * //* DEFINE THE CSV PDS DATASET AND THE CSV INDEX DATASET * //* ARE OF PARTICULAR INTEREST. ALSO, NOTICE THE SORT * //* CONTROL STATEMENT HAS THE CSV MEMBER NAME SPECIFIED * //* IN COLUMNS 65 THROUGH 72. * //* * //* MODIFICATIONS: * //* * //* 1. THE INDEX DATASET MUST EXIST PRIOR TO SUBMISSION OF THIS * //* JOB. PROCESS MEMBER 'CAJRINIT' IN CAI.CAJRJCL TO ALLOCATE * //* AND INITIALIZE THE INDEX DATASET, CAIJSIDX. REFER TO THE * //* CSV FILE PRODUCTION CHAPTER OF THE CA-JARS r12 USERS * //* GUIDE FOR MORE DETAILED INFORMATION ON THE CREATION OF CSV * //* FILES. * //* * //* 2. CHANGE ALL REFERENCES TO 'CAI' TO MATCH YOUR INSTALLATION * //* STANDARDS. * //* * //* 3. ALL UNIT=SYSDA STATEMENTS MAY HAVE TO BE CHANGED IF YOUR * //* INSTALLATION USES DIFFERENT ESOTERIC NAMES FOR TEMPORARY * //* DASD. * //* * //* 4. ALL UNIT=???? AND VOL=SER=XXXXXX HAVE TO BE CHANGED TO MATCH * //* YOUR INSTALLATION STANDARDS. * //* * //* **NOTE** RETURN CODE SHOULD NOT BE GREATER THAN 4. * //* * //********************************************************************* //JARS EXEC PGM=JSIMAIN //STEPLIB DD DSN=CAI.CAJRLOAD,DISP=SHR <==CUSTOMIZE //CAIJSNAP DD SYSOUT=*,DCB=(RECFM=VBS,LRECL=125,BLKSIZE=882) //CAIJSPRT DD SYSOUT=* //SYSOUT DD SYSOUT=* //CAIJSC DD DUMMY //CAIJSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //CAIJSCSV DD DSN=CAI.CSVPDS.OUTPUT, <==CUSTOMIZE // DISP=(NEW,CATLG,KEEP), // DCB=(RECFM=VB,LRECL=512,BLKSIZE=5124), // UNIT=????,VOL=SER=XXXXXX, <==CUSTOMIZE // SPACE=(CYL,(10,5,20)), // DSORG=PO //CAIJSIDX DD DSN=CAI.CSVPDS.INDEX,DISP=MOD <==CUSTOMIZE //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)) //CAIJSSMF DD DSN=CAI.SMF.IMPUT.DATA,DISP=SHR <==CUSTOMIZE //SYSPRINT DD SYSOUT=* //SYSPUNCH DD SYSOUT=* //HISTFILE DD DSN=CAI.JARS.HISTORY,DISP=OLD <==CUSTOMIZE //CAIJSACT DD DSN=CAI.JARS.ACCT,DISP=OLD <==CUSTOMIZE //CAIJSCIN DD * SELECT 1 M P 3 1 5 OPTION 0001 ,. EXTDATA NYNYYYYYYYYYYYYYYYYYYYYYYYYYNYYY MHEADER 048P E A K P A G I N G P E R I O D S MSORT 29701A3 S CSVTST22 MDISPLAY 0020560A81A90C21C30C81C90D3075040178177142 MRATE 1000 100 MTSORATE 1000 100 MTITLE 02 TIME INTERVAL MTITLE 42PERCENT CPU MTITLE 56 NBR STEPS MGROUP 0281 R0372 MGROUPC 1T MGROUPC 200 01 A MGROUPC 202 03 B MGROUPC 204 05 C MGROUPC 206 07 D MGROUPC 208 09 E MGROUPC 210 11 F MGROUPC 212 13 G MGROUPC 214 15 H MGROUPC 216 17 I MGROUPC 218 19 J MGROUPC 220 21 K MGROUPC 222 23 L MDESCRIPT1 UNIDENTIFIED MDESCRIPT1A 00.00 TO 01.59 MDESCRIPT1B 02.00 TO 03.59 MDESCRIPT1C 04.00 TO 05.59 MDESCRIPT1D 06.00 TO 07.59 MDESCRIPT1E 08.00 TO 09.59 MDESCRIPT1F 10.00 TO 11.59 MDESCRIPT1G 12.00 TO 13.59 MDESCRIPT1H 14.00 TO 15.59 MDESCRIPT1I 16.00 TO 17.59 MDESCRIPT1J 18.00 TO 19.59 MDESCRIPT1K 20.00 TO 21.59 MDESCRIPT1L 22.00 TO 23.59 /* //
| Copyright © 2012 CA. All rights reserved. |
|