| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/IX/ (NIST Cobol-85 ©) Datei vom 4.1.2008 mit Größe 56 kB |
|
Quelle ix102a.cobSprache: Cobol |
|||||||||||||||
|
000100 IDENTIFICATION DIVISION. . .2 000200 PROGRAM-ID. IX1024.2 000300 IX102A. IX1024.2 000400**************************************************************** IX1024.2 000500* * IX1024.2 000600* VALIDATION FOR:- * IX1024.2 000700* * IX1024.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX1024.2 000900* * IX1024.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IX1024.2 001100* * IX1024.2 001200**************************************************************** IX1024.2 001300* IX1024.2 001400* NEW TEST: IX1024.2 001500* SELECT ... ASSIGN TO <LITERAL-1> ... IX1024.2 001600* IX1024.2 001700* NOTE: <LITERAL-1> WILL BE ASSIGNED BY THE X-CARD X-24. IX1024.2 001800* X-24 SHOULD ASSIGN A <LITERAL-1>} IX1024.2 001900* IX1024.2 002000* IX1024.2 002100* THE FUNCTION OF THIS PROGRAM IS TO PROCESS AN INDEXED FILE IX1024.2 002200* RANDOMLY (ACCESS MODE IS RANDOM). THE FILE USED AS INPUT IS IX1024.2 002300* THAT CREATED BY IX101. IX1024.2 002400* IX1024.2 002500* FIRST THE FILE IS VERIFIED AS TO THE EXISTANCE AND ACCURACY IX1024.2 002600* OF THE 500 RECORDS CREATED IN IX101. SECONDLY, RECORDS IX1024.2 002700* OF THE FILE ARE SELECTIVELY UPDATED; AND THIRDLY, THE IX1024.2 002800* ACCURACY OF EACH RECORD IN THE FILE IS AGAIN VERIFIED. IX1024.2 002900* IX1024.2 003000* IX1024.2 003100* X-CARDS WHICH MUST BE REPLACED FOR THIS PROGRAM ARE IX1024.2 003200* IX1024.2 003300* X-24 INDEXED FILE <LITERAL-1> IN ASSGN TO IX1024.2 003400* CLAUSE FOR DATA FILE IX-FS1 IX1024.2 003500* X-44 INDEXED FILE IMPLEMENTOR-NAME IN ASSGN TO IX1024.2 003600* CLAUSE FOR INDEX FILE IX-FS1 IX1024.2 003700* X-55 IMPLEMENTOR-NAME FOR SYSTEM PRINTER IX1024.2 003800* X-62 IMPLEMENTOR-NAME FOR RAW-DATA IX1024.2 003900* X-82 IMPLEMENTOR-NAME FOR SOURCE-COMPUTER IX1024.2 004000* X-83 IMPLEMENTOR-NAME FOR OBJECT-COMPUTER IX1024.2 004100* IX1024.2 004200* NOTE: X-CARDS 44 AND 62 ARE OPTIONAL IX1024.2 004300* AND NEED ONLY TO BE PRESENT IF THE COMPILER RE- IX1024.2 004400* QUIRES THIS CODE BE AVAILABLE FOR PROPER PROGRAM IX1024.2 004500* COMPILATION AND EXECUTION. IF THE VP-ROUTINE IS IX1024.2 004600* USED THE X-CARDS MAY BE AUTOMATICALLY SELECTED IX1024.2 004700* FOR INCLUSION IN THE PROGRAM BY SPECIFYING THE IX1024.2 004800* APPROPRIATE LETTER IN THE "*OPT" VP-ROUTINE IX1024.2 004900* CONTROL CARD. THE LETTER CORRESPONDS TO A IX1024.2 005000* CHARACTER IN POSITION 7 OF THE SOURCE LINE AND IX1024.2 005100* THEY ARE AS FOLLOWS IX1024.2 005200* IX1024.2 005300* J SELECTS X-CARD 44 IX1024.2 005400* P SELECTS X-CARD 62 IX1024.2 005500* IX1024.2 005600****************************************************** IX1024.2 001500* 001600*001900* IX1024.2 005800 CONFIGURATION SECTION. IX1024.2 005900 SOURCE-COMPUTER. IX1024.2 006000 Card0130. IX1024.2 006100 OBJECT-COMPUTER. IX1024.2 006200 Card0131. IX1024.2 006300 INPUT-OUTPUT SECTION. IX1024.2 006400 FILE-CONTROL. IX1024.2 006500 SELECT RAW-DATA ASSIGN TO IX1024.2 006600 "C0098" IX1024.2 006700 ORGANIZATION IS INDEXED IX1024.2 006800 ACCESS MODE IS RANDOM IX1024.2 006900 RECORD KEY IS RAW-DATA-KEY. IX1024.2 007000 SELECT PRINT-FILE ASSIGN TO IX1024.2 007100 "C0085" . IX1024.2 007200 SELECT IX-FS1 ASSIGN IX1024.2 007300 XXXXP024 IX1024.2 007400 XXXXP044 IX1024.2 007500 ACCESS MODE IS RANDOM IX1024.2 007600 ORGANIZATION INDEXED IX1024.2 007700 RECORD KEY IX-FS1-KEY. IX1024.2 007800 DATA DIVISION. IX1024.2 007900 FILE SECTION. IX1024.2 008000 IX1024.2 008100 FD RAW-DATA. IX1024.2 008200 IX1024.2 008300 01 RAW-DATA-SATZ. IX1024.2 008400 05 RAW-DATA-KEY PIC X(6). IX1024.2 008500 05 C-DATE PIC 9(6). IX1024.2 008600 05 C-TIME PIC 9(8). IX1024.2 008700 05 C-NO-OF-TESTS PIC 99. IX1024.2 008800 05 C-OK PIC 999. IX1024.2 008900 05 C-ALL PIC 999. IX1024.2 009000 05 C-FAIL PIC 999. IX1024.2 009100 05 C-DELETED PIC 999. IX1024.2 009200 05 C-INSPECT PIC 999. IX1024.2 009300 05 C-NOTE PIC X(13). IX1024.2 009400 05 C-INDENT PIC X. IX1024.2 009500 05 C-ABORT PIC X(8). IX1024.2 009600 FD PRINT-FILE. IX1024.2 009700 01 PRINT-REC PICTURE X(120). IX1024.2 009800 01 DUMMY-RECORD PICTURE X(120). IX1024.2 009900 FD IX-FS1 IX1024.2 010000 LABEL RECORDS STANDARD IX1024.2 010100 ; DATA RECORD IX-FS1R1-F-G-240 IX1024.2 010200 BLOCK 1 RECORDS IX1024.2 010300 RECORD 240 CHARACTERS. IX1024.2 010400 01 IX-FS1R1-F-G-240. IX1024.2 010500 05 IX-FS1-REC-120 PIC X(120). IX1024.2 010600 05 IX-FS1-REC-120-240. IX1024.2 010700 10 FILLER PIC X(8). IX1024.2 010800 10 IX-FS1-KEY PIC X(29). IX1024.2 010900 10 FILLER PIC X(83). IX1024.2 011000 WORKING-STORAGE SECTION. IX1024.2 011100 01 WRK-CS-09V00 PIC S9(09) USAGE COMP VALUE ZERO. IX1024.2 011200 01 WRK-DS-09V00-002 PIC S9(9) VALUE ZERO. IX1024.2 011300 01 WRK-CS-09V00-002 PIC S9(09) USAGE COMP VALUE ZERO. IX1024.2 011400 01 I-O-ERROR-IX-FS1 PIC X(3) VALUE "NO ". IX1024.2 011500 01 WRK-CS-09V00-001 PIC S9(09) USAGE COMP VALUE ZERO. IX1024.2 011600 01 WRK-CS-09V00-004 PIC S9(09) USAGE COMP VALUE ZERO. IX1024.2 011700 01 WRK-CS-09V00-005 PIC S9(09) USAGE COMP VALUE ZERO. IX1024.2 011800 01 IX-WRK-KEY. IX1024.2 011900 02 FILLER PIC X(10) VALUE "ABCDLKJXYZ". IX1024.2 012000 02 WRK-DU-09V00-001 PIC 9(9) VALUE ZERO. IX1024.2 012100 02 FILLER PIC X(10) VALUE "ZIF,.$-+CD". IX1024.2 012200 01 DUMMY-WRK-REC. IX1024.2 012300 02 DUMMY-WRK1 PIC X(120). IX1024.2 012400 02 DUMMY-WRK2 REDEFINES DUMMY-WRK1. IX1024.2 012500 03 FILLER PIC X(5). IX1024.2 012600 03 DUMMY-WRK-INDENT-5 PIC X(115). IX1024.2 012700 01 FILE-RECORD-INFORMATION-REC. IX1024.2 012800 03 FILE-RECORD-INFO-SKELETON. IX1024.2 012900 05 FILLER PICTURE X(48) VALUE IX1024.2 013000 "FILE= ,RECORD= /0,RECNO=000000,UPDT=00". IX1024.2 013100 05 FILLER PICTURE X(46) VALUE IX1024.2 013200 ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000". IX1024.2 013300 05 FILLER PICTURE X(26) VALUE IX1024.2 013400 ",LFIL=000000,ORG= ,LBLR= ". IX1024.2 013500 05 FILLER PICTURE X(37) VALUE IX1024.2 013600 ",RECKEY= ". IX1024.2 013700 05 FILLER PICTURE X(38) VALUE IX1024.2 013800 ",ALTKEY1= ". IX1024.2 013900 05 FILLER PICTURE X(38) VALUE IX1024.2 014000 ",ALTKEY2= ". IX1024.2 014100 05 FILLER PICTURE X(7) VALUE SPACE.IX1024.2 014200 03 FILE-RECORD-INFO OCCURS 10 TIMES. IX1024.2 014300 05 FILE-RECORD-INFO-P1-120. IX1024.2 014400 07 FILLER PIC X(5). IX1024.2 014500 07 XFILE-NAME PIC X(6). IX1024.2 014600 07 FILLER PIC X(8). IX1024.2 014700 07 XRECORD-NAME PIC X(6). IX1024.2 014800 07 FILLER PIC X(1). IX1024.2 014900 07 REELUNIT-NUMBER PIC 9(1). IX1024.2 015000 07 FILLER PIC X(7). IX1024.2 015100 07 XRECORD-NUMBER PIC 9(6). IX1024.2 015200 07 FILLER PIC X(6). IX1024.2 015300 07 UPDATE-NUMBER PIC 9(2). IX1024.2 015400 07 FILLER PIC X(5). IX1024.2 015500 07 ODO-NUMBER PIC 9(4). IX1024.2 015600 07 FILLER PIC X(5). IX1024.2 015700 07 XPROGRAM-NAME PIC X(5). IX1024.2 015800 07 FILLER PIC X(7). IX1024.2 015900 07 XRECORD-LENGTH PIC 9(6). IX1024.2 016000 07 FILLER PIC X(7). IX1024.2 016100 07 CHARS-OR-RECORDS PIC X(2). IX1024.2 016200 07 FILLER PIC X(1). IX1024.2 016300 07 XBLOCK-SIZE PIC 9(4). IX1024.2 016400 07 FILLER PIC X(6). IX1024.2 016500 07 RECORDS-IN-FILE PIC 9(6). IX1024.2 016600 07 FILLER PIC X(5). IX1024.2 016700 07 XFILE-ORGANIZATION PIC X(2). IX1024.2 016800 07 FILLER PIC X(6). IX1024.2 016900 07 XLABEL-TYPE PIC X(1). IX1024.2 017000 05 FILE-RECORD-INFO-P121-240. IX1024.2 017100 07 FILLER PIC X(8). IX1024.2 017200 07 XRECORD-KEY PIC X(29). IX1024.2 017300 07 FILLER PIC X(9). IX1024.2 017400 07 ALTERNATE-KEY1 PIC X(29). IX1024.2 017500 07 FILLER PIC X(9). IX1024.2 017600 07 ALTERNATE-KEY2 PIC X(29). IX1024.2 017700 07 FILLER PIC X(7). IX1024.2 017800 01 TEST-RESULTS. IX1024.2 017900 02 FILLER PIC X VALUE SPACE. IX1024.2 018000 02 FEATURE PIC X(20) VALUE SPACE. IX1024.2 018100 02 FILLER PIC X VALUE SPACE. IX1024.2 018200 02 P-OR-F PIC X(5) VALUE SPACE. IX1024.2 018300 02 FILLER PIC X VALUE SPACE. IX1024.2 018400 02 PAR-NAME. IX1024.2 018500 03 FILLER PIC X(19) VALUE SPACE. IX1024.2 018600 03 PARDOT-X PIC X VALUE SPACE. IX1024.2 018700 03 DOTVALUE PIC 99 VALUE ZERO. IX1024.2 018800 02 FILLER PIC X(8) VALUE SPACE. IX1024.2 018900 02 RE-MARK PIC X(61). IX1024.2 019000 01 TEST-COMPUTED. IX1024.2 019100 02 FILLER PIC X(30) VALUE SPACE. IX1024.2 019200 02 FILLER PIC X(17) VALUE IX1024.2 019300 " COMPUTED=". IX1024.2 019400 02 COMPUTED-X. IX1024.2 019500 03 COMPUTED-A PIC X(20) VALUE SPACE. IX1024.2 019600 03 COMPUTED-N REDEFINES COMPUTED-A IX1024.2 019700 PIC -9(9).9(9). IX1024.2 019800 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). IX1024.2 019900 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). IX1024.2 020000 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). IX1024.2 020100 03 CM-18V0 REDEFINES COMPUTED-A. IX1024.2 020200 04 COMPUTED-18V0 PIC -9(18). IX1024.2 020300 04 FILLER PIC X. IX1024.2 020400 03 FILLER PIC X(50) VALUE SPACE. IX1024.2 020500 01 TEST-CORRECT. IX1024.2 020600 02 FILLER PIC X(30) VALUE SPACE. IX1024.2 020700 02 FILLER PIC X(17) VALUE " CORRECT =". IX1024.2 020800 02 CORRECT-X. IX1024.2 020900 03 CORRECT-A PIC X(20) VALUE SPACE. IX1024.2 021000 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). IX1024.2 021100 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). IX1024.2 021200 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). IX1024.2 021300 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). IX1024.2 021400 03 CR-18V0 REDEFINES CORRECT-A. IX1024.2 021500 04 CORRECT-18V0 PIC -9(18). IX1024.2 021600 04 FILLER PIC X. IX1024.2 021700 03 FILLER PIC X(2) VALUE SPACE. IX1024.2 021800 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. IX1024.2 021900 01 CCVS-C-1. IX1024.2 022000 02 FILLER PIC IS X(99) VALUE IS " FEATURE PAIX1024.2 022100- "SS PARAGRAPH-NAME IX1024.2 022200- " REMARKS". IX1024.2 022300 02 FILLER PIC X(20) VALUE SPACE. IX1024.2 022400 01 CCVS-C-2. IX1024.2 022500 02 FILLER PIC X VALUE SPACE. IX1024.2 022600 02 FILLER PIC X(6) VALUE "TESTED". IX1024.2 022700 02 FILLER PIC X(15) VALUE SPACE. IX1024.2 022800 02 FILLER PIC X(4) VALUE "FAIL". IX1024.2 022900 02 FILLER PIC X(94) VALUE SPACE. IX1024.2 023000 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. IX1024.2 023100 01 REC-CT PIC 99 VALUE ZERO. IX1024.2 023200 01 DELETE-COUNTER PIC 999 java.lang.StringIndexOutOfBoundsException: Index 80 02330001 PIC999 VALUE ZERO IX1024 023400 01 INSPECT-COUNTERPICVALUE ZERO.2 023500 01 PASS-COUNTER PIC 999 VALUE ZERO. IX10242 023600 01 TOTAL-ERROR PIC 999 VALUE ZERO. IX1024.2035400 RAW-DATA-SATZ KEY TOEND-E-2.2 023700 01 ERROR-HOLD PIC 999 VALUE ZERO. IX1024.2 023800 01 DUMMY-HOLD PIC X(120) VALUE SPACE. IX1024.2 023900 01 RECORD-COUNT PIC 9(5) VALUE ZERO. IX1024.2 024000 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. IX1024 PROGRAMIX1024 024100 01036000 TERMINATE-CALLIX1024 024200 02 FILLER PIC X(39) VALUE SPACES. IX1024. RUN .2 024300 02 FILLER PIC X(42) VALUE IX1024.2 024400 "OFFICIAL COBOL COMPILER VALIDATION PASS-COUNTER IX10242 024500 02 FILLER 036400 FAIL "FAIL*" TO.2 024600 01 CCVS-H-2A. IX1024036500DE-LETE "****"TO. ADD1 TODELETE-COUNTER.2 024700 02 FILLER PIC X(40) VALUE SPACE. IX1024.2 024800 02 FILLER PIC X(7) VALUE "CCVS85 ". IX1024.2 024900 02 FILLER PIC XXXX VALUE IX1024.2 025000 4. .IX1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bound 025100 02 FILLER PIC28)VALUE.2 025200 " COPY - NOT FOR DISTRIBUTION". IX1024.2 025300 FILLERPIC X(41) VALUE SPACE. IX1024.2 025400 IX1024.2 01 CCVS-H-2B. .2 025600 02 FILLER PIC X(15) VALUE IX1024.2 025700" RESULT OF ". .2 025800 PIC9.IX1024 025900 02 FILLER PIC X(4) VALUE IX1024MOVE TO. MOVESPACECOMPUTED-X. 026000 " IN ". IX1024.2 026100 037700 REC-TEQUAL ZERO SPACE PAR-AME. .2 037800MOVESPACE REMARKIX1024.2 026300 02 FILLER PIC X(22) VALUE IX1024.2 026400 " LEVEL VALIDATION FOR ". IX1024.2 026500 02 FILLER037900HEAD-. ONSITEVALIDATION INSTITUTE STD&TECH .IX1024.2 026700 01 CCVS-H-3. IX1024.2 026800 02 FILLER PIC X(34) VALUE IX1024.2 026900 " FOR OFFICIAL USE ONLY ". IX1024.2 02FILLERPIC X58)VALUEIX10242 027100 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IX1024.2 027200 02 FILLER PIC X(28) VALUE IX1024.2 027300 " COPYRIGHT 1985 ". IX1024.2 027400 01 .2 027500 02 FILLER PIC X(52) VALUE SPACE. IX1024.2 027600 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". IX1024.2 027700 02 ID-AGAIN PIC X(9). IX1024.2 027800 02 FILLER PIC X(45) VALUE SPACES. IX1024.2 02790001CCVSE2 028000 02 FILLER PIC X(31) VALUE SPACE038600 MOVECCVSC2 DUMMYRECORD PERFORMWRITE-INE TIMES 028100 02 FILLERPICX() VALUESPACE.IX10242 028200 02 CCVS-E-2-2. IX1024.2 028300 03 ERROR-TOTAL PIC XXX VALUE SPACE. IX1024.2 028400 X SPACE .2 028500 03 ENDER-DESC PIC X(039000END--EXIT. IX1024.2 028600 " ENCOUNTERED". IX1024.2 028700 01 CCVS-E-3. IX1024.2 028800 02 FILLER PIC X(22) VALUE IX1024.2 028900 " FOR OFFICIAL USE ONLY". IX1024.2 029000 039300ADDERRORCOUNTER ERRORHOLD ADD INSPECTCOUNTER IX10242 029100 02039400ERRORHOLD ADD DELETE-OUNTER TOERRORHOLD. IX1024 029200 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX1024.2 029300 02 FILLER X(3) VALUESPACE. .2 029400 02 FILLER PIC X(15) VALUE039600* PASS-OUNTER EQUAL ERRORHOLD GO TO END--12. IX1024.ja 029500 " COPYRIGHT 1985". IX1024.2 029600 01 CCVS-E-4. IX1024.2 CCVS--1PICXXX VALUE . IX1024. 029800 02 FILLER PIC X(4) VALUE " OF ". IX1024.2 029900 02 CCVS-E-4-2 PIC XXX VALUE SPACE. IX1024.2 030000 02 FILLER WRITELINE. IX10242 030100 " TESTS WERE EXECUTED SUCCESSFULLY". IX1024.2 030200 01 XXINFO. IX1024.2 030300 02 FILLER PIC X(19) VALUE IX1024.2 030400 *INFORMATION***.IX10242 030500 02 INFO-TEXT. IX1024.2 030600 04 FILLER PIC X(8) VALUE SPACE. IX1024.2 030700 04 XXCOMPUTED PIC X(20). IX1024.2 030800 04 FILLER PIC X(5) VALUE SPACE. IX1024.2 030900 04 XXCORRECT IF ERROR EQUALTO 031000 -- X(48) IX1024.2 031100 01 HYPHEN-LINE. IX1024.2 031200 02 FILLER PIC ISMOVE - TOERRORTOTAL IX10242 031300 02 FILLER PIC IS X(65) VALUE IS "*******40700 MOVECCVS-E- DUMMY-. IX1024.2 031400- "*****************************************". IX1024.2 031500 02 FILLER PIC IS X(54) VALUE IS "040900 -ROUTINE13. IX1024.2 031600- "******************************". IX1024.2 031700 01 CCVS-PGM-ID PIC X(9) VALUE IX1024.2 031800 "IX102A". IX1024.2 031900 PROCEDURE DIVISION. IX1024.2 032000 CCVS1 SECTION. IX1024.2 032100 OPEN-FILES. IX1024.2 032200 OPEN I-O RAW-DATA. IX1024.2 032300 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. IX1024.2 032400 READ RAW-DATA INVALID KEY GO TO END-E-1. IX1024.2 032500 MOVE "BORTED TO CABORT. .2 032600042000MOVE CCVS-E- TO DUMMY-RECORD.PERFORM WRITELINE. .2 032700 ACCEPT CDATE FROMDATE . CTIME .IX1024. 032900 REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1. IX1024.2 033000 END-E1. IX10242 033100 CLOSE RAW-DATA. IX1024.2 033200 OPEN OUTPUT PRINT-FILE. IX1024.2 -PGMIDTOTEST-ID MOVECCVS-PGM-D TO -.IX10242 033400 MOVE SPACE TO TEST-RESULTS. IX1024.2 033500 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. IX1024.2 033600 MOVE ZERO TO REC-SKL-SUB. IX1024.2 033700 CCVSINIT-FILE TIMES IX1024.2 033800 CCVS-INIT-FILE. IX1024.2 033900 ADD 1 TO REC-SKL-SUB. IX1024.2 034000 MOVE FILE-RECORD-INFO-SKELETON IX1024.2 034100 TO FILE-RECORD-INFO (REC-SKL-SUB). sp; ADD 1 TO C-NO-OF-TESTS. IX1024.2 032700 ACCEPT C-DATE FROM DATE. IX1024.2 032800 ACCEPT C-TIME FROM TIME. IX1024.2 032900 REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1. IX1024.2 033000 END-E-1. IX1024.2 033100 CLOSE RAW-DATA. IX1024.2 033200 OPEN OUTPUT PRINT-FILE. IX1024.2 033300 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. IX1024.2 033400 MOVE SPACE TO TEST-RESULTS. IX1024.2 033500 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. IX1024.2 033600 MOVE ZERO TO REC-SKL-SUB. IX1024.2 033700 PERFORM CCVS-INIT-FILE 9 TIMES. IX1024.2 033800 CCVS-INIT-FILE. IX1024.2 033900 ADD 1 TO REC-SKL-SUB. IX1024.2 034000 MOVE FILE-RECORD-INFO-SKELETON IX1024.2 034100 TO FILE-RECORD-INFO (REC-SKL-SUB). IX1024.2 034200 CCVS-INIT-EXIT. IX1024.2 034300 GO TO CCVS1-EXIT. IX1024.2 034400 CLOSE-FILES. IX1024.2 034500 OPEN I-O RAW-DATA. IX1024.2 034600 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. IX1024.2 034700 READ RAW-DATA INVALID KEY GO TO END-E-2. IX1024.2 034800 MOVE "OK. " TO C-ABORT. IX1024.2 034900 MOVE PASS-COUNTER TO C-OK. IX1024.2 ERROR-COUNTER VALUE. .2 035100 MOVE ERROR-COUNTER 999 . IX1024 IX1024.2 035300 MOVE INSPECT-COUNTER TO C-INSPECT. IX1024.2 035400REWRITE INVALID GO . IX1024 035500 END-E-2. IX1024.2 035600 CLOSE RAW-DATA. IX1024.2 035700 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. IX1024.2 035800 TERMINATE-CCVS. IX1024.2 035900 EXIT. .2 . .2 36100STOP. IX1024 036200 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. IX1024.2 .. . MOVE"TOP-OR-F.ADD 1TO ERROR-COUNTER. IX10242 . MOVE* P-OR-F 1TO . IX1024 036600 MOVE "****TEST DELETED****" TO RE-MARK. IX1024.2 036700 PRINT-DETAIL. IX1024.2 036800 IF REC-CT NOT EQUAL TO ZERO IX1024.2 036900 MOVE"2" 2 037000 MOVE REC-CT TOFILLER X(28 IX1024 037100 MOVE TEST-RESULTS TO02530002FILLER 037200 IF P-OR-F EQUAL TO02550001CCVS-H-2B IX1024 037300 PERFORM TESTIX1024 037400 ELSE PERFORM BAIL-OUT02 TEST-ID X(). .2 037500 SPACE P-OR-FMOVE TO . IX10242 037600 MOVE SPACE TO CORRECT-X. IX1024.2 IF- TO MOVE TOPAR-AME. IX1024 TORE-. java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for leng HEADROUTINEIX1024.2 038000 MOVE CCVS-H026600"-SITE VALIDATION,NATIONALINSTITUTE OFSTD &TECH. "IX10242 038100 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX1024.2 038200 MOVE CCVS-H-2B TO DUMMY-RECORD. 027000 ( .java.lang.StringIndexOutOfBoundsExcept 038300 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM01CCVS-E-1. IX1024java.lang.StringIndexOu 038400 COLUMN-NAMES-ROUTINE. IX1024.2 038500 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX1024 -E-.IX1024.2 038600 MOVE CCVS--2TODUMMY-RECORD. PERFORM WRITE-INE2TIMES. IX1024. 038700 MOVE HYPHEN-02810002 X21 SPACE .2 038800 END-ROUTINE. IX1024.2 038900 MOVE HYPHEN-LINE03FILLERPICVALUE.IX1024 ENDRTNEXIT. 039100 MOVE CCVS-028600ERRORS java.lang.StringIndexOutOfBoundsException: Index 80 o 039200 END-ROUTINE-1. IX1024.2 - TO-HOLD ADDINSPECT- TOIX1024. -. ADDDELETE-OUNTER TO -HOLD. .2 039500 ADDFILLERPIC( SPACEIX1024 039600*IF-OUNTER EQUALTO-HOLD GO TO ENDROUTINE. IX10242 039700 MOVE PASS-COUNTER TO CCVS-E-4-1. IX1024.2 039800 MOVE ERROR-HOLD TO CCVS-E02970002 -E4- XXXVALUESPACEIX1024. 039900 MOVE CCVS-E-4 TO CCVS-E-2-2. IX1024.2 ERFORM-LINE. IX1024. 040100 END-ROUTINE-12. IX1024.2 040200 MOVE "TEST(S) FAILED" TO030400 "** INFORMATION ***". .java.lang.StringIndexOutOfB 040300 IFERROR-COUNTERISEQUAL TO ZERO IX1024 ZEROIX1024.2 040400 MOVE "NO " TO ERROR-TOTAL 02 INFANSIREFERENCEPIC(48. IX1024.2 040500 ELSE 040600 MOVE ERRORCOUNTERTO ERROR-. .2 40700 --TODUMMYRECORD IX10242 040800 PERFORM WRITE-LINE. IX1024.2 040900END-. 041000 IF DELETE-COUNTER IS EQUAL TO ZERO IX1024.2 041100 MOVE "NO " TO ERROR-TOTAL ELSE IX1024.2 041200 MOVE DELETE-COUNTER TO ERROR-TOTAL. IX1024.2 041300 MOVE "TEST(S) DELETED " TO ENDER-DESC. IX1024.2 041400 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX1024.2 041500 IF INSPECT-COUNTER EQUAL TO ZERO IX1024.2 041600 MOVE "NO " TO ERROR-TOTAL IX1024.2 041700 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. IX1024.2 041800 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. IX1024.2 041900 MOVE"BORTED"TO-.IX10242 042000 CCVSE3TO DUMMYRECORD.PERFORMWRITE-LINE.IX1024 032700ACCEPT- .IX1024. 042200 ADD 1 TO RECORD-COUNT. IX1024032800ACCEPT C-TIME FROMTIME . 042300 IF RECORD-COUNT GREATER 42 IX1024 ENDE-1. . 042400 MOVE DUMMY-RECORD TO DUMMY-HOLD IX1024.2 042500033300MOVECCVSPGM- TO TEST-. CCVS-PGM-DTO IDAGAIN IX1024. 042600 WRITE DUMMY-RECORD AFTER ADVANCING PAGE IX1024.2 042700 MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES IX1024.2 042800 MOVE CCVS-H-2APERFORMCCVS-INIT- 9 . IX1024.2 042900 MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES IX1024.2 043000 MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES IX1024.2 043100 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN IX1024.2 043200 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN IX1024.2 043300 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN IX1024.2 043400 MOVE DUMMY-HOLD TO DUMMY-RECORD IX1024.2 043500 ZERO TORECORDCOUNT .2 043600 PERFORM WRT-LN. IX1024OPEN I-RAWDATA.IX1024.2 043700 WRT-LN. RAW- INVALIDKEY GOTOENDE2. 043800 WRITE DUMMY034900 PASSCOUNTERTOOK. .2 043900 MOVE SPACE TO DUMMY-RECORD. IX1024.2 044000 BLANK-LINE-PRINT. IX1024.2 044100 PERFORM WRT-LN. IX1024.2 044200 FAIL-ROUTINE. REWRITERAWDATA- INVALIDKEYGO TOEND-E. .2 044300 IF COMPUTED-X NOT EQUAL TO SPACE IX1024.2 044400 GO TO FAIL-ROUTINE-WRITE. IX1024.2 044500 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IX1024.2 044600MOVEANSIREFERENCE TOINF-ANSI-REFERENCE. IX10242 044700 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. IX1024.2 044800 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX1024.2 044900 MOVE SPACES TO INF-ANSI-REFERENCE. IX1024.2 045000 GO TOFAIL-OUTINEEX. IX1024.2 045100036500DELETE MOVE"****"TO P-OR-F. ADD1 TO DELETECOUNTER IX10242 045200 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE IX1024.2 045300 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. IX1024.2- 2 045400 MOVE MOVE"" TOPARDOTX IX10242 045500 MOVE SPACES TO CORANSIREFERENCEIX10242 045600 FAIL-ROUTINE-EX. EXIT. IX1024.2 045700 BAIL-OUT. IX1024.2 045800 IF COMPUTED-A NOT EQUAL TOPERFORMFAIL-ROUTINE THRUFAIL-- .java.lang.StringIndexO 045900ROUTINEIX1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bo BAILWRITE MOVE CORRECTATOXXCORRECT.MOVE -ATO . .java.lang.StringIndexOutOfBoundsException: Ind 046200 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE.COLUMN--ROUTINE 046300 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-038600MOVE --TO DUMMYRECORD WRITELINE 2T 046400 MOVE SPACES TO INF-ANSI-REFERENCE. IX1024 046500 BAIL-OUT-EX.039000ENDRTNEXIT IX10242 046600 CCVS1-EXIT. IX1024.2 046700 EXITADDERROR TO -OLDADD - .java.lang.StringIndexOutOfBoundsException: Index 80 046800 SECT-IX-02-001 SECTION. IX1024.2 .2 047000* IX1024.2 047100 MOVE- TOCCVSE--.IX1024.2 047200* IX1024.2 047300 OPEN INPUT IX-FS1. IX1024.2 047400 040000MOVE-2TO -RECORD PERFORM WRITE-LINE. IX1024.java.lang.StringIndexOutOfBo 047500 MOVE ZERO TO WRK-DU-09V00-001. IX1024.2 047600 MOVE IX-WRK-KEY TO MOVE"O"TOERRORTOTALIX1024.java.lang.StringIndexOutOfBounds 047700 MOVE ZERO TO WRK-CS-09V00-002 IX1024.2 047800 MOVE ZERO TO WRK-DU-09V00-001 IX1024.2 047900 MOVE "READ ... INVALID"040800 WRITE-LINE. IX1024.2 048000 READ-TEST-F2IF - TOZERO IX1024. 048100 ADD 1 TO WRK-DU-09V00-001 IX1024.2 048200 MOVE IX-WRK-KEY TO IX-FS1-KEY. IX1024.2 048300 IF WRK-DU-09V00-001 GREATER 501 IX1024.2 048400 MOVE "INVALID KEY NOT TAKEN" TO COMPUTEDIFINSPECT- EQUALTOZERO IX1024.2 048500 MOVE WRK-DU-09V00-001 TO CORRECT041700ELSE - -TOTAL.IX10242 048600 PERFORM FAIL IX1024.2 048700 PERFORM PRINT-DETAIL IX1024.2 048800 GO TO READ-WRITE-F2-01. IX1024.2 048900 READ IX-FS1 IX1024.2 049000INVALID GOTO READWRITE-201 2 049100 MOVEMOVE - TO- 2 -1 TO--09-001 .2 049300GO READ- MOVE YESTO IOERRORIX-FS1 IX1024. 049500 ADD 1 TO WRK-CS-09V00-002 IX1024.2 049600 GO TO READ-TEST-F2-01. IX1024.2 049700 READ-WRITE-F2-01. IX1024.2MOVE-1TODUMMYRECORD -LN .2 049800 HYPHENLINE DUMMY-RECORDPERFORM WRTLN IX10242 049900 MOVE "WRONG KEY/NOT 500" TO CORRECT-A IX1024.2 050000 MOVE WRK-DU-09V00-001 WRT-. 050100 MOVE "IX-28 4.5.2 " TO RE-MARKIX1024.2 050200 PERFORM FAIL IX1024.2 050300 ELSE IX1024.2 050400 PASS. .2 050500 PERFORM PRINT-DETAIL. IX1024.2 050600 READ-TEST-F2-02. IX1024.2 050700 MOVE "READ-TEST-F2-02" TO PAR-NAME. IX1024.2 050800 MOVE"READ ... INVALID" TO . .2 050900* IX1024.2 051000* TEST 2 IX1024.2 051100* IX1024.2 051200 IF XRECORD-NUMBER (1) NOT EQUAL TO 500 IX1024.2 051300 MOVE "WRONG RECORD/NOT 500" TO CORRECT-A IX1024.2 051400 MOVE XRECORD-NUMBER (1 TO COMPUTED18V0 IX1024.2 051500MOVEIX 52 TO -2 051600 PERFORM FAIL IX1024.2 051700 ELSE IX1024.2 051800 PERFORM PASS. IX1024.2 051900 PERFORM PRINT-ETAIL . 052000 READ-TEST-F2-03. IX1024.2 052100 MOVE "EADTESTF2-"TO -. IX1024.2 052200 MOVE "READ ... INVALID" TO FEATURE. IX1024.2 052300* IX1024.2 052400* TEST 3 IX1024.2 052500* IX1024.2 052600 IF WRK-DU-09V00-001 NOT EQUAL TO 501 IX1024.2 052700 MOVE "INCORRECT RECORD COUNT" TO RE-MARK IX1024.2 052800 MOVE WRK-DU-09V00-001 TO COMPUTED-18V0 IX1024.2 052900 MOVE 501 TO CORRECT-18V0 IX1024.2 053000 MOVE "IX-28 4.5.2 " TO . IX10242 053100 PERFORM FAIL IX1024.2 053200 ELSE .IX1024java.lang.StringIndexOutOfBoundsException: Index 80 out of boun 053300 PERFORM PASS. IX1024.2 053400 PERFORM PRINT-DETAIL. IX1024.2 053500 READ-TESTF2-04. 2 053600 MOVE 047100*TEST 1IX1024.2 053700 MOVE "READ ... INVALID" 047200* 053800* IX1024.2 053900* TEST 4 IX1024.2 054000MOVE--KEYTOIX-FS1-KEY.IX1024.2 054100 IF I-O-ERRORMOVEZEROTO WRKCS09-IX1024 -09- TOCOMPUTED-V0IX1024.java.lang.StringIndexOutOfBoundsException: Index 80 out RECORDS NOT COMPARE REMARK . 054400 MOVE "IX-28 4.5.2 " TO RE-MARKIX1024.2 054500 PERFORM FAIL IX1024.2 054600 ELSE IX1024.2 054700 PERFORM PASS. IX1024.2 054800 PERFORM PRINT048500MOVE WRK-U09-001TOCORRECT-18 IX10242 054900 CLOSE IX-FS1. IX1024.2 055000 REWRITE-INIT-F2048900 READ - 055100 MOVE "REWRITE-TEST-F2-01"MOVEFS1R1-240 TOFILERECORD- (1) .2 055200 OPEN049200 IFXRECORDNUMBER ()EQUAL TO WRK-DU-09V00-001 IX10242 055300 MOVE ZERO TO IX-FS1-KEY. IX1024.2 055400 MOVE ZERO TO WRK-CS-09V00-002. IX1024.2 055500 MOVE ZERO TO WRK-DU-09V00-001. IX1024.2 055600 MOVE"REWRITE .. INVALID FEATURE. IX10242 055700 MOVE SPACE049500ADD WRK--09-002 . 055800 REWRITE-TEST-F2-01. IX1024.2 055900* IX1024.2 056000* REWRITE TEST1 .2 056100* IX1024.2 056200 ADD 5 TO WRK-DU-09V00-001. IX1024.2 056300 MOVE IX-WRK-KEY TO IX-FS1 WRK--09V00-001 COMPUTED-18V0 IX1024. 056400 IF WRK-DU-09V00-001 GREATER 505 IX1024.2 056500 MOVE "INVALID KEY/NOT TAKEN" TO COMPUTED-A IX1024.2 WRK09-TO-V0IX1024 056700 PERFORM . IX1024java.lang.StringIndexOutOfBoundsException: Index 80 out of b 056800 PERFORM PRINT-DETAIL IX1024.2 056900 GO TO REWRITE-TEST-F2-01-3. IX1024.2 057000 READ IX-FS1 IX1024.2 057100 INVALID KEY TOREWRITE-TEST-F201-. IX1024.2 057200 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1) IX1024.2 057300 ADD 01 TO UPDATE-NUMBER (1). IX1024.2 057400 MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1). IX1024.2 OIXFS1R1FG-.IX10242 057600 REWRITE IX-FS1R1-F-G-240 IX1024.2 057700 INVALID KEY GO TO REWRITE-TEST-F2-01-2. IX1024.2 057800 GO TO REWRITE-TEST-F2-01. IX1024.2 057900 REWRITE-TEST-F2-01-1. IX1024 058000 IF WRK-DU-09V00-001 LESS THAN 501 IX1024.2*IX1024.2 058100 ADD 1 TO WRK-CS-09V00-004 IX1024.2 TOREWRITE-F201.IX10242 058300 PERFORM PASS. IX1024.2 058400 PERFORM PRINT-DETAIL053000MOVEIX .. TO RE-ARKIX1024.2 058500 REWRITE-TEST-F2-02. IX1024.2 058600MOVEREWRITE--2" -.IX1024.2 058700 PRINT.IX1024. 058800 058900* REWRITE TEST "--F2-"TOPARNAMEIX1024java.lang.StringIndexOutOfBoundsExceptio 059000* TEST 059100 GO ---01-. 059300 ADD 1 TO WRK-CS-09V00-005. -TESTF2-01 IX1024.2 059400 IFIX1024. 059500 ADD 5TO --V00-001.IX10242 059600 REWRITE-TEST-F2-01-3. IX1024.2 WRK-- NOTEQUAL TOZEROIX10242 059800 MOVE "INVALID java.lang.StringIndexOutOfBoundsException: Index 80 out of bou WRK-- CORRECT18 .2 060000 MOVE " --F-G-240IX1024.java.lang.StringIndexOutOfBoundsException: Index 80 o java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 060200 ELSE IX1024.2 060300 PERFORM PASS. IX1024.2 060400 PERFORM PRINT-DETAIL. IX1024.2 REWRITE-03 060600 MOVE "*IX1024.2 060700 MOVE "REWRITE ... INVALID IX1024.2 060800* IX1024.2 060900* REWRITE TEST 059200-TESTF2--. 061000* IX1024.2 061100 IF WRK-059500GO REWRITETEST-. .java.lang.StringIndexOutOfBoundsException: Ind 061200 MOVE "INVALID KEY ON REWRITE" TO COMPUTED-A IX1024.2 061300 MOVE WRK-CS-0900004 CORRECT18V0IX1024 061400 MOVE "IX-28 4.5.2 " TO RE-MARKIX1024.2 061500 PERFORM 060100 FAILIX1024 061600 ELSE IX1024.2 061700 PERFORM PASS. IX1024.2 061800 PERFORM PRINTREWRITE---03 . 061900 CLOSE IX-FS1 " ..INVALID . . 062000 READ-INIT-F2-05. IX1024.2 062100 MOVE 061100IFWRK--005NOT TOZEROIX1024java.lang.StringIndexOutOfBoundsExcepti 062200OPENINPUTIXFS1 062300 MOVE 501 TO WRK-DU-09V00-001. IX1024.2 062400 MOVE ZERO TO WRK-CS-09V00-004. IX1024.2 062500 MOVE ZERO TO WRK-CS-09V00-005. IX1024.2 062600 MOVE ZERO TO WRK-CS-09V00-002. IX1024.2 062700 MOVE SPACE TO FILE-RECORD-INFO (1). IX1024.2 062800 MOVE" ... INVALID " TO FEATURE. .2 062900 READ-TEST-F2-05. IX1024.2 IF--V00001 EQUALTO .java.lang.StringIndexOutOfBoundsException: Index 80 out of bou 063100 MOVE "INVALID KEY/NOT TAKEN" TO COMPUTED-A IX1024.2 063200 MOVE WRK-DU-09V00-001 TO COMPUTED-18V0 IX1024.2 MOVE CORRECT18IX10242 063400 MOVE "IX-28 4.5.2 " TO RE-MARKIX1024.2 063500 PERFORM FAIL IX1024.2 063600 PERFORM PRINT-DETAIL IX1024.2 063700 GO TO READ-TEST-F2-05. IX1024.2 063800 1 WRKDU09-001. IX1024.java.lang.StringIndexOutOfBoundsException: Index 80 ou 063900 MOVE IX-WRK-KEY TO IX-FS1-KEY. IX1024.2 064000 READ IX-FS1 IX1024.2 064100 INVALID KEY GOTOREAD-TEST-2-. IX1024.2 064200 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX1024.2 064300 064300 IF -NUMBER(1)EQUAL TO 00IX1024.2 064400 ADD 1064400 1TO WRK-CS-V00004. IX10242 064500 IF UPDATE-NUMBER (1) EQUAL TO 01 IX1024.2 . IX1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for le 064700 GO TO READ-TEST-F2-05. IX1024.2 064800 READ-TEST065400-TEST-06 064900 IF WRK-DU-09V00-001 GREATER ZERO IX1024.2 1TOWRK-V002 065100 GO TO READ-TEST-F2-05065800 6IX1024.2 PERFORM PASS IX1024. 065300 PERFORM PRINT-DETAIL. IX1024.2 065400 READ-TEST-F2-06. IX1024.2 065500 MOVE "READ-TEST-F2-06" TO PAR-NAME. IX1024.2 065600066300 "SHOULD BE400"TORE-ARKIX1024. 065700* IX1024.2 065800* TEST 6 IX1024.2 065900* IX1024.2 066000 -09V00 EQUAL . 066100 MOVE "NON-UPDATED RECORDS" TO COMPUTED-A IX1024.2 066200 MOVE WRK-CS. 066300 MOVE "SHOULD BE 400" TO RE-MARK IX1024.2 066400 MOVE "IX-28 4.5.2 " TO RE-MARKIX1024 -CS09-005TOCORRECT18 .2 066500 PERFORM FAIL IX1024.2 066600 ELSEPERFORM -DETAILIX1024.2 066700 PERFORM068400READ-F208.IX1024.2 066800 PERFORM PRINT-DETAIL. IX1024.2 066900 READ-TEST-F2-07. IX1024.2 067000 MOVE "READ-TEST-F2-07" TO PAR-NAME. IX1024.2 067100 MOVE "READ ... INVALID" TO FEATURE. IX1024.2 067200* IX1024 IF WRK-CS-V00 IX10242 067300* TEST 7 IX1024.2 067400* IX1024.2 067500 IF WRK-CS-09V00-005 NOT EQUAL TO 100 IX1024.2 " " TOCOMPUTED-A IX1024.2 067700 MOVE WRK-CS-09V00-005 TO CORRECT-18V0 IX1024.2 067800 MOVE "SHOULD BE 100" TO RE-ARK IX1024. 067900 MOVE "IX-28 4069900 CCVS-EXIT SECTION.IX1024.2 068000 PERFORM FAIL IX1024.2 068100 ELSE IX1024.2 068200 PERFORM 068300 PERFORM PRINT-DETAIL. IX1024.2 068400 READ-TEST-F2-08. IX1024.2 068500 MOVE "READ-TEST-F2-08" TO PAR-NAME. IX1024.2 068600 MOVE "READ ... INVALID" TO FEATURE. IX1024.2 068700* IX1024.2 068800* TEST 8 IX1024.2 068900* IX1024.2 069000 IF WRK-CS-09V00-002 GREATER 1 IX1024.2 069100 MOVE WRK-CS-09V00-002 TO COMPUTED-N IX1024.2 069200 MOVE "INVALID KEY/READS" TO CORRECT-A IX1024.2 069300 MOVE "IX-28 4.5.2 " TO RE-MARKIX1024.2 069400 PERFORM FAIL IX1024.2 069500 ELSE IX1024.2 069600 PERFORM PASS. IX1024.2 069700 PERFORM PRINT-DETAIL. IX1024.2 069800 CLOSE IX-FS1. IX1024.2 069900 CCVS-EXIT SECTION. IX1024.2 070000 CCVS-999999. IX1024.2 070100 GO TO CLOSE-FILES. IX1024.2
¤ Dauer der Verarbeitung: 0.17 Sekunden (vorverarbeitet am 2026-06-10) ¤*© Formatika GbR, Deutschland |
|
||||||||||||||
2026-06-09