E-JCL Software, Inc.: 21st century solutions for 20th century problems.
HomeCobolPro FeaturesPowerJCL FeaturesJCLScript FeaturesContact E-JCLDeveloper Biographies

Original COBOL Program
                                                                                        

       identification division.
       Program-Id. COBOLS.
       date-compiled.
       author.   E-JCL Software, Inc.
      *
      * This sample COBOL program contains random COBOL statements and
      * is intended to demonstrate some of the run-time profiling
      * capabilities of CobolPro for z/OS.
      *
       environment  division.

       configuration   section  .
       source-computer. test-computer-name.

       object-computer. test-computer-name.
       special-names.

       data division.
       working-storage section.
       01 PROG-COBOLT                 PIC  X(8) VALUE '$$COBOLT'.
       01 COUNT-X                     PIC S9(9) COMP VALUE 5.
       01 COUNT-Y                     PIC S9(9) COMP VALUE 4.
       01 COUNT-Z                     PIC S9(9) COMP VALUE 3.
       01 II                          PIC S9(9) COMP VALUE 0.
       01 JJ                          PIC S9(9) COMP VALUE 0.
      *
       procedure division.
      *
           Display 'Executing $$COBOLS *****************'
      *
           Perform 987    times
           COMPUTE COUNT-X = COUNT-X + 2
           End-Perform

           DISPLAY 'BEFORE $$COBOLS ENTRY *****************'

           entry 'abcdefg'

           DISPLAY 'AFTER  $$COBOLS ENTRY *****************'

           continue
      *
      *    Call nested program ...
      *
           CALL 'COBOLS2'
      *
           Perform 713      times

           Compute ii = ii + 1

           If ii = 714
               Call 'cbltdli' Using COUNT-X COUNT-Y COUNT-Z
           End-If

           Evaluate true
           When ii = 47

                 continue

           When ii = 48 or 69

                 continue

           When ii = 600 or 700 or 2

                 if ii = 700 next sentence
      *
      *                      Skip to statement after period.
      *
                 else
                    add 1 to jj
                 end-if

                 continue

           When ii > 10000

                 Call 'CEETDLI' Using COUNT-X COUNT-Y COUNT-Z
                 continue


           When ii > 20000

                 Call 'AIBTDLI' Using COUNT-X COUNT-Y COUNT-Z

                 display function upper-case ('ii > 20000')

           When other

                 continue

           End-Evaluate

           COMPUTE COUNT-Y = COUNT-Y + 3
           End-Perform.
      *
           CALL PROG-COBOLT
      *
           Perform 188    times
           COMPUTE COUNT-Z = COUNT-Z + 4
           End-Perform
      *
           goback
           .
       END PROGRAM COBOLS.
      *---------------------------------------------------------------
       identification division.
       Program-Id. COBOLS2.
       date-compiled.
       author.   E-JCL Software, Inc.
      *
      * This sample COBOL program contains random COBOL statements and
      * is intended to demonstrate some of the run-time profiling
      * capabilities of CobolPro for z/OS.
      *
       data division.
       working-storage section.
       01 COUNT-X                     PIC S9(9) COMP VALUE 5.
       01 COUNT-Y                     PIC S9(9) COMP VALUE 4.
       01 COUNT-Z                     PIC S9(9) COMP VALUE 3.
       01 II                          PIC S9(9) COMP VALUE 0.
       01 JJ                          PIC S9(9) COMP VALUE 0.
      *
       procedure division.
      *
           Display 'Executing nested program COBOLS2 ********'
      *
           Perform 1314   times
           COMPUTE COUNT-Z = COUNT-Z + 2
           End-Perform

           continue
      *
           goback
           .
       END PROGRAM COBOLS2.

                                                                  
