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

ICETOOL. Temporal files size problem.
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic Quick References
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
 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
 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
 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 Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Thu Nov 10, 2005 9:22 pm
 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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 

Similar Topics
Topic Forum Replies
No new posts Write line by line from two files DFSORT/ICETOOL 7
No new posts Compare only first records of the fil... SYNCSORT 7
No new posts Map Vols and Problem Dataset All Other Mainframe Topics 2
No new posts Shift left VB record without x00 endi... DFSORT/ICETOOL 11
No new posts Merge two VSAM KSDS files into third ... JCL & VSAM 6
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us