Interested to Buy Any Domain ? << Click Here >> for more details...
There is a variable with value 19446. Requirement is to
convert it to 194.46. I tried it by doing divide by 100 and
my receiving field data type is 9(03)v99. But the output is
194. I am not getting the decimal value. Could anyone pls
let me know how to get this done?
- 2 Answers
- 6543 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / kiro
When COBOL does a divide it uses the format of the item
which in this case is integer only that is why the
fractional part is missing. You need to move the value
19446 to a 9(5)v99 item first and then do the divide using
the 9(5)v99 item.
| Is This Answer Correct ? | 7 Yes | 0 No |
To make this we require to use redefines.
01 ws-value-change
05 WS-ALPHANUMERIC PIC X(5).
05 WS-NUMERIC REDEFINES WS-ALPHANUMERIC PIC 9(3)
V99.
011 WS-EDITED-NUMERIC PIC 9(3).99.
PROCEDURE DIVISION
MOVE '19446' TO WS-ALPHANUMERIC
MOVE WS-NUMERIC TO WS-EDITED-NUMERIC
DISPLAY WS-EDITED-NUMERIC
STOP RUN
You will get the value as 194.46
| Is This Answer Correct ? | 7 Yes | 0 No |
comp-3 field occupy?
in cobol main pgm is calling sub pgm but sub pgm does not exists , what abend i get if submit the job?
is it possible to pass an SQL query inside a jcl which is inside a cobol program?
Have you used the sort in your project?for this type of questions any working on real time project give the eg. with real time scenario.
how can u redefine picx(10) with pic 9(6).
What is perform what is varying?
how we rectify soc7 and soc4 errors in project?
What does the IS NUMERIC clause establish ?
When can the USING phrase be included in the call statement ?
how can u find out just by seeing wheater it is main program or sub program ? any two ways to identify reply soon ?
Give some advantages of REDEFINES clause?
What is the utilization of copybook in cobol? Could we utilize a similar copybook?
COBOL 
