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
Answers were Sorted based on User's Feedback
Answer / s.v.venkata sivaprasad
redefines will reuse the memory with irrespective of date
type var1 is abcde and var2 also abcde.
| Is This Answer Correct ? | 22 Yes | 0 No |
Answer / abhishek_ibm
Both will be having the same value but the only difference
is when we use airthmetic operation then it will take hex
value .. I do think I am correct but kindly correct me if i
am mistaken.
| Is This Answer Correct ? | 6 Yes | 0 No |
Answer / ashok
in x1 & x2 is haveing same value "abcd" and also memory
location also is same. thats why if u chang any values of
these atomatically chang both values.
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / 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 |
Answer / jaganmohanreddy
var1 will be abcde
var2 will be 0000000000
| Is This Answer Correct ? | 1 Yes | 7 No |
Answer / veena
************************************************************
************************************************************
************************************************************
It will give compilation error.
| Is This Answer Correct ? | 0 Yes | 11 No |
Explain the configuration section of a cobol program with examples of syntax.
A table has two indexes defined. Which one will be used by the SEARCH?
I have two questions here. 1. How to read a flat file in reverse order? 2. How to read a VSAM KSDS file in reverse order? In both the cases we donot know the total number of records.
Write the code to count the sum of n natural numbers.
I have two sequential files, FILE-1 and FILE-2. FILE-1 contains 2 columns(A,B) and FILE-2 contains 3 columns (C,D,E).I want an output file, FILE-3 which has all five columns with duplicates eliminated from column A.
how to access the file from prodution from changeman tool and to submit a file to production
What is the Linkage section? What is the Use and Why the parm length use alway "PARM-LENGTH PIC S9(4) or PIC S9 (4) COMP." any reason?.Please let me know any one... Cheers,Prasad
I am getting S00F abend when i try to compare two variable of different pic class,one variable is of 9(09) and another is S9(09) comp-3. First i moved the data from S9(09) comp-3 to 9(09), but no luck. So i tried to move the data from S9(09) comp-3 to X (09) and move to 9(09). I am getting same error message, Please help me to find solution for this ptoblem. ERROR MESSAGE - "The system or user abend S00F R=NULL was issued."
How to Write the RESTART Logic Using COBOL?
4 Answers GalaxE, L&T, Syntel, TCS,
in cobol main pgm is calling sub pgm but sub pgm does not exists , what abend i get if submit the job?
Define in-line perform?
Syntax for JCLLIB & JOBLIB???