Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts FTP Skip or ignore error and process ... AJAYREDDY All Other Mainframe Topics 3 Wed Sep 27, 2017 8:12 pm
No new posts Comparing 2 Files using Current time arunsoods SYNCSORT 9 Fri Sep 22, 2017 6:00 pm
No new posts Difference in SORT & ICETOOL Mohan Kothakota DFSORT/ICETOOL 5 Fri Sep 22, 2017 4:56 pm
No new posts LMINIT problem - not finding DDNAME Danielle.Filteau CLIST & REXX 7 Tue Sep 19, 2017 9:57 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us