trilokdewangan
New User
Joined: 19 Jun 2008 Posts: 39 Location: USA
|
|
|
|
Hello Everyone,
Image copy is interesting topic to discuss,
I know What is Image copy and how to use. I have a JCL through which we can unload the data into flat file using utility PTLDRIVM and select required data by writing a query in JCL it self.
But running cost and CPU time of this JCL is huge, Can we optimize the JCL? Can we tune the performance of JCL? Jcl is given below. I think we need to change some parameters in second Code part.
Code: |
/UTIL0010 EXEC PGM=PTLDRIVM,
// PARM='EP=UTLGLCTL/&DBSUBSYS,',TIME=120
//*
//STEPLIB DD DISP=SHR,DSN=&DB2SMF..PLATINUM.LOADLIB
// DD DISP=SHR,DSN=&DB2SMF..DB2.SDSNEXIT
// DD DISP=SHR,DSN=&DB2SMF..DB2.SDSNLOAD
//*
//PTILIB DD DISP=SHR,DSN=&DB2SMF..PLATINUM.LOADLIB
// DD DISP=SHR,DSN=&DB2SMF..DB2.SDSNEXIT
// DD DISP=SHR,DSN=&DB2SMF..DB2.SDSNLOAD
//PTIPARM DD DISP=SHR,DSN=&DB2SMF..PLATINUM.PARMLIB
//PTIXMSG DD DISP=SHR,DSN=&DB2SMF..PLATINUM.XMESSAGE
//PTIMSG DD SYSOUT=*
//PTIIMSG DD SYSOUT=*
//PTIMSG01 DD SYSOUT=*
//*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS
//*
//SYSIMAG DD DISP=SHR,DSN=AXRT74.PAYX.HKDSPRXP.&TNAME..D&YR&M1&D1
//**SYSIMAG DD DUMMY
//*YSIMAG DD DISP=SHR,DSN=AXRT74.PAYX.MIMGC.HKTA0007.D060331
//*
//SYSREC01 DD DSN=&SMF..&TNAME..REC00.&DMS..&RUN#..D&YR&M1&D1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DASD,SPACE=(CYL,(2500,2500),RLSE),
// LABEL=RETPD=&RETNPD
//*** THIS DATASET NEEDED IF ACCESSING DB2 FROM CIGNA
//***INDDL DD DISP=SHR,DSN=BX52ZM.X101634.INDDL14
//*
//SYSCTL01 DD DSN=&SMF..&TNAME..PUNCH.&DMS..&RUN#..D&YR&M1&D1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DASD,SPACE=(27920,(50,5),RLSE),
// DCB=(LRECL=80,BLKSIZE=27920,RECFM=FB),
// LABEL=RETPD=&RETNPD
//*
//ST01WK01 DD UNIT=DASD,SPACE=(CYL,(1,10))
//ST01WK02 DD UNIT=DASD,SPACE=(CYL,(1,10))
//ST01WK03 DD UNIT=DASD,SPACE=(CYL,(1,10))
//ST01MSG DD SYSOUT=*
//* |
Code: |
/SYSIN DD SUBSYS=(CCSS,
// ' FASTUNLOAD ',
// ' DISCARDS 100 ',
// ' EXCP YES ',
// ' INPUT-FORMAT &INFRMT ',
// ' IO-BUFFERS 60 ',
// ' LOAD-CONTROL &LDCNTL ',
// ' OUTPUT-FORMAT &OUTFMT ',
// ' PART-INDEPENDENCE NO ',
// ' SHRLEVEL CHANGE ',
// ' SORTSIZE 4M ',
// ' SQL-ACCESS NONE ',
// ' SELECT * FROM AXRT74DA.&TNAME ',
// ' WHERE CONTROL_NUMBER LIKE ''006974%''; ') |
Thank you All!
//* |
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello Trilok Kumar and welcome to the forums,
When you have a question, please start a new topic for your question rather than post a reply to a 4-year old, inactive topic.
When posting code, jcl, control statements, and/or data, it is best to use the "Code" tag which will preserve alignment and will make the info much easier to read (note that your post has been "Code"ed. |
|