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