Interested to Buy Any Domain ? << Click Here >> for more details...
Hi All,
Can anyone tell me how we can MOVE value of a X(19)
variable to a S9(17) COMP-3 variable?
Answer with an Example will be of great help.
- 6 Answers
- 27757 Views
- EDS, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / nicx
The function NUMVAL can be used to change the X(19) to S
(17) and then moved to comp-3
Ex:
ws-variable PIC X(19)
ws-variable-1 PIC S9(17)
ws-variable-1 PIC S9(17) comp-3
Compute ws-variable-1 = function numval(ws-variable)
move ws-variable-1 to ws-variable-2.
Ofcourse you should be expecting a signed 9(17) value in
the ws-variable. Check out NUMVAL-C too. Both functions are
a great help in such situations.
| Is This Answer Correct ? | 6 Yes | 0 No |
Answer / nk
05 MY-NUM-ALPHA PIC X(9).
05 MY-NUM REDEFINES MY-NUM-ALPHA PIC S9(17) COMP-3.
MOVE 'ABCDEFGHI' to MY-NUM-ALPHA.
note that comp-3 stores 2 numbers per byte so 17 digits
takes 9 bytes (half of one byte stores the sign.) So you
could move a 19-character variable to a 9-byte field but it
will be truncated.
| Is This Answer Correct ? | 5 Yes | 5 No |
Answer / gans
NICX's statements worked for me...
Thanks NICX....
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / ram.g
Vamsi, u r wrong, you have to read the 2nd answer again...
we can't perform any numeric operations on arithmetic field
thats right for overcome that scenario only we are using
the method called redefine. when you redefine its pointing
to the same loacation only but just telling the MVS
consider the new picture clause for the new variable..one
thing is sure here which is nothing but truncation when you
try to move x(...) to comp-3 but we can perform arithmetic
operations for sure..you can try it out....
| Is This Answer Correct ? | 2 Yes | 3 No |
Answer / vamsi
First of all s9(17) comp-3 will occupy 9 bytes and X(19) has
19 bytes of memory.
When we move the text value to an comp-3 field, we will get
Soc7 error. We cannot move alpha values to numeric fields.
If the X(17) contain numeric values then we can move this
field to s(17) comp-3 field and we can move only 9 bytes
other data will be trucated.
| Is This Answer Correct ? | 4 Yes | 8 No |
How to Pass table from a cobol program to another cobol program and how to use that table in called program
whats the disadvantage of search all over search?
what is srange and nosrange pls reply to ths question ?
what is the purpose of linkage section?
What are the differences between COBOL and COBOL II?
01 a pic s9(5) value '-12345' how it will be stored
DATAONLY, MAPONLY functionality?
diffrence between z(2) and z9(2)
what is the use of outrecord?
Explain complete concept of table handling in COBOL with an example?
I have a COBOL main program which is calling sub program, the number of calling parameters used in main program are 4 whereas in sub program it's 5. Sub program is passing 5 parameters back to main program Will there be any compilation error? Or main program parameters displays junk values?
Extract only those records from a PS file which are having word 'TEXT' in the records using COBOL? The word TEXT is not present in a particular position in all the records.
COBOL 
