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 / vish
I doubt if we can code like IF ELSE ELSE....since no scope
terminatior (END-IF) has been given for the nested IF ELSE
so it should throw a compilation error. It can display the
output as (a) ONLY if the code is something like below:
01 GRP-1.
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"
END-IF
ELSE
DISPLAY "SPACES"
DISPLAY "END".
Please correct me if I am wrong.
| Is This Answer Correct ? | 5 Yes | 1 No |
Post New Answer View All Answers
How can we find that module can be called – whether DYNAMICALLY or STATICALLY?
) How do u handle errors in BMS macro
write a cobol logic. i have file that has 10 records .1 record go to first output file and second record goes to 2 output and etc
Write some characteristics of cobol as means of business language.
what happens if parmparameter passes zero bytes to the program
How to find out the closest prime number of an input number? I believe it has something to do with SEARCH and COBOL Linear Array.
how do you reference the esds vsam file formats from cobol programs
what is s000 u4087 error? please give the all error codes in cobol,jcl.
How you can read the file from bottom?
What is rmode(any) ?
how can i see junk values in dclgen or in hostvariable of comp ?
Write down the divisions of cobol program?
what is difference bt COND, REGION & TIME parameters at JOB & EXEC. give an exp.
How to get the last record in vsam file in cluster? And how can you get the ksds file records into cobol program?
What is the difference between perform … with test after and perform … with test before?