Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
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
trilokdewangan

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.


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

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 Unable to copy data from spool in a d... srikant314 JCL & VSAM 8 Fri Jul 28, 2017 9:10 pm
No new posts CONTIG for performance? JPVRoff JCL & VSAM 7 Fri Jun 09, 2017 8:39 am
No new posts copy SEQ to PDS and create stats steve-myers JCL & VSAM 7 Thu Apr 27, 2017 1:15 am
No new posts Copy load modules and alias vasanthz IBM Tools 5 Thu Apr 20, 2017 6:31 am
No new posts QUESTION: RETURN CHANNEL pahiker CA Products 21 Thu Apr 20, 2017 12:31 am


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