In a program, there are 2 sections defined say SECTION-A
and SECTION-B. There is a paragraph say CALC-INT in both
the sections. If this para has to be called directly for
SECTION-A, then PERFORM CALC-INT will not work as it is
present in both sections. How the PERFORM statement has to
be coded here?
- 5 Answers
- 6130 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / priya
The above code does not work. It gives a compilation error.
Is there any other solution?
| Is This Answer Correct ? | 4 Yes | 1 No |
Answer / kb
yes , its right the above code gives compilation errors. I
have checked this
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / bv
It cannot be called directly . Control should go to
section A and start of that section A, perform CALC-INT.
Perform SECTION-A.
SECTION-A
Perform CALC-INT.
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / priya
Any para in a section can be called directly. There is no
need to call the section. In this case, the paragraph name
is the same in both the sections, so there should be some
way by which the paragraph can be called directly by using
the section name as the qualifier but now sure how.
| Is This Answer Correct ? | 0 Yes | 0 No |
What is the difference between perform … with test after and perform … with test before?
Which mode is used to operate the sequential file?
State the various causes of s0c1, s0c5 and s0c7.
how to change picture class of copy book variable inside program?
have in 100 records in a flat file i want to move records like 1,3,5,7,9,11,.. to Output file1 and 2,4,6,8,10,12,14 .. records moved to Output file2..Pls Provide real time answer..
How do you submit JCL via a Cobol program?
What is 88 level used for ?
can we read records in a file from botom to top. if possible how can we read
after udatingg first 110 rows, my job abends. now how do i change my cobol program so that when i restart the Job it will start updating from 111th row ( i.e in next run I di=ont want to update those 110 rows which are already been updated in the first run before job abend)
study the following code 01 A1 05 B PIC 99 05 C PIC X(4) 01 A2 05 B PIC 99V99 05 C PIC A(4) pick out the valid statement from the following a.A1 and A2 can not have sub-ordinates b.A1 and A2 can have the same sub-ordinates but must have same PIC clause c.there is nothing wrong d.A1 and A2 can have same sub-ordinates provided they are not at 01 level
which generation language is cobol
How do u debug a S0C7 abend? (aswered till we get the field which caused that) After knowing the field which caused that how do u know the record which caused that if it is in production env? (dumb) Ok let us assume that we got to know that 100th record caused that and I wanted to skip only 100th record from the file and process from 101th. How to do that in JCL using SORT? (tried with STOPAFT but ended up dumb when he said smthing else is ther)
COBOL 
