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
 
ABEND: A reference modification start position value of 0

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
dipanshu

New User


Joined: 16 Jan 2006
Posts: 53
Location: pune

PostPosted: Sat Jan 28, 2006 2:43 pm    Post subject: ABEND: A reference modification start position value of 0
Reply with quote

01 X-ARRAY.
05 X-G OCCURS 3 TIMES PIC x(7).
77 x-F PIC X(7) .

MOVE X-G(I)(1:2) to X-F(1:2)

GIVING USER ABEND - A reference modification start position value of 0 on line 000067 referenced an area outside the region of
data item X-G.

CAN ANYONE SUGGEST ME THE PROBABLE REASON.

Regards
Dipanshu
Back to top
View user's profile Send private message

gowtham_1982
Warnings : 1

Active User


Joined: 02 Dec 2005
Posts: 109

PostPosted: Mon Jan 30, 2006 9:19 am    Post subject: Re: ABEND: A reference modification start position value of
Reply with quote

dipanshu wrote:
01 X-ARRAY.
05 X-G OCCURS 3 TIMES PIC x(7).
77 x-F PIC X(7) .

MOVE X-G(I)(1:2) to X-F(1:2)

GIVING USER ABEND - A reference modification start position value of 0 on line 000067 referenced an area outside the region of
data item X-G.

CAN ANYONE SUGGEST ME THE PROBABLE REASON.

Regards
Dipanshu



Hi Dipanshu,

what is the value of I? how have you defined it? Just check the value of it before the abend statement.


corrections welcomed,

gowtham
Back to top
View user's profile Send private message
dipanshu

New User


Joined: 16 Jan 2006
Posts: 53
Location: pune

PostPosted: Mon Jan 30, 2006 9:41 am    Post subject:
Reply with quote

I declared variable
77 I pic x(1)

using in peform stmt as

perform para1 varying I from 1 by 1 until I > 3.

Para1
MOVE X-G(I)(1:2) to X-F(1:2) ----> showing abend as discussed above
MOVE X-G(I)(1:2) to X-F(I)(1:2) -------> ran with maxcc 0 .

why?
Back to top
View user's profile Send private message
sbalajibe

New User


Joined: 15 Aug 2005
Posts: 62

PostPosted: Mon Jan 30, 2006 10:58 am    Post subject:
Reply with quote

hi dipanshu,
r u sure the declaration of X-F is 77 then


MOVE X-G(I)(1:2) to X-F(I)(1:2) should give error rather than error on
MOVE X-G(I)(1:2) to X-F(1:2)

please checkit


thanks
balaji
Back to top
View user's profile Send private message
dipanshu

New User


Joined: 16 Jan 2006
Posts: 53
Location: pune

PostPosted: Mon Jan 30, 2006 12:46 pm    Post subject:
Reply with quote

Firstly I decld.
01 X-ARRAY.
05 X-G OCCURS 3 TIMES PIC x(7).
77 x-F PIC X(7) .

MOVE X-G(I)(1:2) to X-F(1:2) ----> showing abend as discussed above

Secondly, I decld
05 X-F OCCURS 3 TIMES PIC x(7).

MOVE X-G(I)(1:2) to X-F(I)(1:2) -------> ran with maxcc 0

Might be we can't move array element with refrence mod. to simple variable.
Is it correct?
Back to top
View user's profile Send private message
prabahar

New User


Joined: 25 Nov 2005
Posts: 6

PostPosted: Mon Jan 30, 2006 12:49 pm    Post subject: Re: ABEND: A reference modification start position value of
Reply with quote

Please check the index of the array.
Back to top
View user's profile Send private message
dipanshu

New User


Joined: 16 Jan 2006
Posts: 53
Location: pune

PostPosted: Mon Jan 30, 2006 12:53 pm    Post subject:
Reply with quote

I initialize subscript as
perform para1 varying I from 1 by 1 until I > 3.
Back to top
View user's profile Send private message
sbalajibe

New User


Joined: 15 Aug 2005
Posts: 62

PostPosted: Mon Jan 30, 2006 4:08 pm    Post subject:
Reply with quote

hi dipanshu


change the declaration on x-F as
01 x-F pic x(7) and try the same


thanks
Balaji
Back to top
View user's profile Send private message
gowtham_1982
Warnings : 1

Active User


Joined: 02 Dec 2005
Posts: 109

PostPosted: Tue Jan 31, 2006 9:33 am    Post subject:
Reply with quote

dipanshu wrote:
I declared variable
77 I pic x(1)

using in peform stmt as

perform para1 varying I from 1 by 1 until I > 3.

Para1
MOVE X-G(I)(1:2) to X-F(1:2) ----> showing abend as discussed above
MOVE X-G(I)(1:2) to X-F(I)(1:2) -------> ran with maxcc 0 .

why?



hi dipanshu,

i think you suceeded as it was a move to an array element. in that case you would have defined X-F in 01 level.

suggestions and welcomed...


gowtham
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 -> COBOL Programming 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 force a select query to abend neo4u DB2 5 Mon Apr 23, 2018 1:36 pm
No new posts Limit in Length for a CICS START seahawk789 CICS 6 Mon Apr 02, 2018 8:34 pm
No new posts Need help with 002-030 ABEND in TSO R... Terry Tallian TSO/ISPF 0 Sat Mar 17, 2018 1:13 am
No new posts can we hardcode a value in db2 load c... ram_vizag DB2 2 Wed Feb 28, 2018 11:04 pm
No new posts Need help with ABEND RC=S806 RSN=4 an... chong.zhou All Other Mainframe Topics 3 Fri Feb 09, 2018 12:17 am

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