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 insert a value on specific pos... Poha Eater DFSORT/ICETOOL 9 Sun Oct 01, 2017 3:04 am
No new posts Creating ISPF Screens with Scrname vi... Albireo20 TSO/ISPF 9 Tue Sep 05, 2017 4:24 pm
No new posts StreamWeaver language reference chetanambi Compuware & Other Tools 1 Wed Jul 05, 2017 12:50 pm
No new posts How to generate a new unique Input fi... for1ranjith CLIST & REXX 11 Sat Jul 01, 2017 12:09 pm
No new posts How to Clear all TSQs during CICS sta... Hooman24 CICS 10 Mon Jun 26, 2017 9:46 pm

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