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/CLBRY/ Datei vom 4.1.2008 mit Größe 82 B

Bilddatei ix119a.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         IX1194.2
000200 PROGRAM-ID.                                                      IX1194.2
000300     IX119A.                                                      IX1194.2
000400****************************************************************  IX1194.2
000500*                                                              *  IX1194.2
000600*    VALIDATION FOR:-                                          *  IX1194.2
000700*                                                              *  IX1194.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX1194.2
000900*                                                              *  IX1194.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IX1194.2
001100*                                                              *  IX1194.2
001200****************************************************************  IX1194.2
001300*                                                                 IX1194.2
001400*    THIS ROUTINE USES THE MASS STORAGE FILE IX-FS3 CREATED IN    IX1194.2
001500*    IX113A.                                                      IX1194.2
001600*    THE FILE IS OPENED I-O AND THE STATUS CHECKED (00 EXPECTED), IX1194.2
001700*    THEN AN ATTEMPT IS MADE TO REWRITE A RECORD WITH THE WRONG   IX1194.2
001800*    PRIME RECORD KEY (STATUS 21 EXPECTED).  THEN AN ATTEMPT      IX1194.2
001900*    IS MADE TO DELETE A RECORD, AT WHICH POINT THE DECLARATIVES  IX1194.2
002000*    SHOULD BE ACTIONED AND THE FILE STATUS SHOULD BE 43 .        IX1194.2
002100*                                                                 IX1194.2
002200*    STANDARD REFERENCE IX-5, 1.3.4 (3) A                         IX1194.2
002300*    STANDARD REFERENCE IX-5, 1.3.4 (5) C                         IX1194.2
002400*                                                                 IX1194.2
002500*    X-CARDS USED IN THIS PROGRAM:                                IX1194.2
002600*                                                                 IX1194.2
002700*                 XXXXX024                                        IX1194.2
002800*                 XXXXX055.                                       IX1194.2
002900*         P       XXXXX062.                                       IX1194.2
003000*                 XXXXX082.                                       IX1194.2
003100*                 XXXXX083.                                       IX1194.2
003200*         C       XXXXX084                                        IX1194.2
003300*                                                                 IX1194.2
003400*                                                                 IX1194.2
003500 ENVIRONMENT DIVISION.                                            IX1194.2
003600 CONFIGURATION SECTION.                                           IX1194.2
003700 SOURCE-COMPUTER.                                                 IX1194.2
003800     Card0130.                                                    IX1194.2
003900 OBJECT-COMPUTER.                                                 IX1194.2
004000     Card0131.                                                    IX1194.2
004100 INPUT-OUTPUT SECTION.                                            IX1194.2
004200 FILE-CONTROL.                                                    IX1194.2
004300     SELECT RAW-DATA   ASSIGN TO                                  IX1194.2
004400     "C0098"                                                      IX1194.2
004500            ORGANIZATION IS INDEXED                               IX1194.2
004600            ACCESS MODE IS RANDOM                                 IX1194.2
004700            RECORD KEY IS RAW-DATA-KEY.                           IX1194.2
004800*                                                                 IX1194.2
004900     SELECT PRINT-FILE ASSIGN TO                                  IX1194.2
005000     "C0085" .                                                    IX1194.2
005100*                                                                 IX1194.2
005200     SELECT IX-FS3 ASSIGN                                         IX1194.2
005300     "C0036"                                                      IX1194.2
005400     ORGANIZATION IS INDEXED                                      IX1194.2
005500     ACCESS MODE IS SEQUENTIAL                                    IX1194.2
005600     RECORD KEY IS IX-FS3-KEY                                     IX1194.2
005700     FILE STATUS IS IX-FS3-STATUS.                                IX1194.2
005800                                                                  IX1194.2
005900 DATA DIVISION.                                                   IX1194.2
006000                                                                  IX1194.2
006100 FILE SECTION.                                                    IX1194.2
006200                                                                  IX1194.2
006300 FD  RAW-DATA.                                                    IX1194.2
006400                                                                  IX1194.2
006500 01  RAW-DATA-SATZ.                                               IX1194.2
006600     05  RAW-DATA-KEY        PIC X(6).                            IX1194.2
006700     05  C-DATE              PIC 9(6).                            IX1194.2
006800     05  C-TIME              PIC 9(8).                            IX1194.2
006900     05  C-NO-OF-TESTS       PIC 99.                              IX1194.2
007000     05  C-OK                PIC 999.                             IX1194.2
007100     05  C-ALL               PIC 999.                             IX1194.2
007200     05  C-FAIL              PIC 999.                             IX1194.2
007300     05  C-DELETED           PIC 999.                             IX1194.2
007400     05  C-INSPECT           PIC 999.                             IX1194.2
007500     05  C-NOTE              PIC X(13).                           IX1194.2
007600     05  C-INDENT            PIC X.                               IX1194.2
007700     05  C-ABORT             PIC X(8).                            IX1194.2
007800                                                                  IX1194.2
007900 FD  PRINT-FILE.                                                  IX1194.2
008000                                                                  IX1194.2
008100 01  PRINT-REC               PIC X(120).                          IX1194.2
008200                                                                  IX1194.2
008300 01  DUMMY-RECORD            PIC X(120).                          IX1194.2
008400                                                                  IX1194.2
008500 FD  IX-FS3                                                       IX1194.2
008600        DATA RECORDS IX-FS3R1-F-G-240                             IX1194.2
008700        LABEL RECORD STANDARD                                     IX1194.2
008800        RECORD 240                                                IX1194.2
008900        BLOCK CONTAINS 2 RECORDS.                                 IX1194.2
009000                                                                  IX1194.2
009100 01  IX-FS3R1-F-G-240.                                            IX1194.2
009200     05  IX-FS3-REC-120      PIC X(120).                          IX1194.2
009300     05  IX-FS3-REC-120-240.                                      IX1194.2
009400         10  FILLER          PIC X(8).                            IX1194.2
009500         10  IX-FS3-KEY      PIC X(29).                           IX1194.2
009600         10  FILLER          PIC X(9).                            IX1194.2
009700         10  IX-FS3-ALTER-KEY  PIC X(29).                         IX1194.2
009800         10  FILLER            PIC X(45).                         IX1194.2
009900                                                                  IX1194.2
010000                                                                  IX1194.2
010100 WORKING-STORAGE SECTION.                                         IX1194.2
010200                                                                  IX1194.2
010300 01  GRP-0101.                                                    IX1194.2
010400     05  FILLER              PIC X(10) VALUE "RECORD-KEY".        IX1194.2
010500     05  GRP-0101-KEY        PIC 9(9)  VALUE ZERO.                IX1194.2
010600     05  FILLER              PIC X(10) VALUE "END-OF-KEY".        IX1194.2
010700                                                                  IX1194.2
010800 01  GRP-0102.                                                    IX1194.2
010900     05  FILLER              PIC X(10) VALUE "ALTERN-KEY".        IX1194.2
011000     05  GRP-0102-KEY        PIC 9(9)  VALUE ZERO.                IX1194.2
011100     05  FILLER              PIC X(10) VALUE "END-AL-KEY".        IX1194.2
011200                                                                  IX1194.2
011300 01  WRK-CS-09V00            PIC S9(9) COMP VALUE ZERO.           IX1194.2
011400                                                                  IX1194.2
011500 01  EOF-FLAG                PIC 9 VALUE ZERO.                    IX1194.2
011600                                                                  IX1194.2
011700 01  RECORDS-IN-ERROR        PIC S9(5) COMP VALUE ZERO.           IX1194.2
011800                                                                  IX1194.2
011900 01  ERROR-FLAG              PIC 9 VALUE ZERO.                    IX1194.2
012000                                                                  IX1194.2
012100 01  PERM-ERRORS             PIC S9(5) COMP VALUE ZERO.           IX1194.2
012200                                                                  IX1194.2
012300 01  STATUS-TEST-00          PIC 9 VALUE ZERO.                    IX1194.2
012400                                                                  IX1194.2
012500 01  STATUS-TEST-10          PIC 9 VALUE ZERO.                    IX1194.2
012600 01  STATUS-TEST-READ        PIC 9 VALUE ZERO.                    IX1194.2
012700                                                                  IX1194.2
012800 01  IX-FS3-STATUS.                                               IX1194.2
012900     05  IX-FS3-STAT1        PIC X.                               IX1194.2
013000     05  IX-FS3-STAT2        PIC X.                               IX1194.2
013100                                                                  IX1194.2
013200 01  COUNT-OF-RECS           PIC 9(5).                            IX1194.2
013300                                                                  IX1194.2
013400 01  COUNT-OF-RECORDS REDEFINES COUNT-OF-RECS  PIC 9(5).          IX1194.2
013500                                                                  IX1194.2
013600 01  FILE-RECORD-INFORMATION-REC.                                 IX1194.2
013700     05  FILE-RECORD-INFO-SKELETON.                               IX1194.2
013800         10  FILLER          PIC X(48) VALUE                      IX1194.2
013900              "FILE= ,RECORD= /0,RECNO=000000,UPDT=00". IX1194.2
014000         10  FILLER          PIC X(46) VALUE                      IX1194.2
014100                ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000". IX1194.2
014200         10  FILLER          PIC X(26) VALUE                      IX1194.2
014300                                    ",LFIL=000000,ORG= ,LBLR= ". IX1194.2
014400         10  FILLER          PIC X(37) VALUE                      IX1194.2
014500                         ",RECKEY= ". IX1194.2
014600         10  FILLER          PIC X(38) VALUE                      IX1194.2
014700                        ",ALTKEY1= ". IX1194.2
014800         10  FILLER          PIC X(38) VALUE                      IX1194.2
014900                        ",ALTKEY2= ". IX1194.2
015000         10  FILLER          PIC X(7) VALUE SPACE.                IX1194.2
015100     05  FILE-RECORD-INFO             OCCURS 10.                  IX1194.2
015200         10  FILE-RECORD-INFO-P1-120.                             IX1194.2
015300             15  FILLER      PIC X(5).                            IX1194.2
015400             15  XFILE-NAME  PIC X(6).                            IX1194.2
015500             15  FILLER      PIC X(8).                            IX1194.2
015600             15  XRECORD-NAME  PIC X(6).                          IX1194.2
015700             15  FILLER        PIC X(1).                          IX1194.2
015800             15  REELUNIT-NUMBER  PIC 9(1).                       IX1194.2
015900             15  FILLER           PIC X(7).                       IX1194.2
016000             15  XRECORD-NUMBER   PIC 9(6).                       IX1194.2
016100             15  FILLER           PIC X(6).                       IX1194.2
016200             15  UPDATE-NUMBER    PIC 9(2).                       IX1194.2
016300             15  FILLER           PIC X(5).                       IX1194.2
016400             15  ODO-NUMBER       PIC 9(4).                       IX1194.2
016500             15  FILLER           PIC X(5).                       IX1194.2
016600             15  XPROGRAM-NAME    PIC X(5).                       IX1194.2
016700             15  FILLER           PIC X(7).                       IX1194.2
016800             15  XRECORD-LENGTH   PIC 9(6).                       IX1194.2
016900             15  FILLER           PIC X(7).                       IX1194.2
017000             15  CHARS-OR-RECORDS  PIC X(2).                      IX1194.2
017100             15  FILLER            PIC X(1).                      IX1194.2
017200             15  XBLOCK-SIZE       PIC 9(4).                      IX1194.2
017300             15  FILLER            PIC X(6).                      IX1194.2
017400             15  RECORDS-IN-FILE   PIC 9(6).                      IX1194.2
017500             15  FILLER            PIC X(5).                      IX1194.2
017600             15  XFILE-ORGANIZATION  PIC X(2).                    IX1194.2
017700             15  FILLER              PIC X(6).                    IX1194.2
017800             15  XLABEL-TYPE         PIC X(1).                    IX1194.2
017900         10  FILE-RECORD-INFO-P121-240.                           IX1194.2
018000             15  FILLER              PIC X(8).                    IX1194.2
018100             15  XRECORD-KEY         PIC X(29).                   IX1194.2
018200             15  FILLER              PIC X(9).                    IX1194.2
018300             15  ALTERNATE-KEY1      PIC X(29).                   IX1194.2
018400             15  FILLER              PIC X(9).                    IX1194.2
018500             15  ALTERNATE-KEY2      PIC X(29).                   IX1194.2
018600             15  FILLER              PIC X(7).                    IX1194.2
018700                                                                  IX1194.2
018800 01  TEST-RESULTS.                                                IX1194.2
018900     02 FILLER                   PIC X      VALUE SPACE.          IX1194.2
019000     02 FEATURE                  PIC X(20)  VALUE SPACE.          IX1194.2
019100     02 FILLER                   PIC X      VALUE SPACE.          IX1194.2
019200     02 P-OR-F                   PIC X(5)   VALUE SPACE.          IX1194.2
019300     02 FILLER                   PIC X      VALUE SPACE.          IX1194.2
019400     02  PAR-NAME.                                                IX1194.2
019500       03 FILLER                 PIC X(19)  VALUE SPACE.          IX1194.2
019600       03  PARDOT-X              PIC X      VALUE SPACE.          IX1194.2
019700       03 DOTVALUE               PIC 99     VALUE ZERO.           IX1194.2
019800     02 FILLER                   PIC X(8)   VALUE SPACE.          IX1194.2
019900     02 RE-MARK                  PIC X(61).                       IX1194.2
020000 01  TEST-COMPUTED.                                               IX1194.2
020100     02 FILLER                   PIC X(30)  VALUE SPACE.          IX1194.2
020200     02 FILLER                   PIC X(17)  VALUE                 IX1194.2
020300            " COMPUTED=".                                   IX1194.2
020400     02 COMPUTED-X.                                               IX1194.2
020500     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          IX1194.2
020600     03 COMPUTED-N               REDEFINES COMPUTED-A             IX1194.2
020700                                 PIC -9(9).9(9).                  IX1194.2
020800     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         IX1194.2
020900     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     IX1194.2
021000     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     IX1194.2
021100     03       CM-18V0 REDEFINES COMPUTED-A.                       IX1194.2
021200         04 COMPUTED-18V0                    PIC -9(18).          IX1194.2
021300         04 FILLER                           PIC X.               IX1194.2
021400     03 FILLER PIC X(50) VALUE SPACE.                             IX1194.2
021500 01  TEST-CORRECT.                                                IX1194.2
021600     02 FILLER PIC X(30) VALUE SPACE.                             IX1194.2
021700     02 FILLER PIC X(17) VALUE " CORRECT =".                IX1194.2
021800     02 CORRECT-X.                                                IX1194.2
021900     03 CORRECT-A                  PIC X(20) VALUE SPACE.         IX1194.2
022000     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      IX1194.2
022100     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         IX1194.2
022200     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     IX1194.2
022300     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     IX1194.2
022400     03      CR-18V0 REDEFINES CORRECT-A.                         IX1194.2
022500         04 CORRECT-18V0                     PIC -9(18).          IX1194.2
022600         04 FILLER                           PIC X.               IX1194.2
022700     03 FILLER PIC X(2) VALUE SPACE.                              IX1194.2
022800     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     IX1194.2
022900 01  CCVS-C-1.                                                    IX1194.2
023000     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PAIX1194.2
023100-    "SS PARAGRAPH-NAME IX1194.2
023200-    " REMARKS".                                            IX1194.2
023300     02 FILLER                     PIC X(20)    VALUE SPACE.      IX1194.2
023400 01  CCVS-C-2.                                                    IX1194.2
023500     02 FILLER                     PIC X        VALUE SPACE.      IX1194.2
023600     02 FILLER                     PIC X(6)     VALUE "TESTED".   IX1194.2
023700     02 FILLER                     PIC X(15)    VALUE SPACE.      IX1194.2
023800     02 FILLER                     PIC X(4)     VALUE "FAIL".     IX1194.2
023900     02 FILLER                     PIC X(94)    VALUE SPACE.      IX1194.2
024000 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       IX1194.2
024100 01  REC-CT                        PIC 99       VALUE ZERO.       IX1194.2
024200 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       IX1194.2
024300 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       IX1194.2
024400 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       IX1194.2
024500 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       IX1194.2
024600 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       IX1194.2
024700 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       IX1194.2
024800 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      IX1194.2
024900 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       IX1194.2
025000 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     IX1194.2
025100 01  CCVS-H-1.                                                    IX1194.2
025200     02  FILLER                    PIC X(39)    VALUE SPACES.     IX1194.2
025300     02  FILLER                    PIC X(42)    VALUE             IX1194.2
025400     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 IX1194.2
025500     02  FILLER                    PIC X(39)    VALUE SPACES.     IX1194.2
025600 01  CCVS-H-2A.                                                   IX1194.2
025700   02  FILLER                        PIC X(40)  VALUE SPACE.      IX1194.2
025800   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  IX1194.2
025900   02  FILLER                        PIC XXXX   VALUE             IX1194.2
026000     "4.2 ".                                                      IX1194.2
026100   02  FILLER                        PIC X(28)  VALUE             IX1194.2
026200            " COPY - NOT FOR DISTRIBUTION".                       IX1194.2
026300   02  FILLER                        PIC X(41)  VALUE SPACE.      IX1194.2
026400                                                                  IX1194.2
026500 01  CCVS-H-2B.                                                   IX1194.2
026600   02  FILLER                        PIC X(15)  VALUE             IX1194.2
026700            "TEST RESULT OF ".                                    IX1194.2
026800   02  TEST-ID                       PIC X(9).                    IX1194.2
026900   02  FILLER                        PIC X(4)   VALUE             IX1194.2
027000            " IN ".                                               IX1194.2
027100   02  FILLER                        PIC X(12)  VALUE             IX1194.2
027200     " HIGH ".                                              IX1194.2
027300   02  FILLER                        PIC X(22)  VALUE             IX1194.2
027400            " LEVEL VALIDATION FOR ".                             IX1194.2
027500   02  FILLER                        PIC X(58)  VALUE             IX1194.2
027600     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX1194.2
027700 01  CCVS-H-3.                                                    IX1194.2
027800     02  FILLER                      PIC X(34)  VALUE             IX1194.2
027900            " FOR OFFICIAL USE ONLY ".                         IX1194.2
028000     02  FILLER                      PIC X(58)  VALUE             IX1194.2
028100     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IX1194.2
028200     02  FILLER                      PIC X(28)  VALUE             IX1194.2
028300            " COPYRIGHT 1985 ".                                IX1194.2
028400 01  CCVS-E-1.                                                    IX1194.2
028500     02 FILLER                       PIC X(52)  VALUE SPACE.      IX1194.2
028600     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              IX1194.2
028700     02 ID-AGAIN                     PIC X(9).                    IX1194.2
028800     02 FILLER                       PIC X(45)  VALUE SPACES.     IX1194.2
028900 01  CCVS-E-2.                                                    IX1194.2
029000     02  FILLER                      PIC X(31)  VALUE SPACE.      IX1194.2
029100     02  FILLER                      PIC X(21)  VALUE SPACE.      IX1194.2
029200     02 CCVS-E-2-2.                                               IX1194.2
029300         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      IX1194.2
029400         03 FILLER                   PIC X      VALUE SPACE.      IX1194.2
029500         03 ENDER-DESC               PIC X(44)  VALUE             IX1194.2
029600            "ERRORS ENCOUNTERED".                                 IX1194.2
029700 01  CCVS-E-3.                                                    IX1194.2
029800     02  FILLER                      PIC X(22)  VALUE             IX1194.2
029900            " FOR OFFICIAL USE ONLY".                             IX1194.2
030000     02  FILLER                      PIC X(12)  VALUE SPACE.      IX1194.2
030100     02  FILLER                      PIC X(58)  VALUE             IX1194.2
030200     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX1194.2
030300     02  FILLER                      PIC X(13)  VALUE SPACE.      IX1194.2
030400     02 FILLER                       PIC X(15)  VALUE             IX1194.2
030500             " COPYRIGHT 1985".                                   IX1194.2
030600 01  CCVS-E-4.                                                    IX1194.2
030700     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      IX1194.2
030800     02 FILLER                       PIC X(4)   VALUE " OF ".     IX1194.2
030900     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      IX1194.2
031000     02 FILLER                       PIC X(40)  VALUE             IX1194.2
031100      " TESTS WERE EXECUTED SUCCESSFULLY".                       IX1194.2
031200 01  XXINFO.                                                      IX1194.2
031300     02 FILLER                       PIC X(19)  VALUE             IX1194.2
031400            "*** INFORMATION ***".                                IX1194.2
031500     02 INFO-TEXT.                                                IX1194.2
031600       04 FILLER                     PIC X(8)   VALUE SPACE.      IX1194.2
031700       04 XXCOMPUTED                 PIC X(20).                   IX1194.2
031800       04 FILLER                     PIC X(5)   VALUE SPACE.      IX1194.2
031900       04 XXCORRECT                  PIC X(20).                   IX1194.2
032000     02 INF-ANSI-REFERENCE           PIC X(48).                   IX1194.2
032100 01  HYPHEN-LINE.                                                 IX1194.2
032200     02 FILLER  PIC IS X VALUE IS SPACE.                          IX1194.2
032300     02 FILLER  PIC IS X(65)    VALUE IS "************************IX1194.2
032400-    "*****************************************".                 IX1194.2
032500     02 FILLER  PIC IS X(54)    VALUE IS "************************IX1194.2
032600-    "******************************".                            IX1194.2
032700 01  TEST-NO                         PIC 99.                      IX1194.2
032800 01  CCVS-PGM-ID                     PIC X(9)   VALUE             IX1194.2
032900     "IX119A".                                                    IX1194.2
033000 PROCEDURE DIVISION.                                              IX1194.2
033100 DECLARATIVES.                                                    IX1194.2
033200                                                                  IX1194.2
033300 SECT-IX105-0002 SECTION.                                         IX1194.2
033400     USE AFTER EXCEPTION PROCEDURE ON IX-FS3.                     IX1194.2
033500 INPUT-PROCESS.                                                   IX1194.2
033600     IF TEST-NO = 5                                               IX1194.2
033700        GO TO D-C-TEST-GF-01-1.                                   IX1194.2
033800     IF STATUS-TEST-10 EQUAL TO 1                                 IX1194.2
033900        IF  IX-FS3-STAT1 EQUAL TO "1"                             IX1194.2
034000            MOVE 1 TO EOF-FLAG                                    IX1194.2
034100        ELSE                                                      IX1194.2
034200           IF  IX-FS3-STAT1 GREATER THAN "1"                      IX1194.2
034300           MOVE 1 TO PERM-ERRORS.                                 IX1194.2
034400     GO TO DECL-EXIT.                                             IX1194.2
034500 D-C-TEST-GF-01-1.                                                IX1194.2
034600     IF IX-FS3-STATUS EQUAL TO "43"                               IX1194.2
034700         GO TO D-C-PASS-GF-01-0.                                  IX1194.2
034800 D-C-FAIL-GF-01-0.                                                IX1194.2
034900     MOVE IX-FS3-STATUS TO COMPUTED-A.                            IX1194.2
035000     MOVE "43" TO CORRECT-X.                                      IX1194.2
035100     MOVE "IX-5, 1.3.4, (5) C" TO RE-MARK.                        IX1194.2
035200     PERFORM D-FAIL.                                              IX1194.2
035300     GO TO D-C-WRITE-GF-01-0.                                     IX1194.2
035400 D-C-PASS-GF-01-0.                                                IX1194.2
035500     PERFORM D-PASS.                                              IX1194.2
035600 D-C-WRITE-GF-01-0.                                               IX1194.2
035700     PERFORM D-PRINT-DETAIL.                                      IX1194.2
035800 D-CLOSE-FILES.                                                   IX1194.2
035900     CLOSE IX-FS3.                                                IX1194.2
036000     OPEN I-O RAW-DATA.                                           IX1194.2
036100     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX1194.2
036200     READ RAW-DATA INVALID KEY GO TO D-END-E-2.                   IX1194.2
036300     MOVE "OK. " TO C-ABORT.                                  IX1194.2
036400     MOVE PASS-COUNTER TO C-OK.                                   IX1194.2
036500     MOVE ERROR-HOLD   TO C-ALL.                                  IX1194.2
036600     MOVE ERROR-COUNTER TO C-FAIL.                                IX1194.2
036700     MOVE DELETE-COUNTER TO C-DELETED.                            IX1194.2
036800     MOVE INSPECT-COUNTER TO C-INSPECT.                           IX1194.2
036900     REWRITE RAW-DATA-SATZ INVALID KEY GO TO D-END-E-2.           IX1194.2
037000 D-END-E-2.                                                       IX1194.2
037100     CLOSE RAW-DATA.                                              IX1194.2
037200     PERFORM D-END-ROUTINE THRU D-END-ROUTINE-13.                 IX1194.2
037300     CLOSE PRINT-FILE.                                            IX1194.2
037400 D-TERMINATE-CCVS.                                                IX1194.2
037500     EXIT PROGRAM.                                                IX1194.2
037600 D-TERMINATE-CALL.                                                IX1194.2
037700     STOP     RUN.                                                IX1194.2
037800 D-PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.         IX1194.2
037900 D-FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.        IX1194.2
038000 D-PRINT-DETAIL.                                                  IX1194.2
038100     IF   REC-CT NOT EQUAL TO ZERO                                IX1194.2
038200          MOVE "." TO PARDOT-X                                    IX1194.2
038300          MOVE REC-CT TO DOTVALUE.                                IX1194.2
038400     MOVE TEST-RESULTS TO PRINT-REC.                              IX1194.2
038500     PERFORM D-WRITE-LINE.                                        IX1194.2
038600     IF   P-OR-F EQUAL TO "FAIL*"                                 IX1194.2
038700          PERFORM D-WRITE-LINE                                    IX1194.2
038800          PERFORM D-FAIL-ROUTINE THRU D-FAIL-ROUTINE-EX           IX1194.2
038900     ELSE                                                         IX1194.2
039000          PERFORM D-BAIL-OUT THRU D-BAIL-OUT-EX.                  IX1194.2
039100     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              IX1194.2
039200     MOVE SPACE TO CORRECT-X.                                     IX1194.2
039300     IF   REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.           IX1194.2
039400     MOVE SPACE TO RE-MARK.                                       IX1194.2
039500 D-END-ROUTINE.                                                   IX1194.2
039600     MOVE HYPHEN-LINE TO DUMMY-RECORD.                            IX1194.2
039700     PERFORM D-WRITE-LINE 5 TIMES.                                IX1194.2
039800 D-END-RTN-EXIT.                                                  IX1194.2
039900     MOVE CCVS-E-1 TO DUMMY-RECORD.                               IX1194.2
040000     PERFORM D-WRITE-LINE 2 TIMES.                                IX1194.2
040100 D-END-ROUTINE-1.                                                 IX1194.2
040200     ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO       IX1194.2
040300     ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.                IX1194.2
040400     ADD PASS-COUNTER TO ERROR-HOLD.                              IX1194.2
040500     MOVE PASS-COUNTER TO CCVS-E-4-1.                             IX1194.2
040600     MOVE ERROR-HOLD TO CCVS-E-4-2.                               IX1194.2
040700     MOVE CCVS-E-4 TO CCVS-E-2-2.                                 IX1194.2
040800     MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM D-WRITE-LINE.          IX1194.2
040900  D-END-ROUTINE-12.                                               IX1194.2
041000     MOVE "TEST(S) FAILED" TO ENDER-DESC.                         IX1194.2
041100     IF  ERROR-COUNTER IS EQUAL TO ZERO                           IX1194.2
041200         MOVE "NO " TO ERROR-TOTAL                                IX1194.2
041300     ELSE                                                         IX1194.2
041400         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       IX1194.2
041500     MOVE    CCVS-E-2 TO DUMMY-RECORD.                            IX1194.2
041600     PERFORM D-WRITE-LINE.                                        IX1194.2
041700 D-END-ROUTINE-13.                                                IX1194.2
041800     IF  DELETE-COUNTER IS EQUAL TO ZERO                          IX1194.2
041900         MOVE "NO " TO ERROR-TOTAL  ELSE                          IX1194.2
042000         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      IX1194.2
042100     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   IX1194.2
042200     MOVE CCVS-E-2 TO DUMMY-RECORD.                               IX1194.2
042300     PERFORM D-WRITE-LINE.                                        IX1194.2
042400     IF   INSPECT-COUNTER EQUAL TO ZERO                           IX1194.2
042500          MOVE "NO " TO ERROR-TOTAL                               IX1194.2
042600     ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                    IX1194.2
042700     MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.             IX1194.2
042800     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM D-WRITE-LINE.         IX1194.2
042900     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM D-WRITE-LINE.         IX1194.2
043000 D-WRITE-LINE.                                                    IX1194.2
043100     ADD 1 TO RECORD-COUNT.                                       IX1194.2
043200     IF RECORD-COUNT GREATER 42                                   IX1194.2
043300        MOVE DUMMY-RECORD TO DUMMY-HOLD                           IX1194.2
043400        MOVE SPACE TO DUMMY-RECORD                                IX1194.2
043500        WRITE DUMMY-RECORD AFTER ADVANCING PAGE                   IX1194.2
043600        MOVE CCVS-H-1  TO DUMMY-RECORD PERFORM D-WRT-LN 2 TIMES   IX1194.2
043700        MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM D-WRT-LN 2 TIMES   IX1194.2
043800        MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM D-WRT-LN 3 TIMES   IX1194.2
043900        MOVE CCVS-H-3  TO DUMMY-RECORD PERFORM D-WRT-LN 3 TIMES   IX1194.2
044000        MOVE CCVS-C-1  TO DUMMY-RECORD PERFORM D-WRT-LN           IX1194.2
044100        MOVE CCVS-C-2  TO DUMMY-RECORD PERFORM D-WRT-LN           IX1194.2
044200        MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM D-WRT-LN         IX1194.2
044300        MOVE DUMMY-HOLD TO DUMMY-RECORD                           IX1194.2
044400        MOVE ZERO TO RECORD-COUNT.                                IX1194.2
044500     PERFORM D-WRT-LN.                                            IX1194.2
044600 D-WRT-LN.                                                        IX1194.2
044700     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               IX1194.2
044800     MOVE SPACE TO DUMMY-RECORD.                                  IX1194.2
044900 D-FAIL-ROUTINE.                                                  IX1194.2
045000     IF   COMPUTED-X NOT EQUAL TO SPACE                           IX1194.2
045100          GO TO D-FAIL-ROUTINE-WRITE.                             IX1194.2
045200     IF   CORRECT-X NOT EQUAL TO SPACE GO TO D-FAIL-ROUTINE-WRITE.IX1194.2
045300     MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE.                   IX1194.2
045400     MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.    IX1194.2
045500     MOVE XXINFO TO DUMMY-RECORD. PERFORM D-WRITE-LINE 2 TIMES.   IX1194.2
045600     MOVE SPACES TO INF-ANSI-REFERENCE.                           IX1194.2
045700     GO TO D-FAIL-ROUTINE-EX.                                     IX1194.2
045800 D-FAIL-ROUTINE-WRITE.                                            IX1194.2
045900     MOVE TEST-COMPUTED TO PRINT-REC PERFORM D-WRITE-LINE         IX1194.2
046000     MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE.                   IX1194.2
046100     MOVE TEST-CORRECT TO PRINT-REC PERFORM D-WRITE-LINE 2 TIMES. IX1194.2
046200     MOVE SPACES TO COR-ANSI-REFERENCE.                           IX1194.2
046300 D-FAIL-ROUTINE-EX. EXIT.                                         IX1194.2
046400 D-BAIL-OUT.                                                      IX1194.2
046500     IF  COMPUTED-A NOT EQUAL TO SPACE GO TO D-BAIL-OUT-WRITE.    IX1194.2
046600     IF  CORRECT-A EQUAL TO SPACE GO TO D-BAIL-OUT-EX.            IX1194.2
046700 D-BAIL-OUT-WRITE.                                                IX1194.2
046800     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  IX1194.2
046900     MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE.                   IX1194.2
047000     MOVE XXINFO TO DUMMY-RECORD. PERFORM D-WRITE-LINE 2 TIMES.   IX1194.2
047100     MOVE SPACES TO INF-ANSI-REFERENCE.                           IX1194.2
047200 D-BAIL-OUT-EX. EXIT.                                             IX1194.2
047300 DECL-EXIT.  EXIT.                                                IX1194.2
047400 END DECLARATIVES.                                                IX1194.2
047500                                                                  IX1194.2
047600                                                                  IX1194.2
047700 CCVS1 SECTION.                                                   IX1194.2
047800 OPEN-FILES.                                                      IX1194.2
047900     OPEN I-O RAW-DATA.                                           IX1194.2
048000     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX1194.2
048100     READ RAW-DATA INVALID KEY GO TO END-E-1.                     IX1194.2
048200     MOVE "ABORTED " TO C-ABORT.                                  IX1194.2
048300     ADD 1 TO C-NO-OF-TESTS.                                      IX1194.2
048400     ACCEPT C-DATE  FROM DATE.                                    IX1194.2
048500     ACCEPT C-TIME  FROM TIME.                                    IX1194.2
048600     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1.             IX1194.2
048700 END-E-1.                                                         IX1194.2
048800     CLOSE RAW-DATA.                                              IX1194.2
048900     OPEN    OUTPUT PRINT-FILE.                                   IX1194.2
049000     MOVE  CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.  IX1194.2
049100     MOVE    SPACE TO TEST-RESULTS.                               IX1194.2
049200     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.              IX1194.2
049300     MOVE    ZERO TO REC-SKL-SUB.                                 IX1194.2
049400     PERFORM CCVS-INIT-FILE 9 TIMES.                              IX1194.2
049500 CCVS-INIT-FILE.                                                  IX1194.2
049600     ADD     1 TO REC-SKL-SUB.                                    IX1194.2
049700     MOVE    FILE-RECORD-INFO-SKELETON                            IX1194.2
049800          TO FILE-RECORD-INFO (REC-SKL-SUB).                      IX1194.2
049900 CCVS-INIT-EXIT.                                                  IX1194.2
050000     GO TO CCVS1-EXIT.                                            IX1194.2
050100 CLOSE-FILES.                                                     IX1194.2
050200     OPEN I-O RAW-DATA.                                           IX1194.2
050300     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX1194.2
050400     READ RAW-DATA INVALID KEY GO TO END-E-2.                     IX1194.2
050500     MOVE "OK. " TO C-ABORT.                                  IX1194.2
050600     MOVE PASS-COUNTER TO C-OK.                                   IX1194.2
050700     MOVE ERROR-HOLD   TO C-ALL.                                  IX1194.2
050800     MOVE ERROR-COUNTER TO C-FAIL.                                IX1194.2
050900     MOVE DELETE-COUNTER TO C-DELETED.                            IX1194.2
051000     MOVE INSPECT-COUNTER TO C-INSPECT.                           IX1194.2
051100     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2.             IX1194.2
051200 END-E-2.                                                         IX1194.2
051300     CLOSE RAW-DATA.                                              IX1194.2
051400     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   IX1194.2
051500 TERMINATE-CCVS.                                                  IX1194.2
051600     EXIT PROGRAM.                                                IX1194.2
051700 TERMINATE-CALL.                                                  IX1194.2
051800     STOP     RUN.                                                IX1194.2
051900 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         IX1194.2
052000 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           IX1194.2
052100 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          IX1194.2
052200 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      IX1194.2
052300     MOVE "****TEST DELETED****" TO RE-MARK.                      IX1194.2
052400 PRINT-DETAIL.                                                    IX1194.2
052500     IF REC-CT NOT EQUAL TO ZERO                                  IX1194.2
052600             MOVE "." TO PARDOT-X                                 IX1194.2
052700             MOVE REC-CT TO DOTVALUE.                             IX1194.2
052800     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      IX1194.2
052900     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               IX1194.2
053000        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 IX1194.2
053100          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 IX1194.2
053200     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              IX1194.2
053300     MOVE SPACE TO CORRECT-X.                                     IX1194.2
053400     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         IX1194.2
053500     MOVE     SPACE TO RE-MARK.                                   IX1194.2
053600 HEAD-ROUTINE.                                                    IX1194.2
053700     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IX1194.2
053800     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IX1194.2
053900     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IX1194.2
054000     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IX1194.2
054100 COLUMN-NAMES-ROUTINE.                                            IX1194.2
054200     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX1194.2
054300     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX1194.2
054400     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        IX1194.2
054500 END-ROUTINE.                                                     IX1194.2
054600     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.IX1194.2
054700 END-RTN-EXIT.                                                    IX1194.2
054800     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX1194.2
054900 END-ROUTINE-1.                                                   IX1194.2
055000      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      IX1194.2
055100      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               IX1194.2
055200      ADD PASS-COUNTER TO ERROR-HOLD.                             IX1194.2
055300*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   IX1194.2
055400      MOVE PASS-COUNTER TO CCVS-E-4-1.                            IX1194.2
055500      MOVE ERROR-HOLD TO CCVS-E-4-2.                              IX1194.2
055600      MOVE CCVS-E-4 TO CCVS-E-2-2.                                IX1194.2
055700      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           IX1194.2
055800  END-ROUTINE-12.                                                 IX1194.2
055900      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        IX1194.2
056000     IF       ERROR-COUNTER IS EQUAL TO ZERO                      IX1194.2
056100         MOVE "NO " TO ERROR-TOTAL                                IX1194.2
056200         ELSE                                                     IX1194.2
056300         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       IX1194.2
056400     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           IX1194.2
056500     PERFORM WRITE-LINE.                                          IX1194.2
056600 END-ROUTINE-13.                                                  IX1194.2
056700     IF DELETE-COUNTER IS EQUAL TO ZERO                           IX1194.2
056800         MOVE "NO " TO ERROR-TOTAL  ELSE                          IX1194.2
056900         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      IX1194.2
057000     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   IX1194.2
057100     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX1194.2
057200      IF   INSPECT-COUNTER EQUAL TO ZERO                          IX1194.2
057300          MOVE "NO " TO ERROR-TOTAL                               IX1194.2
057400      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   IX1194.2
057500      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            IX1194.2
057600      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          IX1194.2
057700     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX1194.2
057800 WRITE-LINE.                                                      IX1194.2
057900     ADD 1 TO RECORD-COUNT.                                       IX1194.2
058000     IF RECORD-COUNT GREATER 42                                   IX1194.2
058100         MOVE DUMMY-RECORD TO DUMMY-HOLD                          IX1194.2
058200         MOVE SPACE TO DUMMY-RECORD                               IX1194.2
058300         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  IX1194.2
058400         MOVE CCVS-H-1  TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    IX1194.2
058500         MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    IX1194.2
058600         MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    IX1194.2
058700         MOVE CCVS-H-3  TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    IX1194.2
058800         MOVE CCVS-C-1  TO DUMMY-RECORD PERFORM WRT-LN            IX1194.2
058900         MOVE CCVS-C-2  TO DUMMY-RECORD PERFORM WRT-LN            IX1194.2
059000         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          IX1194.2
059100         MOVE DUMMY-HOLD TO DUMMY-RECORD                          IX1194.2
059200         MOVE ZERO TO RECORD-COUNT.                               IX1194.2
059300     PERFORM WRT-LN.                                              IX1194.2
059400 WRT-LN.                                                          IX1194.2
059500     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               IX1194.2
059600     MOVE SPACE TO DUMMY-RECORD.                                  IX1194.2
059700 BLANK-LINE-PRINT.                                                IX1194.2
059800     PERFORM WRT-LN.                                              IX1194.2
059900 FAIL-ROUTINE.                                                    IX1194.2
060000     IF     COMPUTED-X NOT EQUAL TO SPACE                         IX1194.2
060100            GO TO   FAIL-ROUTINE-WRITE.                           IX1194.2
060200     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IX1194.2
060300     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IX1194.2
060400     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   IX1194.2
060500     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX1194.2
060600     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IX1194.2
060700     GO TO  FAIL-ROUTINE-EX.                                      IX1194.2
060800 FAIL-ROUTINE-WRITE.                                              IX1194.2
060900     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         IX1194.2
061000     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 IX1194.2
061100     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. IX1194.2
061200     MOVE   SPACES TO COR-ANSI-REFERENCE.                         IX1194.2
061300 FAIL-ROUTINE-EX. EXIT.                                           IX1194.2
061400 BAIL-OUT.                                                        IX1194.2
061500     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   IX1194.2
061600     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           IX1194.2
061700 BAIL-OUT-WRITE.                                                  IX1194.2
061800     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  IX1194.2
061900     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IX1194.2
062000     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX1194.2
062100     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IX1194.2
062200 BAIL-OUT-EX. EXIT.                                               IX1194.2
062300 CCVS1-EXIT.                                                      IX1194.2
062400     EXIT.                                                        IX1194.2
062500                                                                  IX1194.2
062600 SECT-IX119A-0003 SECTION.                                        IX1194.2
062700 SEQ-INIT-010.                                                    IX1194.2
062800     MOVE ZERO TO TEST-NO.                                        IX1194.2
062900     MOVE "IX-FS3" TO XFILE-NAME (1).                             IX1194.2
063000     MOVE "R1-F-G" TO XRECORD-NAME (1).                           IX1194.2
063100     MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1).                       IX1194.2
063200     MOVE 000240 TO XRECORD-LENGTH (1).                           IX1194.2
063300     MOVE "RC" TO CHARS-OR-RECORDS (1).                           IX1194.2
063400     MOVE 0002 TO XBLOCK-SIZE (1).                                IX1194.2
063500     MOVE 000050 TO RECORDS-IN-FILE (1).                          IX1194.2
063600     MOVE "IX" TO XFILE-ORGANIZATION (1).                         IX1194.2
063700     MOVE "S" TO XLABEL-TYPE (1).                                 IX1194.2
063800     MOVE 000001 TO XRECORD-NUMBER (1).                           IX1194.2
063900     MOVE 0 TO COUNT-OF-RECS.                                     IX1194.2
064000                                                                  IX1194.2
064100******************************************************************IX1194.2
064200*   TEST  1                                                      *IX1194.2
064300*         OPEN OUTPUT ...                 00 EXPECTED            *IX1194.2
064400*         IX-3, 1.3.4 (1) A                                      *IX1194.2
064500*    STATUS 00 CHECK ON OUTPUT FILE IX-FS3                       *IX1194.2
064600*    THE OUTPUT STATEMENT IS SUCCESSFULLY EXECUTED               *IX1194.2
064700******************************************************************IX1194.2
064800 OPN-INIT-GF-01-0.                                                IX1194.2
064900     MOVE 1 TO STATUS-TEST-00.                                    IX1194.2
065000     MOVE SPACES TO IX-FS3-STATUS.                                IX1194.2
065100     MOVE "OPEN I-O : 00 EXP." TO FEATURE.                      IX1194.2
065200     MOVE "OPN-TEST-GF-01-0" TO PAR-NAME.                         IX1194.2
065300     OPEN                                                         IX1194.2
065400        I-O    IX-FS3.                                            IX1194.2
065500     IF IX-FS3-STATUS EQUAL TO "00"                               IX1194.2
065600         GO TO OPN-PASS-GF-01-0.                                  IX1194.2
065700 OPN-FAIL-GF-01-0.                                                IX1194.2
065800     MOVE "IX-3, 1.3.4, (1) A. " TO RE-MARK.                      IX1194.2
065900     PERFORM FAIL.                                                IX1194.2
066000     MOVE IX-FS3-STATUS TO COMPUTED-A.                            IX1194.2
066100     MOVE "00" TO CORRECT-X.                                      IX1194.2
066200     GO TO OPN-WRITE-GF-01-0.                                     IX1194.2
066300 OPN-PASS-GF-01-0.                                                IX1194.2
066400     PERFORM PASS.                                                IX1194.2
066500 OPN-WRITE-GF-01-0.                                               IX1194.2
066600     PERFORM PRINT-DETAIL.                                        IX1194.2
066700******************************************************************IX1194.2
066800*   TEST  4                                                      *IX1194.2
066900*      REWRITE  PRIME RECORD SHOULD BE CHANGED 21 OR 22 EXPECTED  IX1194.2
067000*         IX-3, 1.3.4 (3) A                                      *IX1194.2
067100******************************************************************IX1194.2
067200 RWR-INIT-GF-01-0.                                                IX1194.2
067300     MOVE SPACES TO IX-FS3-STATUS.                                IX1194.2
067400     MOVE 0 TO STATUS-TEST-00.                                    IX1194.2
067500     MOVE "REWRITE: 21/22 EXP." TO FEATURE.                      IX1194.2
067600     MOVE "RWR-TEST-GF-01-0" TO PAR-NAME.                         IX1194.2
067700     READ IX-FS3 AT END MOVE 0 TO IX-FS3-KEY.                     IX1194.2
067800     MOVE 9 TO XRECORD-NUMBER (1).                                IX1194.2
067900 RWR-TEST-GF-01-0.                                                IX1194.2
068000     MOVE XRECORD-NUMBER (1) TO GRP-0101-KEY, COUNT-OF-RECS.      IX1194.2
068100     MOVE GRP-0101 TO XRECORD-KEY (1).                            IX1194.2
068200     MOVE GRP-0102 TO ALTERNATE-KEY1 (1).                         IX1194.2
068300     MOVE FILE-RECORD-INFO (1) TO IX-FS3R1-F-G-240.               IX1194.2
068400     REWRITE IX-FS3R1-F-G-240 INVALID KEY GO TO RWR-TEST-GF-01-1. IX1194.2
068500 RWR-TEST-GF-01-1.                                                IX1194.2
068600     IF IX-FS3-STATUS = "21"                                      IX1194.2
068700        GO TO RWR-PASS-GF-01-0.                                   IX1194.2
068800     IF IX-FS3-STATUS = "22"                                      IX1194.2
068900        GO TO RWR-PASS-GF-01-0.                                   IX1194.2
069000 RWR-FAIL-GF-01-0.                                                IX1194.2
069100     MOVE "IX-3, 1.3.4, (3) A. " TO RE-MARK.                      IX1194.2
069200     PERFORM FAIL.                                                IX1194.2
069300     MOVE IX-FS3-STATUS TO COMPUTED-A.                            IX1194.2
069400     MOVE "21" TO CORRECT-X.                                      IX1194.2
069500     GO TO RWR-WRITE-GF-01-0.                                     IX1194.2
069600 RWR-PASS-GF-01-0.                                                IX1194.2
069700     PERFORM PASS.                                                IX1194.2
069800 RWR-WRITE-GF-01-0.                                               IX1194.2
069900     PERFORM PRINT-DETAIL.                                        IX1194.2
070000                                                                  IX1194.2
070100******************************************************************IX1194.2
070200*   TEST  5                                                      *IX1194.2
070300*         DELETE....  STATUS 43 EXPECTED                          IX1194.2
070400*         IX-5, 1.3.4 (5) C                                       IX1194.2
070500******************************************************************IX1194.2
070600 DEL-TEST-GF-01-0.                                                IX1194.2
070700     MOVE  5 TO TEST-NO.                                          IX1194.2
070800     MOVE SPACES TO IX-FS3-STATUS.                                IX1194.2
070900     MOVE "DELETE 43 EXP." TO FEATURE                       IX1194.2
071000     MOVE "DEL-TEST-GF-01-0" TO PAR-NAME.                         IX1194.2
071100     DELETE IX-FS3 RECORD.                                        IX1194.2
071200 DEL-TEST-GF-01-1.                                                IX1194.2
071300     IF IX-FS3-STATUS EQUAL TO "43"                               IX1194.2
071400        MOVE "SHOULD HAVE EXECUTED DECLARATIVES IX-3,1.3.4(4)"    IX1194.2
071500          TO RE-MARK                                              IX1194.2
071600        GO TO DEL-WRITE-GF-01-0.                                  IX1194.2
071700 DEL-FAIL-GF-01-0.                                                IX1194.2
071800     MOVE "IX-5, 1.3.4, (5) C" TO RE-MARK.                        IX1194.2
071900 DEL-WRITE-GF-01-0.                                               IX1194.2
072000     MOVE IX-FS3-STATUS TO COMPUTED-A.                            IX1194.2
072100     MOVE "43" TO CORRECT-X.                                      IX1194.2
072200     PERFORM FAIL.                                                IX1194.2
072300     PERFORM PRINT-DETAIL.                                        IX1194.2
072400     CLOSE IX-FS3.                                                IX1194.2
072500                                                                  IX1194.2
072600 TERMINATE-ROUTINE.                                               IX1194.2
072700     EXIT.                                                        IX1194.2
072800                                                                  IX1194.2
072900 CCVS-EXIT SECTION.                                               IX1194.2
073000 CCVS-999999.                                                     IX1194.2
073100     GO TO CLOSE-FILES.                                           IX1194.2

quality96%

¤ Dauer der Verarbeitung: 0.29 Sekunden (vorverarbeitet) ¤

*Bot Zugriff

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.