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 Using ICETOOL, how we can seperate th... bshkris SYNCSORT 5 Tue May 09, 2017 8:33 pm
No new posts Unable to create multiple files using... mbattu COBOL Programming 3 Fri May 05, 2017 5:35 pm
This topic is locked: you cannot edit posts or make replies. Merge two files and update Trailer re... Yashashri JCL & VSAM 1 Thu May 04, 2017 12:54 pm
No new posts To find out size allocated to a seque... ashek15 JCL & VSAM 15 Thu Apr 27, 2017 9:42 am
No new posts Dynamic split of files under groups sril.krishy DFSORT/ICETOOL 4 Mon Apr 17, 2017 1:09 pm


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