Answer / guest1

In the above answer the group contains a PIC clause. It
wrong. Group item should not contain any PIC clause.
01 ws-in-alpha pic x(7).
01 ws-in-numeric redefines ws-in-alpha.
05 ws-data pic 9(7)v99.

01 ws-actual-data pic s9(7)v99 comp-3.

In procedure division,
move ws-in-numeric to ws-actual-data.

Answer / mvramesh

01 ws-in-data Pic X(7)
05 ws-numeric Pic x (4) value '3000'
05 ws-filler Pic x (1) value '.'
05 ws-decimial pic x (2) value '00'

01 WS-Temp-CHAR PIC X(6)
05 ws-num Pic x (4)
05 ws-dec Pic x (2)

01 WS-TEMP-NUM redefines WS-Temp-char pic 9(4)V9(2)

01 WS-OUT-Data PIC S9(7)V9(2) comp-3

move ws-numeric to ws-num
move ws-decimal to ws-dec

move ws-temp-num to WS-OUT-data

here is the logic, there may be syntax errors. need to modify based on the format of input data.

how to run sub programs using static and dynamic call ...

3 Answers   TCS,

---

In COBOL "BEFORE" advancing is there or not ?

3 Answers  

---

what is the meaning of pic 9(09)v99-

4 Answers   HSBC,

---

what are the utilities for load and unload the DB2 tables

1 Answers   L&T,

---

Which Search verb is equivalent to PERFORM…VARYING?

0 Answers  

---

i have variable record in the 5th, i want to sort from 5th filed ? how ?

2 Answers   TCS,

---

I have files that contains both duplicates files(occur more than twice) and non-duplicate files.The file is already sorted by a key.I want to determine those records that are duplicate and will be move to a duplicate file and non- duplicate files to be move to a valid file.thank you.help please

2 Answers  

---

What is the Importance of GLOBAL clause According to new standards of COBOL?

2 Answers   Infosys,

---

What is the purpose of Identification Division?

1 Answers  

---

What is the difference between comp and comp-3 usage?

0 Answers  

---

how many bytes does s9(15) occupy in comp1 comp2 and comp3 ?

4 Answers   TCS,

---

Is it possible that the redefines clause has different picture clauses compared to the one it redefined?

0 Answers  

---