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