Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/verschiedene-Autoren/Judson-McClendon/   (Columbo Version 0.7©)  Datei vom 4.1.2008 mit Größe 1 kB image not shown  

Quelle  shelltest.cob   Sprache: Cobol

 
       IDENTIFICATION DIVISION.
      *
       PROGRAM-ID.    SHELSRTT.
      *
       DATE-WRITTEN.  05/03/90.
      *
      *    MODIFIED   10/18/97.
      *u
      *        *******************************
      *        *                             *
      *        *     Judson D. McClendon     *
      *        *     Sun Valley Systems      *
      *        *     329 37th Court N.E.     *
      *        *     Birmingham, AL 35215    *
      *        *        205-853-8440         *
      *        *                             *
      *        *******************************
      *
       ENVIRONMENT DIVISION.
      *
       CONFIGURATION SECTION.
      *
       INPUT-OUTPUT SECTION.
      *
       FILE-CONTROL.
      *
       DATA DIVISION.
      *
       FILE SECTION.
      *
       WORKING-STORAGE SECTION.
      *
       COPY wstore.cbl.
      *
       PROCEDURE DIVISION.
      *
           move 7 to ws-elements
      *
      ******************************************************************
      *                                                                *
      *                         C O N T R O L                          *
      *                                                                *
      ******************************************************************
      *
       L000000-cONTROL.
      *
           PERFORM L000200-PROCESS
              THRU L000200-eXIT
               UNTIL (WS-Elements > WS-ANSWER).
      *
       L000000-eXIT.
           STOP RUN.
      *                        P R O C E S S
      *
       L000200-pROCESS.
      *
           PERFORM L000200.
           PERFORM L000200.
           PERFORM L000200.
           PERFORM L000200.
      *
       L000200.
           DISPLAY "HI".
      *
       L000200-eXIT.
           EXIT.
 

100%


¤ Dauer der Verarbeitung: 0.13 Sekunden  (vorverarbeitet)  ¤

*© Formatika GbR, Deutschland




Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.