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 How to include a particular field val... sakrat DFSORT/ICETOOL 8 Fri Apr 06, 2018 8:27 pm Sort numeric fields with trailing spaces sancraig16 SYNCSORT 7 Tue Apr 03, 2018 1:21 am Extract the records with a PD field's... sudhakar84 DFSORT/ICETOOL 11 Mon Apr 02, 2018 7:26 pm Searching a table for the field name? socker_dad COBOL Programming 8 Sat Mar 31, 2018 2:57 am RMM Cannot move a volume from SHELF l... tspr52 IBM Tools 0 Thu Mar 01, 2018 3:48 pm

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