Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Cobol/verschiedene-Autoren/Zing-COBOL/ (Columbo Version 0.7^©) Datei vom 4.1.2008 mit Größe 3 kB

Quelle Line-No-Prog.cob Sprache: Cobol

000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. LINE-NO-PROG.
000030 AUTHOR.     TIM R P BROWN.
000040****************************************************
000050* Program to add line numbers to typed code        *
000060* Allows for comment asterisk, solidus, or hyphen ,*
000070* moving it into position 7.                       *
000080*                                                  *
000090****************************************************
000100
000110 ENVIRONMENT DIVISION.
000120 INPUT-OUTPUT SECTION.
000130 FILE-CONTROL.
000140     SELECT IN-FILE ASSIGN TO 'INPUT.TXT'
000150        ORGANIZATION IS LINE SEQUENTIAL.
000160     SELECT OUT-FILE ASSIGN TO 'OUTPUT.COB'
000170        ORGANIZATION IS LINE SEQUENTIAL.
000180
000185*****************************************************
000187
000190 DATA DIVISION.
000200 FILE SECTION.
000210
000220 FD IN-FILE.
000230 01 LINE-CODE-IN.
000240     03 CHAR-1       PIC X.
000250     03 CODE-LINE    PIC X(110).
000260
000270 FD OUT-FILE.
000280 01 LINE-CODE-OUT    PIC X(120).
000290
000300
000310 WORKING-STORAGE SECTION.
000320
000330 01 EOF-FLAG     PIC X VALUE 'N'.
000340     88 END-OF-FILE        VALUE 'Y'.
000350
000360 01 NUMBER-CODE.
000370     03 L-NUM-CODE    PIC 9(6) VALUE ZEROS.
000380     03 B-SPACE   PIC X VALUE SPACE.
000390     03 L-CODE    PIC X(100) VALUE SPACES.
000400
000410 01 NUMBER-COMMENT.
000420     03 L-NUM-COM     PIC 9(6) VALUE ZEROS.
000430     03 L-COMMENT     PIC X(100) VALUE SPACES.
000440
000450 01 LINE-NUMBER      PIC 9(6) VALUE ZEROS.
000460
000470
000480*****************************************************
000490
000500 PROCEDURE DIVISION.
000510
000510 MAIN-PARA.
000520     OPEN INPUT IN-FILE
000530          OUTPUT OUT-FILE
000535
000540     PERFORM UNTIL END-OF-FILE
000550       ADD 10 TO LINE-NUMBER
000560       READ IN-FILE AT END
000570         MOVE 'Y' TO EOF-FLAG
000580       NOT AT END
000590         IF     (CHAR-1 = '*')
000600                  OR (CHAR-1 = '/')
000610                  OR (CHAR-1 = '-') THEN
000620            MOVE LINE-CODE-IN TO L-COMMENT
000630            MOVE LINE-NUMBER TO L-NUM-COM
000640            WRITE LINE-CODE-OUT FROM NUMBER-COMMENT
000660         ELSE
000670            MOVE LINE-CODE-IN TO L-CODE
000680            MOVE LINE-NUMBER TO L-NUM-CODE
000690            WRITE LINE-CODE-OUT FROM NUMBER-CODE
000720         END-IF
000730       END-READ
000740       INITIALIZE NUMBER-CODE NUMBER-COMMENT
000750     END-PERFORM
000760
000770     CLOSE IN-FILE OUT-FILE
000780     STOP RUN.

quality100%

¤ Dauer der Verarbeitung: 0.7 Sekunden ¤

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.