Download Smart Invoice v1.0 - ASP.NET Invoice Software System Ready to use, Open Source Invoice System Project(ASP.NET, jQuery & MS-SQL)
.Net Articles/Snippets
ASP.NET ASP.NET MVC C#/C Sharp VB/VB.NET ADO.NET LINQ WCF WPF Card Space Win Forms Task Parallel Library Parallel-linq Modern UI Runtime Task-Base-Async-Model
Web Development Articles/Snippets
AJAX CSS HTML HTML5 Javascript jQuery Flash
Database Articles/Snippets
SQL Ms-SQL Server MySQL Oracle
Languages Articles/Snippets
PHP Python Ruby Objective C XML Assembly Language Basic C/C++ CFML Classic ASP Delphi Fortran CGI/Perl Java Pascal
Mobile Development Articles/Snippets
SQL Ms-SQL Server MySQL Oracle
Others Articles/Snippets
SEO VBA
  1. Home
  2. COBOL
  3. COBOL example program demonstrating how the first format of the PERFORM may be used to change the flow of control through a program.

COBOL example program demonstrating how the first format of the PERFORM may be used to change the flow of control through a program.

Category > COBOL || Published on : Friday, May 8, 2015 || Views: 2714 || COBOL example program demonstrating flow of control through a program 



      $ SET SOURCEFORMAT"FREE"
IDENTIFICATION DIVISION.
PROGRAM-ID.  PerformFormat1.
AUTHOR.  Michael Coughlan.
* Illustrates how the first format of the PERFORM may
* be used to change the flow of control through a program.
* Use the output of this program to get an understanding of how
* this format of the PERFORM works.

PROCEDURE DIVISION.
TopLevel.
    DISPLAY "In TopLevel. Starting to run program"
    PERFORM OneLevelDown
    DISPLAY "Back in TopLevel.".
    STOP RUN.


TwoLevelsDown.
    DISPLAY ">>>>>>>> Now in TwoLevelsDown."
    PERFORM ThreeLevelsDown.
    DISPLAY ">>>>>>>> Back in TwoLevelsDown.".


OneLevelDown.
    DISPLAY ">>>> Now in OneLevelDown"
    PERFORM TwoLevelsDown
    DISPLAY ">>>> Back in OneLevelDown".


ThreeLevelsDown.
    DISPLAY ">>>>>>>>>>>> Now in ThreeLevelsDown".

 

You might also like