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

Error in simple move statement.


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

Active User


Joined: 17 May 2010
Posts: 175
Location: India

PostPosted: Tue Jun 29, 2010 8:49 pm
Reply with quote

Code:

IF(PRIOR-PAY-INDEX(6)    IS NUMERIC) AND       
  (CURRENT-PAY-INDEX(12) IS NUMERIC) AND       
  (CURRENT-PAY-INDEX(1)  IS NUMERIC) THEN       
     MOVE PRIOR-PAY-INDEX(6)    TO LS-PAYDEX18 
     MOVE CURRENT-PAY-INDEX(12) TO LS-PAYDEX12 
     DISPLAY CURRENT-PAY-INDEX(1) ':CURRENT PDX'

     MOVE CURRENT-PAY-INDEX(1)  TO LS-PAYDEX1
 
 ELSE                                         
     DISPLAY 'PAYDEX VALUE NOT VALID'           
END-IF.                                         


CURRENT-PAY-INDEX(1) pic comp-3 s9(3).
LS-PAYDEX1 pic 9(04).

I have an error in the statement,
MOVE CURRENT-PAY-INDEX(1) TO LS-PAYDEX1

its s0c4 abend.
CEE3204S The system detected a protection exception (System Completion Code=0C4)

Value of current-pay-index(1) is 999(from the display statement).
Quote:
999:CURRENT PDX
is the spool output of the display statement.

But the move statement causes an error,

I have tried my best,
I have no idea about this please help.

Thanks,
Shan.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


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

PostPosted: Tue Jun 29, 2010 8:53 pm
Reply with quote

S0C4 is a storage protection abend as the CEE3204S message indicates. Where are the LS-PAYDEX variables defined? If they are in LINKAGE SECTION, what does your PROCEDURE DIVISION USING statement look like? In other words, if they are LINKAGE SECTION items, how do they obtain addressability?
Back to top
View user's profile Send private message
shankarm

Active User


Joined: 17 May 2010
Posts: 175
Location: India

PostPosted: Tue Jun 29, 2010 8:56 pm
Reply with quote

Thanks Robert,

Also extremely sorry for wasting your time, I dint specify the linkage section var(LS-paydex1) in using.

My mistake.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


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

PostPosted: Tue Jun 29, 2010 8:57 pm
Reply with quote

Glad we got that one cleared up, then! Thanks for letting us know.
Back to top
View user's profile Send private message
shankarm

Active User


Joined: 17 May 2010
Posts: 175
Location: India

PostPosted: Tue Jun 29, 2010 9:05 pm
Reply with quote

Robert,

I have one more question,

Just by looking at 'CEE3204S' how did you identify that it is an addressibility issue?

what is CEE3204S??

Do we have a manual for all these code's?

If we have please send me the link.

Thanks,
Shan.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Tue Jun 29, 2010 9:10 pm
Reply with quote

click on the IBM Manuals links at top of the page

or for all the zOS IBM manuals You might need in Your IT career
www-03.ibm.com/systems/z/os/zos/bkserv/index.html
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 Error to read log with rexx CLIST & REXX 11
No new posts Error when install DB2 DB2 2
No new posts CLIST - Virtual storage allocation error CLIST & REXX 5
No new posts COBOL - Move S9(11)v9(7) COMP-3 to -(... COBOL Programming 5
No new posts Error while running web tool kit REXX... CLIST & REXX 5
Search our Forums:

Back to Top