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

Quelle  rl114a.cob   Sprache: Cobol

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

--> maximum size reached

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

97%


¤ Dauer der Verarbeitung: 0.28 Sekunden  (vorverarbeitet)  ¤

*© Formatika GbR, Deutschland




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.