|
View previous topic :: View next topic
|
| Author |
Message |
Madhu Reddy
New User
Joined: 28 Sep 2006
Posts: 56
|
|
|
|
i have a variable with 9(9), when i pass value
for example 37 , i am getting as 000000037, i should not get leading zero,
i should get only 37, Please suggest the solution using cobol.
Thanks |
|
| Back to top |
|
 |
Aji
New User
Joined: 03 Feb 2006
Posts: 53
Location: Mumbai
|
|
|
|
Declare a variable
01 edit_var pic z(8)9.
and move the value to be edited to edit_var.
Aji |
|
| Back to top |
|
|
jaspal
New User
Joined: 22 May 2007
Posts: 68
Location: mumbai
|
|
|
|
HI
YOU CAN USE :
READ FILE:
MOVE FIELD TO WW-FILELD
MOVE ZEROES TO WW-COUNT
INSPECT WW-FIELD TALLYING WW-COUNT FOR LEADING
ZEROES.
( WHERE WW-FIELD= 000000037 AND WW-COUNT=NUMBER OF ZEROES,DECLARATION IN WORKING STORAGE AS
01 WW-COUNT PIC 9(2) VALUE ZEROES.
01 WW-FIELD PIC 9(15) VALUE ZEROES. )
THEN
COMPUTE WW-LEN = 15 - WW-COUNT
MOVE WW-FIELD(WW-COUNT:WW-LEN) TO WW-COUNT-O
EXPECTED RESULT WOULD BE WW-COUNT-O = 37 |
|
| Back to top |
|
|
acevedo
Active User
Joined: 11 May 2005
Posts: 344
Location: Spain
|
|
|
|
| jaspal wrote: |
HI
YOU CAN USE :
READ FILE:
MOVE FIELD TO WW-FILELD
MOVE ZEROES TO WW-COUNT
INSPECT WW-FIELD TALLYING WW-COUNT FOR LEADING
ZEROES.
( WHERE WW-FIELD= 000000037 AND WW-COUNT=NUMBER OF ZEROES,DECLARATION IN WORKING STORAGE AS
01 WW-COUNT PIC 9(2) VALUE ZEROES.
01 WW-FIELD PIC 9(15) VALUE ZEROES. )
THEN
COMPUTE WW-LEN = 15 - WW-COUNT
MOVE WW-FIELD(WW-COUNT:WW-LEN) TO WW-COUNT-O
EXPECTED RESULT WOULD BE WW-COUNT-O = 37 |
you must be joking  |
|
| Back to top |
|
|
acevedo
Active User
Joined: 11 May 2005
Posts: 344
Location: Spain
|
|
|
|
| I've re-read the original question and I can see it's not clear if the desired output for '000000037' is ' 37' or '37'. |
|
| Back to top |
|
|
acevedo
Active User
Joined: 11 May 2005
Posts: 344
Location: Spain
|
|
|
|
I meant:
|
|
| Back to top |
|
|
|
|
