Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in


Image Copy performance question

Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DB2
View previous topic :: :: View next topic  
Author Message

New User

Joined: 19 Jun 2008
Posts: 39
Location: USA

PostPosted: Mon Jun 23, 2008 5:11 pm    Post subject: Image Copy performance question
Reply with quote

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.

/UTIL0010 EXEC PGM=PTLDRIVM,                                           
//             PARM='EP=UTLGLCTL/&DBSUBSYS,',TIME=120                   
//         DD DISP=SHR,DSN=&DB2SMF..DB2.SDSNEXIT                       
//         DD DISP=SHR,DSN=&DB2SMF..DB2.SDSNLOAD                       
//         DD DISP=SHR,DSN=&DB2SMF..DB2.SDSNEXIT                       
//         DD DISP=SHR,DSN=&DB2SMF..DB2.SDSNLOAD                       
//PTIMSG   DD SYSOUT=*                                                 
//PTIIMSG  DD SYSOUT=*                                                 
//PTIMSG01 DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//SYSUDUMP DD SYSOUT=*                                                 
//ABNLIGNR DD DUMMY                 SUPPRESS ABENDAID DUMPS             
//**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                                       
//***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=*                                                 

/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!
Back to top
View user's profile Send private message

dick scherrer

Site Director

Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Mon Jun 23, 2008 9:53 pm    Post subject:
Reply with quote

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.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DB2 All times are GMT + 6 Hours
Page 1 of 1


Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts What are the way we can improve CPU p... Gunapala CN DB2 10 Mon Oct 24, 2016 2:16 pm
No new posts Single COPY CICS TS datasets and when... Kyle Carroll CICS 2 Tue Oct 11, 2016 9:47 pm
No new posts Fault Analyzer - listings question. egrove IBM Tools 4 Thu Aug 11, 2016 5:31 pm
No new posts dataset copy question - REPRO or some... atulxp TSO/ISPF 2 Wed Aug 03, 2016 10:56 pm
No new posts How to copy Tape dataset to unix main... chaky All Other Mainframe Topics 4 Fri Jul 08, 2016 2:52 am

Back to Top
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us