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

Cobol Move query not giving expected value
IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
sudhakar_lendave

New User


Joined: 21 Nov 2006
Posts: 48
Location: mumbai
PostPosted: Thu Aug 30, 2007 4:52 pm
 Reply with quote
Hi Friends,
this is my code.

Code:

WORKING-STORAGE SECTION.                         
01  GROSS-PAY.                                   
    05  BASIC    PIC 999V9 USAGE COMP VALUE 50. 
    05  ALLOW    PIC 9(3).                       
01  WS-A         PIC 999.                       
PROCEDURE DIVISION.                             
    MOVE ZEROS TO GROSS-PAY.                     
    MOVE BASIC TO WS-A.                         
    DISPLAY 'WS-A ' WS-A.                       
    STOP RUN.         


i should get value of WS-A as 100 but it is not showing it 100.
instead i am getting 218.

i am not getting the reason behind it.

Sudhakar.
Back to top
View user's profile Send private message
amitava
Warnings : 1
Active User


Joined: 30 Oct 2005
Posts: 186
Location: India
PostPosted: Thu Aug 30, 2007 4:57 pm
 Reply with quote
How it is possible man? You are first using the following code -
Code:
MOVE ZEROS TO GROSS-PAY.

And the variable declaration is -
Code:

01 GROSS-PAY.
     05 BASIC PIC 999V9 USAGE COMP VALUE 50.
     05 ALLOW PIC 9(3).

So all the variables BASIC and ALLOW will be set to zeros. Pls clarify this first!
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
PostPosted: Thu Aug 30, 2007 5:34 pm
 Reply with quote
why do you think that you should have a value of 100?
Back to top
View user's profile Send private message
sudhakar_lendave

New User


Joined: 21 Nov 2006
Posts: 48
Location: mumbai
PostPosted: Thu Aug 30, 2007 5:54 pm
 Reply with quote
Sorry all for the confusion.
please refer this code

Code:

WORKING-STORAGE SECTION.                         
01  GROSS-PAY.                                   
    05  BASIC    PIC 999V9 USAGE COMP VALUE 50. 
    05  ALLOW    PIC 9(3).                       
01  WS-A         PIC 999.                       
PROCEDURE DIVISION.                             
    MOVE ZEROS TO GROSS-PAY.                     
    ADD 50 TO BASIC.
    MOVE BASIC TO WS-A.                         
    DISPLAY 'WS-A ' WS-A.                       
    STOP RUN.         
Back to top
View user's profile Send private message
Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA
PostPosted: Thu Aug 30, 2007 6:00 pm
 Reply with quote
sudhakar_lendave wrote:
Sorry all for the confusion.
please refer this code

Code:

WORKING-STORAGE SECTION.                         
01  GROSS-PAY.                                   
    05  BASIC    PIC 999V9 USAGE COMP VALUE 50. 
    05  ALLOW    PIC 9(3).                       
01  WS-A         PIC 999.                       
PROCEDURE DIVISION.                             
    MOVE ZEROS TO GROSS-PAY.                     
    ADD 50 TO BASIC.
    MOVE BASIC TO WS-A.                         
    DISPLAY 'WS-A ' WS-A.                       
    STOP RUN.         


MOVE ZEROS TO GROSS-PAY is an alphanumeric move so you are moving the character '0' to gross-pay not the number 0. Try MOVE ZEROS TO ALLOW instead.
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 Replace each space in cobol string wi... COBOL Programming 3
No new posts COBOL -Linkage Section-Case Sensitive COBOL Programming 1
No new posts COBOL ZOS Web Enablement Toolkit HTTP... COBOL Programming 0
No new posts Calling DFSORT from Cobol, using OUTF... DFSORT/ICETOOL 5
No new posts Generate random number from range of ... COBOL Programming 3
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us