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 / 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



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

) How do u handle errors in BMS macro?

1427


How to print 10 to 1 if the input have only 10 digit number?

811


What is the difference between next sentence and continue in cobol programing language?

711


Write some characteristics of cobol as means of business language.

619


What is link edit in cobol?

772






HOw can I get the negative sign while deduct high value from low value

1790


Write a program that uses move corresponding.

673


What is the difference between structured cobol programming and object alternativelyiented cobol programming?

709


How do you code cobol to access a parameter that has been defined in jcl? And do you code the parm parameter on the exec line in jcl?

700


How do u write test cases?

1638


What is perform what is varying?

709


how do you reference the ksds vsam file formats from cobol programs

666


Can a Search can be done on a table with or without Index?

802


Which is not true about evaluate statement

1577


How do define dynamic array in cobol. how do you define single dimensional array and multidimensional array in your cobol?

709