products/sources/formale sprachen/Cobol/verschiedene-Autoren/Judson-McClendon/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: logging.xml   Sprache: Cobol

Original von: verschiedene©
       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.
 

¤ Dauer der Verarbeitung: 0.1 Sekunden  (vorverarbeitet)  ¤



Kontakt
Drucken
Kontakt
sprechenden Kalenders

Eigene Datei ansehen




schauen Sie vor die Tür

Fenster


Die Firma ist wie angegeben erreichbar.

Die farbliche Syntaxdarstellung ist noch experimentell.


Bot Zugriff