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
 
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: 8195
Location: East Dubuque, Illinois, USA

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: 8195
Location: East Dubuque, Illinois, USA

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: 10373
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 how can i move s9(9) to s9(9) usage comp HARENDRA CHOUDHARY COBOL Programming 3 Mon Nov 06, 2017 12:10 am
No new posts Move from Comp3 variable to Edited Va... Revathy.nair0485 COBOL Programming 7 Fri Nov 03, 2017 3:30 pm
No new posts -502 Error - Cursor already open anand jeyapaul DB2 7 Sun Oct 29, 2017 4:22 am
No new posts COBOL - EXIT statement weird behavior anthony.pangestu COBOL Programming 0 Fri Oct 27, 2017 9:57 am
No new posts IEW2456E error when link-editing a C ... Senthilraj JCL & VSAM 0 Fri Oct 13, 2017 3:12 pm

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