Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Error in simple move statement.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
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    Post subject: Error in simple move statement.
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: 7997
Location: Bellevue, IA

PostPosted: Tue Jun 29, 2010 8:53 pm    Post subject:
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    Post subject:
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: 7997
Location: Bellevue, IA

PostPosted: Tue Jun 29, 2010 8:57 pm    Post subject:
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    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10232
Location: italy

PostPosted: Tue Jun 29, 2010 9:10 pm    Post subject: Reply to: Error in simple move statement.
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
http://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    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 Need help with below DB2 error ashek15 DB2 3 Sat Mar 18, 2017 5:56 am
No new posts FINDREP Syntax Error seahawk789 DFSORT/ICETOOL 4 Thu Mar 09, 2017 10:11 pm
No new posts INVOKE WEBSERVICE error danik56 CICS 11 Thu Mar 09, 2017 11:52 am
No new posts Row not found Sql error GaganGarg DB2 7 Tue Mar 07, 2017 6:29 am
No new posts DB2 SQL Error: SQLCODE=-440, SQLSTATE... kishpra DB2 1 Sat Feb 18, 2017 2:31 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us