Profiled COBOL Program with Run-Time Statement-Level Counts
                                                                            

       identification division.
       Program-Id. COBOLS.
       DATE-COMPILED. 09/01/11.
       author.   E-JCL Software, Inc.
      *
      * This sample COBOL program contains random COBOL statements and
      * is intended to demonstrate some of the run-time profiling
      * capabilities of CobolPro for z/OS.
      *
       environment  division.

       configuration   section  .
       source-computer. test-computer-name.

       object-computer. test-computer-name.
       special-names.

       data division.
       working-storage section.
       01 PROG-COBOLT                 PIC  X(8) VALUE '$$COBOLT'.
       01 COUNT-X                     PIC S9(9) COMP VALUE 5.
       01 COUNT-Y                     PIC S9(9) COMP VALUE 4.
       01 COUNT-Z                     PIC S9(9) COMP VALUE 3.
       01 II                          PIC S9(9) COMP VALUE 0.
       01 JJ                          PIC S9(9) COMP VALUE 0.
      *
       procedure division.
      *
           Display 'Executing $$COBOLS *****************'               1
      *
           Perform 987    times                                         1
           COMPUTE COUNT-X = COUNT-X + 2                                987
           End-Perform

           DISPLAY 'BEFORE $$COBOLS ENTRY *****************'            1

           entry 'abcdefg'                                              1

           DISPLAY 'AFTER  $$COBOLS ENTRY *****************'            1

           continue                                                     1
      *
      *    Call nested program ...
      *
           CALL 'COBOLS2'                                               1
      *
           Perform 713      times                                       1

           Compute ii = ii + 1                                          700

           If ii = 714                                                  700
               Call 'cbltdli' Using COUNT-X COUNT-Y COUNT-Z             0
           End-If

           Evaluate true                                                700
           When ii = 47

                 continue                                               1

           When ii = 48 or 69

                 continue                                               2

           When ii = 600 or 700 or 2

                 if ii = 700                                            3
                             next sentence                              1
      *
      *                      Skip to statement after period.
      *
                 else
                    add 1 to jj                                         2
                 end-if

                 continue                                               2

           When ii > 10000

                 Call 'CEETDLI' Using COUNT-X COUNT-Y COUNT-Z           0
                 continue                                               0


           When ii > 20000

                 Call 'AIBTDLI' Using COUNT-X COUNT-Y COUNT-Z           0

                 display function upper-case ('ii > 20000')             0

           When other

                 continue                                               694

           End-Evaluate

           COMPUTE COUNT-Y = COUNT-Y + 3                                699
           End-Perform.
      *
           CALL PROG-COBOLT                                             1
      *
           Perform 188    times                                         1
           COMPUTE COUNT-Z = COUNT-Z + 4                                188
           End-Perform
      *
           goback                                                       1
           .
       END PROGRAM COBOLS.
      *---------------------------------------------------------------
       identification division.
       Program-Id. COBOLS2.
       DATE-COMPILED. 09/01/11.
       author.   E-JCL Software, Inc.
      *
      * This sample COBOL program contains random COBOL statements and
      * is intended to demonstrate some of the run-time profiling
      * capabilities of CobolPro for z/OS.
      *
       data division.
       working-storage section.
       01 COUNT-X                     PIC S9(9) COMP VALUE 5.
       01 COUNT-Y                     PIC S9(9) COMP VALUE 4.
       01 COUNT-Z                     PIC S9(9) COMP VALUE 3.
       01 II                          PIC S9(9) COMP VALUE 0.
       01 JJ                          PIC S9(9) COMP VALUE 0.
      *
       procedure division.
      *
           Display 'Executing nested program COBOLS2 ********'          1
      *
           Perform 1314   times                                         1
           COMPUTE COUNT-Z = COUNT-Z + 2                                1314
           End-Perform

           continue                                                     1
      *
           goback                                                       1
           .
       END PROGRAM COBOLS2.

                                                                  
COBOL Execution Profile Report
                                                                            

  CobolPro for z/OS                                     (C) E-JCL Software, Inc.

 

                         COBOL Execution Profile Report

 

 Member: $$COBOLS                                             Date: 01.Sep.2011
                                                              Time: 08:36:06 PM

  

|---------------------------------|----------|----------|------------|---------|
|                                 |Number Of |Number Of |Number Of   |Runtime  |
|         COBOL Statement         |Statements|Statements|Statements  |Execution|
|                                 |          |Executed  |Not Executed|Count    |
|---------------------------------|----------|----------|------------|---------|
| Add                             |        1 |        1 |          0 |        2|
| Call                            |        2 |        2 |          0 |        2|
| Call 'CBLTDLI'                  |        1 |        0 |          1 |        0|
| Call 'AIBTDLI'                  |        1 |        0 |          1 |        0|
| Call 'CEETDLI'                  |        1 |        0 |          1 |        0|
| Compute                         |        5 |        5 |          0 |     3888|
| Continue                        |        7 |        6 |          1 |      701|
| Display                         |        5 |        4 |          1 |        4|
| Entry                           |        1 |        1 |          0 |        1|
| Evaluate                        |        1 |        1 |          0 |      700|
| Goback                          |        2 |        2 |          0 |        2|
| If                              |        2 |        2 |          0 |      703|
| Next Sentence                   |        1 |        1 |          0 |        1|
| Perform                         |        4 |        4 |          0 |        4|
|---------------------------------|----------|----------|------------|---------|
| Total                           |       34 |       29 |          5 |     6008|
|---------------------------------|----------|----------|------------|---------|

Copyright © 2014 E-JCL Software, Inc. All rights reserved.