Interested to Buy Any Domain ? << Click Here >> for more details...
Sending data is aplhabetic size 7 (value 3000), I wantated
this value to be stored in database, which is defined as
s9(7)v9(2)comp-3.
- 2 Answers
- 6069 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
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.
| Is This Answer Correct ? | 6 Yes | 0 No |
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.
| Is This Answer Correct ? | 2 Yes | 4 No |
Can we put move statement in COBOL copybook
how to run sub programs using static and dynamic call ...
Write the code implementing the perform … varying.
HOw can I get the negative sign while deduct high value from low value
how will u find out 3rd week's 2nd day using occurs ?
in the TIME parameter we r giving hours r minutes
i have mainprogram and subgram...if i compile mainprogram without stop run..what will u get in compilation time?
what modification we need to do in jcl if we use sort in cobol? I mean whether we need to include tempary file used for sorting in assign statement?
Difference between lrecl, blksize among PS, PDS issues? i.e in jcl at dcb
What are the different rules of SORT operation?
How do you compile cobol program..?
when COMP-3 is preferrable?
COBOL 
