products/sources/formale sprachen/Cobol/Test-Suite/COBOL/SQ image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

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

Datei: obsq4a.cob   Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         NC3034.2
000200 PROGRAM-ID.                                                      NC3034.2
000300     NC303M.                                                      NC3034.2
000400*THE FOLLOWING PROGRAM TESTS THE FLAGGING OF                      NC3034.2
000500*OBSOLETE HIGH SUBSET NUCLEUS FEATURES.                           NC3034.2
000600 DATE-COMPILED.  22ND AUG 1988.                                   NC3034.2
000700*Message expected for above statement: OBSOLETE                   NC3034.2
000800 ENVIRONMENT DIVISION.                                            NC3034.2
000900 CONFIGURATION SECTION.                                           NC3034.2
001000 SOURCE-COMPUTER.                                                 NC3034.2
001100     Card0130.                                                    NC3034.2
001200 OBJECT-COMPUTER.                                                 NC3034.2
001300     Card0131.                                                    NC3034.2
001400                                                                  NC3034.2
001500                                                                  NC3034.2
001600 PROCEDURE DIVISION.                                              NC3034.2
001700                                                                  NC3034.2
001800 NC303M-CONTROL.                                                  NC3034.2
001900     ALTER NC303M-GOTO TO PROCEED TO NC303M-GOTO-2,               NC3034.2
002000         NC303M-GOTO-2 TO PROCEED TO NC303M-CONTROL.              NC3034.2
002100*Message expected for above statement: OBSOLETE                   NC3034.2
002200     STOP RUN.                                                    NC3034.2
002300                                                                  NC3034.2
002400 NC303M-GOTO.                                                     NC3034.2
002500     GO TO.                                                       NC3034.2
002600*Message expected for above statement: OBSOLETE                   NC3034.2
002700                                                                  NC3034.2
002800 NC303M-GOTO-2.                                                   NC3034.2
002900     GO TO.                                                       NC3034.2
003000*Message expected for above statement: OBSOLETE                   NC3034.2
003100                                                                  NC3034.2
003200*TOTAL NUMBER OF FLAGS EXPECTED = 4.                              NC3034.2

¤ Dauer der Verarbeitung: 0.37 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.


Bot Zugriff