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
- 6649 Views
- I also Faced
- E-Mail Answers
Answer Posted / vaneesh
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 |
Post New Answer View All Answers
Write the code implementing the perform … varying.
here is my requirement A1 is alphanumeric with value 'A1B2C3D4' as defined below 05 A1 PIC X(8) VALUE IS 'A1B2C3D4' but i need to have A2,A3 as ABCD & 1234 repectively...... A2 = ABCD A3 = 1234 Can you please explain me what are the different ways to do it?
what is the use of outrecord?
A table has two indexes defined. Which one will be used by the SEARCH?
I have to write to a outfile where the number of records in that file should be the header of that file using IMS.. can anyone help me in this issue
What is the problem of ordered sequential files access?
Write a cobol program making use of the redefine clause.
Explain sorting techniques in cobol program? Provide the sort file definition, the sort statement, its syntax and meaning
Why did you choose to work with ibm mainframe cobol programming?
In COBOL programming, what is PERFORM? What is VARYING?
Which Search verb is equivalent to PERFORM…VARYING?
Our issue is there seems to be a disconnect, or no link, between our SELECT statement and our SD. We had SELECT SORT-FILE and SELECT SORT-FILE ASSIGN TO SORTWRK. ASSIGN TO SORTWRK1 SORTWRK2 SORTWRK3 SORTWRK4. with SD SORT_FILE RECORD CONTAINS 7833 CHARACTERS. In either case, at run time, the system ignored our SORTWRK# DD statements and allocated 16 sort works with the SORTWK## naming convention. Any ideas why the system does not recognize the connection? We do not even need the SORTWRK DD statements. Thanks
Write a program that uses move corresponding.
Difference between array and sub-script ?
What is report-item in COBOL?
