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
- 7 Answers
- 8084 Views
- TCS, I also Faced
- E-Mail Answers
Answer Posted / ajith
(a)
| Is This Answer Correct ? | 2 Yes | 0 No |
Post New Answer View All Answers
here is my requirement A1 is alphanumeric with value 'A1B2C3D4' as defined below 05 A1 PIC X(8) VALUE IS 'A1B2C3D4' but i need to have A2,A3 as ABCD & 1234 repectively...... A2 = ABCD A3 = 1234 Can you please explain me what are the different ways to do it?
How do you differentiate between cobol and cobol-ii?
How can we find that module can be called – whether DYNAMICALLY or STATICALLY?
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.
how can i see junk values in dclgen or in hostvariable of comp ?
how do you reference the ksds vsam file formats from cobol programs
what is the use of outrecord?
System Testing for Mainframe Developers What is System Testing? integration testing ? what's the procedure ..
how we sort two input files based on a common column and giving one o/p file please send me the coding logic?
) what is the difference between AID and HANDLE AID?
)If there are 10 steps in GDG, if I want to refer the step2 after step5 . what should I do?
please..could u give an example about USAGE IS POINTER ..and explain why and when we use it ?
Which division and paragraphs are mandatory for a COBOL program?
Name some of the examples of COBOl 11?
Whats the difference between search & search ALL?
