| products/Sources/formale Sprachen/COBOL/Test-Suite/COBOL/SQ/ |
|
Quellcode-Bibliothek© Kompilation durch diese Firma[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]Datei: sq139a.cob Sprache: Cobol |
|
||||||
|
000100 IDENTIFICATION DIVISION. IX3014.2
000200 PROGRAM-ID. IX3014.2 000300 IX301M. IX3014.2 000400*THE FOLLOWING PROGRAM TESTS THE FLAGGING OF INTERMEDIATE IX3014.2 000500*SUBSET FEATURES THAT ARE USED IN LEVEL 1 INDEXED IX3014.2 000600*INPUT-OUTPUT. IX3014.2 000700 ENVIRONMENT DIVISION. IX3014.2 000800 CONFIGURATION SECTION. IX3014.2 000900 SOURCE-COMPUTER. IX3014.2 001000 Card0130. IX3014.2 001100 OBJECT-COMPUTER. IX3014.2 001200 Card0131. IX3014.2 001300 INPUT-OUTPUT SECTION. IX3014.2 001400 FILE-CONTROL. IX3014.2 001500 SELECT TFIL ASSIGN IX3014.2 001600 "C0036" IX3014.2 001700 ORGANIZATION IS INDEXED IX3014.2 001800*Message expected for above statement: NON-CONFORMING STANDARD IX3014.2 001900 IX3014.2 002000 ACCESS MODE IS RANDOM IX3014.2 002100*Message expected for above statement: NON-CONFORMING STANDARD IX3014.2 002200 IX3014.2 002300 RECORD KEY IS RKEY. IX3014.2 002400*Message expected for above statement: NON-CONFORMING STANDARD IX3014.2 002500 IX3014.2 002600 DATA DIVISION. IX3014.2 002700 FILE SECTION. IX3014.2 002800 FD TFIL. IX3014.2 002900 01 FREC. IX3014.2 003000 03 RKEY PIC X(8). IX3014.2 003100 IX3014.2 003200 WORKING-STORAGE SECTION. IX3014.2 003300 01 VARIABLES. IX3014.2 003400 03 STATE PIC X(4) VALUE SPACES. IX3014.2 003500 IX3014.2 003600 PROCEDURE DIVISION. IX3014.2 003700 IX3014.2 003800 IX301M-CONTROL. IX3014.2 003900 OPEN I-O TFIL. IX3014.2 004000 PERFORM IX301M-READ THRU IX301M-DELETE 1 TIMES. IX3014.2 004100 CLOSE TFIL. IX3014.2 004200 STOP RUN. IX3014.2 004300 IX3014.2 004400 IX301M-READ. IX3014.2 004500 READ TFIL INVALID KEY PERFORM INV-PARA IX3014.2 004600 NOT INVALID KEY PERFORM DONE-PARA. IX3014.2 004700*Message expected for above statement: NON-CONFORMING STANDARD IX3014.2 004800 IX3014.2 004900 IX301M-REWRITE. IX3014.2 005000 REWRITE FREC INVALID KEY PERFORM INV-PARA IX3014.2 005100 NOT INVALID KEY PERFORM DONE-PARA. IX3014.2 005200*Message expected for above statement: NON-CONFORMING STANDARD IX3014.2 005300 IX3014.2 005400 IX301M-WRITE. IX3014.2 005500 WRITE FREC INVALID KEY PERFORM INV-PARA IX3014.2 005600 NOT INVALID KEY PERFORM DONE-PARA. IX3014.2 005700*Message expected for above statement: NON-CONFORMING STANDARD IX3014.2 005800 IX3014.2 005900 IX301M-DELETE. IX3014.2 006000 DELETE TFIL INVALID KEY PERFORM INV-PARA IX3014.2 006100 NOT INVALID KEY PERFORM DONE-PARA. IX3014.2 006200*Message expected for above statement: NON-CONFORMING STANDARD IX3014.2 006300 IX3014.2 006400 INV-PARA. IX3014.2 006500 MOVE "INVA" TO STATE. IX3014.2 006600 IX3014.2 006700 DONE-PARA. IX3014.2 006800 MOVE "DONE" TO STATE. IX3014.2 006900 IX3014.2 007000*TOTAL NUMBER OF FLAGS EXPECTED = 7. IX3014.2 ¤ Dauer der Verarbeitung: 0.25 Sekunden (vorverarbeitet) ¤ |
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 |
