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
- 6123 Views
- I also Faced
- E-Mail Answers
Answer Posted / 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 |
Post New Answer View All Answers
how do you reference the rrds file formats from cobol programs
What is inspect in cobol ?
How many sections are there in data division in COBOL?
Which is the default, TEST BEFORE or TEST AFTER for a PERFORM statement?
What are the different rules to perform a Search?
How you can read the file from bottom?
i want to learn mainframe..any websites and material to learn from basic..? my mail id : rajeswaribe2010@gmail.com
How many bytes S(8) comp field occupy and its maximum value?
What is the difference between goback, stop run and exit program in cobol?
What is the difference between PIC 9.99 and 9v99 in COBOL?
what are decleratives in cobol?
What is a SSRANGE and NOSSRANGE?
What are the different rules for performing sort operation?
How to use the same COBOL program in Batch and CICS on lines? explain with an example
What are the pertinent COBOL commands?
