Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
jivisampath

New User

Joined: 27 Jun 2005
Posts: 2
Location: bangalore

 Posted: Tue Jul 26, 2005 1:07 pm    Post subject: Move \$ to Numeric Field Hai This is sampath......... i have A pic ((3) value 123. b pic \$\$9. Move A to B. Then what will be the value in B? Give me the rply.............

New User

Joined: 05 Jun 2005
Posts: 41

 Posted: Tue Jul 26, 2005 1:34 pm    Post subject: 123 Madhu
donevin

New User

Joined: 07 Jun 2005
Posts: 70
Location: South Africa

 Posted: Tue Jul 26, 2005 1:45 pm    Post subject: Re: cobol Hi I suppose you mean A is Pic 9(3). I think b's value will be \$23. This is because when there is more than one sign in a picture clause it is a floating sign. The sign will float to the right hand side in the picture clause untill it finds the most significant digit, and suppress all zeroes while doing so. The sign will then be inserted in the picture clause to the left of the most significant digit. If the number of digits is more than or exactly as much as the picture clause, than the sign will overwrite the leftmost digit in the number. Correct if I am wrong please.

Active User

Joined: 06 Jan 2004
Posts: 247

Posted: Tue Jul 26, 2005 9:17 pm    Post subject:

Hi Sampath!

 Quote: A pic ((3) value 123. b pic \$\$9. Move A to B. Then what will be the value in B?

If we are mentioning more than one \$, it will just act as floating sign as donevin said. B contains \$23.

These simple things you can just give a try right!
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics RMM Cannot move a volume from SHELF l... tspr52 IBM Tools 0 Thu Mar 01, 2018 3:48 pm Moving a COMP-3 Variable to a Numeric... ajayachander COBOL Programming 2 Thu Dec 14, 2017 5:46 pm how can i move s9(9) to s9(9) usage comp HARENDRA CHOUDHARY COBOL Programming 3 Mon Nov 06, 2017 12:10 am Move from Comp3 variable to Edited Va... Revathy.nair0485 COBOL Programming 7 Fri Nov 03, 2017 3:30 pm Incrementing current time field by 30... arunsoods DFSORT/ICETOOL 11 Thu Oct 26, 2017 3:22 pm

 © 2003-2017 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us