IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Image Copy performance question


IBM Mainframe Forums -> DB2
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
trilokdewangan

New User


Joined: 19 Jun 2008
Posts: 39
Location: USA

PostPosted: Mon Jun 23, 2008 5:11 pm
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.


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

Moderator Emeritus


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

PostPosted: Mon Jun 23, 2008 9:53 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DB2

 


Similar Topics
Topic Forum Replies
No new posts VB to VB copy - Full length reached SYNCSORT 8
No new posts exploiting Z16 performance PL/I & Assembler 2
No new posts Question for file manager IBM Tools 7
No new posts Need COBOL COPY Help in MVS Environment COBOL Programming 4
No new posts Issue after ISPF copy to Linklist Lib... TSO/ISPF 1
Search our Forums:

Back to Top