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 

ICE085A 0 SECOND COMMUNICATION AREA SPACE EXCEEDED - DFSORT

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


Joined: 26 Sep 2003
Posts: 130
Topics: 36

PostPosted: Wed Feb 23, 2022 9:21 pm    Post subject: ICE085A 0 SECOND COMMUNICATION AREA SPACE EXCEEDED - DFSORT Reply with quote

Hi,

I'm using DFSORT to copy a file with OUTREC as fallows(creating comma separated fields), my input dataset is FB and LRECL=32000. My OUTREC is 7000 bytes

Code:
//STEP02   EXEC PGM=SORT,PARM='SIZE(MAX)'
//SORTIN    DD DISP=SHR,DSN=TEST.INPUT
//SORTOUT   DD DSN=TEST.REPORT
//SYSOUT   DD  SYSOUT=*
//SYSIN    DD  *
  SORT FIELDS=COPY
  OUTREC FIELDS=(FIELD1:C',',FIELD2:C',',FIELD3:C',',...FIELD999)



I'm getting fallowing error

Code:
ICE085A 0 SECOND COMMUNICATION AREA SPACE EXCEEDED ADD AT LEAST 0K BYTES TO REGION


when I change the OUTREC fields to below I'm getting S0C7.

Code:
OUTREC IFTHEN=(WHEN=INIT,BUILD=(FIELD1:C',',....FIELD999))


Code:
ICE185A 0 AN S0C7  ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT (PHASE C 3)


Can you please let me know what is the maximum size my OUTREC should be ?
_________________
Regards,
Chandra
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12354
Topics: 75
Location: San Jose

PostPosted: Thu Feb 24, 2022 9:49 am    Post subject: Reply with quote

chandra,

That is one too many edit fields on the OUTREC. You can use IFTHEN to overcome the issue. Use the following untested jcl (I assumed all you wanted is to make the file as comma separated file. Your control cards are building a COMMA at the fields using colon ( : ) which is incorrect.

Code:

//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DISP=SHR,DSN=TEST.INPUT
//SORTOUT  DD DSN=TEST.REPORT
//SYSIN    DD *
  OPTION COPY
  OUTREC IFTHEN=(WHEN=INIT,
          BUILD=(FIELD1,C',',
                 FIELD2,C',',
                 FIELD3,C',',
                 FIELD999))
/*


chandra wrote:
when I change the OUTREC fields to below I'm getting S0C7.


SOC7 abend is pretty much due to bad data. Check if you have PACKED decimal fields and ensure that they have valid data. For example editing SPACES in a packed decimal field will cause an S0C7 abend.

There is a way to verify the invalid packed decimal fields. Check the verify operator and examples of using it

https://www.ibm.com/docs/en/zos/2.4.0?topic=icetool-verify-operator
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
chandra
Beginner


Joined: 26 Sep 2003
Posts: 130
Topics: 36

PostPosted: Thu Feb 24, 2022 6:05 pm    Post subject: Reply with quote

Thank you Kolusu.

I used verify in ICETOOL to find the invalid fields and removed the fields to create my comma separated file.
_________________
Regards,
Chandra
Back to top
View user's profile Send private message
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