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
- 9 Answers
- 13239 Views
- HSBC, I also Faced
- E-Mail Answers
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 |
period is missing in the cobol program which error we getting
how do you reference the rrds file formats from cobol programs
Move Zeroes to I move 5 to j perform para1 varying I from 10 by -2 until I = 0 display j. para1. Add 5 to j. What’ll be the value after execution of display stmt. A) 35 B) 40 C) 30 D) 25 please explain how?
I have PS flat file with 14 records. I want to read from 4th to 9th record and want to write those 6 records (4th record to 9th record) to another PS file (output file). there is no key defined in the input file. I just want read a certain Consecutive records. can any one please give me the procedure division Coding for this. I have coded the below coding but the READ-PARA is performing only 1 time even though I have 14 records in my input file (i.e FILE-1): PROCEDURE DIVISION. A000-SECTION. MOVE 0 TO I. OPEN INPUT FILE-1. IF CHECK-KEY1 > 0 DISPLAY "OPEN ERROR FOR FILE-1, CODE IS:" CHECK-KEY1 END-IF. OPEN EXTEND NEWFILE-1 IF CHECK-KEY3 > 0 DISPLAY "OPEN ERROR FOR NEWFILE-1 COD IS" CHECK-KEY3 END-IF. PERFORM READ-PARA THRU EXIT-PARA UNTIL EOF-REC = 'YES'. DISPLAY " FINALLY OUT OF LOOP" CLOSE FILE-1 CLOSE NEWFILE-1 STOP RUN. READ-PARA. ADD 1 TO I READ FILE-1 AT END MOVE 'YES' TO EOF-REC IF I > 3 AND < 10 PERFORM WRITE-PARA ELSE DISPLAY "NOT IN RANGE" END-IF. EXIT-PARA. EXIT. WRITE-PARA. WRITE NEW-REC FROM FILE1-REC.
how to crack cts interview apps? NOVEMBER 21 2010
How to read records which is in sequential file in reverse order ? Exp. 1 2 3 4 5 . i want 5 4 3 2 1?please clear my doubt any one
How do you define a table/array in COBOL?
what is difference bt COND, REGION & TIME parameters at JOB & EXEC. give an exp.
What is the compute verb? How is it used?
What are the rules of the move verb?
if someone is using my file,how can i find which user id is using?
SUPPOSE I HAVE 60 CHARACTERS STING. IN THAT I WANT FIND OUT HOW MANY TIMES 'A'(ASSUME)WILL REPEATED AND I HAVE TO PASS 'E' IN PLACE OF 'A'ALONG THAT STRING.
COBOL 
