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
 

 

Cobol Move query not giving expected value

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
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    Post subject: Cobol Move query not giving expected value
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    Post subject:
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: 6967
Location: porcelain throne

PostPosted: Thu Aug 30, 2007 5:34 pm    Post subject:
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    Post subject: Reply to: cobol move query.
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    Post subject: Re: Reply to: cobol move query.
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    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
This topic is locked: you cannot edit posts or make replies. Cobol GUI (like Editor) Kala Mainframe COBOL Programming 14 Wed May 10, 2017 12:30 pm
No new posts IMS T-Pipe queue counts in a COBOL Pr... Siva NKK Kothamasu IMS DB/DC 0 Tue May 09, 2017 6:31 pm
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am
No new posts Cobol upgrade - source code missing f... gthmrj IBM Tools 1 Wed Apr 26, 2017 6:04 pm
No new posts COBOL Programming Sandpit? jodrisco COBOL Programming 6 Wed Apr 12, 2017 3:47 am


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