| Quellcodebibliothek Statistik Leitseite products/sources/formale Sprachen/Cobol/Test-Suite/COBOL/IX/ Datei vom 4.1.2008 mit Größe 57 kB |
|
Quelle ix116a.cob Sprache: Cobol |
|||||||||||||||
|
000100 IDENTIFICATION DIVISION. IX1164.2 000200 PROGRAM-ID. IX1164.2 000300 IX116A. IX1164.2 000400**************************************************************** IX1164.2 000500* * IX1164.2 000600* VALIDATION FOR:- * IX1164.2 000700* * IX1164.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX1164.2 000900* * IX1164.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IX1164.2 001100* * IX1164.2 001200**************************************************************** IX1164.2 001300* IX1164.2 001400* THIS ROUTINE USES THE MASS STORAGE FILE IX-FS3 CREATED IN IX1164.2 001500* IX113A. IX1164.2 001600* THE FILE IS OPENED I-O AND THE STATUS CHECKED (00 EXPECTED), IX1164.2 001700* CLOSED AND THE STATUS CHECKED (00 EXPECTED) THEN AN ATTEMPT IX1164.2 001800* IS MADE TO DELETE A RECORD, AT WHICH POINT THE DECLARATIVES IX1164.2 001900* SHOULD BE ACTIONED AND THE FILE STATUS SHOULD BE 49 . IX1164.2 002000* IX1164.2 002100* STANDARD REFERENCE IX-5, 1.3.4 (5) H IX1164.2 002200* IX1164.2 002300* X-CARDS USED IN THIS PROGRAM: IX1164.2 002400* IX1164.2 002500* XXXXX024 IX1164.2 002600* XXXXX055. IX1164.2 002700* P XXXXX062. IX1164.2 002800* XXXXX082. IX1164.2 002900* XXXXX083. IX1164.2 003000* C XXXXX084 IX1164.2 003100* IX1164.2 003200* IX1164.2 003300 ENVIRONMENT DIVISION. IX1164.2 003400 CONFIGURATION SECTION. IX1164.2 003500 SOURCE-COMPUTER. IX1164.2 003600 Card0130. IX1164.2 003700 OBJECT-COMPUTER. IX1164.2 003800 Card0131. IX1164.2 003900 INPUT-OUTPUT SECTION. IX1164.2 004000 FILE-CONTROL. IX1164.2 004100 SELECT RAW-DATA ASSIGN TO IX1164.2 004200 "C0098" IX1164.2 004300 ORGANIZATION IS INDEXED IX1164.2 004400 ACCESS MODE IS RANDOM IX1164.2 004500 RECORD KEY IS RAW-DATA-KEY. IX1164.2 004600* IX1164.2 004700 SELECT PRINT-FILE ASSIGN TO IX1164.2 004800 "C0085" . IX1164.2 004900* IX1164.2 005000 SELECT IX-FS3 ASSIGN IX1164.2 005100 "C0036" IX1164.2 005200 ORGANIZATION IS INDEXED IX1164.2 005300 ACCESS MODE IS SEQUENTIAL IX1164.2 005400 RECORD KEY IS IX-FS3-KEY IX1164.2 005500 FILE STATUS IS IX-FS3-STATUS. IX1164.2 005600 IX1164.2 005700 DATA DIVISION. IX1164.2 005800 IX1164.2 005900 FILE SECTION. IX1164.2 006000 IX1164.2 006100 FD RAW-DATA. IX1164.2 006200 IX1164.2 006300 01 RAW-DATA-SATZ. IX1164.2 006400 05 RAW-DATA-KEY PIC X(6). IX1164.2 006500 05 C-DATE PIC 9(6). IX1164.2 006600 05 C-TIME PIC 9(8). IX1164.2 006700 05 C-NO-OF-TESTS PIC 99. IX1164.2 006800 05 C-OK PIC 999. IX1164.2 006900 05 C-ALL PIC 999. IX1164.2 007000 05 C-FAIL PIC 999. IX1164.2 007100 05 C-DELETED PIC 999. IX1164.2 007200 05 C-INSPECT PIC 999. IX1164.2 007300 05 C-NOTE PIC X(13). IX1164.2 007400 05 C-INDENT PIC X. IX1164.2 007500 05 C-ABORT PIC X(8). IX1164.2 007600 IX1164.2 007700 FD PRINT-FILE. IX1164.2 007800 IX1164.2 007900 01 PRINT-REC PIC X(120). IX1164.2 008000 IX1164.2 008100 01 DUMMY-RECORD PIC X(120). IX1164.2 008200 IX1164.2 008300 FD IX-FS3 IX1164.2 008400 DATA RECORDS IX-FS3R1-F-G-240 IX1164.2 008500 LABEL RECORD STANDARD IX1164.2 008600 RECORD 240 IX1164.2 008700 BLOCK CONTAINS 2 RECORDS. IX1164.2 008800 IX1164.2 008900 01 IX-FS3R1-F-G-240. IX1164.2 009000 05 IX-FS3-REC-120 PIC X(120). IX1164.2 009100 05 IX-FS3-REC-120-240. IX1164.2 009200 10 FILLER PIC X(8). IX1164.2 009300 10 IX-FS3-KEY PIC X(29). IX1164.2 009400 10 FILLER PIC X(9). IX1164.2 009500 10 IX-FS3-ALTER-KEY PIC X(29). IX1164.2 009600 10 FILLER PIC X(45). IX1164.2 009700 IX1164.2 009800 IX1164.2 009900 WORKING-STORAGE SECTION. IX1164.2 010000 IX1164.2 010100 01 GRP-0101. IX1164.2 010200 05 FILLER PIC X(10) VALUE "RECORD-KEY". IX1164.2 010300 05 GRP-0101-KEY PIC 9(9) VALUE ZERO. IX1164.2 010400 05 FILLER PIC X(10) VALUE "END-OF-KEY". IX1164.2 010500 IX1164.2 010600 01 GRP-0102. IX1164.2 010700 05 FILLER PIC X(10) VALUE "ALTERN-KEY". IX1164.2 010800 05 GRP-0102-KEY PIC 9(9) VALUE ZERO. IX1164.2 010900 05 FILLER PIC X(10) VALUE "END-AL-KEY". IX1164.2 011000 IX1164.2 011100 01 WRK-CS-09V00 PIC S9(9) COMP VALUE ZERO. IX1164.2 011200 IX1164.2 011300 01 EOF-FLAG PIC 9 VALUE ZERO. IX1164.2 011400 IX1164.2 011500 01 RECORDS-IN-ERROR PIC S9(5) COMP VALUE ZERO. IX1164.2 011600 IX1164.2 011700 01 ERROR-FLAG PIC 9 VALUE ZERO. IX1164.2 011800 IX1164.2 011900 01 PERM-ERRORS PIC S9(5) COMP VALUE ZERO. IX1164.2 012000 IX1164.2 012100 01 STATUS-TEST-00 PIC 9 VALUE ZERO. IX1164.2 012200 IX1164.2 012300 01 STATUS-TEST-10 PIC 9 VALUE ZERO. IX1164.2 012400 01 STATUS-TEST-READ PIC 9 VALUE ZERO. IX1164.2 012500 IX1164.2 012600 01 IX-FS3-STATUS. IX1164.2 012700 05 IX-FS3-STAT1 PIC X. IX1164.2 012800 05 IX-FS3-STAT2 PIC X. IX1164.2 012900 IX1164.2 013000 01 COUNT-OF-RECS PIC 9(5). IX1164.2 013100 IX1164.2 013200 01 COUNT-OF-RECORDS REDEFINES COUNT-OF-RECS PIC 9(5). IX1164.2 013300 IX1164.2 013400 01 FILE-RECORD-INFORMATION-REC. IX1164.2 013500 05 FILE-RECORD-INFO-SKELETON. IX1164.2 013600 10 FILLER PIC X(48) VALUE IX1164.2 013700 "FILE= ,RECORD= /0,RECNO=000000,UPDT=00". IX1164.2 013800 10 FILLER PIC X(46) VALUE IX1164.2 013900 ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000". IX1164.2 014000 10 FILLER PIC X(26) VALUE IX1164.2 014100 ",LFIL=000000,ORG= ,LBLR= ". IX1164.2 014200 10 FILLER PIC X(37) VALUE IX1164.2 014300 ",RECKEY= ". IX1164.2 014400 10 FILLER PIC X(38) VALUE IX1164.2 014500 ",ALTKEY1= ". IX1164.2 014600 10 FILLER PIC X(38) VALUE IX1164.2 014700 ",ALTKEY2= ". IX1164.2 014800 10 FILLER PIC X(7) VALUE SPACE. IX1164.2 014900 05 FILE-RECORD-INFO OCCURS 10. IX1164.2 015000 10 FILE-RECORD-INFO-P1-120. IX1164.2 015100 15 FILLER PIC X(5). IX1164.2 015200 15 XFILE-NAME PIC X(6). IX1164.2 015300 15 FILLER PIC X(8). IX1164.2 015400 15 XRECORD-NAME PIC X(6). IX1164.2 015500 15 FILLER PIC X(1). IX1164.2 015600 15 REELUNIT-NUMBER PIC 9(1). IX1164.2 015700 15 FILLER PIC X(7). IX1164.2 015800 15 XRECORD-NUMBER PIC 9(6). IX1164.2 015900 15 FILLER PIC X(6). IX1164.2 016000 15 UPDATE-NUMBER PIC 9(2). IX1164.2 016100 15 FILLER PIC X(5). IX1164.2 016200 15 ODO-NUMBER PIC 9(4). IX1164.2 016300 15 FILLER PIC X(5). IX1164.2 016400 15 XPROGRAM-NAME PIC X(5). IX1164.2 016500 15 FILLER PIC X(7). IX1164.2 016600 15 XRECORD-LENGTH PIC 9(6). IX1164.2 016700 15 FILLER PIC X(7). IX1164.2 016800 15 CHARS-OR-RECORDS PIC X(2). IX1164.2 016900 15 FILLER PIC X(1). IX1164.2 017000 15 XBLOCK-SIZE PIC 9(4). IX1164.2 017100 15 FILLER PIC X(6). IX1164.2 017200 15 RECORDS-IN-FILE PIC 9(6). IX1164.2 017300 15 FILLER PIC X(5). IX1164.2 017400 15 XFILE-ORGANIZATION PIC X(2). IX1164.2 017500 15 FILLER PIC X(6). IX1164.2 017600 15 XLABEL-TYPE PIC X(1). IX1164.2 017700 10 FILE-RECORD-INFO-P121-240. IX1164.2 017800 15 FILLER PIC X(8). IX1164.2 017900 15 XRECORD-KEY PIC X(29). IX1164.2 018000 15 FILLER PIC X(9). IX1164.2 018100 15 ALTERNATE-KEY1 PIC X(29). IX1164.2 018200 15 FILLER PIC X(9). IX1164.2 018300 15 ALTERNATE-KEY2 PIC X(29). IX1164.2 018400 15 FILLER PIC X(7). IX1164.2 018500 IX1164.2 018600 01 TEST-RESULTS. IX1164.2 018700 02 FILLER PIC X VALUE SPACE. IX1164.2 018800 02 FEATURE PIC X(20) VALUE SPACE. IX1164.2 018900 02 FILLER PIC X VALUE SPACE. IX1164.2 019000 02 P-OR-F PIC X(5) VALUE SPACE. IX1164.2 019100 02 FILLER PIC X VALUE SPACE. IX1164.2 019200 02 PAR-NAME. IX1164.2 019300 03 FILLER PIC X(19) VALUE SPACE. IX1164.2 019400 03 PARDOT-X PIC X VALUE SPACE. IX1164.2 019500 03 DOTVALUE PIC 99 VALUE ZERO. IX1164.2 019600 02 FILLER PIC X(8) VALUE SPACE. IX1164.2 019700 02 RE-MARK PIC X(61). IX1164.2 019800 01 TEST-COMPUTED. IX1164.2 019900 02 FILLER PIC X(30) VALUE SPACE. IX1164.2 020000 02 FILLER PIC X(17) VALUE IX1164.2 020100 " COMPUTED=". IX1164.2 020200 02 COMPUTED-X. IX1164.2 020300 03 COMPUTED-A PIC X(20) VALUE SPACE. IX1164.2 020400 03 COMPUTED-N REDEFINES COMPUTED-A IX1164.2 020500 PIC -9(9).9(9). IX1164.2 020600 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). IX1164.2 020700 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). IX1164.2 020800 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). IX1164.2 020900 03 CM-18V0 REDEFINES COMPUTED-A. IX1164.2 021000 04 COMPUTED-18V0 PIC -9(18). IX1164.2 021100 04 FILLER PIC X. IX1164.2 021200 03 FILLER PIC X(50) VALUE SPACE. IX1164.2 021300 01 TEST-CORRECT. IX1164.2 021400 02 FILLER PIC X(30) VALUE SPACE. IX1164.2 021500 02 FILLER PIC X(17) VALUE " CORRECT =". IX1164.2 021600 02 CORRECT-X. IX1164.2 021700 03 CORRECT-A PIC X(20) VALUE SPACE. IX1164.2 021800 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). IX1164.2 021900 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). IX1164.2 022000 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). IX1164.2 022100 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). IX1164.2 022200 03 CR-18V0 REDEFINES CORRECT-A. IX1164.2 022300 04 CORRECT-18V0 PIC -9(18). IX1164.2 022400 04 FILLER PIC X. IX1164.2 022500 03 FILLER PIC X(2) VALUE SPACE. IX1164.2 022600 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. IX1164.2 022700 01 CCVS-C-1. IX1164.2 022800 02 FILLER PIC IS X(99) VALUE IS " FEATURE PAIX1164.2 022900- "SS PARAGRAPH-NAME IX1164.2 023000- " REMARKS". IX1164.2 023100 02 FILLER PIC X(20) VALUE SPACE. IX1164.2 023200 01 CCVS-C-2. IX1164.2 023300 02 FILLER PIC X VALUE SPACE. IX1164.2 023400 02 FILLER PIC X(6) VALUE "TESTED". IX1164.2 023500 02 FILLER PIC X(15) VALUE SPACE. IX1164.2 023600 02 FILLER PIC X(4) VALUE "FAIL". IX1164.2 023700 02 FILLER PIC X(94) VALUE SPACE. IX1164.2 023800 01 REC-SKL-SUB PIC 9(2) VALUE ZERO0 DIVISIONIX1164 0290 0 REC-CT PIC 9 VALUE. .2 024000 01 DELETE-COUNTER PIC 999 VALUE ZERO. IX1164.2 024100 01 ERROR-COUNTER PIC 999 VALUE ZERO. IX1164.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE000900* 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG 001100* 024400 001300* IX1164.2 024500 01 ERROR-HOLD PIC 999 VALUE 001600* THE FILE IS OPENED001700* CLOSED AND THE001800* IS M 0002600* XXXXX055. IX1164.2 024700 01 RECORD-COUNT002800* XXXXX082. IX1164.2 0003000* C XXXXX084 IX1164.2 024900 01 CCVS-H-1. IX1164.2 025000 02 FILLER 30 ENVIRONMENT DIVISION. IX1164 025.2 025200 "OFFICIAL COBOL 003600 Card0130. IX1164.2 230 2 FILLER X() VALUE SPACES. IX1164. 0254000 CCVS-H-2A. IX1164 025500 02 FILLER PIC X(40) VALUE SPACE. IX1164.2 025600 02 FILLER PIC 040FILE-CONTROL. .2 025700040"" 2 025800 "4.2 ". IX1164.2 025900 02 FILLER PIC X(28) VALUE IX1164.2 026000 " COPY - NOT FOR DISTRIBUTION". IX1164.2 026100 02 FILLER PIC X(41) VALUE SPACE. IX1164.2 026200 IX1164.2 026300 01 CCVS-H-2B. IX1164.2 026400 02 FILLER PIC X(15) VALUE IX1164.2 026500 "TEST RESULT OF ". 040 ORGANIZATION IS IX1164 026600 02 TEST-ID PIC X(9).004600* IX1164.2 270 0 FILLER (4IX1164 026800 " IN ". IX1164.2 026900 02 FILLER50"" 027000 " HIGH ". IX1164 027100 02 FILLER PIC05 STATUS . .2 0220"LEVEL VALIDATION FOR . IX11642 027300 02 FILLER PIC X(58) VALUE IX1164.2 070 "N-SITE VALIDATION,NATIONAL INSTITUTE OF STD &TECH "IX1164 027500 01 CCVS-H-3. 9 SECTIONIX1164. 027600 02 FILLER PIC X(34) VALUE IX11640FD. .2 027700 " FOR OFFICIAL USE ONLY ". IX1164.2 027800 02 FILLER PIC 060 0 C-TIME 9(8.IX1164 02790 "COBOL 8 VERSION .2 Apr 19 SSVG "IX1164 028000 02 FILLER PIC X(28) VALUE IX1164.2 028100 "60 0 C-ALL PIC 99. IX1164. 080 1 CCVS-E-1 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds fo 20 2FILLERPIC52 VALUE SPACE.2 02840 2FILLER X14 VALUE IS ENDOF" X11642 028500 02 ID-AGAIN PIC X(9). IX1164070 .2 028600 02 FILLER PIC X(45) VALUE SPACES. IX1164009 0 PRINT-REC PIC X12) .2 028700 01 CCVS-E-2. IX1164.2 028800 02 FILLER030FD java.lang.StringIndexOutOfBoundsException: Index 80 out of bo 028900 02 FILLER PIC X(21) VALUE 2IX1164.2 290 2 CCVS-E-2-2. IX1164.2 029100 03 ERROR-TOTAL PIC XXX VALUE SPACE. IX1164.2 080 0 IX-FS3R1-F-G-240. 2 029300 03 ENDER-DESC PIC100 . .2 029400 "ERRORS ENCOUNTERED"090 1IX-FS3-KEYPICX2.IX1164 2900 . .2 02900 02 FILLERPIC2) IX1164 029700 " FOR OFFICIAL USE ONLY". IX1164.2 029800 02 FILLER PIC X(12)090IX1164.2 029900090 000 IX1164 030100 02 FILLER PIC X(13) VALUE SPACE. IX1164.2 030200 02 FILLER PIC X(15) VALUE IX1164400 X(0VALUE" IX1164. " COPYRIGHT 95.IX11642 300 0 CCVS-E-4. .2 0350 0 CCVS-E-4-1PIC VALUE. .2 0306000 5 PIC() VALUE.IX1164 030700 02 0100IX1164.2 030800 02 FILLER PIC 000 TESTSEXECUTED. .2 03100 0 XXINFO .2 031100 02 FILLER PIC X(19) VALUE IX1164.2 0310 "* INFORMATION **.IX11642 031300 02 INFO-TEXT. IX1164.2 030160IX1164.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds f 031500 0 XXCOMPUTED PIC2) .2 310 0 FILLER PIC5 SPACE .2 0370 04 PIC(0. .2 031800 02 INF-ANSI-REFERENCE PIC X(48). IX1164.2 0319000 . .2 0320 0FILLER PIC IS X VALUE IS. .2 032100 02 FILLER PIC IS X(65) VALUE20 1 PIC 9 ZERO.2 032200- "********************. IX11642 032300 02 FILLER PIC IS X(54) VALUE IS150 .2 032400 "******************. IX1164.2 020 0TEST-NO 9. IX1164.2 032600 01 CCVS-PGM-ID PIC X(9) VALUE IX1164.2 032700 "IX116A"0100 IX1164 032800 PROCEDURE DIVISION. IX1164.2 030 1FILE-RECORD-INFORMATION-REC.2 033000 5FILE-RECORD-INFO-SKELETON.IX1164 033100 SECT-IX105-0002 SECTION. IX1164.2 0330 USE AFTER EXCEPTION PROCEDURE IX-FS3IX1164 033300 INPUT-PROCESS. 0 0FILLER X(6V IX1164java.lang.StringIndexOutOfBoundsException: 340IF = 5 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for le 0350 GO D-C-TEST-GF-01-1IX1164 033600 IF STATUS-TEST-10 EQUAL TO 1 IX1164.2 033700 IF IX-FS3-STAT1 EQUAL TO "1" IX1164.2 030 MOVETO .2 033900 ELSE IX1164.2 034000 IF IX-FS3-STAT1040 "= ". .2 034100 MOVE 1 TO PERM-ERRORS. IX1164.2 320 GO TODECL-EXIT. IX11642 040. .2 034400 IF IX-FS3-STATUS EQUAL TO "49" IX1164.2 040 GO TO D-C-PASS-GF-01-0.IX1164 034600 D-C-FAIL-GF-01-0. IX1164501 PIC) .2 040 IX-FS3-STATUS COMPUTED-A.2 034800 MOVE "49" TO CORRECT-X. IX1164.2 0349000501 FILLERPIC7. IX1164 050PERFORM D-FAIL. 2 035100 GO TO D-C-WRITE-GF-01-0. IX1164.2 035200 D-C-PASS-GF-01-0. IX11641015 X5.IX1164 035300 PERFORM D-PASS. IX1164.2 035400 D-C-WRITE-GF-01-0. IX1164.2 0350java.lang.StringIndexOutOfBoundsException: Range [72, 11) out of bounds for 0360. 035700 OPEN I-O RAW-DATA.40OPENOUTPUT .IX1164.2 035800 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. IX1164.2 035900 READ RAW-DATA INVALID KEY GO TO D-END-E-2. IX1164.2 036000 MOVE "OK. " TO C-ABORT. IX1164.2 0310 PASS-COUNTER -OK. 036200MOVEERROR-HOLD .IX1164.2 036300 MOVE ERROR-COUNTER TO C-FAIL. IX1164.2 036400 MOVE DELETE-COUNTER TO C-DELETED.090 . IX1164.2 036500 MOVE INSPECT-COUNTER TO C-INSPECT. IX1164.2 036600 REWRITE RAW-DATA-SATZ INVALID KEY GO TO D-END-E-2. IX1164.2 036700 D-END-E-2. IX1164.2 036800 90 MOVE 2 036900 PERFORM D-END-ROUTINE THRU D-END-ROUTINE-13. IX1164.2 0300CLOSE. 037100 D-TERMINATE-CCVS. T CCVS1-EXIT 037200 EXIT PROGRAM.IX1164.2 037300 D-TERMINATE-CALL. IX1164.2 037400 STOP RUN. IX1164.2 037500 D-PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. IX1164.2 037600 D-FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. IX1164.2 03770D-PRINT-DETAILIX1164.2 037800 IF REC-CT NOT EQUAL TO ZERO IX1164.2 037900 MOVE "." TO PARDOT-X IX1164.2 038000 MOVE REC-CT TO DOTVALUE. IX1164.2 038100 MOVE TEST-RESULTS TO PRINT-REC. IX1164.2 038200 PERFORM D-WRITE-LINE. IX1164.2 038300 IF P-OR-F EQUAL TO "FAIL*" IX1164.2 038400 PERFORM D-WRITE-LINE 80 RAW-DATA-SATZ KEY TO.IX11642 038500 PERFORM D-FAIL-ROUTINE THRU D-FAIL-ROUTINE-EX IX1164.2 03810 CLOSE RAW-DATA 2 038700 PERFORM D-BAIL-OUT THRU D-BAIL-OUT-EX. IX1164.2 038800 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. IX1164.2 038900 MOVE SPACE TO CORRECT-X. IX1164.2 039000 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. IX1164.2 039100 MOVE SPACE TO RE-MARK. IX1164.2 039200 D-END-ROUTINE. IX1164.2 039300 MOVE HYPHEN-LINE TO DUMMY-RECORD. IX1164.2 090 PERFORM D-WRITE-LINE 5 TIMES 039500 D-END-RTN-EXIT. IX1164.2 0360MOVE CCVS-E-1TO DUMMY-RECORD IX11642 0370 2.IX1164.2 039800 D-END-ROUTINE-1. IX1164.2 039900 ADD ERROR-COUNTER TO ERROR-HOLD 052100 PRINT-DETAIL. 040000 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. IX1164.2 040020 REC-CTTODOTVALUE. IX1164. 040200 MOVE PASS-COUNTER25 TOPRINT-REC.PERFORMWRITE-LINEIX11642 0030 MOVE TOCCVS-E-4-2 2 044 TOCCVS-E-2-2 . 0420 ELSE BAIL-OUT . 2 040600 D-END-ROUTINE-12. TOP-OR-F.MOVESPACE . . 040700 MOVE "TEST(S) FAILED" TO ENDER-DESC. IX1164.2 04510IFREC-CTEQUALT MOVE SPACE . IX11642 040900 MOVE "NO " TO ERROR-TOTAL20 TORE-MARK.IX1164.2 041000 ELSE . IX1164. 0110MOVEERROR-COUNTERTO ERROR-TOTAL. IX1164 041200 MOVE CCVS-E-2 TO DUMMY-RECORD030MOVE TODUMMY-RECORD.PERFORMWRITE-LINE TIMES IX11 041300 PERFORM D-WRITE-LINE. IX1164.2 041400 D-END-ROUTINE-13. CCVS-C-2TODUMMY-RECORDPERFORM TIMES . 041500 IF DELETE-COUNTER IS EQUAL TO ZERO IX1164.2 041600 MOVE "NO " TO ERROR-TOTAL ELSE IX1164.2 041700 MOVE DELETE-COUNTER TO ERROR-TOTAL. IX1164.2 041800 MOVE "TEST(S) DELETED " TO ENDER-DESC. IX1164.2 041900 MOVE CCVS-E-2 TO DUMMY-RECORD. IX1164.2 04200 PERFORMD-WRITE-LINE 2 042100 IF INSPECT-COUNTER EQUAL TO ZERO054700 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT AD 020 " TO 2 042300 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. TOERROR-HOLDIX1164.2 0240MOVE "(S)REQUIREINSPECTION .IX1164. 0410 MOVE PASS-COUNTER TO CCVS-E-4-1. IX11642 042600 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM D-WRITE-LINE. IX1164.2 042700 D-WRITE-LINE. IX1164.2 042800 ADD050END-ROUTINE-12. IX1164java.lang.StringIndexOutOfBoundsException: Rang 042900 IF RECORD-COUNT GREATER 42 0MOVE""TOERROR-TOTAL 043000 MOVE DUMMY-RECORD TO DUMMY-HOLD IX1164.2 043100 MOVE SPACE TO DUMMY-RECORD IX1164.2 043200 WRITE DUMMY-RECORD AFTER ADVANCING PAGE 0PERFORM. IX1164java.lang.StringIndexOut 043300 MOVECCVS-H-1 DUMMY-RECORDPERFORMD-WRT-LN 2TIMESIX11642 043400 MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM D-WRT-LN 2 TIMES IX1164.2 0450 MOVECCVS-H-2BTO PERFORMD-WRT-LN TIMES IX11642 043600 MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM D-WRT-LN 3 TIMES IX1164.2 043700 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM D-WRT-LN IX1164.2 0 CCVS-C-2 PERFORMD-WRT-LNIX11642 043900 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM D-WRT-LN IX1164.2 044000 MOVE DUMMY-HOLD TO DUMMY-RECORD IX1164.2 044100 MOVE ZERO TO RECORD-COUNT. IX1164.2 044200 PERFORM D-WRT-LN. IX1164.2 044300 D-WRT-LN. IX1164.2 044400 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. IX1164.2 044500 MOVE SPACE TO DUMMY-RECORD. IX1164.2 044600 D-FAIL-ROUTINE. IX1164.2 044700 IF COMPUTED-X NOT EQUAL TO SPACE IX1164.2 044800 GO TO D-FAIL-ROUTINE-WRITE. IX1164.2 044900 IF CORRECT-X NOT EQUAL TO SPACE GO TO D-FAIL-ROUTINE-WRITE.IX1164.2 045000 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE70IFRECORD-COUNTGREATER 4 . 050MOVE" FURTHER INFORMATION SEE PROGRAM." INFO-TEXT . 0520 TO. PERFORM 2 TIMES IX11642 045300 MOVE SPACES TO INF-ANSI-REFERENCE. IX1164.2 045400 GO TO D-FAIL-ROUTINE-EX. IX1164.2 04020MOVE TO PERFORMWRT-LN 2TIMESIX1164. 045600 MOVE TEST-COMPUTED TO PRINT-REC PERFORM D-WRITE-LINE IX1164.2 045700 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. IX1164.2 045800 MOVE TEST-CORRECT TO PRINT-REC PERFORM D-WRITE-LINE 2 TIMES. IX1164.2 045900 MOVE SPACES TO COR-ANSI-REFERENCE. IX1164.2 046000 D-FAIL-ROUTINE-EX. EXIT. IX1164.2 046100 D-BAIL-OUT. IX1164.2 046200 IF COMPUTED-A NOT EQUAL TO SPACE GO TO D-BAIL-OUT-WRITE. IX1164.2 046300 IF CORRECT-A EQUAL TO SPACE GO TO D-BAIL-OUT-EX. IX1164.2 046400 D-BAIL-OUT-WRITE. IX1164.2 0460 CORRECT-A . TOXXCOMPUTEDIX1164. 046600 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE.059400 BLANK-LINE-PRINT. 046700 MOVE XXINFO TO DUMMY-RECORD. PERFORM D-WRITE-LINE 2 TIMES. IX1164.290 . .2 046800 MOVE SPACES TO INF-ANSI-REFERENCE. IX1164.2 046900 D-BAIL-OUT-EX. EXIT. IX1164.2 047000 DECL-EXIT. EXIT. IX1164.2 047100 END DECLARATIVES. IX1164.2 047200 047300 IX1164.2 047400 CCVS1 SECTION. IX1164.2 047500 OPEN-FILES. IX1164.2 047600 OPEN I-O RAW-DATA. IX1164.2 0 IX1164.2 047800 READ RAW-DATA INVALID KEY GO TO END-E-1. IX1164.2 047900 MOVE "ABORTED " TO C-ABORT. IX1164.2 048000 ADD 1 TO C-NO-OF-TESTS. IX1164.2 048100 ACCEPT C-DATE FROM DATE. IX1164.2 020 C-TIMEFROM . . 048300 REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1. IX1164.2 048400 END-E-1. IX1164.2 048500 CLOSE RAW-DATA. IX1164.2 048600 OPEN OUTPUT PRINT-FILE. IX1164.2 048700 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID E TIMES. .java.lang.StringIndexOutOf 048800 MOVE SPACE TO TEST-RESULTS. IX1164.2 048900 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. IX1164.2 049000 MOVE ZERO TO REC-SKL-SUB. IX1164.2 04900 PERFORMCCVS-INIT-FILE . .2 049200 CCVS-INIT-FILE. IX1164.2 049300 ADD 1 TO REC-SKL-SUB. IX1164.2 049400 MOVE FILE-RECORD-INFO-SKELETON IX1164.2 049500 TO FILE-RECORD-INFO (REC-SKL-SUB). IX1164.2 0960. .2 049700 GO TO CCVS1-EXIT. IX1164.2 049800 CLOSE-FILES. IX1164.2 049900 OPEN I-O RAW-DATA. IX1164.2 050000 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. IX1164.2 050100 READ RAW-DATA INVALID KEY GO TO END-E-2. IX1164.2 050200 MOVE "OK. " TO C-ABORT. IX1164.2 050300 MOVE PASS-COUNTER TO C-OK. 030 0TO COUNT-OF-RECS 050400 MOVE ERROR-HOLD TO C-ALL. ********************************IX11642 050500 MOVE ERROR-COUNTER TO C-FAIL. IX1164.2 0060MOVEDELETE-COUNTER TO C-DELETED. 050700 MOVE INSPECT-COUNTER TO C-INSPECT. IX1164.2 050800 REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2. IX1164.2 050900 END-E-2. IX1164.2 051000 CLOSE RAW-DATA. IX1164.2 010 END-ROUTINETHRU. PRINT-FILEIX11642 051200 TERMINATE-CCVS. IX1164.2 051300 EXIT PROGRAM. IX1164.2 0100TERMINATE-CALLIX1164.2 051500 STOP RUN. IX1164.2 510 INSPT.MOVEINSPT .ADD TO . . 051700 PASS. MOVE "PASS " TO P-OR-F40MOVE"" .IX1164.2 051800 FAIL. MOVE "FAIL*" TO P-OR-F. ADD050 IX1164.2 051900 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. IX1164.2 052000 MOVE "****TEST DELETED****" TO RE-MARK. IX1164.2 052100 PRINT-DETAIL. IX1164.2 052200 IF REC-CT NOT EQUAL TO ZERO IX1164.2 052300065400 OPN-FAIL 2 052400 MOVE REC-CT TO DOTVALUE. IX1164.2 052500 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. IX1164.2 052600 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE IX1164.2 052700 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX IX1164.2 052800 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. IX1164.2 052900 MOVE SPACE P-OR-F.MOVE TOCOMPUTED-X IX1164. 053000 MOVE SPACE TO CORRECT-X. IX1164.2 053100 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. IX1164.2 053200 MOVE SPACE TO RE-MARK. IX1164.2 0530 . 053400 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX1164.2 060*************************************IX1164. 0300 CCVS-H-2B TO . ERFORMWRITE-LINE TIMES IX11642 053700 MOVE CCVS-H-3 TO 660CLOSE 0EXPECTED*IX1164.2 053800 COLUMN-NAMES-ROUTINE. IX1164.2 053900 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX1164.2 0400 MOVE CCVS-C-2TO . PERFORM 2 . IX11642 054100 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. IX1164.2 054200 END-ROUTINE. IX1164.2 05 MOVE HYPHEN-LINE .PERFORMWRITE-LINE ..java.lang.StringIndexOutOfBoundsException: 054400 END-RTN-EXIT. IX1164.2 040 MOVE CCVS-E-1TO DUMMY-RECORD. WRITE-LINE . . 054600 END-ROUTINE-1. IX1164670. . 054700 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO IX1164.2 054800 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. IX1164.2 054900 ADD PASS-COUNTER TO ERROR-HOLD. IX1164.2 055000* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. IX1164.2 055100 MOVE PASS-COUNTER TO CCVS-E-4-1. IX1164.2 05200MOVEERROR-HOLD . IX1164. 055300 MOVE CCVS-E-4 TO CCVS-E-2-2. IX1164.2 055400 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. IX1164.2 055500 END-ROUTINE-12. IX1164.2 055600 MOVE "TEST(S) FAILED" TO ENDER-DESC. IX1164.2 055700 IF ERROR-COUNTER IS EQUAL TO ZERO IX1164.2 055800 MOVE "NO "680*********************************X1164. 080 FILE WITH5 HAS BEEN . IX1164. 056000 MOVE ERROR-COUNTER TO600********************************.java.lang.StringInd 060 MOVE CCVS-E-2TODUMMY-RECORD. IX11642 056200 PERFORM WRITE-LINE. IX1164.2 056300 END-ROUTINE-13. IX1164.2 056400 IF DELETE-COUNTER IS EQUAL TO 650 9 ,134() H *X1164. 0550 " "TO ERROR-TOTALELSEIX1164.2 056600 MOVE DELETE-COUNTER TO ERROR-TOTAL. IX1164.2 056700 MOVE "TEST(S) DELETED " TO ENDER-DESC.680MOVE5TOTEST-NOIX1164.2 056800 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX1164.2 056900 IF INSPECT-COUNTER EQUAL TO ZERO IX1164.2 057000 MOVE "NO " TO ERROR-TOTAL IX1164.2 057100 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. IX1164.2 057200 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. IX1164.2 057300 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX1164.2 057400 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX1164.2 070 WRITE-LINE.IX1164.2 057600 ADD 1 TO RECORD-COUNT. IX1164.2 0570 RECORD-COUNT GREATER 42 IX1164.2 057800 MOVE DUMMY-RECORD TO DUMMY-HOLD IX1164.2 057900 MOVE SPACE TO DUMMY-RECORD IX1164.2 058000 WRITE DUMMY-RECORD AFTER ADVANCING PAGE IX1164.2 058100 MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES IX1164.2 058200 MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES IX1164.2 058300 MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES IX1164.2 058400 MOVE CCVS-H-3 DECLARATIVESIX-313.()" .java.lang.StringIndexOutOfBoundsExcepti 058500 MOVE CCVS-C-1 TO0-.IX1164.2 058600 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN IX1164.280DEL-FAIL-GF-01-0IX1164.2 058700 MOVE HYPHEN-LINE TO DUMMY-RECORD790MOVE", ..,()H . IX1164. 0880 MOVE TODUMMY-RECORDIX1164.2 058900 MOVE ZERO TO RECORD-COUNT. MOVE TOCOMPUTED-A.IX1164.2 059000 PERFORM WRT-LN. IX1164.2 059100 WRT-LN.010 059200 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. 100 . IX11642 059300 MOVE SPACE TO DUMMY-RECORD. IX1164.2 059400 BLANK-LINE-PRINT. IX1164.2 020CCVS-999999 059600 FAIL-ROUTINE. IX1164.2 059700 IF COMPUTED-X NOT EQUAL TO SPACE IX1164.2 059800 GO TO FAIL-ROUTINE-WRITE. IX1164.2 059900 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IX1164.2 060000 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. IX1164.2 060100 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. IX1164.2 060200 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX1164.2 060300 MOVE SPACES TO INF-ANSI-REFERENCE. IX1164.2 060400 GO TO FAIL-ROUTINE-EX. IX1164.2 060500 FAIL-ROUTINE-WRITE. IX1164.2 060600 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE IX1164.2 060700 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. IX1164.2 060800 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. IX1164.2 060900 MOVE SPACES TO COR-ANSI-REFERENCE. IX1164.2 061000 FAIL-ROUTINE-EX. EXIT. IX1164.2 061100 BAIL-OUT. IX1164.2 061200 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. IX1164.2 061300 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. IX1164.2 061400 BAIL-OUT-WRITE. IX1164.2 061500 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. IX1164.2 061600 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. IX1164.2 061700 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX1164.2 061800 MOVE SPACES TO INF-ANSI-REFERENCE. IX1164.2 061900 BAIL-OUT-EX. EXIT. IX1164.2 062000 CCVS1-EXIT. IX1164.2 062100 EXIT. IX1164.2 062200 IX1164.2 062300 SECT-IX116A-0003 SECTION. IX1164.2 062400 SEQ-INIT-010. IX1164.2 062500 MOVE ZERO TO TEST-NO. IX1164.2 062600 MOVE "IX-FS3" TO XFILE-NAME (1). IX1164.2 062700 MOVE "R1-F-G" TO XRECORD-NAME (1). IX1164.2 062800 MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1). IX1164.2 062900 MOVE 000240 TO XRECORD-LENGTH (1). IX1164.2 063000 MOVE "RC" TO CHARS-OR-RECORDS (1). IX1164.2 063100 MOVE 0002 TO XBLOCK-SIZE (1). IX1164.2 063200 MOVE 000050 TO RECORDS-IN-FILE (1). IX1164.2 063300 MOVE "IX" TO XFILE-ORGANIZATION (1). IX1164.2 063400 MOVE "S" TO XLABEL-TYPE (1). IX1164.2 063500 MOVE 000001 TO XRECORD-NUMBER (1). IX1164.2 063600 MOVE 0 TO COUNT-OF-RECS. IX1164.2 063700 IX1164.2 063800******************************************************************IX1164.2 063900* TEST 1 *IX1164.2 064000* OPEN OUTPUT ... 00 EXPECTED *IX1164.2 064100* IX-3, 1.3.4 (1) A *IX1164.2 064200* STATUS 00 CHECK ON OUTPUT FILE IX-FS3 *IX1164.2 064300* THE OUTPUT STATEMENT IS SUCCESSFULLY EXECUTED *IX1164.2 064400******************************************************************IX1164.2 064500 OPN-INIT-GF-01-0. IX1164.2 064600 MOVE 1 TO STATUS-TEST-00. IX1164.2 064700 MOVE SPACES TO IX-FS3-STATUS. IX1164.2 064800 MOVE "OPEN I-O : 00 EXP." TO FEATURE. IX1164.2 064900 MOVE "OPN-TEST-GF-01-0" TO PAR-NAME. IX1164.2 065000 OPEN IX1164.2 065100 I-O IX-FS3. IX1164.2 065200 IF IX-FS3-STATUS EQUAL TO "00" IX1164.2 065300 GO TO OPN-PASS-GF-01-0. IX1164.2 065400 OPN-FAIL-GF-01-0. IX1164.2 065500 MOVE "IX-3, 1.3.4, (1) A. " TO RE-MARK. IX1164.2 065600 PERFORM FAIL. IX1164.2 065700 MOVE IX-FS3-STATUS TO COMPUTED-A. IX1164.2 065800 MOVE "00" TO CORRECT-X. IX1164.2 065900 GO TO OPN-WRITE-GF-01-0. IX1164.2 066000 OPN-PASS-GF-01-0. IX1164.2 066100 PERFORM PASS. IX1164.2 066200 OPN-WRITE-GF-01-0. IX1164.2 066300 PERFORM PRINT-DETAIL. IX1164.2 066400******************************************************************IX1164.2 066500* TEST 4 *IX1164.2 066600* CLOSE I-O 00 EXPECTED *IX1164.2 066700* IX-3, 1.3.4 (1) A *IX1164.2 066800******************************************************************IX1164.2 066900 CLO-INIT-GF-01-0. IX1164.2 067000 MOVE SPACES TO IX-FS3-STATUS. IX1164.2 067100 MOVE "CLOSE I-O :00 EXP." TO FEATURE. IX1164.2 067200 MOVE "CLO-TEST-GF-01-0" TO PAR-NAME. IX1164.2 067300 CLO-TEST-GF-01-0. IX1164.2 067400 CLOSE IX-FS3. IX1164.2 067500 IF IX-FS3-STATUS = "00" IX1164.2 067600 GO TO CLO-PASS-GF-01-0. IX1164.2 067700 CLO-FAIL-GF-01-0. IX1164.2 067800 MOVE "IX-3, 1.3.4, (1) A. " TO RE-MARK. IX1164.2 067900 PERFORM FAIL. IX1164.2 068000 MOVE IX-FS3-STATUS TO COMPUTED-A. IX1164.2 068100 MOVE "00" TO CORRECT-X. IX1164.2 068200 GO TO CLO-WRITE-GF-01-0. IX1164.2 068300 CLO-PASS-GF-01-0. IX1164.2 068400 PERFORM PASS. IX1164.2 068500 CLO-WRITE-GF-01-0. IX1164.2 068600 PERFORM PRINT-DETAIL. IX1164.2 068700 IX1164.2 068800******************************************************************IX1164.2 068900* A INDEXED FILE WITH 50 RECORDS HAS BEEN CREATED. *IX1164.2 069000******************************************************************IX1164.2 069100 IX1164.2 069200******************************************************************IX1164.2 069300* TEST 5 *IX1164.2 069400* DELETE.... FILE NOT IN THE OPEN MODE *IX1164.2 069500* FILE STATUS 49 EXPECTED IX-5, 1.3.4 (5) H *IX1164.2 069600******************************************************************IX1164.2 069700 DEL-TEST-GF-01-0. IX1164.2 069800 MOVE 5 TO TEST-NO. IX1164.2 069900 MOVE SPACES TO IX-FS3-STATUS. IX1164.2 070000 MOVE "DELETE 49 EXP." TO FEATURE IX1164.2 070100 MOVE "DEL-TEST-GF-01-0" TO PAR-NAME. IX1164.2 070200 DELETE IX-FS3 RECORD. IX1164.2 070300 DEL-TEST-GF-01-1. IX1164.2 070400 IF IX-FS3-STATUS EQUAL TO "49" IX1164.2 070500 MOVE "SHOULD HAVE EXECUTED DECLARATIVES IX-3,1.3.4(4)" IX1164.2 070600 TO RE-MARK IX1164.2 070700 GO TO DEL-WRITE-GF-01-0. IX1164.2 070800 DEL-FAIL-GF-01-0. IX1164.2 070900 MOVE "IX-5, 1.3.4, (5) H" TO RE-MARK. IX1164.2 071000 DEL-WRITE-GF-01-0. IX1164.2 071100 MOVE IX-FS3-STATUS TO COMPUTED-A. IX1164.2 071200 MOVE "49" TO CORRECT-X. IX1164.2 071300 PERFORM FAIL. IX1164.2 071400 PERFORM PRINT-DETAIL. IX1164.2 071500 IX1164.2 071600 TERMINATE-ROUTINE. IX1164.2 071700 EXIT. IX1164.2 071800 IX1164.2 071900 CCVS-EXIT SECTION. IX1164.2 072000 CCVS-999999. IX1164.2 072100 GO TO CLOSE-FILES. IX1164.2
¤ Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.0.30Bemerkung: ¤*Bot Zugriff |
|
||||||||||||||
2026-04-02