Can anyone please give the example of Inline Perform.
Answers were Sorted based on User's Feedback
Answer / shanuss
PERFORM UNTIL I = 10
MOVE RATE(I) TO SPLIT-TOT(1)
ADD 1 TO I
END-PERFORM.
Is This Answer Correct ? | 4 Yes | 0 No |
Answer / nikhil
There is one special thing about inline performs - there
has to be a END-PERFORM associated with the perform
statement otherwise it will give compile error. I have
tried this as well.
Is This Answer Correct ? | 3 Yes | 0 No |
Answer / abhishek vashishta
PERFORM UNTIL WS-EXIT = 'Y'
DISPLAY 'ENTER UR NAME '
ACCEPT WS-NAME
DISPLAY 'WANT TO EXIT'
ACCEPT WS-EXIT
END-PERFORM.
Is This Answer Correct ? | 2 Yes | 0 No |
Answer / anjan
HI,
Inline perform is like inline function in C++. which
means in this case the control will not transfered to any
particular paragraph where as Immediately throws the result
of the code which has mentioned in the block perform and
end-perform.
Please correct me if i am wrong.
Is This Answer Correct ? | 0 Yes | 0 No |
Answer / bijay krishna mohapatra
perform varyiung i from 1 by 1 under i>5
display i
add 1 to i
end perform
display 'bijay'
stop run.
***********rules********:
1.in line should be terminated into scope delimiter(end-if)
2.we cant apply the after opt.
3.nesting can be done hr.
Is This Answer Correct ? | 1 Yes | 1 No |
What is the default value(s) for an initialize? What keyword will allow for an override of the default?
The following entries appear in the WORKING-STORAGE SECTION: 01 DATE-TODAY. 05 YY PIC XX VALUE "90". 05 MM PIC XX VALUE "12". 05 DD PIC XX VALUE :31". 01 DATE-EDIT PIC XX/XX/XX. MOVE DATE-TODAY TO DATE-EDIT. (a) 901231 (b) 90/12/31 (c) 31/12/90 (d) 311290
which is faster either static call or dynamic call ? and specify the reasons for it ? reply fast
How do you sort in a COBOL program? Give sort file definition, sort statement syntax and meaning.
level number 77 is used to define a)group data b)elementary data c)redefine d)none
01 a pic 9(6) value is 123456 01 b pic 9(3) move a to b wht will be the value ?
Differentiate COBOL and COBOL-II?
Please let me know how the Eject verb works for page break.. I want to know the code, how it is used.
Which is the best IBM mainframe Training Institute in Ameerpet, Hyderabad
What are literals?
When is inspect verb is used in cobol?
what is the advantage of using redefines instead of delaring the variables ?