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.
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 |
How do you compile cobol program..?
what is soc7 abend?how u can trace it?
What is the maximum size of a 01 level item in COBOL I? in COBOL II?
What are the different data types in cobol?
How to find out the closest prime number of an input number? I believe it has something to do with SEARCH and COBOL Linear Array.
db2 variable decimal(15,2) what is the equalent size of cobol variable
how would find total records in files using seqientional
01 xxx pic 9(4). 01 yyy pic 9(6). move 123456 into yyy. move yyy to xxx. display yyy. what would be the value of yyy
What is amode(31)
Define REDEFINE clause and Is it possible to have the redefine clause anywhere in the working storage section for a data name?
A table has two indexes defined. Which one will be used by the SEARCH?
I have a file it contain 10 records.i got abend at 8th record because of soc7.how do you know that perticular record got abend?