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
 
What is the result of the below code?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
rajesh_mbt

New User


Joined: 27 Mar 2006
Posts: 95
Location: India

PostPosted: Mon Dec 11, 2006 5:18 pm    Post subject: What is the result of the below code?
Reply with quote

01 A PIC S9(3).

MOVE -125 TO A.
DISPLAY A.



What is the value of A?
Back to top
View user's profile Send private message

krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Mon Dec 11, 2006 5:28 pm    Post subject:
Reply with quote

12N
will be displayed
Back to top
View user's profile Send private message
rajesh_mbt

New User


Joined: 27 Mar 2006
Posts: 95
Location: India

PostPosted: Mon Dec 11, 2006 5:31 pm    Post subject: Re: What is the result of the below code?
Reply with quote

Thanks for your reply.
Can you help me how it becomes 12N.
Back to top
View user's profile Send private message
krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Mon Dec 11, 2006 5:38 pm    Post subject:
Reply with quote

The sign will be punched on the least significant bit.
The corresponding codes for the positive and negetive digits are as follows....

if the no. is positive and the ...
last digit is | corresponding value is
1 | A
2 | B
3 | C
4 | D
5 | E
6 | F
7 | G
8 | H
9 | I
RESPECTIVELY

if the no. is negetive and the ...
last digit is | corresponding value is
1 | J
2 | K
3 | L
4 | M
5 | N
6 | O
7 | P
8 | Q
9 | R
Back to top
View user's profile Send private message
karthick Raja

New User


Joined: 10 Aug 2006
Posts: 8

PostPosted: Mon Dec 11, 2006 6:09 pm    Post subject: Re: What is the result of the below code?
Reply with quote

Hi,

Just put HEX ON and you can note the value suppressed. (Lease Significant Bit + Sign).
Back to top
View user's profile Send private message
muthukannan

New User


Joined: 03 Aug 2006
Posts: 42
Location: Chennai

PostPosted: Tue Dec 12, 2006 8:51 am    Post subject: Re: What is the result of the below code?
Reply with quote

Hi,

If we are declaring s9(4) , its displaying the same value. How to display the 123 with a minus symbol or 123N?

Can you please explain about this.

Thank you,
MK icon_smile.gif
Back to top
View user's profile Send private message
priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1452
Location: Chicago, IL

PostPosted: Tue Dec 12, 2006 9:49 am    Post subject: Re: What is the result of the below code?
Reply with quote

Quote:
How to display the 123 with a minus symbol or 123N?

Declare it as PIC ---9.
Back to top
View user's profile Send private message
cobolunni

Active User


Joined: 07 Aug 2006
Posts: 128
Location: kerala,india

PostPosted: Tue Dec 12, 2006 10:48 am    Post subject:
Reply with quote

You can also declare variable as PIC S9(3) SIGN IS LEADING SEPARATE.
Back to top
View user's profile Send private message
h.dinesh

New User


Joined: 06 Dec 2006
Posts: 46
Location: Chennai

PostPosted: Tue Dec 12, 2006 6:30 pm    Post subject: Re: What is the result of the below code?
Reply with quote

Hi,

Just to add to above
PIC S9(4) SIGN LEADING SEPARATE --- displays sign in the beginning

you may also use
PIC S9(4) SIGN TRAILING SEPARATE --- displays sign at end

Dinesh
Back to top
View user's profile Send private message
muthukannan

New User


Joined: 03 Aug 2006
Posts: 42
Location: Chennai

PostPosted: Wed Dec 13, 2006 12:03 pm    Post subject: Re: What is the result of the below code?
Reply with quote

Hi Guys,

Thank you so much for the elaborated explanasions.

Thank you,
MK icon_smile.gif
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 Handling result sets in the calling N... Rusikesh DB2 7 Fri Apr 13, 2018 12:25 am
No new posts Getting GG return code abdulrafi IMS DB/DC 2 Tue Apr 10, 2018 12:31 pm
No new posts IMS error U4038 while executing my PL... abdulrafi IMS DB/DC 2 Thu Feb 08, 2018 1:05 pm
No new posts Conditional setting of return-code af... sanvan COBOL Programming 9 Wed Jan 31, 2018 11:05 pm
No new posts IBEGENER RETURN CODE 12 anilkumar922 All Other Mainframe Topics 5 Wed Dec 13, 2017 11:41 am

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