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

System abend 80A while saving the cobol program


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
birdy K

New User


Joined: 05 Mar 2008
Posts: 72
Location: chennai

PostPosted: Tue Mar 25, 2008 6:05 pm
Reply with quote

hai all,

I am getting system abend 80A while saving the cobol program. How to solve it?
Back to top
View user's profile Send private message
cpuhawg

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Tue Mar 25, 2008 6:26 pm
Reply with quote

80A abends are usually associated with insufficient REGION size. Try increasing your REGION size for the job.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India

PostPosted: Tue Mar 25, 2008 10:43 pm
Reply with quote

Hi,

Quote:
while saving the cobol program
Where do You use 'saving' & how did you do it? I meant did you try to save in a personal PDS or .. icon_confused.gif
Back to top
View user's profile Send private message
birdy K

New User


Joined: 05 Mar 2008
Posts: 72
Location: chennai

PostPosted: Wed Mar 26, 2008 11:02 am
Reply with quote

Hai anuj,

After doing some changes in cobol program, that is cut and paste
like that. After cut and paste I tried to save , at that time It is giving me System abend 80A and It is coming out of the program.
Back to top
View user's profile Send private message
Gnanas N

Active Member


Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India

PostPosted: Wed Mar 26, 2008 11:09 am
Reply with quote

Is it a very big program.
I think Virtual storage exceeds the limit which has been allocated for you.
Back to top
View user's profile Send private message
birdy K

New User


Joined: 05 Mar 2008
Posts: 72
Location: chennai

PostPosted: Wed Mar 26, 2008 3:39 pm
Reply with quote

hai all,

Thank You for replying me. I will try to reduce the size in cobol program .
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India

PostPosted: Wed Mar 26, 2008 10:37 pm
Reply with quote

Hi,

gnanas wrote:
I think Virtual storage exceeds the limit which has been allocated for you.
unless I misunderstood, if s/he can cut/paste s/he obviously can open the program in VIEW/EDIT mode..& if so shy don't the error comes in at the first place, when opened for view/edit ?
Back to top
View user's profile Send private message
sril.krishy

Active User


Joined: 30 Jul 2005
Posts: 183
Location: hyderabad

PostPosted: Wed Mar 26, 2008 11:47 pm
Reply with quote

I am not 100% sure whether I got the same error or not.But,try to use
'COMPRESS' in the command prompt when you are in EDIT mode in the member.It might solve your problem.

Thanks
Krishy
Back to top
View user's profile Send private message
Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Thu Mar 27, 2008 2:30 am
Reply with quote

ISPF compression would make the source unreadable by the compiler!
Back to top
View user's profile Send private message
birdy K

New User


Joined: 05 Mar 2008
Posts: 72
Location: chennai

PostPosted: Thu Mar 27, 2008 11:12 am
Reply with quote

hai all,

System abend 80A is not coming often. Anyway now I am not getiing this abend.

Thank You for all.
Back to top
View user's profile Send private message
Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Thu Mar 27, 2008 7:11 pm
Reply with quote

Bill Dennis wrote:
ISPF compression would make the source unreadable by the compiler!
My mistake. I was thinking of the ISPF profile command PACK ON which compresses the source data to fewer bytes when saved.

I'm not sure what the COMPRESS command is that krishy mentioned. Maybe a foreground compress of the source PDS?
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India

PostPosted: Fri Mar 28, 2008 2:25 am
Reply with quote

Hi,
birdy K wrote:
now I am not getiing this abend.

What magic happened at your end, can You please share?
Back to top
View user's profile Send private message
birdy K

New User


Joined: 05 Mar 2008
Posts: 72
Location: chennai

PostPosted: Fri Mar 28, 2008 12:04 pm
Reply with quote

hai ,

When I did changes I got this abend. So I had commented paras also in program. I removed that. I reduced the size of the program. The program itself over. No changes more. Thank You
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India

PostPosted: Fri Mar 28, 2008 11:38 pm
Reply with quote

Hi,

Good to hear that problem is resolved now..but I'm not convinced yet with this argument,
Quote:
I had commented paras also in program. I removed that. I reduced the size of the program.

perhaps little more investigation from my side.
Back to top
View user's profile Send private message
Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Sat Mar 29, 2008 1:49 am
Reply with quote

In a very unique case, I might believe that editing a very large source deck used so much of the user's REGION that when the time came to do the STOW back into the PDS there was not enough storage for new control blocks or workareas.

Normally, you see a problem when you first attempt to edit the file and get a storage shortage failure right away.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India

PostPosted: Sat Mar 29, 2008 2:53 am
Reply with quote

Hi,

Thanks Bill for yor suggestion. Defined a new PDS with below specifications
Code:
Record format . . . : FB   
Record length . . . : 80   
Block size  . . . . : 27920
1st extent cylinders: 1   
Secondary cylinders : 3   
Data set name type  : PDS 

and tried to fill up the members repeatdly till I could get 80A. Abend didn't 'come' but my session got hanged. Tried 4-5 times but no 80A, perhaps some more attempts are needed from my side. Today my work is keeping me too busy... Phew...cann't experment more..
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Sat Mar 29, 2008 3:57 am
Reply with quote

Ok the abend, but to diagnose the problem You' ll need to tell us also the reason code

with a logon region size of 4 MB I was able to edit a 280,000 ( two hundred eighty thousand ) lines thing
a 10 liner rexx replicated for 28000 times

trying to add 10000 more lines I got a 878 abend with reason code 10

so I suspect that the abend 80a is coming out of something else and could be I/O related

not certainly related to the size of the thing being edited ,
in such case only an 878 abend with reason code 10 will occur

also I do not think that with a reasonable setup an abend should occur when editing a normal program
...a 20000 lines program is an unmanageable object
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 -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts COBOL sorting, with input GDG base COBOL Programming 7
No new posts Need help with ADABAS query (COBOL-AD... All Other Mainframe Topics 0
No new posts Replacing FILLER with FILLER<SeqNu... DFSORT/ICETOOL 2
No new posts System add a USER parm when job submi... TSO/ISPF 4
No new posts Error to invoke MPP program through B... IMS DB/DC 3
Search our Forums:

Back to Top