1. Categories >> Software >> MainFrame >> IBM MainFrame >> COBOL
  2. Suggest New Category

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

Question Posted / guest

Answer Posted / guest

a

Is This Answer Correct ?    5 Yes 0 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

What is length is cobol?

652

Is it possible that the redefines clause has different picture clauses compared to the one it redefined?

678

What is the difference between perform … with test after and perform … with test before?

885

What is the utilization of copybook in cobol?

657

Write a program that uses move corresponding.

676




I have a program with an Array of 5000 occurences which is being passed from 5 sub levels to the front end screen. Thess 5 programs using each 5*2 = 10 different arrays with size as 5000. This is causing the transaction to utilize more storage consupmtion. I am looking to reduce the storage consumption. As part of that initially i thought Dynamic array may solve my problem. After viewing the comments given i see its same as normal array. IS there any other way we can resolve this issue?

1234

Difference between cobol and cobol-ii?

715

Explain how will you differentiate between an internal and an external sort, the pros and cons, internal sort syntax etc

828

What are the rules of the move verb?

710

How to use the same COBOL program in Batch and CICS on lines? explain with an example

1915

INREC AND OUTREC? HOW TO SPLIT 5K RECORDS TO DIFFERENT FILES IN A FILE IN COBOL? RESTART IN COBOL-DB2? ISOLATION LEVELS?

428

i was faced one question- i have value -00001234.56 Suppress the zeroes and the output should be -1234.56 But Not - 1234.56 spaces should not be available after suppressing the zeroes. logic in jcl and cobol?

897

How do you differentiate between cobol and cobol-ii?

658

Describe the cobol database components?

684

please..could u give an example about USAGE IS POINTER ..and explain why and when we use it ?

1958