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 have a program with an Array of 5000 occurences which is being passed from 5 sub levels to the front end screen. Thess 5 programs using each 5*2 = 10 different arrays with size as 5000. This is causing the transaction to utilize more storage consupmtion. I am looking to reduce the storage consumption. As part of that initially i thought Dynamic array may solve my problem. After viewing the comments given i see its same as normal array. IS there any other way we can resolve this issue?
How to change size of Initial number of records to *NOMAX for ALL PF files from perticular library, how can I do that
What is inspect in cobol ?
how do you reference the variable block file formats from cobol programs
Name some of the examples of COBOl 11?
What is the problem of ordered sequential files access?
What are literals?
What is the difference between perform … with test after and perform … with test before?
i want a program using by if, evaluate , string, unstring, perform, occurs?
What is difference between static and dynamic call in cobol?
What is the Purpose of Pointer in the string?
What is the utilization of copybook in cobol?
EXPLAIN MAIN FRAME TESTING PROCESS...HOW TO FIX THE MAINFRAME BUGS?
If you are current on the owner of a set, what is the difference between an obtain next and obtain first? Actually in which topic will we use dis???Plz explain it clearly
Explain sorting techniques in cobol program? Provide the sort file definition, the sort statement, its syntax and meaning