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
- 5986 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
i want a program using by if, evaluate , string, unstring, perform, occurs?
Give some examples of command terminators?
What are the various section in data division and briefly explain them.
Explain about different table spaces.
How can you get the ksds file records into your cobol program?
System Testing for Mainframe Developers What is System Testing? integration testing ? what's the procedure ..
how can we apply for HSBC exam(Mainframe) in India??? i went to their site and was told to submit my CV ,. etc..( totally confusing...)
What is the difference between PIC 9.99 and PIC9v99?
Difference between cobol and cobol-ii?
What are the pertinent COBOL
Write some characteristics of cobol as means of business language.
How to read the 2nd last record of a VSAM file? (The file size is huge and we don't know the key)
What is perform what is varying?
1.Is it possible to move the data from 99.99 to 99v99? 2.What is the CICS-vsam Compilation process? 3.In My GDG 5 generation will be there GDG3 got an abend what will happen? 4.In my GDG first generation is +1 And I want to add the new generation what will happen previous generation? 5.How can you give the PIC clause below conditions A). s9 (reddy), B). s9 (5) occurs 5 times? 6.How override the proc from a particular step? and what is symbolic and override Procs?
What is Pic 9v99 Indicates in COBOL?
