[JCantero]

@Fito, esto funciona en opencobol, acucobol y rmcobol

No tengo el compilador de powercobol, pruebalo.

      ******************************************************************
      * Author:
      * Date:
      * Purpose:
      * Tectonics: cobc
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. YOUR-PROGRAM-NAME.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       01 i pic 99.
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
            DISPLAY "Hello world"
            perform varying i from 1 by 1 until i = 10
               display i
               if i = 5 THEN
                     exit perform
               end-if                
            end-perform.
            STOP RUN.
       END PROGRAM YOUR-PROGRAM-NAME.