Getting started with cobol GnuCOBOL installation with GNU/Linux ACCEPT statement ADD statement ALLOCATE statement ALTER statement CANCEL statement CALL statement COMMIT statement COMPUTE statement CONTINUE statement COPY directive String DELETE statement DIVIDE statement DISPLAY statement EVALUATE statement EXIT statement GENERATE statement FREE statement GO TO statement GOBACK statement IF statement INITIALIZE statement INITIATE statement INSPECT statement MERGE statement MOVE statement MULTIPLY statement OPEN statement PERFORM statement READ statement RELEASE statement RETURN statement REPLACE directive REWRITE statement SET statement SEARCH statement SORT statement START statement SUBTRACT statement STOP statement TERMINATE statement STRING statement SUPPRESS statement UNLOCK statement Intrinsic Functions UNSTRING statement USE statement WRITE statement Data division How does the computational work in cobol?

PERFORM statement

Remarks:

The PERFORM statement transfers control to one or more procedures and returns control implicitly when the sequence completes. PERFORM can also be used for inline loops withing the scope of the PERFORM.

The VARYING phrase allows for nesting with one or more AFTER clauses, and the conditional test can be BEFORE (default) or AFTER each loop.

The THRU clause of a procedural perform assumes sequential top down control flow from procedure-1 through the end of procedure-2. THRU is a contentious issue, and many programmers prefer PERFORM by SECTION rather than using THRU paragraphs. Some shops may mandate PERFORM THRU with an explicit exit point paragraph, others may ban the use of THRU finding it more difficult to debug.

Procedural perform:

Inline perform:

Where varying-phrase is:

Inline PERFORM VARYING

PERFORM VARYING TALLY FROM 1 BY 1 UNTIL TALLY > 5
    DISPLAY TALLY
END-PERFORM

Procedural PERFORM

PERFORM some-paragraph

Contributors

Topic Id: 7334

Example Ids: 24358,24359

This site is not affiliated with any of the contributors.