Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 Copy set of records based on condition krish.deepu SYNCSORT 2 Thu Mar 08, 2018 11:39 am
No new posts JES2 EXIT 6 QUESTION Randy Horowitz All Other Mainframe Topics 30 Tue Feb 06, 2018 5:47 pm
No new posts Image copy after Online reorganization. lind sh IMS DB/DC 0 Tue Jan 30, 2018 9:58 pm
No new posts Copy Specific Groups V S Amarendra Reddy SYNCSORT 10 Thu Jan 11, 2018 1:16 am
No new posts Compare and COPY using DFSORT pshongal DFSORT/ICETOOL 3 Fri Nov 17, 2017 9:49 am

Back to Top
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us