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.

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.

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

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.

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.

Answer / vinodquestion

Hi Mr. Amar. Thank you for your answer. Then wat about 'abcd'..

Answer / himanshu

Mr Amarnath,i would advise you to read and understand
question properly.And please dont mark ur answer correct
yourself.its irritating.

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.

Identify the invalid dataname from the following: (A) savings-account (B) annual-allocation-for-overhead (C) samount250 (D) 12demand

4 Answers   TCS,

wht is the use of evalute verb ? how do u declare recfm in cobol and jcl ?

2 Answers   EDS,

Syntax for JCLLIB & JOBLIB???

1 Answers  

study the data discriptions and answer the questions given below i)01 ORDER RECORD 05 OUT-HEADER PIC X(50) 05 ITEM-COUNT PIC 99 05 OUT-ITEM PIC X(20) OCCURS 1 TO 20 DEPENDING ON ITEM-COUNT ii)01 NAME-AND-ADDRESS 05 N-AND-A-LINE OCCURES 5 05 LINE-LENGTH PIC P9 05 N-AND-A-CHAR PIC X OCCURS 1 TO 20 DEPENDING ON LINE-LENGTH iii)01 SALES-LIST 05 SALESMAN-COUNT PIC 99 05 SALES PIC 9(6) OCCURS 1 TO 100 DEPENDING ON SALESMAN-COUNT iv)01 ORDER-RECORD 05 NO-OF-BRANDS PIC 99 05 BRAND-PURCHASED OCCURS 1 TO 15 DEPENDING ON NO-OF-BRANDS which of the following is true? a.i) and iii) are valid b.i) and iv) are valid c.i) and iii) are not valid d.all are valid

4 Answers   TCS,

Differentiate cobol and cobol-ii. (Most of our programs are written in cobolii, so, it is good to know, how, this is different from cobol)?

0 Answers  

01 var1 pic s9(9)v99. 01 var2 pic x(30). procedure division. move 12345.99 to var1. move12345.99 to var2. display var1. display var2. what is the output?

2 Answers   IBM,

Name the divisions in a COBOL program ?

7 Answers  

How can you pass values from COBOL program to non-COBOL programs?

2 Answers  

is it mandatory to give data division before procedure division ? wht happens if i give procedure division first thn data division ? reply soon

2 Answers   Patni,

There is a variable with value 19446. Requirement is to convert it to 194.46. I tried it by doing divide by 100 and my receiving field data type is 9(03)v99. But the output is 194. I am not getting the decimal value. Could anyone pls let me know how to get this done?

2 Answers  

can we use 77 level no for Redefines?if we use give an example?

3 Answers   Mphasis,

What compiler option would you use for dynamic linking?

2 Answers