77 a pic x(4) value '1234' -----> instead of this 'abcd'
77 b pic 9(4) value zeros.
move a to b
what is the answers for both cases?
IS it possible? Give me elementary move rules briefly......
Answers were Sorted based on User's Feedback
Answer / amarnath reddy
Hi,
That is wrong answer. we can get that result when we MOVE A
TO B. result is 1234.
because A is declared as alphanumeric and B is declared as
numeric but here A is intialized all numeric values(1234)
only and move to the B is also numeric So not possible to
get any abend.
Is This Answer Correct ? | 5 Yes | 0 No |
Answer / mithlesh
It is not possible to move alphanumaric to numaric data type
it will throw soc7 error at runtime.
Sco7 is the abend . which come when mismatch problem
occured.
Is This Answer Correct ? | 4 Yes | 1 No |
Answer / subra kondaveeti
Hello All, Move a alpha numeric field to Numeric fields doesn't necessarily gives a soc7 because it depends upon the what the alpha-numeric field contains.
for example value of 'ABCD' in teh alpha-numeric field ALSO MOVES 1234 to numeric field. if you look at the assembly instruction produced for the move statement is
moven which means ignore the zone portion of each byte and move the numeric value of the byte. but it can give soc7 if you move '----' to numeric field because it tries to move x'CACACACA' to numeric field. if you look at the numeric portion of every byte is 'A' and hence can't be moved
Is This Answer Correct ? | 3 Yes | 0 No |
Answer / satish kumar
hello all, yes it is possible to move alphanumeric to
numeric but not numeric to alphanumeric.if we are moving
alphanumeric character "abcd" to numeric. The compiler
accepts the first three characters as same and the remaining
last character it takes ascii value/code of last character 'd'.
pgm1: 77 a pic x(4) value "abcd".
77 b pic 9(4) value zeros.
move a to b.
o/p: abc4
pgm2: 77 a pic 9(4) value 1234.
77 b pic x(4).
move a to b.
o/p: 1234
in this case the compiler can move the numeric values to
alphanumeric directly.
Is This Answer Correct ? | 3 Yes | 0 No |
Answer / amarnath reddy
Hi Vinod,
If we move to only numeric values but alphanumeric data
item into numeric data item, We not possible to get any
abend. If we move to alphabetic values (abcd) to numeric
data item we can get the abend soc7.
Is This Answer Correct ? | 1 Yes | 0 No |
Answer / vinodquestion
Hi Mr. Amar. Thank you for your answer. Then wat about 'abcd'..
Is This Answer Correct ? | 0 Yes | 0 No |
Answer / himanshu
Mr Amarnath,i would advise you to read and understand
question properly.And please dont mark ur answer correct
yourself.its irritating.
Is This Answer Correct ? | 0 Yes | 0 No |
Answer / amarnath reddy
Hi Himanshu,
you read and try to understand my answer. I posted my answer
is Those cases not possible only when we move 1234 to b data
item that is accepted otherwise move abcd to b data item
possible to get the abend soc7.
Is This Answer Correct ? | 0 Yes | 0 No |
What is the difference between static call & Dynamic call?
how do you reference the esds vsam file formats from cobol programs
wht is packed decimal in cobol
wht is structured cobol pgm and non structred cobol pgm ?
using redefine can you redefine lower variable size to higher variable size?
How do you define a table/array in COBOL?
can i give 9(10) in comp 3 instead of s9(10) ? if i can give wht would be ths ans
what will be the output when a)pic 9(6)value 000178 is moved to pic ***,***. b)pic 9(5) value 57397 is moved to pic $$,$$9.
How to change size of Initial number of records to *NOMAX for ALL PF files from perticular library, how can I do that
where will u code file status ?
Explain about level numbers?
What will happen if we move SPACES to numeric field and ZEROES to alphabetic field?