Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/IX/     Datei vom 4.1.2008 mit Größe 122 kB image not shown  

Quelle  ix208a.cob   Sprache: Cobol

 
000100 IDENTIFICATION DIVISION.                                         IX2084.2
000200 PROGRAM-ID.                                                      IX2084.2
000300     IX208A.                                                      IX2084.2
000400****************************************************************  IX2084.2
000500*                                                              *  IX2084.2
000600*    VALIDATION FOR:-                                          *  IX2084.2
000700*                                                              *  IX2084.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX2084.2
000900*                                                              *  IX2084.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IX2084.2
001100*                                                              *  IX2084.2
001200****************************************************************  IX2084.2
001300*    THE FUNCTION OF THIS PROGRAM IS TO TEST THE PERMISSIBLE SYN- IX2084.2
001400*    TACTICAL CONSTRUCTS OF COBOL ELEMENTS ASSOCIATED WITH LEVEL 2IX2084.2
001500*    OF THE INDEXED I-O MODULE.  THE ELEMENTS TESTED IN THIS      IX2084.2
001600*    ROUTINE ARE:                                                 IX2084.2
001700*                                                                 IX2084.2
001800*    (1) READ STATEMENT;                                          IX2084.2
001900*    (2) START STATEMENT;                                         IX2084.2
002000*    (3) USE STATEMENT.                                           IX2084.2
002100*                                                                 IX2084.2
002200*    EACH ELEMENT TESTED WILL BE EXERCISED SEMANTICALLY BY THIS   IX2084.2
002300*    ROUTINE.                                                     IX2084.2
002400*                                                                 IX2084.2
002500*                                                                 IX2084.2
002600*       X-CARDS  WHICH MUST BE REPLACED FOR THIS PROGRAM ARE      IX2084.2
002700*                                                                 IX2084.2
002800*             X-24   INDEXED FILE IMPLEMENTOR-NAME IN ASSGN TO    IX2084.2
002900*                    CLAUSE FOR DATA FILE IX-FS1                  IX2084.2
003000*             X-25   INDEXED FILE IMPLEMENTOR-NAME IN ASSIGN TO   IX2084.2
003100*                    CLAUSE FOR DATA FILE IX-FD2                  IX2084.2
003200*             X-44   INDEXED FILE IMPLEMENTOR-NAME IN ASSGN TO    IX2084.2
003300*                    CLAUSE FOR INDEX FILE IX-FS1                 IX2084.2
003400*             X-45   INDEXED FILE IMPLEMENTOR-NAME IN ASSIGN TO   IX2084.2
003500*                    CLAUSE FOR INDEX FILE IX-FD2                 IX2084.2
003600*             X-55   IMPLEMENTOR-NAME FOR SYSTEM PRINTER          IX2084.2
003700*             X-69   ADDITIONAL VALUE OF PHRASES                  IX2084.2
003800*             X-74   VALUE OF IMPLEMENTOR-NAME                    IX2084.2
003900*             X-75   OBJECT OF VALUE OF CLAUSE FOR FILE IX-FS1    IX2084.2
004000*             X-76   OBJECT OF VALUE OF CLAUSE FOR FILE IX-FD2    IX2084.2
004100*             X-82   IMPLEMENTOR-NAME FOR SOURCE-COMPUTER         IX2084.2
004200*             X-83   IMPLEMENTOR-NAME FOR OBJECT-COMPUTER         IX2084.2
004300*                                                                 IX2084.2
004400*        NOTE:  X-CARDS 44,45,69,74,75 AND 76 ARE OPTIONAL        IX2084.2
004500*               AND NEED ONLY TO BE PRESENT IF THE COMPILER RE-   IX2084.2
004600*               QUIRES THIS CODE BE AVAILABLE FOR PROPER PROGRAM  IX2084.2
004700*               COMPILATION AND EXECUTION. IF THE VP-ROUTINE IS   IX2084.2
004800*               USED THE  X-CARDS MAY BE AUTOMATICALLY SELECTED   IX2084.2
004900*               FOR INCLUSION IN THE PROGRAM BY SPECIFYING THE    IX2084.2
005000*               APPROPRIATE LETTER IN THE "*OPT" VP-ROUTINE       IX2084.2
005100*               CONTROL CARD. THE LETTER  CORRESPONDS TO A        IX2084.2
005200*               CHARACTER IN POSITION 7 OF THE SOURCE LINE AND    IX2084.2
005300*               THEY ARE AS FOLLOWS                               IX2084.2
005400*                                                                 IX2084.2
005500*                  C  SELECTS X-CARDS 74,75 AND 76                IX2084.2
005600*                  G  SELECTS X-CARDS 69                          IX2084.2
005700*                  J  SELECTS X-CARDS 44 AND 45                   IX2084.2
005800*                                                                 IX2084.2
005900*        NOTE:  THERE IS OPTIONAL SOURCE CODE IN THIS PROGRAM     IX2084.2
006000*               FOR THE CONVENIENCE OF THE USER.  THIS OPTIONAL   IX2084.2
006100*               CODE IS IDENTIFIED BY THE LETTER T,U OR X IN      IX2084.2
006200*               POSITION 7  OF THE SOURCE LINE.  USE OF           IX2084.2
006300*               SOURCE CODE WITH LETTER X WILL PRINT THE CONTENTS IX2084.2
006400*               OF THE FILES AFTER THE TEST REPORT.  FOR CODE     IX2084.2
006500*               WITH LETTERS T OR U ONLY ONE SHOULD BE SELECTED.  IX2084.2
006600*               EITHER THE T"S OR THE U"S SHOULD BE USED EXCLU-   IX2084.2
006700*               SIVELY, NOT BOTH.  THE T"S PROVIDE A 29 CHARACTER IX2084.2
006800*               INDEXED KEY SIZE FOR THE FILE AND THE U"S PROVIDE IX2084.2
006900*               AN INDEXED KEY NO GREATER THAN 8 CHARACTERS.      IX2084.2
007000*               IF THE VP-ROUTINE IS USED THE APPROPRIATE         IX2084.2
007100*               SOURCE CODE MAY BE SELECTED BY SPECIFYING THE     IX2084.2
007200*               RESPECTIVE LETTER IN THE "*OPT" VP-ROUTINE CONTROLIX2084.2
007300*               CARD.                                             IX2084.2
007400*                                                                 IX2084.2
007500******************************************************            IX2084.2
007600 ENVIRONMENT DIVISION.                                            IX2084.2
007700 CONFIGURATION SECTION.                                           IX2084.2
007800 SOURCE-COMPUTER.                                                 IX2084.2
007900     Card0130.                                                    IX2084.2
008000 OBJECT-COMPUTER.                                                 IX2084.2
008100     Card0131.                                                    IX2084.2
008200 INPUT-OUTPUT SECTION.                                            IX2084.2
008300 FILE-CONTROL.                                                    IX2084.2
008400     SELECT RAW-DATA   ASSIGN TO                                  IX2084.2
008500     "C0098"                                                      IX2084.2
008600            ORGANIZATION IS INDEXED                               IX2084.2
008700            ACCESS MODE IS RANDOM                                 IX2084.2
008800            RECORD KEY IS RAW-DATA-KEY.                           IX2084.2
008900     SELECT PRINT-FILE ASSIGN TO                                  IX2084.2
009000     "C0085" .                                                    IX2084.2
009100     SELECT   IX-FD1                                              IX2084.2
009200        ASSIGN TO                                                 IX2084.2
009300     "C0036"                                                      IX2084.2
009400     "C0068"                                                      IX2084.2
009500         ORGANIZATION IS INDEXED                                  IX2084.2
009600        ALTERNATE RECORD KEY IS IX-FD1-ALTKEY1                    IX2084.2
009700        RECORD KEY IS   IX-FD1-KEY                                IX2084.2
009800        ACCESS MODE IS DYNAMIC.                                   IX2084.2
009900     SELECT   IX-FS2                                              IX2084.2
010000         ASSIGN TO                                                IX2084.2
010100     "C0037"                                                      IX2084.2
010200     "C0069"                                                      IX2084.2
010300     RECORD KEY IS IX-FS2-KEY                                     IX2084.2
010400        ALTERNATE RECORD KEY IS IX-FS2-ALTKEY1                    IX2084.2
010500        ACCESS MODE IS SEQUENTIAL                                 IX2084.2
010600         ORGANIZATION IS INDEXED.                                 IX2084.2
010700 DATA DIVISION.                                                   IX2084.2
010800 FILE SECTION.                                                    IX2084.2
010900                                                                  IX2084.2
011000 FD  RAW-DATA.                                                    IX2084.2
011100                                                                  IX2084.2
011200 01  RAW-DATA-SATZ.                                               IX2084.2
011300     05  RAW-DATA-KEY        PIC X(6).                            IX2084.2
011400     05  C-DATE              PIC 9(6).                            IX2084.2
011500     05  C-TIME              PIC 9(8).                            IX2084.2
011600     05  C-NO-OF-TESTS       PIC 99.                              IX2084.2
011700     05  C-OK                PIC 999.                             IX2084.2
011800     05  C-ALL               PIC 999.                             IX2084.2
011900     05  C-FAIL              PIC 999.                             IX2084.2
012000     05  C-DELETED           PIC 999.                             IX2084.2
012100     05  C-INSPECT           PIC 999.                             IX2084.2
012200     05  C-NOTE              PIC X(13).                           IX2084.2
012300     05  C-INDENT            PIC X.                               IX2084.2
012400     05  C-ABORT             PIC X(8).                            IX2084.2
012500 FD  PRINT-FILE.                                                  IX2084.2
012600 01  PRINT-REC PICTURE X(120).                                    IX2084.2
012700 01  DUMMY-RECORD PICTURE X(120).                                 IX2084.2
012800 FD  IX-FD1                                                       IX2084.2
012900     LABEL RECORD IS STANDARD                                     IX2084.2
013000     DATA RECORD IS IX-FD1R1-F-G-240                              IX2084.2
013100     RECORD CONTAINS 240 CHARACTERS.                              IX2084.2
013200 01  IX-FD1R1-F-G-240.                                            IX2084.2
013300     05 IX-FD1-REC-001-120        PICTURE X(120).                 IX2084.2
013400     05 IX-FD1-REC-121-240.                                       IX2084.2
013500     10 FILLER          PICTURE X(8).                             IX2084.2
013600     10 IX-FD1-KEY.                                               IX2084.2
013700        15 IX-FS1-KEYNUM PICTURE 9(5).                            IX2084.2
013800        15 FILLER        PICTURE 9(5).                            IX2084.2
013900     10 FILLER           PICTURE X(5).                            IX2084.2
014000     10 FILLER           PICTURE X(19).                           IX2084.2
014100     10 FILLER           PICTURE X(9).                            IX2084.2
014200     10 IX-FD1-ALTKEY1.                                           IX2084.2
014300        15 FILLER        PICTURE 9(5).                            IX2084.2
014400        15 IX-FD1-ALTKEY1NUM      PICTURE 9(5).                   IX2084.2
014500     10 FILLER                    PICTURE 9(5).                   IX2084.2
014600     10 FILLER                    PICTURE X(19).                  IX2084.2
014700     10 FILLER                    PICTURE X(45).                  IX2084.2
014800 FD  IX-FS2                                                       IX2084.2
014900     LABEL RECORDS ARE STANDARD                                   IX2084.2
015000     DATA RECORD IS IX-FS2R1-F-G-240                              IX2084.2
015100          .                                                       IX2084.2
015200 01  IX-FS2R1-F-G-240.                                            IX2084.2
015300     05 IX-FS2-REC-001-120        PICTURE X(120).                 IX2084.2
015400     05 IX-FS2-REC-121-240.                                       IX2084.2
015500        10 FILLER                 PICTURE X(8).                   IX2084.2
015600        10 IX-FS2-KEY.                                            IX2084.2
015700           15 IX-FS2-KEYNUM       PICTURE 9(5).                   IX2084.2
015800           15 FILLER              PICTURE 9(5).                   IX2084.2
015900        10 FILLER                 PICTURE 9(5).                   IX2084.2
016000        10 FILLER                 PICTURE X(19).                  IX2084.2
016100        10 FILLER                 PICTURE X(9).                   IX2084.2
016200        10 IX-FS2-ALTKEY1.                                        IX2084.2
016300           15 FILLER              PICTURE 9(5).                   IX2084.2
016400           15 IX-FS2-ALTKEY1NUM   PICTURE 9(5).                   IX2084.2
016500        10 FILLER                 PICTURE 9(5).                   IX2084.2
016600        10 FILLER                 PICTURE X(19).                  IX2084.2
016700        10 FILLER                 PICTURE X(45).                  IX2084.2
016800 WORKING-STORAGE SECTION.                                         IX2084.2
016900 01  IX-FD1-FILESIZE              PICTURE 9(6) VALUE 300.         IX2084.2
017000 01  IX-FS2-FILESIZE              PICTURE 9(6) VALUE 300.         IX2084.2
017100 01  WRK-IX-FD1-RECKEY.                                           IX2084.2
017200     03 WRK-DU-05V00-001          PICTURE 9(5) VALUE ZERO.        IX2084.2
017300     03 FILLER                    PICTURE 9(5) VALUE ZERO.        IX2084.2
017400 01  WRK-IX-FS2-RECKEY.                                           IX2084.2
017500     03 WRK-DU-05V00-003          PICTURE 9(5)  VALUE  ZERO.      IX2084.2
017600     03 FILLER                    PICTURE 9(5)  VALUE  ZERO.      IX2084.2
017700 01  WRK-IX-FD1-ALTKEY.                                           IX2084.2
017800     03 FILLER                    PICTURE 9(5)  VALUE  ZERO.      IX2084.2
017900     03 WRK-DU-05V00-002          PICTURE 9(5)  VALUE  ZERO.      IX2084.2
018000 01  WRK-IX-FS2-ALTKEY.                                           IX2084.2
018100     03 FILLER                    PICTURE 9(5)  VALUE  ZERO.      IX2084.2
018200     03 WRK-DU-05V00-004          PICTURE 9(5)  VALUE  ZERO.      IX2084.2
018300 01  EXCUT-COUNTER-06V00          PICTURE S9(6) VALUE  ZERO.      IX2084.2
018400 01  INV-KEY-COUNTER              PICTURE S9(6) VALUE  ZERO.      IX2084.2
018500 01  LOGICAL-FILE-REC             PICTURE S9(6) VALUE  ZERO.      IX2084.2
018600 01  ERROR-COUNTER-06V00          PICTURE S9(6) VALUE  ZERO.      IX2084.2
018700 01  ASCEND-DESEND-SWITCH        PICTURE XX   VALUE "UP".         IX2084.2
018800             88 ASCEND VALUE "UP".                                IX2084.2
018900             88 DSCEND VALUE "DN".                                IX2084.2
019000 01  FILE-RECORD-INFORMATION-REC.                                 IX2084.2
019100     03 FILE-RECORD-INFO-SKELETON.                                IX2084.2
019200        05 FILLER                 PICTURE X(48)       VALUE       IX2084.2
019300             "FILE= ,RECORD= /0,RECNO=000000,UPDT=00".  IX2084.2
019400        05 FILLER                 PICTURE X(46)       VALUE       IX2084.2
019500             ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000".    IX2084.2
019600        05 FILLER                 PICTURE X(26)       VALUE       IX2084.2
019700             ",LFIL=000000,ORG= ,LBLR= ".                        IX2084.2
019800        05 FILLER                 PICTURE X(37)       VALUE       IX2084.2
019900             ",RECKEY= ".             IX2084.2
020000        05 FILLER                 PICTURE X(38)       VALUE       IX2084.2
020100             ",ALTKEY1= ".            IX2084.2
020200        05 FILLER                 PICTURE X(38)       VALUE       IX2084.2
020300             ",ALTKEY2= ".            IX2084.2
020400        05 FILLER                 PICTURE X(7)        VALUE SPACE.IX2084.2
020500     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              IX2084.2
020600        05 FILE-RECORD-INFO-P1-120.                               IX2084.2
020700           07 FILLER              PIC X(5).                       IX2084.2
020800           07 XFILE-NAME           PIC X(6).                      IX2084.2
020900           07 FILLER              PIC X(8).                       IX2084.2
021000           07 XRECORD-NAME         PIC X(6).                      IX2084.2
021100           07 FILLER              PIC X(1).                       IX2084.2
021200           07 REELUNIT-NUMBER     PIC 9(1).                       IX2084.2
021300           07 FILLER              PIC X(7).                       IX2084.2
021400           07 XRECORD-NUMBER       PIC 9(6).                      IX2084.2
021500           07 FILLER              PIC X(6).                       IX2084.2
021600           07 UPDATE-NUMBER       PIC 9(2).                       IX2084.2
021700           07 FILLER              PIC X(5).                       IX2084.2
021800           07 ODO-NUMBER          PIC 9(4).                       IX2084.2
021900           07 FILLER              PIC X(5).                       IX2084.2
022000           07 XPROGRAM-NAME        PIC X(5).                      IX2084.2
022100           07 FILLER              PIC X(7).                       IX2084.2
022200           07 XRECORD-LENGTH       PIC 9(6).                      IX2084.2
022300           07 FILLER              PIC X(7).                       IX2084.2
022400           07 CHARS-OR-RECORDS    PIC X(2).                       IX2084.2
022500           07 FILLER              PIC X(1).                       IX2084.2
022600           07 XBLOCK-SIZE          PIC 9(4).                      IX2084.2
022700           07 FILLER              PIC X(6).                       IX2084.2
022800           07 RECORDS-IN-FILE     PIC 9(6).                       IX2084.2
022900           07 FILLER              PIC X(5).                       IX2084.2
023000           07 XFILE-ORGANIZATION   PIC X(2).                      IX2084.2
023100           07 FILLER              PIC X(6).                       IX2084.2
023200           07 XLABEL-TYPE          PIC X(1).                      IX2084.2
023300        05 FILE-RECORD-INFO-P121-240.                             IX2084.2
023400           07 FILLER              PIC X(8).                       IX2084.2
023500           07 XRECORD-KEY          PIC X(29).                     IX2084.2
023600           07 FILLER              PIC X(9).                       IX2084.2
023700           07 ALTERNATE-KEY1      PIC X(29).                      IX2084.2
023800           07 FILLER              PIC X(9).                       IX2084.2
023900           07 ALTERNATE-KEY2      PIC X(29).                      IX2084.2
024000           07 FILLER              PIC X(7).                       IX2084.2
024100 01  TEST-RESULTS.                                                IX2084.2
024200     02 FILLER                   PIC X      VALUE SPACE.          IX2084.2
024300     02 FEATURE                  PIC X(20)  VALUE SPACE.          IX2084.2
024400     02 FILLER                   PIC X      VALUE SPACE.          IX2084.2
024500     02 P-OR-F                   PIC X(5)   VALUE SPACE.          IX2084.2
024600     02 FILLER                   PIC X      VALUE SPACE.          IX2084.2
024700     02  PAR-NAME.                                                IX2084.2
024800       03 FILLER                 PIC X(19)  VALUE SPACE.          IX2084.2
024900       03  PARDOT-X              PIC X      VALUE SPACE.          IX2084.2
025000       03 DOTVALUE               PIC 99     VALUE ZERO.           IX2084.2
025100     02 FILLER                   PIC X(8)   VALUE SPACE.          IX2084.2
025200     02 RE-MARK                  PIC X(61).                       IX2084.2
025300 01  TEST-COMPUTED.                                               IX2084.2
025400     02 FILLER                   PIC X(30)  VALUE SPACE.          IX2084.2
025500     02 FILLER                   PIC X(17)  VALUE                 IX2084.2
025600            " COMPUTED=".                                   IX2084.2
025700     02 COMPUTED-X.                                               IX2084.2
025800     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          IX2084.2
025900     03 COMPUTED-N               REDEFINES COMPUTED-A             IX2084.2
026000                                 PIC -9(9).9(9).                  IX2084.2
026100     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         IX2084.2
026200     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     IX2084.2
026300     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     IX2084.2
026400     03       CM-18V0 REDEFINES COMPUTED-A.                       IX2084.2
026500         04 COMPUTED-18V0                    PIC -9(18).          IX2084.2
026600         04 FILLER                           PIC X.               IX2084.2
026700     03 FILLER PIC X(50) VALUE SPACE.                             IX2084.2
026800 01  TEST-CORRECT.                                                IX2084.2
026900     02 FILLER PIC X(30) VALUE SPACE.                             IX2084.2
027000     02 FILLER PIC X(17) VALUE " CORRECT =".                IX2084.2
027100     02 CORRECT-X.                                                IX2084.2
027200     03 CORRECT-A                  PIC X(20) VALUE SPACE.         IX2084.2
027300     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      IX2084.2
027400     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         IX2084.2
027500     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     IX2084.2
027600     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     IX2084.2
027700     03      CR-18V0 REDEFINES CORRECT-A.                         IX2084.2
027800         04 CORRECT-18V0                     PIC -9(18).          IX2084.2
027900         04 FILLER                           PIC X.               IX2084.2
028000     03 FILLER PIC X(2) VALUE SPACE.                              IX2084.2
028100     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     IX2084.2
028200 01  CCVS-C-1.                                                    IX2084.2
028300     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PAIX2084.2
028400-    "SS PARAGRAPH-NAME IX2084.2
028500-    " REMARKS".                                            IX2084.2
028600     02 FILLER                     PIC X(20)    VALUE SPACE.      IX2084.2
028700 01  CCVS-C-2.                                                    IX2084.2
028800     02 FILLER                     PIC X        VALUE SPACE.      IX2084.2
028900     02 FILLER                     PIC X(6)     VALUE "TESTED".   IX2084.2
029000     02 FILLER                     PIC X(15)    VALUE SPACE.      IX2084.2
029100     02 FILLER                     PIC X(4)     VALUE "FAIL".     IX2084.2
029200     02 FILLER                     PIC X(94)    VALUE SPACE.      IX2084.2
029300 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       IX2084.2
029400 01  REC-CT                        PIC 99       VALUE ZERO.       IX2084.2
029500 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       IX2084.2
029600 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       IX2084.2
029700 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       IX2084.2
029800 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       IX2084.2
029900 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       IX2084.2
030000 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       IX2084.2
030100 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      IX2084.2
030200 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       IX2084.2
030300 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     IX2084.2
030400 01  CCVS-H-1.                                                    IX2084.2
030500     02  FILLER                    PIC X(39)    VALUE SPACES.     IX2084.2
030600     02  FILLER                    PIC X(42)    VALUE             IX2084.2
030700     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 IX2084.2
030800     02  FILLER                    PIC X(39)    VALUE SPACES.     IX2084.2
030900 01  CCVS-H-2A.                                                   IX2084.2
031000   02  FILLER                        PIC X(40)  VALUE SPACE.      IX2084.2
031100   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  IX2084.2
031200   02  FILLER                        PIC XXXX   VALUE             IX2084.2
031300     "4.2 ".                                                      IX2084.2
031400   02  FILLER                        PIC X(28)  VALUE             IX2084.2
031500            " COPY - NOT FOR DISTRIBUTION".                       IX2084.2
031600   02  FILLER                        PIC X(41)  VALUE SPACE.      IX2084.2
031700                                                                  IX2084.2
031800 01  CCVS-H-2B.                                                   IX2084.2
031900   02  FILLER                        PIC X(15)  VALUE             IX2084.2
032000            "TEST RESULT OF ".                                    IX2084.2
032100   02  TEST-ID                       PIC X(9).                    IX2084.2
032200   02  FILLER                        PIC X(4)   VALUE             IX2084.2
032300            " IN ".                                               IX2084.2
032400   02  FILLER                        PIC X(12)  VALUE             IX2084.2
032500     " HIGH ".                                              IX2084.2
032600   02  FILLER                        PIC X(22)  VALUE             IX2084.2
032700            " LEVEL VALIDATION FOR ".                             IX2084.2
032800   02  FILLER                        PIC X(58)  VALUE             IX2084.2
032900     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX2084.2
033000 01  CCVS-H-3.                                                    IX2084.2
033100     02  FILLER                      PIC X(34)  VALUE             IX2084.2
033200            " FOR OFFICIAL USE ONLY ".                         IX2084.2
033300     02  FILLER                      PIC X(58)  VALUE             IX2084.2
033400     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IX2084.2
033500     02  FILLER                      PIC X(28)  VALUE             IX2084.2
033600            " COPYRIGHT 1985 ".                                IX2084.2
033700 01  CCVS-E-1.                                                    IX2084.2
033800     02 FILLER                       PIC X(52)  VALUE SPACE.      IX2084.2
033900     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              IX2084.2
034000     02 ID-AGAIN                     PIC X(9).                    IX2084.2
034100     02 FILLER                       PIC X(45)  VALUE SPACES.     IX2084.2
034200 01  CCVS-E-2.                                                    IX2084.2
034300     02  FILLER                      PIC X(31)  VALUE SPACE.      IX2084.2
034400     02  FILLER                      PIC X(21)  VALUE SPACE.      IX2084.2
034500     02 CCVS-E-2-2.                                               IX2084.2
034600         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      IX2084.2
034700         03 FILLER                   PIC X      VALUE SPACE.      IX2084.2
034800         03 ENDER-DESC               PIC X(44)  VALUE             IX2084.2
034900            "ERRORS ENCOUNTERED".                                 IX2084.2
035000 01  CCVS-E-3.                                                    IX2084.2
035100     02  FILLER                      PIC X(22)  VALUE             IX2084.2
035200            " FOR OFFICIAL USE ONLY".                             IX2084.2
035300     02  FILLER                      PIC X(12)  VALUE SPACE.      IX2084.2
035400     02  FILLER                      PIC X(58)  VALUE             IX2084.2
035500     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX2084.2
035600     02  FILLER                      PIC X(13)  VALUE SPACE.      IX2084.2
035700     02 FILLER                       PIC X(15)  VALUE             IX2084.2
035800             " COPYRIGHT 1985".                                   IX2084.2
035900 01  CCVS-E-4.                                                    IX2084.2
036000     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      IX2084.2
036100     02 FILLER                       PIC X(4)   VALUE " OF ".     IX2084.2
036200     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      IX2084.2
036300     02 FILLER                       PIC X(40)  VALUE             IX2084.2
036400      " TESTS WERE EXECUTED SUCCESSFULLY".                       IX2084.2
036500 01  XXINFO.                                                      IX2084.2
036600     02 FILLER                       PIC X(19)  VALUE             IX2084.2
036700            "*** INFORMATION ***".                                IX2084.2
036800     02 INFO-TEXT.                                                IX2084.2
036900       04 FILLER                     PIC X(8)   VALUE SPACE.      IX2084.2
037000       04 XXCOMPUTED                 PIC X(20).                   IX2084.2
037100       04 FILLER                     PIC X(5)   VALUE SPACE.      IX2084.2
037200       04 XXCORRECT                  PIC X(20).                   IX2084.2
037300     02 INF-ANSI-REFERENCE           PIC X(48).                   IX2084.2
037400 01  HYPHEN-LINE.                                                 IX2084.2
037500     02 FILLER  PIC IS X VALUE IS SPACE.                          IX2084.2
037600     02 FILLER  PIC IS X(65)    VALUE IS "************************IX2084.2
037700-    "*****************************************".                 IX2084.2
037800     02 FILLER  PIC IS X(54)    VALUE IS "************************IX2084.2
037900-    "******************************".                            IX2084.2
038000 01  CCVS-PGM-ID                     PIC X(9)   VALUE             IX2084.2
038100     "IX208A".                                                    IX2084.2
038200 PROCEDURE DIVISION.                                              IX2084.2
038300 DECLARATIVES.                                                    IX2084.2
038400 USE-IX208A-TEST SECTION.                                         IX2084.2
038500     USE      AFTER ERROR PROCEDURE IX-FD1  IX-FS2.               IX2084.2
038600 USE-PAR-001.                                                     IX2084.2
038700     ADD      010000  TO ERROR-COUNTER-06V00.                     IX2084.2
038800 USE-PAR-EXIT.                                                    IX2084.2
038900     EXIT.                                                        IX2084.2
039000 END DECLARATIVES.                                                IX2084.2
039100 CCVS1 SECTION.                                                   IX2084.2
039200 OPEN-FILES.                                                      IX2084.2
039300     OPEN I-O RAW-DATA.                                           IX2084.2
039400     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX2084.2
039500     READ RAW-DATA INVALID KEY GO TO END-E-1.                     IX2084.2
039600     MOVE "ABORTED " TO C-ABORT.                                  IX2084.2
039700     ADD 1 TO C-NO-OF-TESTS.                                      IX2084.2
039800     ACCEPT C-DATE  FROM DATE.                                    IX2084.2
039900     ACCEPT C-TIME  FROM TIME.                                    IX2084.2
040000     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1.             IX2084.2
040100 END-E-1.                                                         IX2084.2
040200     CLOSE RAW-DATA.                                              IX2084.2
040300     OPEN    OUTPUT PRINT-FILE.                                   IX2084.2
040400     MOVE  CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.  IX2084.2
040500     MOVE    SPACE TO TEST-RESULTS.                               IX2084.2
040600     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.              IX2084.2
040700     MOVE    ZERO TO REC-SKL-SUB.                                 IX2084.2
040800     PERFORM CCVS-INIT-FILE 9 TIMES.                              IX2084.2
040900 CCVS-INIT-FILE.                                                  IX2084.2
041000     ADD     1 TO REC-SKL-SUB.                                    IX2084.2
041100     MOVE    FILE-RECORD-INFO-SKELETON                            IX2084.2
041200          TO FILE-RECORD-INFO (REC-SKL-SUB).                      IX2084.2
041300 CCVS-INIT-EXIT.                                                  IX2084.2
041400     GO TO CCVS1-EXIT.                                            IX2084.2
041500 CLOSE-FILES.                                                     IX2084.2
041600     OPEN I-O RAW-DATA.                                           IX2084.2
041700     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX2084.2
041800     READ RAW-DATA INVALID KEY GO TO END-E-2.                     IX2084.2
041900     MOVE "OK. " TO C-ABORT.                                  IX2084.2
042000     MOVE PASS-COUNTER TO C-OK.                                   IX2084.2
042100     MOVE ERROR-HOLD   TO C-ALL.                                  IX2084.2
042200     MOVE ERROR-COUNTER TO C-FAIL.                                IX2084.2
042300     MOVE DELETE-COUNTER TO C-DELETED.                            IX2084.2
042400     MOVE INSPECT-COUNTER TO C-INSPECT.                           IX2084.2
042500     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2.             IX2084.2
042600 END-E-2.                                                         IX2084.2
042700     CLOSE RAW-DATA.                                              IX2084.2
042800     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   IX2084.2
042900 TERMINATE-CCVS.                                                  IX2084.2
043000     EXIT PROGRAM.                                                IX2084.2
043100 TERMINATE-CALL.                                                  IX2084.2
043200     STOP     RUN.                                                IX2084.2
043300 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         IX2084.2
043400 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           IX2084.2
043500 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          IX2084.2
043600 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      IX2084.2
043700     MOVE "****TEST DELETED****" TO RE-MARK.                      IX2084.2
043800 PRINT-DETAIL.                                                    IX2084.2
043900     IF REC-CT NOT EQUAL TO ZERO                                  IX2084.2
044000             MOVE "." TO PARDOT-X                                 IX2084.2
044100             MOVE REC-CT TO DOTVALUE.                             IX2084.2
044200     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      IX2084.2
044300     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               IX2084.2
044400        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 IX2084.2
044500          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 IX2084.2
044600     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              IX2084.2
044700     MOVE SPACE TO CORRECT-X.                                     IX2084.2
044800     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         IX2084.2
044900     MOVE     SPACE TO RE-MARK.                                   IX2084.2
045000 HEAD-ROUTINE.                                                    IX2084.2
045100     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IX2084.2
045200     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IX2084.2
045300     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IX2084.2
045400     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IX2084.2
045500 COLUMN-NAMES-ROUTINE.                                            IX2084.2
045600     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX2084.2
045700     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX2084.2
045800     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        IX2084.2
045900 END-ROUTINE.                                                     IX2084.2
046000     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.IX2084.2
046100 END-RTN-EXIT.                                                    IX2084.2
046200     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX2084.2
046300 END-ROUTINE-1.                                                   IX2084.2
046400      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      IX2084.2
046500      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               IX2084.2
046600      ADD PASS-COUNTER TO ERROR-HOLD.                             IX2084.2
046700*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   IX2084.2
046800      MOVE PASS-COUNTER TO CCVS-E-4-1.                            IX2084.2
046900      MOVE ERROR-HOLD TO CCVS-E-4-2.                              IX2084.2
047000      MOVE CCVS-E-4 TO CCVS-E-2-2.                                IX2084.2
047100      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           IX2084.2
047200  END-ROUTINE-12.                                                 IX2084.2
047300      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        IX2084.2
047400     IF       ERROR-COUNTER IS EQUAL TO ZERO                      IX2084.2
047500         MOVE "NO " TO ERROR-TOTAL                                IX2084.2
047600         ELSE                                                     IX2084.2
047700         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       IX2084.2
047800     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           IX2084.2
047900     PERFORM WRITE-LINE.                                          IX2084.2
048000 END-ROUTINE-13.                                                  IX2084.2
048100     IF DELETE-COUNTER IS EQUAL TO ZERO                           IX2084.2
048200         MOVE "NO " TO ERROR-TOTAL  ELSE                          IX2084.2
048300         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      IX2084.2
048400     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   IX2084.2
048500     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX2084.2
048600      IF   INSPECT-COUNTER EQUAL TO ZERO                          IX2084.2
048700          MOVE "NO " TO ERROR-TOTAL                               IX2084.2
048800      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   IX2084.2
048900      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            IX2084.2
049000      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          IX2084.2
049100     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX2084.2
049200 WRITE-LINE.                                                      IX2084.2
049300     ADD 1 TO RECORD-COUNT.                                       IX2084.2
049400     IF RECORD-COUNT GREATER 42                                   IX2084.2
049500         MOVE DUMMY-RECORD TO DUMMY-HOLD                          IX2084.2
049600         MOVE SPACE TO DUMMY-RECORD                               IX2084.2
049700         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  IX2084.2
049800         MOVE CCVS-H-1  TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    IX2084.2
049900         MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    IX2084.2
050000         MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    IX2084.2
050100         MOVE CCVS-H-3  TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    IX2084.2
050200         MOVE CCVS-C-1  TO DUMMY-RECORD PERFORM WRT-LN            IX2084.2
050300         MOVE CCVS-C-2  TO DUMMY-RECORD PERFORM WRT-LN            IX2084.2
050400         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          IX2084.2
050500         MOVE DUMMY-HOLD TO DUMMY-RECORD                          IX2084.2
050600         MOVE ZERO TO RECORD-COUNT.                               IX2084.2
050700     PERFORM WRT-LN.                                              IX2084.2
050800 WRT-LN.                                                          IX2084.2
050900     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               IX2084.2
051000     MOVE SPACE TO DUMMY-RECORD.                                  IX2084.2
051100 BLANK-LINE-PRINT.                                                IX2084.2
051200     PERFORM WRT-LN.                                              IX2084.2
051300 FAIL-ROUTINE.                                                    IX2084.2
051400     IF     COMPUTED-X NOT EQUAL TO SPACE                         IX2084.2
051500            GO TO   FAIL-ROUTINE-WRITE.                           IX2084.2
051600     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IX2084.2
051700     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IX2084.2
051800     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   IX2084.2
051900     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX2084.2
052000     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IX2084.2
052100     GO TO  FAIL-ROUTINE-EX.                                      IX2084.2
052200 FAIL-ROUTINE-WRITE.                                              IX2084.2
052300     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         IX2084.2
052400     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 IX2084.2
052500     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. IX2084.2
052600     MOVE   SPACES TO COR-ANSI-REFERENCE.                         IX2084.2
052700 FAIL-ROUTINE-EX. EXIT.                                           IX2084.2
052800 BAIL-OUT.                                                        IX2084.2
052900     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   IX2084.2
053000     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           IX2084.2
053100 BAIL-OUT-WRITE.                                                  IX2084.2
053200     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  IX2084.2
053300     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IX2084.2
053400     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX2084.2
053500     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IX2084.2
053600 BAIL-OUT-EX. EXIT.                                               IX2084.2
053700 CCVS1-EXIT.                                                      IX2084.2
053800     EXIT.                                                        IX2084.2
053900 SECT-IX208A-0001 SECTION.                                        IX2084.2
054000 WRITE-INIT-GF-01.                                                IX2084.2
054100     OPEN     OUTPUT  IX-FD1.                                     IX2084.2
054200     OPEN     OUTPUT  IX-FS2.                                     IX2084.2
054300     MOVE     "IX-FD1"  TO XFILE-NAME (1).                        IX2084.2
054400     MOVE     "R1-F-G"  TO XRECORD-NAME (1).                      IX2084.2
054500     MOVE     ZERO      TO XRECORD-NUMBER (1).                    IX2084.2
054600     MOVE     CCVS-PGM-ID TO XPROGRAM-NAME (1).                   IX2084.2
054700     MOVE     000240    TO XRECORD-LENGTH (1).                    IX2084.2
054800     MOVE     0001      TO XBLOCK-SIZE (1).                       IX2084.2
054900     MOVE     "RC"      TO CHARS-OR-RECORDS (1).                  IX2084.2
055000     MOVE     "IX"      TO XFILE-ORGANIZATION (1).                IX2084.2
055100     MOVE     "S"       TO XLABEL-TYPE (1).                       IX2084.2
055200     MOVE     000300    TO IX-FD1-FILESIZE.                       IX2084.2
055300     MOVE     000300    TO RECORDS-IN-FILE (1).                   IX2084.2
055400     MOVE     00001     TO WRK-DU-05V00-001.                      IX2084.2
055500     MOVE     00300     TO WRK-DU-05V00-002.                      IX2084.2
055600     MOVE     ZERO      TO EXCUT-COUNTER-06V00.                   IX2084.2
055700     MOVE     ZERO      TO INV-KEY-COUNTER.                       IX2084.2
055800     MOVE     "WRITE-INIT-GF-01" TO PAR-NAME.                     IX2084.2
055900     MOVE     "IX-FS2"  TO XFILE-NAME (2).                        IX2084.2
056000     MOVE     "R1-F-G"  TO XRECORD-NAME (2).                      IX2084.2
056100     MOVE     ZERO      TO XRECORD-NUMBER (2).                    IX2084.2
056200     MOVE     CCVS-PGM-ID TO XPROGRAM-NAME (2).                   IX2084.2
056300     MOVE     000240    TO XRECORD-LENGTH (2).                    IX2084.2
056400     MOVE     0001      TO XBLOCK-SIZE (2).                       IX2084.2
056500     MOVE     "RC"      TO CHARS-OR-RECORDS (2).                  IX2084.2
056600     MOVE     "IX"      TO XFILE-ORGANIZATION (2).                IX2084.2
056700     MOVE     "S"       TO XLABEL-TYPE (2).                       IX2084.2
056800     MOVE     00300     TO IX-FS2-FILESIZE.                       IX2084.2
056900     MOVE     00300     TO RECORDS-IN-FILE (2).                   IX2084.2
057000     MOVE     00001     TO WRK-DU-05V00-003.                      IX2084.2
057100     MOVE     00300     TO WRK-DU-05V00-004.                      IX2084.2
057200 WRITE-TEST-GF-00.                                                IX2084.2
057300     ADD      0001 TO   XRECORD-NUMBER (1).                       IX2084.2
057400     MOVE     WRK-IX-FD1-RECKEY  TO XRECORD-KEY (1).              IX2084.2
057500     MOVE     WRK-IX-FD1-ALTKEY  TO ALTERNATE-KEY1 (1).           IX2084.2
057600     MOVE     FILE-RECORD-INFO (1) TO IX-FD1R1-F-G-240.           IX2084.2
057700     WRITE    IX-FD1R1-F-G-240                                    IX2084.2
057800              INVALID KEY                                         IX2084.2
057900              ADD       000001 TO INV-KEY-COUNTER.                IX2084.2
058000     ADD      000001  TO EXCUT-COUNTER-06V00.                     IX2084.2
058100     ADD      00001   TO WRK-DU-05V00-001.                        IX2084.2
058200     SUBTRACT 00001   FROM WRK-DU-05V00-002.                      IX2084.2
058300     IF       XRECORD-NUMBER (1) LESS THAN IX-FD1-FILESIZE        IX2084.2
058400              GO TO WRITE-TEST-GF-00.                             IX2084.2
058500     CLOSE    IX-FD1.                                             IX2084.2
058600 WRITE-TEST-GF-01.                                                IX2084.2
058700     MOVE     "CREATE FILE IX-FD1"  TO FEATURE.                   IX2084.2
058800     IF       EXCUT-COUNTER-06V00  NOT EQUAL TO IX-FD1-FILESIZE   IX2084.2
058900              PERFORM   FAIL                                      IX2084.2
059000              MOVE      IX-FD1-FILESIZE  TO  CORRECT-N            IX2084.2
059100              MOVE      EXCUT-COUNTER-06V00 TO COMPUTED-N         IX2084.2
059200     MOVE "INCORRECT NUMBER OF WRITES; IX-41"        TO RE-MARK   IX2084.2
059300              PERFORM   PRINT-DETAIL                              IX2084.2
059400              GO TO    WRITE-INIT-GF-02.                          IX2084.2
059500     IF       INV-KEY-COUNTER NOT EQUAL TO ZERO                   IX2084.2
059600              PERFORM   FAIL                                      IX2084.2
059700              MOVE      INV-KEY-COUNTER TO COMPUTED-N             IX2084.2
059800              MOVE      ZERO TO  CORRECT-N                        IX2084.2
059900       MOVE "INVALID KEY ON WRITE; IX-41" TO RE-MARK              IX2084.2
060000              PERFORM   PRINT-DETAIL                              IX2084.2
060100              GO TO    WRITE-INIT-GF-02.                          IX2084.2
060200*                                                                 IX2084.2
060300*    01                                                           IX2084.2
060400*                                                                 IX2084.2
060500     PERFORM  PASS.                                               IX2084.2
060600     PERFORM  PRINT-DETAIL.                                       IX2084.2
060700 WRITE-INIT-GF-02.                                                IX2084.2
060800     MOVE     ZERO   TO INV-KEY-COUNTER.                          IX2084.2
060900     MOVE     ZERO   TO EXCUT-COUNTER-06V00.                      IX2084.2
061000 WRITE-TEST-GF-02-1.                                              IX2084.2
061100     ADD      0001  TO  XRECORD-NUMBER (2).                       IX2084.2
061200     MOVE     WRK-IX-FS2-RECKEY  TO  XRECORD-KEY (2).             IX2084.2
061300     MOVE     WRK-IX-FS2-ALTKEY  TO  ALTERNATE-KEY1 (2).          IX2084.2
061400     MOVE     FILE-RECORD-INFO (2) TO IX-FS2R1-F-G-240.           IX2084.2
061500     WRITE    IX-FS2R1-F-G-240                                    IX2084.2
061600              INVALID KEY                                         IX2084.2
061700              ADD   000001 TO INV-KEY-COUNTER.                    IX2084.2
061800     ADD      000001 TO EXCUT-COUNTER-06V00.                      IX2084.2
061900     ADD      00001  TO WRK-DU-05V00-003.                         IX2084.2
062000     SUBTRACT 00001  FROM WRK-DU-05V00-004.                       IX2084.2
062100     IF       XRECORD-NUMBER (2) LESS THAN IX-FS2-FILESIZE        IX2084.2
062200              GO TO  WRITE-TEST-GF-02-1.                          IX2084.2
062300     CLOSE    IX-FS2.                                             IX2084.2
062400 WRITE-TEST-GF-02.                                                IX2084.2
062500     MOVE     "CREATE FILE IX-FS2" TO  FEATURE.                   IX2084.2
062600     MOVE     "WRITE-TEST-GF-02 " TO PAR-NAME.                   IX2084.2
062700     IF       EXCUT-COUNTER-06V00 NOT EQUAL TO IX-FS2-FILESIZE    IX2084.2
062800              PERFORM   FAIL                                      IX2084.2
062900              MOVE      IX-FS2-FILESIZE  TO  CORRECT-N            IX2084.2
063000              MOVE      EXCUT-COUNTER-06V00 TO COMPUTED-N         IX2084.2
063100       MOVE      "INCORRECT NUMBER OF WRITES; IX-41" TO RE-MARK   IX2084.2
063200              PERFORM   PRINT-DETAIL                              IX2084.2
063300              GO  TO    READ-INIT-F1-01.                          IX2084.2
063400*                                                                 IX2084.2
063500*    02                                                           IX2084.2
063600*                                                                 IX2084.2
063700     IF       INV-KEY-COUNTER  NOT EQUAL TO ZERO                  IX2084.2
063800              PERFORM   FAIL                                      IX2084.2
063900              MOVE      INV-KEY-COUNTER  TO COMPUTED-N            IX2084.2
064000              MOVE      ZERO TO CORRECT-N                         IX2084.2
064100       MOVE      "INVALID KEY ON WRITE; IX-41" TO RE-MARK         IX2084.2
064200              PERFORM   PRINT-DETAIL                              IX2084.2
064300              GO TO     READ-INIT-F1-01.                          IX2084.2
064400     PERFORM  PASS.                                               IX2084.2
064500     PERFORM  PRINT-DETAIL.                                       IX2084.2
064600 READ-INIT-F1-01.                                                 IX2084.2
064700     PERFORM  BLANK-LINE-PRINT.                                   IX2084.2
064800     MOVE     "THE FOLLOWING TESTS ACCESS A FILE DEFINED AS IX2084.2
064900-             "ACCESS MODE IS DYNAMIC."  TO  PRINT-REC.           IX2084.2
065000     PERFORM  WRITE-LINE.                                         IX2084.2
065100     PERFORM  BLANK-LINE-PRINT.                                   IX2084.2
065200     MOVE     "READ NEXT"  TO FEATURE.                            IX2084.2
065300     MOVE     "READ-TEST-F1-01" TO PAR-NAME.                      IX2084.2
065400 READ-INIT-F1-01-R1.                                              IX2084.2
065500     OPEN  INPUT  IX-FD1.                                         IX2084.2
065600     PERFORM  INX-INIT-002-R.                                     IX2084.2
065700 READ-TEST-F1-01-1.                                               IX2084.2
065800     READ     IX-FD1 NEXT.                                        IX2084.2
065900     MOVE     IX-FD1R1-F-G-240  TO  FILE-RECORD-INFO (1).         IX2084.2
066000     PERFORM  INX-VERIFY-002.                                     IX2084.2
066100     IF       EXCUT-COUNTER-06V00 LESS THAN  10                   IX2084.2
066200              GO TO READ-TEST-F1-01-1.                            IX2084.2
066300     CLOSE    IX-FD1.                                             IX2084.2
066400 READ-TEST-F1-01.                                                 IX2084.2
066500     PERFORM  INX-TEST-002.                                       IX2084.2
066600     GO TO  READ-INIT-F1-02.                                      IX2084.2
066700*                                                                 IX2084.2
066800*    01                                                           IX2084.2
066900*                                                                 IX2084.2
067000 READ-DELETE-F1-01.                                               IX2084.2
067100     PERFORM  DE-LETE.                                            IX2084.2
067200     PERFORM  PRINT-DETAIL.                                       IX2084.2
067300 READ-INIT-F1-02.                                                 IX2084.2
067400     PERFORM  INX-INIT-002-R.                                     IX2084.2
067500     OPEN     INPUT     IX-FD1.                                   IX2084.2
067600 READ-TEST-F1-02.                                                 IX2084.2
067700     MOVE     SPACE TO FILE-RECORD-INFO (9).                      IX2084.2
067800     MOVE     SPACE TO FILE-RECORD-INFO (1).                      IX2084.2
067900     READ     IX-FD1   NEXT RECORD                                IX2084.2
068000              INTO   FILE-RECORD-INFO (9).                        IX2084.2
068100     MOVE     IX-FD1R1-F-G-240  TO  FILE-RECORD-INFO (1).         IX2084.2
068200     PERFORM  INX-VERIFY-002.                                     IX2084.2
068300     IF       XRECORD-NUMBER (9) NOT EQUAL TO LOGICAL-FILE-REC    IX2084.2
068400              ADD   000100  TO ERROR-COUNTER-06V00.               IX2084.2
068500     IF       EXCUT-COUNTER-06V00 LESS THAN 10                    IX2084.2
068600              GO TO  READ-TEST-F1-02.                             IX2084.2
068700     CLOSE    IX-FD1.                                             IX2084.2
068800     MOVE "READ-TEST-F1-02" TO PAR-NAME.                          IX2084.2
068900     MOVE "READ . NEXT INTO" TO FEATURE.                          IX2084.2
069000     PERFORM  INX-TEST-002.                                       IX2084.2
069100*                                                                 IX2084.2
069200*    02                                                           IX2084.2
069300*                                                                 IX2084.2
069400     GO TO  READ-INIT-F1-03.                                      IX2084.2
069500 READ-DELETE-F1-02.                                               IX2084.2
069600     MOVE "READ-TEST-F1-02 " TO PAR-NAME.                     IX2084.2
069700     MOVE "READ ... INTO " TO FEATURE.                      IX2084.2
069800     PERFORM  DE-LETE.                                            IX2084.2
069900     PERFORM  PRINT-DETAIL.                                       IX2084.2
070000 READ-INIT-F1-03.                                                 IX2084.2
070100     OPEN     INPUT  IX-FD1.                                      IX2084.2
070200     PERFORM  INX-INIT-002-R.                                     IX2084.2
070300 READ-TEST-F1-03.                                                 IX2084.2
070400     MOVE     SPACE TO FILE-RECORD-INFO (9).                      IX2084.2
070500     MOVE     SPACE TO FILE-RECORD-INFO (1).                      IX2084.2
070600     READ     IX-FD1  NEXT                                        IX2084.2
070700              INTO   FILE-RECORD-INFO (9).                        IX2084.2
070800     MOVE     IX-FD1R1-F-G-240 TO FILE-RECORD-INFO (1).           IX2084.2
070900     PERFORM  INX-VERIFY-002.                                     IX2084.2
071000     IF       XRECORD-NUMBER (9) NOT EQUAL TO LOGICAL-FILE-REC    IX2084.2
071100              ADD   000100  TO  ERROR-COUNTER-06V00.              IX2084.2
071200     IF       EXCUT-COUNTER-06V00 LESS THAN 10                    IX2084.2
071300              GO TO READ-TEST-F1-03.                              IX2084.2
071400     CLOSE    IX-FD1.                                             IX2084.2
071500 READ-TEST-F1-03-1.                                               IX2084.2
071600     MOVE "READ-TEST-F1-03" TO PAR-NAME.                          IX2084.2
071700     MOVE "READ . NEXT INTO" TO FEATURE.                          IX2084.2
071800     PERFORM  INX-TEST-002.                                       IX2084.2
071900*                                                                 IX2084.2
072000*    03                                                           IX2084.2
072100*                                                                 IX2084.2
072200     GO TO  READ-INIT-F1-04.                                      IX2084.2
072300 READ-DELETE-TEST-F1-03.                                          IX2084.2
072400     MOVE "READ-TEST-F1-03 " TO PAR-NAME.                     IX2084.2
072500     PERFORM  DE-LETE.                                            IX2084.2
072600     PERFORM  PRINT-DETAIL.                                       IX2084.2
072700 READ-INIT-F1-04.                                                 IX2084.2
072800     OPEN     INPUT  IX-FD1.                                      IX2084.2
072900     PERFORM  INX-INIT-002-R.                                     IX2084.2
073000     MOVE     IX-FD1-FILESIZE TO ERROR-COUNTER-06V00.             IX2084.2
073100     ADD      000001  TO ERROR-COUNTER-06V00.                     IX2084.2
073200     MOVE "READ-TEST-F1-04" TO PAR-NAME.                          IX2084.2
073300     MOVE "READ . NEXT INTO" TO FEATURE.                          IX2084.2
073400 READ-TEST-F1-04.                                                 IX2084.2
073500     MOVE     SPACE TO FILE-RECORD-INFO (9).                      IX2084.2
073600     MOVE     SPACE TO FILE-RECORD-INFO (1).                      IX2084.2
073700     READ     IX-FD1  NEXT INTO  FILE-RECORD-INFO (9) AT END      IX2084.2
073800              SUBTRACT   000001  FROM  ERROR-COUNTER-06V00        IX2084.2
073900             GO TO  READ-TEST-F1-04-1.                            IX2084.2
074000     MOVE     IX-FD1R1-F-G-240  TO  FILE-RECORD-INFO (1).         IX2084.2
074100     PERFORM  INX-VERIFY-002.                                     IX2084.2
074200     IF       EXCUT-COUNTER-06V00  GREATER THAN IX-FD1-FILESIZE   IX2084.2
074300              NEXT SENTENCE                                       IX2084.2
074400              ELSE                                                IX2084.2
074500              GO TO   READ-TEST-F1-04.                            IX2084.2
074600*                                                                 IX2084.2
074700*    TEST READ-TEST-F1-04 TESTS THE COBOL CONSTRUCT  "READ FILE-  IX2084.2
074800*    NAME NEXT INTO IDENTIFIER AT END".  THE TEST READS THE FILE  IX2084.2
074900*    SEQUENTIALY VIA THE RECORD KEY  (RECORD KEY IS THE KEY OF    IX2084.2
075000*    REFERENCE) UNTIL AN END-OF-FILE CONDITION OCCURS.  A CHECK   IX2084.2
075100*    IS MADE TO VERIFY THAT THE PROPER RECORDS WERE RETRIVED AND  IX2084.2
075200*    THE AT END PATH WAS TAKEN ON THE 301 ST READ.                IX2084.2
075300*                                                                 IX2084.2
075400 READ-TEST-F1-04-1.                                               IX2084.2
075500     CLOSE   IX-FD1.                                              IX2084.2
075600     PERFORM  INX-TEST-002.                                       IX2084.2
075700*   .04                                                           IX2084.2
075800     GO TO  READ-INIT-F2-01.                                      IX2084.2
075900 READ-DELETE-F1-04.                                               IX2084.2
076000     MOVE "READ-TEST-F1-04 " TO PAR-NAME.                     IX2084.2
076100     PERFORM  DE-LETE.                                            IX2084.2
076200     PERFORM  PRINT-DETAIL.                                       IX2084.2
076300 READ-INIT-F2-01.                                                 IX2084.2
076400     OPEN     INPUT  IX-FD1.                                      IX2084.2
076500     MOVE "READ-TEST-F2-01" TO PAR-NAME.                          IX2084.2
076600     MOVE "READ . KEY IS .." TO FEATURE.                          IX2084.2
076700     PERFORM  INX-INIT-002-R.                                     IX2084.2
076800     MOVE     ZERO TO WRK-DU-05V00-001.                           IX2084.2
076900 READ-TEST-F2-01.                                                 IX2084.2
077000     ADD      00005   TO WRK-DU-05V00-001.                        IX2084.2
077100     ADD      000004  TO LOGICAL-FILE-REC.                        IX2084.2
077200     MOVE     WRK-IX-FD1-RECKEY TO IX-FD1-KEY.                    IX2084.2
077300     READ     IX-FD1                                              IX2084.2
077400                      KEY IS  IX-FD1-KEY.                         IX2084.2
077500     MOVE     IX-FD1R1-F-G-240  TO  FILE-RECORD-INFO (1).         IX2084.2
077600     PERFORM  INX-VERIFY-002.                                     IX2084.2
077700     MOVE     SPACE TO FILE-RECORD-INFO (1).                      IX2084.2
077800     IF       EXCUT-COUNTER-06V00  LESS THAN 10                   IX2084.2
077900              GO TO   READ-TEST-F2-01.                            IX2084.2
078000     CLOSE    IX-FD1.                                             IX2084.2
078100     PERFORM  INX-TEST-002.                                       IX2084.2
078200*   .05                                                           IX2084.2
078300     GO TO  READ-INIT-F2-02.                                      IX2084.2
078400 READ-DELETE-F2-01.                                               IX2084.2
078500     MOVE "READ-TEST-F2-01 " TO PAR-NAME.                     IX2084.2
078600     PERFORM  DE-LETE.                                            IX2084.2
078700     PERFORM  PRINT-DETAIL.                                       IX2084.2
078800 READ-INIT-F2-02.                                                 IX2084.2
078900     MOVE "READ-TEST-F2-02 " TO PAR-NAME.                     IX2084.2
079000     MOVE "READ ... INTO " TO FEATURE.                      IX2084.2
079100     OPEN     INPUT  IX-FD1.                                      IX2084.2
079200     PERFORM  INX-INIT-002-R.                                     IX2084.2
079300     MOVE     ZERO TO WRK-DU-05V00-001.                           IX2084.2
079400 READ-TEST-F2-02.                                                 IX2084.2
079500     MOVE     SPACE TO FILE-RECORD-INFO (9).                      IX2084.2
079600     MOVE     SPACE TO FILE-RECORD-INFO (1).                      IX2084.2
079700     ADD      00005   TO WRK-DU-05V00-001.                        IX2084.2
079800     ADD      000004  TO LOGICAL-FILE-REC.                        IX2084.2
079900     MOVE     WRK-IX-FD1-RECKEY TO IX-FD1-KEY.                    IX2084.2
080000     READ     IX-FD1  INTO   FILE-RECORD-INFO (9)                 IX2084.2
080100              KEY IS IX-FD1-KEY.                                  IX2084.2
080200     MOVE     IX-FD1R1-F-G-240  TO  FILE-RECORD-INFO (1).         IX2084.2
080300     PERFORM  INX-VERIFY-002.                                     IX2084.2
080400     IF       XRECORD-NUMBER (9)   NOT EQUAL   TO LOGICAL-FILE-RECIX2084.2
080500              ADD   000100 TO ERROR-COUNTER-06V00.                IX2084.2
080600     IF       EXCUT-COUNTER-06V00  LESS THAN 10                   IX2084.2
080700              GO TO   READ-TEST-F2-02.                            IX2084.2
080800     CLOSE    IX-FD1.                                             IX2084.2
080900     PERFORM  INX-TEST-002.                                       IX2084.2
--> --------------------

--> maximum size reached

--> --------------------

96%


¤ 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.0.37Bemerkung:  (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.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.