MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Memory problem with DFSORT

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
bgmerodio
Beginner


Joined: 30 Aug 2007
Posts: 1
Topics: 1
PostPosted: Fri Aug 31, 2007 3:10 am    Post subject: Memory problem with DFSORT Reply with quote
Hi!

We're having a requirement to change some characters in a file but we've a memory problem.

The job we've created is this one:
Code:

//KO20306  EXEC  PGM=ICETOOL,REGION=0M                         
//DD01     DD  DSN=BESD01.BAD1471.POZO.PARA.BBKGE,             
//         DISP=SHR                                             
//DD02O    DD  DSN=BESD01.BAD1471.POZO.PARA.BBKGE.V03,         
//         DISP=(,CATLG),UNIT=DISK,                             
//         DCB=(RECFM=VB,LRECL=9675,BLKSIZE=0),                 
//         SPACE=(CYL,(900,100),RLSE),AVGREC=K,DSORG=PS         
//SYSOUT   DD  SYSOUT=*                                         
//SYSPRINT DD  SYSOUT=*                                         
//TOOLMSG  DD  SYSOUT=*                                         
//DFSMSG   DD  SYSOUT=*                                         
//TOOLIN   DD  *                                               
  COPY FROM(DD01) USING(FI01)                                   
//FI01CNTL DD  *                                               
  OUTFIL FNAMES=DD02O,                                         
  OUTREC=(0001:0001,0004,                                       
          0005:0005,0039,                                       
          0044:0029,0015,CHANGE=(0002,C'XXXXXXXXXXXXXXX',C'XX',
                                       C'000000020517351',C'03',
                                       C'000000020797500',C'03',
                                       C'000000021940326',C'03',
                                       ..................................................................
                                       .........there are 1000 lines similar to this ones
                                       ..................................................................
                                      NOMATCH=(0044,0002),                   
          0046:0046)                                             
/*

when we execute the job we obtain a RC=16 and the message:
Code:

ICE085A S SECOND COMMUNICATION AREA SPACE EXCEEDED - ADD AT LEAST 0K BYTES TO REGION


How can we solve this problem??

Thanks a lot

Borja
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12380
Topics: 75
Location: San Jose
PostPosted: Fri Aug 31, 2007 3:47 am    Post subject: Reply with quote
bgmerodio,

Check this link for a detail explanation of the error message

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CM20/2.2.84

Try adding this parameter and see if it works
Code:

//FI01CNTL DD  *
   OPTION MAINSIZE=MAX 


Alternatively you can redesign the application. Post the details as to what you are doing then may be we can suggest an alternative solution.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
PostPosted: Fri Aug 31, 2007 11:40 am    Post subject: Reply with quote
MAINSIZE=MAX will not help in this case.

You can use IFTHEN clauses instead of CHANGE. For example:

Code:

//FI01CNTL DD  *
  OUTFIL FNAMES=DD02O,
    IFTHEN=(WHEN=(29,15,CH,EQ,C'XXXXXXXXXXXXXXX'),OVERLAY=(44:C'XX')),
    IFTHEN=(WHEN=(29,15,CH,EQ,C'000000020517351'),OVERLAY=(44:C'03')),
    IFTHEN=(WHEN=(29,15,CH,EQ,C'000000020797500'),OVERLAY=(44:C'03')),
    IFTHEN=(WHEN=(29,15,CH,EQ,C'000000021940326'),OVERLAY=(44:C'03')),
    ...   1000 lines
    IFTHEN=(WHEN=(29,15,CH,EQ,C'000000092917351'),OVERLAY=(44:C'03')),
    IFTHEN=(WHEN=(29,15,CH,EQ,C'000000099999999'),OVERLAY=(44:C'03'))


_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group