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

S0C7 Abend


IBM Mainframe Forums -> ABENDS & Debugging
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
anandbiradar

New User


Joined: 03 May 2010
Posts: 2
Location: Hyderabad

PostPosted: Tue May 04, 2010 3:16 pm
Reply with quote

I have a variable declared as below

01 Variable
05 a Pic x(5)
05 b Pic 9(5)
05 c Pic 9(5) Comp-3
05 d Pic 9(5) Comp

Move zeroes to Variable.
Add 1 to c
gives a abend where as

Move zeroes to C
Add 1 to c

is working fine.

If my results are correct, Can some body explain me the difference between moving zeroes in a group and moving it individually
Back to top
View user's profile Send private message
Mathiv Anan

Active User


Joined: 23 Jul 2008
Posts: 106
Location: USA

PostPosted: Tue May 04, 2010 4:28 pm
Reply with quote

Please refer to the manual links at the top of the page.

This post should help you.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA

PostPosted: Tue May 04, 2010 5:09 pm
Reply with quote

Quote:
Can some body explain me the difference between moving zeroes in a group and moving it individually
Yes, as Mathiv mentioned, the manuals can explain this quite well.
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

PostPosted: Tue May 04, 2010 7:30 pm
Reply with quote

About Group moves the Enterprise COBOL for z/OS V4.2 Language Reference wrote:
A group move is treated as though it were an alphanumeric-to-alphanumeric elementary move, except that there is no conversion of data from one form of internal representation to another. In a group move, the receiving area is filled without consideration for the individual elementary items contained within either the sending area or the receiving area..
.
Back to top
View user's profile Send private message
anandbiradar

New User


Joined: 03 May 2010
Posts: 2
Location: Hyderabad

PostPosted: Tue May 04, 2010 7:45 pm
Reply with quote

Thanks Guys
Back to top
View user's profile Send private message
View previous topic : : View next topic  
Post new topic   Reply to topic All times are GMT + 6 Hours
Forum Index -> ABENDS & Debugging

 


Similar Topics
Topic Forum Replies
No new posts Avoid job abend on dataset held by us... JCL & VSAM 6
No new posts After newcopy the CICS program user f... CICS 7
No new posts User ABEND U0476. Need help. IMS DB/DC 1
No new posts ABEND 0717 during starting IMS IMS DB/DC 0
No new posts Call an hlasm from REXX in batch and ... CLIST & REXX 4
Search our Forums:


Back to Top