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
i want to learn mainframe..any websites and material to learn from basic..? my mail id : rajeswaribe2010@gmail.com
Explain the configuration section of a cobol program with examples of syntax.
how do you reference the printer file formats from cobol programs
Write the code implementing the perform … varying.
Write a program to enter and display the names of students in a class using the occurs clause.
System Testing for Mainframe Developers What is System Testing? integration testing ? what's the procedure ..
What is a scope terminator give example?
How to traceback if I am getting SOC7 or SOC4 abend? List down the steps
can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there
what is the use of outrecord?
Name some of the examples of COBOl 11?
What is the difference between comp and comp-3?
Why occurs cannot be used in 01 level in COBOL?
How can we find that module can be called – whether DYNAMICALLY or STATICALLY?
I have File 1 occurs 5 times with Employee-ID,Employee-Name,Employee-Dept (EEE and MECH). I have File 2 occurs 10 times with Employee-ID,Employee-Name,Employee-Dept (EEE,CIVIL,CHEMICAL and MECH). In FIle 1 and FIle 2 , for matching Employee-DEPT (Only MECH) , we need to move entire records from file1 to file 2. We should not use 2D array. Your help is needed here.