Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: Laserprinter.cob Sprache: Cobol

Original von: verschiedene^©

000300*--------------------------------------------------
000400* From Bobug Cobol Lang
000500* May 19 2011.
000600*--------------------------------------------------
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. PHNPRT01.
000300*--------------------------------------------------
000400* This program prints the contents of the
000500* phone file.
000600*--------------------------------------------------
000700 ENVIRONMENT DIVISION.
000800 INPUT-OUTPUT SECTION.
000900 FILE-CONTROL.
001000 SELECT OPTIONAL PHONE-FILE
001100*or SELECT PHONE-FILE
001200 ASSIGN TO "phone.dat"
001300*or ASSIGN TO "phone"
001400 ORGANIZATION IS SEQUENTIAL.
001500
001600 SELECT PRINTER-FILE
001700 ASSIGN TO PRINTER
001800 ORGANIZATION IS LINE SEQUENTIAL.
001900
002000 DATA DIVISION.
002100 FILE SECTION.
002200 FD PHONE-FILE
002300 LABEL RECORDS ARE STANDARD.
002400 01 PHONE-RECORD.
002500 05 PHONE-LAST-NAME PIC X(20).
002600 05 PHONE-FIRST-NAME PIC X(20).
002700 05 PHONE-NUMBER PIC X(15).
002800 05 PHONE-EXTENSION PIC X(5).
002900
003000 FD PRINTER-FILE
003100 LABEL RECORDS ARE OMITTED.
003200 01 PRINTER-RECORD PIC X(80).
003300
003400 WORKING-STORAGE SECTION.
003500
003600* Structure for PRINTING
003700 01 FIELDS-TO-PRINT.
003800 05 PROMPT-1 PIC X(4) VALUE "Lst:".
003900 05 PRINT-LAST-NAME PIC X(20).
004000 05 PROMPT-2 PIC X(4) VALUE "1st:".
004100 05 PRINT-FIRST-NAME PIC X(20).
004200 05 PROMPT-3 PIC X(3) VALUE "NO:".
004300 05 PRINT-NUMBER PIC X(15).
004400 05 PROMPT-4 PIC X(4) VALUE "Xtn:".
004500 05 PRINT-EXTENSION PIC X(5).
004600
004700 01 END-OF-FILE PIC X.
004800
004900 01 PRINT-LINES PIC 99.
005000
005100 PROCEDURE DIVISION.
005200 MAIN-LOGIC SECTION.
005300 PROGRAM-BEGIN.
005400
005500 PERFORM OPENING-PROCEDURE.
005600 MOVE ZEROES TO PRINT-LINES.
005700 MOVE "N" TO END-OF-FILE.
005800 PERFORM READ-NEXT-RECORD.
005900 PERFORM PRINT-RECORDS
006000 UNTIL END-OF-FILE = "Y".
006100 PERFORM CLOSING-PROCEDURE.
006200
006300 PROGRAM-DONE.
006400 STOP RUN.
006500
006600 OPENING-PROCEDURE.
006700 OPEN INPUT PHONE-FILE.
006800 OPEN OUTPUT PRINTER-FILE.
006900
007000 CLOSING-PROCEDURE.
007100 CLOSE PHONE-FILE.
007200 MOVE SPACE TO PRINTER-RECORD.
007300 WRITE PRINTER-RECORD BEFORE ADVANCING PAGE.
007400 CLOSE PRINTER-FILE.
007500
007600 PRINT-RECORDS.
007700 PERFORM PRINT-FIELDS.
007800 PERFORM READ-NEXT-RECORD.
007900
008000 PRINT-FIELDS.
008100 IF PRINT-LINES = 55
008200 PERFORM NEW-PAGE.
008300 MOVE PHONE-LAST-NAME TO PRINT-LAST-NAME.
008400 MOVE PHONE-FIRST-NAME TO PRINT-FIRST-NAME.
008500 MOVE PHONE-NUMBER TO PRINT-NUMBER.
008600 MOVE PHONE-EXTENSION TO PRINT-EXTENSION.
008700 MOVE FIELDS-TO-PRINT TO PRINTER-RECORD.
008800 WRITE PRINTER-RECORD BEFORE ADVANCING 1.
008900
009000 ADD 1 TO PRINT-LINES.
009100
009200 READ-NEXT-RECORD.
009300 READ PHONE-FILE NEXT RECORD
009400 AT END
009500 MOVE "Y" TO END-OF-FILE.
009600
009700 NEW-PAGE.
009800 MOVE SPACE TO PRINTER-RECORD.
009900 WRITE PRINTER-RECORD BEFORE ADVANCING PAGE.
010000 MOVE ZEROES TO PRINT-LINES.
010100

¤ Dauer der Verarbeitung: 0.3 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

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.