|
View previous topic :: View next topic
|
| Author |
Message |
Karthikeyan Subbarayan
New User
Joined: 24 Feb 2008
Posts: 62
Location: Boston
|
|
|
|
Hi,
Really i got confused like how this code works,
DCL 01 STRING_1 CHAR(03);
..
.
STRING_1 = 0 ;
PUT SKIP LIST(' STRING 1 VALUE IS :' ,STRING_1);
I Compiled with old compiler and getting the Value as spaces.
can any one explain how it works. |
|
| Back to top |
|
 |
Karthikeyan Subbarayan
New User
Joined: 24 Feb 2008
Posts: 62
Location: Boston
|
|
|
|
| do this is simply flagging code that has always been wrong. |
|
| Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1787
Location: Bloomington, IL
|
|
|
|
| The effective precision (p,q) of the decimal constant zero is (1,0). When a decimal constant of precision (p,q) is converted to a string, an intermediate string of length p+k+3 is created, where k is the of digits expressed by q; hence is this case the string has length = 4; the character '0' is right-justified in it, the rest of the positions being spaces. When assigning it to the target STRING_1, it is of course truncated to the length of STRING_1, viz., 3; those three positions are all spaces. Q.E.D. |
|
| Back to top |
|
|
Karthikeyan Subbarayan
New User
Joined: 24 Feb 2008
Posts: 62
Location: Boston
|
|
|
|
| Thanks a lot Akatsukami, now it sounds good. |
|
| Back to top |
|
|
|
|
