01 var1 pic x(10)
01 var2 redefines var1 pic 9(10).

then in procedure division

move 'abcde' to var1 then waht is the value of var1 and var2

Answer Posted / soumya santosini patnaik

soc7 abend occurs because according to move rules
alphaneumericfields can be moved to numeric fields only
when alphanumeric field consists of numeric data only.

Is This Answer Correct ?    0 Yes 5 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

How do u write test cases?

1823


) what is the difference between AID and HANDLE AID?

1891


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

885


Mention the guidelines to write a structured cobol program?

837


how to move the records from file to array table. give with code example

2440


What is the LINKAGE SECTION used in COBOL?

1214


Difference between cobol and cobol-ii?

949


How to traceback if I am getting SOC7 or SOC4 abend? List down the steps

5090


I have one ps file in which there are 3 fileds emp_no,emp_name and leave_app.this ps file information give the detail of employee which is going to apply for leave.suppose emp_no=113430,emp_name=ajay,leave_app=1 that means he is going to apply for 1 day leave.and accordingling the table in db2 will be updated means if he has that no of leave in his account then he will get dat leave and updated acc. in table(leave_balance=previous leave present in table-leave_app).Now i want to check whther the updated result is correct or not by comparing the two ps file using IEBCOMPARE or icetool so what is going to be the two ps file and how its is going to be compare.

2215


how can we apply for HSBC exam(Mainframe) in India??? i went to their site and was told to submit my CV ,. etc..( totally confusing...)

2147


what is difference between cobol and cobol/400

22161


Write some characteristics of cobol as means of business language.

854


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

962


What is an in line perform? When would you use it? Anything else you wish to say about it.

843


What is rmode(any) ?

905