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