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