What is the output generated by the following code?
01 GRP-I.
05 SUBFLD1 PIC XX VALUE "AB".
05 FILTER PIC X(6) VALUE SPACES.
01 GRP-2 REDEFINED GRP-1.
05 SUB-FLD2 PIC XX.
05 SUB-FLD3 PIC XX.
05 FILTER PIC X(4).
IF SUB-FLD1 NOT = SPACES
DISPLAY "SUBFLD1"
MOVE "ABBCCD" TO GRP-1
IF SUB-FLD3 = SPACES
DISPLAY "SPACES"
ELSE
DISPLAY "SUBFLD3"
DISPLAY "END"
ELSE
DISPLAY "SPACES"
DISPLAY "END".
(a) SUBFLD1
SUBFLD3
END
(b) SPACES
END
(c) SUBFLD1
END
(d) SUBFLD1
SPACES
Answer Posted / guest
I hope SUBFLD1 is erroneously written as SUB-FLD1
| Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
How do define dynamic array in cobol. how do you define single dimensional array and multidimensional array in your cobol?
What is the difference between structured cobol programming and object alternativelyiented cobol programming?
How to get the last record in vsam file in cluster? And how can you get the ksds file records into cobol program?
explain sorting techniques in cobol program?
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.
Name the divisions, which are available in a cobol program?
Whats the difference between search & search ALL?
In COBOL programming, what is PERFORM? What is VARYING?
what is s000 u4087 error? please give the all error codes in cobol,jcl.
Explain how to differentiate call by context by comparing it to other calls?
how do you reference the fixed unblock file formats from cobol programs
1.give the details about WHEN OTHER. 2. how many form are available in evaluate.
how do you reference the rrds file formats from cobol programs
Is it possible that the redefines clause has different picture clauses compared to the one it redefined?
What are declaratives and what are their uses in cobol?