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


Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/IX/ (Columbo Version 0.7^©) Datei vom 4.1.2008 mit Größe 5 kB

Impressum ix302m.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         IX3024.2
000200 PROGRAM-ID.                                                      IX3024.2
000300     IX302M.                                                      IX3024.2
000400*THE FOLLOWING PROGRAM TESTS THE FLAGGING OF                      IX3024.2
000500*OBSOLETE FEATURES THAT ARE USED IN INTERMEDIATE SUBSET INDEXED   IX3024.2
000600*INPUT-OUTPUT.                                                    IX3024.2
000700 ENVIRONMENT DIVISION.                                            IX3024.2
000800 CONFIGURATION SECTION.                                           IX3024.2
000900 SOURCE-COMPUTER.                                                 IX3024.2
001000     Card0130.                                                    IX3024.2
001100 OBJECT-COMPUTER.                                                 IX3024.2
001200     Card0131.                                                    IX3024.2
001300 INPUT-OUTPUT SECTION.                                            IX3024.2
001400 FILE-CONTROL.                                                    IX3024.2
001500     SELECT TFIL ASSIGN                                           IX3024.2
001600     "C0036"                                                      IX3024.2
001700         ORGANIZATION IS INDEXED                                  IX3024.2
001800         ACCESS MODE IS SEQUENTIAL                                IX3024.2
001900         RECORD KEY IS RKEY.                                      IX3024.2
002000                                                                  IX3024.2
002100     SELECT SQ-FRR ASSIGN                                         IX3024.2
002200     C0019 .                                                      IX3024.2
002300                                                                  IX3024.2
002400                                                                  IX3024.2
002500     SELECT RR-FS1 ASSIGN                                         IX3024.2
002600     "C0036"                                                      IX3024.2
002700         ORGANIZATION IS INDEXED                                  IX3024.2
002800         RECORD KEY IS FKEY.                                      IX3024.2
002900 I-O-CONTROL.                                                     IX3024.2
003000*     C0083 .                                                      IX3024.2
003100*Message expected for above statement: OBSOLETE                   IX3024.2
003200                                                                  IX3024.2
003300 DATA DIVISION.                                                   IX3024.2
003400 FILE SECTION.                                                    IX3024.2
003500 FD TFIL                                                          IX3024.2
003600     LABEL RECORDS STANDARD                                       IX3024.2
003700*Message expected for above statement: OBSOLETE                   IX3024.2
003800                                                                  IX3024.2
003900     VALUE OF                                                     IX3024.2
004000     Impl1                                                        IX3024.2
004100     IS                                                           IX3024.2
004200     4711                                                         IX3024.2
004300*Message expected for above statement: OBSOLETE                   IX3024.2
004400                                                                  IX3024.2
004500     DATA RECORDS ARE FREC.                                       IX3024.2
004600*Message expected for above statement: OBSOLETE                   IX3024.2
004700                                                                  IX3024.2
004800 01 FREC.                                                         IX3024.2
004900     03 RKEY PIC X(8).                                            IX3024.2
005000                                                                  IX3024.2
005100 FD SQ-FRR.                                                       IX3024.2
005200    01 SREC.                                                      IX3024.2
005300     03 SKEY PIC X(8).                                            IX3024.2
005400                                                                  IX3024.2
005500                                                                  IX3024.2
005600 FD RR-FS1.                                                       IX3024.2
005700    01 RREC.                                                      IX3024.2
005800     03 FKEY PIC X(8).                                            IX3024.2
005900                                                                  IX3024.2
006000 WORKING-STORAGE SECTION.                                         IX3024.2
006100 01 VARIABLES.                                                    IX3024.2
006200     03 VKEY PIC 9(8) VALUE ZERO.                                 IX3024.2
006300     03 DKEY PIC 9(8) VALUE ZERO.                                 IX3024.2
006400                                                                  IX3024.2
006500 PROCEDURE DIVISION.                                              IX3024.2
006600                                                                  IX3024.2
006700 IX302M-CONTROL.                                                  IX3024.2
006800     DISPLAY "THIS IS A DUMMY PARAGRAPH".                         IX3024.2
006900     STOP RUN.                                                    IX3024.2
007000                                                                  IX3024.2
007100*TOTAL NUMBER OF FLAGS EXPECTED = 4.                              IX3024.2

quality100%

¤ Dauer der Verarbeitung: 0.12 Sekunden (vorverarbeitet) ¤

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.