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......
Answer Posted / 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 |
Post New Answer View All Answers
What is amode(31)
What the difference is between continue and next sentence?
2 input fles: 2 flat files, with different number of records. both are having unique key for each record and already sorted in ascending order . match these files using unique key and in output only matching key value has to be written. please procide cobol logic
How you can characterize tables in cobol?
How do get the result of your program directly on your pc?
How to get the last record in vsam file in cluster? And how can you get the ksds file records into your cobol program?
can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there
Explain how will you differentiate between an internal and an external sort, the pros and cons, internal sort syntax etc
How to fetch 1000 error records from VSAM file(Eg: 1000000 records present) while getting SOC7 abend ?
How to get the last record in vsam file in cluster? And how can you get the ksds file records into cobol program?
Define cobol?
What are the pertinent COBOL
What is an in line perform? When would you use it? Anything else you wish to say about it.
Is it possible that the redefines clause has different picture clauses compared to the one it redefined?
) How do u handle errors in BMS macro