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
 

 

ICETOOL. Temporal files size problem.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
jjjjjavi

New User


Joined: 09 Nov 2005
Posts: 1

PostPosted: Wed Nov 09, 2005 2:42 pm    Post subject: ICETOOL. Temporal files size problem.
Reply with quote

Hello,

When using the next JCL, having a small size in TEMP1 and TEMP2 files, results in a return code=0, but the output file does not have all the records.

Can anyone help me?
Thank you in advance,
Javi.

Code:

//STEP EXEC PGM=ICETOOL
//TOOLMSG  DD  SYSOUT=*
//DFSMSG   DD  SYSOUT=*
//SYSOUT   DD  SYSOUT=*
//TOOLIN     DD *
        COPY FROM(SORTIN) TO(TEMP1) USING(CTL1)
        COPY FROM(SORTPP1) TO(TEMP2) USING(CTL2)
        SPLICE FROM(CONCAT) TO(SORTOUT) ON(1,4,FI) ON(5,4,FI) -
          WITH(9,1) WITH(11,78) -
          WITHALL KEEPBASE KEEPNODUPS USING(CTL5)
/*
//SORTIN   DD  DSN=&EN..HPA140CO.X0017X.C&CC.I&CI..F&FECHA..RNDI3,
//             DISP=SHR
//SORTPP1  DD  DSN=&EN..HPT281F1.X0037X.DDD.C&CC.I&CI..F&FECHA,
//             DISP=SHR
//SORTOUT  DD  DSN=&EN..HPB010CO.X0017X.C&CC.I&CI..F&FECHA..TEST,
//             DISP=(,CATLG,DELETE),
//             SPACE=(CYL,(00900,00900),RLSE),
//             UNIT=DISCO
//TEMP1   DD  DSN=&&TEMP1,DISP=(,PASS),SPACE=(CYL,(50,50)),UNIT=SYSDA
//TEMP2 DD  DSN=&&TEMP2,DISP=(,PASS),SPACE=(CYL,(50,50)),UNIT=SYSDA
//CONCAT DD DSN=*.TEMP1,VOL=REF=*.TEMP1,DISP=(OLD,PASS)
//    DD DSN=*.TEMP2,VOL=REF=*.TEMP2,DISP=(OLD,PASS)
//CTL1CNTL DD  *
       OUTREC FIELDS=(9,4,13,4,C'00',1,8,17,71)
/*
//CTL2CNTL DD  *
       SORT FIELDS=(1,4,BI,A,5,4,BI,A,27,16,CH,A)
       SUM FIELDS=NONE
       OUTREC FIELDS=(1,4,5,4,C'11',27,16,89:C' ')
/*
//CTL5CNTL DD  *
       OUTFIL FNAMES=SORTOUT,OMIT=(10,1,CH,NE,C'0'), -
               OUTREC=(1,9,11,79)
/*
Back to top
View user's profile Send private message

MGIndaco

Active User


Joined: 10 Mar 2005
Posts: 432
Location: Milan, Italy

PostPosted: Wed Nov 09, 2005 4:22 pm    Post subject:
Reply with quote

You must to know that you cannot concat within the same step an input defined as output because you will able to get only the records of first volume.
Try to read this link:
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA10/1.8.3.1?SHELF=&DT=20050222160456&CASE=
Quote:
Be aware that, in some cases, if a DD statement specifies a data set
for output that is extended to a second or subsequent volume, and
another DD statement within the same step requests the same data set,
only the records on the first volume will be read, and incorrect
output will result.
Back to top
View user's profile Send private message
MGIndaco

Active User


Joined: 10 Mar 2005
Posts: 432
Location: Milan, Italy

PostPosted: Wed Nov 09, 2005 4:34 pm    Post subject:
Reply with quote

Ops, to solve this kind of problem Frank(that can correct me) suggest to use only one temporary dd with DISP=(MOD,PASS) so your jcl can be:
Code:
//STEP EXEC PGM=ICETOOL                                             
//TOOLMSG DD SYSOUT=*                                               
//DFSMSG DD SYSOUT=*                                                 
//SYSOUT DD SYSOUT=*                                                 
//TOOLIN DD *                                                       
COPY FROM(SORTPP1) TO(T1) USING(CTL2)                               
COPY FROM(SORTIN) TO(T1) USING(CTL1)
SPLICE FROM(T1) TO(SORTOUT) ON(1,4,FI) ON(5,4,FI) -                 
WITH(9,1) WITH(11,78) -                                             
WITHALL KEEPBASE KEEPNODUPS USING(CTL5)                             
/*                                                                   
//SORTIN DD DSN=&EN..HPA140CO.X0017X.C&CC.I&CI..F&FECHA..RNDI3,     
// DISP=SHR                                                         
//SORTPP1 DD DSN=&EN..HPT281F1.X0037X.DDD.C&CC.I&CI..F&FECHA,       
// DISP=SHR                                                         
//SORTOUT DD DSN=&EN..HPB010CO.X0017X.C&CC.I&CI..F&FECHA..TEST,     
// DISP=(,CATLG,DELETE),                                             
// SPACE=(CYL,(00900,00900),RLSE),                                   
// UNIT=DISCO                                                       
//T1 DD DSN=&&TEMP1,DISP=(MOD,PASS),SPACE=(CYL,(50,50)),UNIT=SYSDA   
//CTL1CNTL DD *                                                     
   OUTREC FIELDS=(9,4,13,4,C'00',1,8,17,71)                             
/*                                                                   
//CTL2CNTL DD *                                                     
   SORT FIELDS=(1,4,BI,A,5,4,BI,A,27,16,CH,A)                           
   SUM FIELDS=NONE                                                     
   OUTREC FIELDS=(1,4,5,4,C'11',27,16,89:C' ')                         
/*                                                                   
//CTL5CNTL DD *                                                     
   OUTFIL FNAMES=SORTOUT,OMIT=(10,1,CH,NE,C'0'),                       
   OUTREC=(1,9,11,79)                                                   
/*                                                                   


I hope in this help.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Thu Nov 10, 2005 9:22 pm    Post subject:
Reply with quote

MGIndaco,

Yes, that's right. The system restriction on concatenation is most likely causing the loss of records, and the best way to avoid it is to use one MOD data set instead of concatenation.
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SYMNAMES problem jacobdng DFSORT/ICETOOL 7 Thu Dec 22, 2016 7:47 am
No new posts High CPU consumption Job using IAM fi... aswinir JCL & VSAM 15 Thu Dec 01, 2016 8:28 pm
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm
No new posts Match or compare two files in VB Format anatol DFSORT/ICETOOL 14 Thu Nov 03, 2016 7:41 pm
No new posts How to delete second instance from Fl... Gunapala CN DFSORT/ICETOOL 6 Tue Oct 18, 2016 11:42 pm


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