|
000100 IDENTIFICATION DIVISION. RL2024.2
000200 PROGRAM-ID. RL2024.2
000300 RL202A. RL2024.2
000400**************************************************************** RL2024.2
000500* * RL2024.2
000600* VALIDATION FOR:- * RL2024.2
000700* * RL2024.2
000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL2024.2
000900* * RL2024.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL2024.2
001100* * RL2024.2
001200**************************************************************** RL2024.2
001300*GENERAL: THE FUNCTION OF THIS PROGRAM IS TO PROCESS A RELATIVERL2024.2
001400* I-O FILE RANDOMLY (ACCESS MODE IS DYNAMIC). THE FILE RL2024.2
001500* USED AS INPUT IS THAT FILE CREATED BY RL201. RL2024.2
001600* RL2024.2
001700* FIRST THE FILE IS VERIFED AS TO THE EXISTANCE AND RL2024.2
001800* ACCURACY OF THE 500 RECORDS CREATED IN THE FIRST RL2024.2
001900* PROGRAM. SECONDLY, RECORDS OF THE FILE ARE SEL- RL2024.2
002000* ECTIVELY UPDATED; AND THIRDLY, THE ACCURACY OF EACH RL2024.2
002100* RECORD IN THE FILE IS AGAIN VERIFIED. RL2024.2
002200* RL2024.2
002300* X-CARD PARAMETERS WHICH MUST BE SUPPLIED FOR THIS RL2024.2
002400* PROGRAM ARE: RL2024.2
002500* RL2024.2
002600* X-21 IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR RL2024.2
002700* RELATIVE I-O DATA FILE RL2024.2
002800* X-55 SYSTEM PRINTER RL2024.2
002900* X-69 ADDITIONAL VALUE OF CLAUSES RL2024.2
003000* X-74 VALUE OF IMPLEMENTOR-NAME RL2024.2
003100* X-75 OBJECT OF VALUE OF CLAUSE RL2024.2
003200* X-82 SOURCE-COMPUTER RL2024.2
003300* X-83 OBJECT-COMPUTER. RL2024.2
003400* RL2024.2
003500*************************************************** RL2024.2
003600 ENVIRONMENT DIVISION. RL2024.2
003700 CONFIGURATION SECTION. RL2024.2
003800 SOURCE-COMPUTER. RL2024.2
003900 Card0130. RL2024.2
004000 OBJECT-COMPUTER. RL2024.2
004100 Card0131. RL2024.2
004200 INPUT-OUTPUT SECTION. RL2024.2
004300 FILE-CONTROL. RL2024.2
004400 SELECT PRINT-FILE ASSIGN TO RL2024.2
004500 "C0085" . RL2024.2
004600 SELECT RL-FD1 ASSIGN TO RL2024.2
004700 XXXXP021 RL2024.2
004800 ORGANIZATION IS RELATIVE RL2024.2
004900 ACCESS MODE IS DYNAMIC RL2024.2
005000 RELATIVE KEY RL-FD1-KEY. RL2024.2
005100 DATA DIVISION. RL2024.2
005200 FILE SECTION. RL2024.2
005300 FD PRINT-FILE. RL2024.2
005400 01 PRINT-REC PICTURE X(120). RL2024.2
005500 01 DUMMY-RECORD PICTURE X(120). RL2024.2
005600 FD RL-FD1 RL2024.2
005700 LABEL RECORDS STANDARD RL2024.2
005800 VALUE OF RL2024.2
005900 Impl1 RL2024.2
006000 IS RL2024.2
006100 4711 RL2024.2
006200 RL2024.2
006300 BLOCK CONTAINS 1 RECORDS RL2024.2
006400 RECORD CONTAINS 120 CHARACTERS. RL2024.2
006500 01 RL-FD1R1-F-G-120. RL2024.2
006600 02 FILLER PICTURE X(120). RL2024.2
006700 WORKING-STORAGE SECTION. RL2024.2
006800 01 WRK-CS-09V00 PIC S9(09) USAGE COMP VALUE ZERO. RL2024.2
006900 01 RL-FD1-KEY PIC 9(09) USAGE COMP VALUE ZERO. RL2024.2
007000 01 WRK-DS-09V00-002 PIC S9(9) VALUE ZERO. RL2024.2
007100 01 WRK-CS-09V00-002 PIC S9(09) USAGE COMP VALUE ZERO. RL2024.2
007200 01 WRK-CS-09V00-003 PIC S9(09) USAGE COMP VALUE ZERO. RL2024.2
007300 01 I-O-ERROR-RL-FD1 PIC X(3) VALUE "NO ". RL2024.2
007400 01 WRK-CS-09V00-001 PIC S9(09) USAGE COMP VALUE ZERO. RL2024.2
007500 01 WRK-CS-09V00-004 PIC S9(09) USAGE COMP VALUE ZERO. RL2024.2
007600 01 WRK-CS-09V00-005 PIC S9(09) USAGE COMP VALUE ZERO. RL2024.2
007700 01 WRK-DS-09V00-001 PIC S9(09) VALUE ZERO. RL2024.2
007800 01 FILE-RECORD-INFORMATION-REC. RL2024.2
007900 03 FILE-RECORD-INFO-SKELETON. RL2024.2
008000 05 FILLER PICTURE X(48) VALUE RL2024.2
008100 "FILE= ,RECORD= /0,RECNO=000000,UPDT=00". RL2024.2
008200 05 FILLER PICTURE X(46) VALUE RL2024.2
008300 ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000". RL2024.2
008400 05 FILLER PICTURE X(26) VALUE RL2024.2
008500 ",LFIL=000000,ORG= ,LBLR= ". RL2024.2
008600 05 FILLER PICTURE X(37) VALUE RL2024.2
008700 ",RECKEY= ". RL2024.2
008800 05 FILLER PICTURE X(38) VALUE RL2024.2
008900 ",ALTKEY1= ". RL2024.2
009000 05 FILLER PICTURE X(38) VALUE RL2024.2
009100 ",ALTKEY2= ". RL2024.2
009200 05 FILLER PICTURE X(7) VALUE SPACE.RL2024.2
009300 03 FILE-RECORD-INFO OCCURS 10 TIMES. RL2024.2
009400 05 FILE-RECORD-INFO-P1-120. RL2024.2
009500 07 FILLER PIC X(5). RL2024.2
009600 07 XFILE-NAME PIC X(6). RL2024.2
009700 07 FILLER PIC X(8). RL2024.2
009800 07 XRECORD-NAME PIC X(6). RL2024.2
009900 07 FILLER PIC X(1). RL2024.2
010000 07 REELUNIT-NUMBER PIC 9(1). RL2024.2
010100 07 FILLER PIC X(7). RL2024.2
010200 07 XRECORD-NUMBER PIC 9(6). RL2024.2
010300 07 FILLER PIC X(6). RL2024.2
010400 07 UPDATE-NUMBER PIC 9(2). RL2024.2
010500 07 FILLER PIC X(5). RL2024.2
010600 07 ODO-NUMBER PIC 9(4). RL2024.2
010700 07 FILLER PIC X(5). RL2024.2
010800 07 XPROGRAM-NAME PIC X(5). RL2024.2
010900 07 FILLER PIC X(7). RL2024.2
011000 07 XRECORD-LENGTH PIC 9(6). RL2024.2
011100 07 FILLER PIC X(7). RL2024.2
011200 07 CHARS-OR-RECORDS PIC X(2). RL2024.2
011300 07 FILLER PIC X(1). RL2024.2
011400 07 XBLOCK-SIZE PIC 9(4). RL2024.2
011500 07 FILLER PIC X(6). RL2024.2
011600 07 RECORDS-IN-FILE PIC 9(6). RL2024.2
011700 07 FILLER PIC X(5). RL2024.2
011800 07 XFILE-ORGANIZATION PIC X(2). RL2024.2
011900 07 FILLER PIC X(6). RL2024.2
012000 07 XLABEL-TYPE PIC X(1). RL2024.2
012100 05 FILE-RECORD-INFO-P121-240. RL2024.2
012200 07 FILLER PIC X(8). RL2024.2
012300 07 XRECORD-KEY PIC X(29). RL2024.2
012400 07 FILLER PIC X(9). RL2024.2
012500 07 ALTERNATE-KEY1 PIC X(29). RL2024.2
012600 07 FILLER PIC X(9). RL2024.2
012700 07 ALTERNATE-KEY2 PIC X(29). RL2024.2
012800 07 FILLER PIC X(7). RL2024.2
012900 01 TEST-RESULTS. RL2024.2
013000 02 FILLER PIC X VALUE SPACE. RL2024.2
013100 02 FEATURE PIC X(20) VALUE SPACE. RL2024.2
013200 02 FILLER PIC X VALUE SPACE. RL2024.2
013300 02 P-OR-F PIC X(5) VALUE SPACE. RL2024.2
013400 02 FILLER PIC X VALUE SPACE. RL2024.2
013500 02 PAR-NAME. RL2024.2
013600 03 FILLER PIC X(19) VALUE SPACE. RL2024.2
013700 03 PARDOT-X PIC X VALUE SPACE. RL2024.2
013800 03 DOTVALUE PIC 99 VALUE ZERO. RL2024.2
013900 02 FILLER PIC X(8) VALUE SPACE. RL2024.2
014000 02 RE-MARK PIC X(61). RL2024.2
014100 01 TEST-COMPUTED. RL2024.2
014200 02 FILLER PIC X(30) VALUE SPACE. RL2024.2
014300 02 FILLER PIC X(17) VALUE RL2024.2
014400 " COMPUTED=". RL2024.2
014500 02 COMPUTED-X. RL2024.2
014600 03 COMPUTED-A PIC X(20) VALUE SPACE. RL2024.2
014700 03 COMPUTED-N REDEFINES COMPUTED-A RL2024.2
014800 PIC -9(9).9(9). RL2024.2
014900 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). RL2024.2
015000 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). RL2024.2
015100 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). RL2024.2
015200 03 CM-18V0 REDEFINES COMPUTED-A. RL2024.2
015300 04 COMPUTED-18V0 PIC -9(18). RL2024.2
015400 04 FILLER PIC X. RL2024.2
015500 03 FILLER PIC X(50) VALUE SPACE. RL2024.2
015600 01 TEST-CORRECT. RL2024.2
015700 02 FILLER PIC X(30) VALUE SPACE. RL2024.2
015800 02 FILLER PIC X(17) VALUE " CORRECT =". RL2024.2
015900 02 CORRECT-X. RL2024.2
016000 03 CORRECT-A PIC X(20) VALUE SPACE. RL2024.2
016100 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). RL2024.2
016200 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). RL2024.2
016300 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). RL2024.2
016400 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). RL2024.2
016500 03 CR-18V0 REDEFINES CORRECT-A. RL2024.2
016600 04 CORRECT-18V0 PIC -9(18). RL2024.2
016700 04 FILLER PIC X. RL2024.2
016800 03 FILLER PIC X(2) VALUE SPACE. RL2024.2
016900 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. RL2024.2
017000 01 CCVS-C-1. RL2024.2
017100 02 FILLER PIC IS X(99) VALUE IS " FEATURE PARL2024.2
017200- "SS PARAGRAPH-NAME RL2024.2
017300- " REMARKS". RL2024.2
017400 02 FILLER PIC X(20) VALUE SPACE. RL2024.2
017500 01 CCVS-C-2. RL2024.2
017600 02 FILLER PIC X VALUE SPACE. RL2024.2
017700 02 FILLER PIC X(6) VALUE "TESTED". RL2024.2
017800 02 FILLER PIC X(15) VALUE SPACE. RL2024.2
017900 02 FILLER PIC X(4) VALUE "FAIL". RL2024.2
018000 02 FILLER PIC X(94) VALUE SPACE. RL2024.2
018100 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. RL2024.2
018200 01 REC-CT PIC 99 VALUE ZERO. RL2024.2
018300 01 DELETE-COUNTER PIC 999 VALUE ZERO. RL2024.2
018400 01 ERROR-COUNTER PIC 999 VALUE ZERO. RL2024.2
018500 01 INSPECT-COUNTER PIC 999 VALUE ZERO. RL2024.2
018600 01 PASS-COUNTER PIC 999 VALUE ZERO. RL2024.2
018700 01 TOTAL-ERROR PIC 999 VALUE ZERO. RL2024.2
018800 01 ERROR-HOLD PIC 999 VALUE ZERO. RL2024.2
018900 01 DUMMY-HOLD PIC X(120) VALUE SPACE. RL2024.2
019000 01 RECORD-COUNT PIC 9(5) VALUE ZERO. RL2024.2
019100 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. RL2024.2
019200 01 CCVS-H-1. RL2024.2
019300 02 FILLER PIC X(39) VALUE SPACES. RL2024.2
019400 02 FILLER PIC X(42) VALUE RL2024.2
019500 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". RL2024.2
019600 02 FILLER PIC X(39) VALUE SPACES. RL2024.2
019700 01 CCVS-H-2A. RL2024.2
019800 02 FILLER PIC X(40) VALUE SPACE. RL2024.2
019900 02 FILLER PIC X(7) VALUE "CCVS85 ". RL2024.2
020000 02 FILLER PIC XXXX VALUE RL2024.2
020100 "4.2 ". RL2024.2
020200 02 FILLER PIC X(28) VALUE RL2024.2
020300 " COPY - NOT FOR DISTRIBUTION". RL2024.2
020400 02 FILLER PIC X(41) VALUE SPACE. RL2024.2
020500 RL2024.2
020600 01 CCVS-H-2B. RL2024.2
020700 02 FILLER PIC X(15) VALUE RL2024.2
020800 "TEST RESULT OF ". RL2024.2
020900 02 TEST-ID PIC X(9). RL2024.2
021000 02 FILLER PIC X(4) VALUE RL2024.2
021100 " IN ". RL2024.2
021200 02 FILLER PIC X(12) VALUE RL2024.2
021300 " HIGH ". RL2024.2
021400 02 FILLER PIC X(22) VALUE RL2024.2
021500 " LEVEL VALIDATION FOR ". RL2024.2
021600 02 FILLER PIC X(58) VALUE RL2024.2
021700 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL2024.2
021800 01 CCVS-H-3. RL2024.2
021900 02 FILLER PIC X(34) VALUE RL2024.2
022000 " FOR OFFICIAL USE ONLY ". RL2024.2
022100 02 FILLER PIC X(58) VALUE RL2024.2
022200 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL2024.2
022300 02 FILLER PIC X(28) VALUE RL2024.2
022400 " COPYRIGHT 1985 ". RL2024.2
022500 01 CCVS-E-1. RL2024.2
022600 02 FILLER PIC X(52) VALUE SPACE. RL2024.2
022700 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". RL2024.2
022800 02 ID-AGAIN PIC X(9). RL2024.2
022900 02 FILLER PIC X(45) VALUE SPACES. RL2024.2
023000 01 CCVS-E-2. RL2024.2
023100 02 FILLER PIC X(31) VALUE SPACE. RL2024.2
023200 02 FILLER PIC X(21) VALUE SPACE. RL2024.2
023300 02 CCVS-E-2-2. RL2024.2
023400 03 ERROR-TOTAL PIC XXX VALUE SPACE. RL2024.2
023500 03 FILLER PIC X VALUE SPACE. RL2024.2
023600 03 ENDER-DESC PIC X(44) VALUE RL2024.2
023700 "ERRORS ENCOUNTERED". RL2024.2
023800 01 CCVS-E-3. RL2024.2
023900 02 FILLER PIC X(22) VALUE RL2024.2
024000 " FOR OFFICIAL USE ONLY". RL2024.2
024100 02 FILLER PIC X(12) VALUE SPACE. RL2024.2
024200 02 FILLER PIC X(58) VALUE RL2024.2
024300 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL2024.2
024400 02 FILLER PIC X(13) VALUE SPACE. RL2024.2
024500 02 FILLER PIC X(15) VALUE RL2024.2
024600 " COPYRIGHT 1985". RL2024.2
024700 01 CCVS-E-4. RL2024.2
024800 02 CCVS-E-4-1 PIC XXX VALUE SPACE. RL2024.2
024900 02 FILLER PIC X(4) VALUE " OF ". RL2024.2
025000 02 CCVS-E-4-2 PIC XXX VALUE SPACE. RL2024.2
025100 02 FILLER PIC X(40) VALUE RL2024.2
025200 " TESTS WERE EXECUTED SUCCESSFULLY". RL2024.2
025300 01 XXINFO. RL2024.2
025400 02 FILLER PIC X(19) VALUE RL2024.2
025500 "*** INFORMATION ***". RL2024.2
025600 02 INFO-TEXT. RL2024.2
025700 04 FILLER PIC X(8) VALUE SPACE. RL2024.2
025800 04 XXCOMPUTED PIC X(20). RL2024.2
025900 04 FILLER PIC X(5) VALUE SPACE. RL2024.2
026000 04 XXCORRECT PIC X(20). RL2024.2
026100 02 INF-ANSI-REFERENCE PIC X(48). RL2024.2
026200 01 HYPHEN-LINE. RL2024.2
026300 02 FILLER PIC IS X VALUE IS SPACE. RL2024.2
026400 02 FILLER PIC IS X(65) VALUE IS "************************RL2024.2
026500- "*****************************************". RL2024.2
026600 02 FILLER PIC IS X(54) VALUE IS "************************RL2024.2
026700- "******************************". RL2024.2
026800 01 CCVS-PGM-ID PIC X(9) VALUE RL2024.2
026900 "RL202A". RL2024.2
027000 PROCEDURE DIVISION. RL2024.2
027100 CCVS1 SECTION. RL2024.2
027200 OPEN-FILES. RL2024.2
027300 OPEN OUTPUT PRINT-FILE. RL2024.2
027400 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. RL2024.2
027500 MOVE SPACE TO TEST-RESULTS. RL2024.2
027600 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. RL2024.2
027700 MOVE ZERO TO REC-SKL-SUB. RL2024.2
027800 PERFORM CCVS-INIT-FILE 9 TIMES. RL2024.2
027900 CCVS-INIT-FILE. RL2024.2
028000 ADD 1 TO REC-SKL-SUB. RL2024.2
028100 MOVE FILE-RECORD-INFO-SKELETON RL2024.2
028200 TO FILE-RECORD-INFO (REC-SKL-SUB). RL2024.2
028300 CCVS-INIT-EXIT. RL2024.2
028400 GO TO CCVS1-EXIT. RL2024.2
028500 CLOSE-FILES. RL2024.2
028600 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. RL2024.2
028700 TERMINATE-CCVS. RL2024.2
028800 EXIT PROGRAM. RL2024.2
028900 TERMINATE-CALL. RL2024.2
029000 STOP RUN. RL2024.2
029100 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. RL2024.2
029200 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. RL2024.2
029300 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. RL2024.2
029400 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. RL2024.2
029500 MOVE "****TEST DELETED****" TO RE-MARK. RL2024.2
029600 PRINT-DETAIL. RL2024.2
029700 IF REC-CT NOT EQUAL TO ZERO RL2024.2
029800 MOVE "." TO PARDOT-X RL2024.2
029900 MOVE REC-CT TO DOTVALUE. RL2024.2
030000 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. RL2024.2
030100 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE RL2024.2
030200 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX RL2024.2
030300 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. RL2024.2
030400 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. RL2024.2
030500 MOVE SPACE TO CORRECT-X. RL2024.2
030600 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. RL2024.2
030700 MOVE SPACE TO RE-MARK. RL2024.2
030800 HEAD-ROUTINE. RL2024.2
030900 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2024.2
031000 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2024.2
031100 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. RL2024.2
031200 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. RL2024.2
031300 COLUMN-NAMES-ROUTINE. RL2024.2
031400 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2024.2
031500 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2024.2
031600 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2024.2
031700 END-ROUTINE. RL2024.2
031800 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.RL2024.2
031900 END-RTN-EXIT. RL2024.2
032000 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2024.2
032100 END-ROUTINE-1. RL2024.2
032200 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO RL2024.2
032300 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. RL2024.2
032400 ADD PASS-COUNTER TO ERROR-HOLD. RL2024.2
032500* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. RL2024.2
032600 MOVE PASS-COUNTER TO CCVS-E-4-1. RL2024.2
032700 MOVE ERROR-HOLD TO CCVS-E-4-2. RL2024.2
032800 MOVE CCVS-E-4 TO CCVS-E-2-2. RL2024.2
032900 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. RL2024.2
033000 END-ROUTINE-12. RL2024.2
033100 MOVE "TEST(S) FAILED" TO ENDER-DESC. RL2024.2
033200 IF ERROR-COUNTER IS EQUAL TO ZERO RL2024.2
033300 MOVE "NO " TO ERROR-TOTAL RL2024.2
033400 ELSE RL2024.2
033500 MOVE ERROR-COUNTER TO ERROR-TOTAL. RL2024.2
033600 MOVE CCVS-E-2 TO DUMMY-RECORD. RL2024.2
033700 PERFORM WRITE-LINE. RL2024.2
033800 END-ROUTINE-13. RL2024.2
033900 IF DELETE-COUNTER IS EQUAL TO ZERO RL2024.2
034000 MOVE "NO " TO ERROR-TOTAL ELSE RL2024.2
034100 MOVE DELETE-COUNTER TO ERROR-TOTAL. RL2024.2
034200 MOVE "TEST(S) DELETED " TO ENDER-DESC. RL2024.2
034300 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2024.2
034400 IF INSPECT-COUNTER EQUAL TO ZERO RL2024.2
034500 MOVE "NO " TO ERROR-TOTAL RL2024.2
034600 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. RL2024.2
034700 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. RL2024.2
034800 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2024.2
034900 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2024.2
035000 WRITE-LINE. RL2024.2
035100 ADD 1 TO RECORD-COUNT. RL2024.2
035200 IF RECORD-COUNT GREATER 50 RL2024.2
035300 MOVE DUMMY-RECORD TO DUMMY-HOLD RL2024.2
035400 MOVE SPACE TO DUMMY-RECORD RL2024.2
035500 WRITE DUMMY-RECORD AFTER ADVANCING PAGE RL2024.2
035600 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN RL2024.2
035700 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES RL2024.2
035800 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN RL2024.2
035900 MOVE DUMMY-HOLD TO DUMMY-RECORD RL2024.2
036000 MOVE ZERO TO RECORD-COUNT. RL2024.2
036100 PERFORM WRT-LN. RL2024.2
036200 WRT-LN. RL2024.2
036300 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. RL2024.2
036400 MOVE SPACE TO DUMMY-RECORD. RL2024.2
036500 BLANK-LINE-PRINT. RL2024.2
036600 PERFORM WRT-LN. RL2024.2
036700 FAIL-ROUTINE. RL2024.2
036800 IF COMPUTED-X NOT EQUAL TO SPACE RL2024.2
036900 GO TO FAIL-ROUTINE-WRITE. RL2024.2
037000 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.RL2024.2
037100 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. RL2024.2
037200 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. RL2024.2
037300 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2024.2
037400 MOVE SPACES TO INF-ANSI-REFERENCE. RL2024.2
037500 GO TO FAIL-ROUTINE-EX. RL2024.2
037600 FAIL-ROUTINE-WRITE. RL2024.2
037700 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE RL2024.2
037800 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. RL2024.2
037900 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. RL2024.2
038000 MOVE SPACES TO COR-ANSI-REFERENCE. RL2024.2
038100 FAIL-ROUTINE-EX. EXIT. RL2024.2
038200 BAIL-OUT. RL2024.2
038300 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. RL2024.2
038400 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. RL2024.2
038500 BAIL-OUT-WRITE. RL2024.2
038600 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. RL2024.2
038700 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. RL2024.2
038800 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2024.2
038900 MOVE SPACES TO INF-ANSI-REFERENCE. RL2024.2
039000 BAIL-OUT-EX. EXIT. RL2024.2
039100 CCVS1-EXIT. RL2024.2
039200 EXIT. RL2024.2
039300 SECT-RL202-001 SECTION. RL2024.2
039400 REL-INIT-003. RL2024.2
039500 OPEN INPUT RL-FD1. RL2024.2
039600 MOVE "REL-TEST-003" TO PAR-NAME. RL2024.2
039700 MOVE ZERO TO RL-FD1-KEY. RL2024.2
039800 MOVE ZERO TO WRK-CS-09V00-002 RL2024.2
039900 MOVE ZERO TO WRK-CS-09V00-003 RL2024.2
040000* RL2024.2
040100 MOVE 01 TO REC-CT. RL2024.2
040200 MOVE "READ RANDOM" TO FEATURE. RL2024.2
040300 REL-TEST-003-R. RL2024.2
040400 ADD 1 TO WRK-CS-09V00-003 RL2024.2
040500 MOVE WRK-CS-09V00-003 TO RL-FD1-KEY. RL2024.2
040600 IF RL-FD1-KEY GREATER +501 RL2024.2
040700 MOVE "INVALID KEY NOT TAKEN" TO COMPUTED-A RL2024.2
040800 MOVE RL-FD1-KEY TO CORRECT-18V0 RL2024.2
040900 PERFORM FAIL RL2024.2
041000 PERFORM PRINT-DETAIL RL2024.2
041100 ADD 1 TO REC-CT RL2024.2
041200 GO TO REL-WRITE-003. RL2024.2
041300 READ RL-FD1 RL2024.2
041400 INVALID KEY GO TO REL-WRITE-003. RL2024.2
041500 MOVE RL-FD1R1-F-G-120 TO FILE-RECORD-INFO-P1-120 (1). RL2024.2
041600 IF XRECORD-NUMBER (1) EQUAL TO RL-FD1-KEY RL2024.2
041700 GO TO REL-TEST-003-R. RL2024.2
041800 MOVE "YES" TO I-O-ERROR-RL-FD1. RL2024.2
041900 ADD 1 TO WRK-CS-09V00-002 RL2024.2
042000 GO TO REL-TEST-003-R. RL2024.2
042100 REL-WRITE-003. RL2024.2
042200 IF RL-FD1-KEY NOT EQUAL TO 501 RL2024.2
042300 MOVE "WRONG KEY/NOT 500" TO CORRECT-A RL2024.2
042400 MOVE RL-FD1-KEY TO COMPUTED-18V0 RL2024.2
042500 PERFORM FAIL RL2024.2
042600 ELSE RL2024.2
042700 PERFORM PASS. RL2024.2
042800 PERFORM PRINT-DETAIL. RL2024.2
042900* RL2024.2
043000*01 RL2024.2
043100* RL2024.2
043200 ADD 1 TO REC-CT. RL2024.2
043300 IF XRECORD-NUMBER (1) NOT EQUAL TO 500 RL2024.2
043400 MOVE "WRONG RECORD/NOT 500" TO CORRECT-A RL2024.2
043500 MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0 RL2024.2
043600 PERFORM FAIL RL2024.2
043700 ELSE RL2024.2
043800 PERFORM PASS. RL2024.2
043900 PERFORM PRINT-DETAIL. RL2024.2
044000* RL2024.2
044100*02 RL2024.2
044200* RL2024.2
044300 ADD 1 TO REC-CT. RL2024.2
044400 IF WRK-CS-09V00-003 NOT EQUAL TO 501 RL2024.2
044500 MOVE "INCORRECT RECORD COUNT" TO RE-MARK RL2024.2
044600 MOVE WRK-CS-09V00-003 TO COMPUTED-18V0 RL2024.2
044700 MOVE 501 TO CORRECT-18V0 RL2024.2
044800 PERFORM FAIL RL2024.2
044900 ELSE RL2024.2
045000 PERFORM PASS. RL2024.2
045100 PERFORM PRINT-DETAIL. RL2024.2
045200* RL2024.2
045300*03 RL2024.2
045400* RL2024.2
045500 ADD 1 TO REC-CT. RL2024.2
045600 IF I-O-ERROR-RL-FD1 EQUAL TO "YES" RL2024.2
045700 MOVE WRK-CS-09V00-002 TO COMPUTED-18V0 RL2024.2
045800 MOVE "RECORDS DID NOT COMPARE" TO RE-MARK RL2024.2
045900 PERFORM FAIL RL2024.2
046000 ELSE RL2024.2
046100 PERFORM PASS. RL2024.2
046200 PERFORM PRINT-DETAIL. RL2024.2
046300* RL2024.2
046400*04 RL2024.2
046500* RL2024.2
046600 ADD 1 TO REC-CT. RL2024.2
046700 CLOSE RL-FD1. RL2024.2
046800 REL-INIT-004-R . RL2024.2
046900 MOVE "REL-TEST-004" TO PAR-NAME. RL2024.2
047000 OPEN I-O RL-FD1. RL2024.2
047100 MOVE ZERO TO RL-FD1-KEY. RL2024.2
047200 MOVE ZERO TO WRK-CS-09V00-002. RL2024.2
047300 MOVE ZERO TO WRK-CS-09V00-003. RL2024.2
047400 MOVE ZERO TO WRK-CS-09V00-004. RL2024.2
047500 MOVE ZERO TO WRK-CS-09V00-005. RL2024.2
047600* RL2024.2
047700 MOVE 01 TO REC-CT. RL2024.2
047800 MOVE SPACE TO FILE-RECORD-INFO-P1-120 (1). RL2024.2
047900 MOVE "REWRITE" TO FEATURE. RL2024.2
048000 REL-TEST-004-R. RL2024.2
048100 ADD 5 TO WRK-CS-09V00-003. RL2024.2
048200 MOVE WRK-CS-09V00-003 TO RL-FD1-KEY. RL2024.2
048300 IF RL-FD1-KEY GREATER 505 RL2024.2
048400 MOVE "INVALID KEY/NOT TAKEN" TO COMPUTED-A RL2024.2
048500 MOVE RL-FD1-KEY TO CORRECT-18V0 RL2024.2
048600 PERFORM FAIL RL2024.2
048700 PERFORM PRINT-DETAIL RL2024.2
048800 ADD 1 TO REC-CT RL2024.2
048900 GO TO REL-TEST-004-3. RL2024.2
049000 READ RL-FD1 RL2024.2
049100 INVALID KEY GO TO REL-TEST-004-1. RL2024.2
049200 MOVE RL-FD1R1-F-G-120 TO FILE-RECORD-INFO-P1-120 (1) RL2024.2
049300 ADD 01 TO UPDATE-NUMBER (1). RL2024.2
049400 MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1). RL2024.2
049500 MOVE FILE-RECORD-INFO-P1-120 (1) TO RL-FD1R1-F-G-120. RL2024.2
049600 REWRITE RL-FD1R1-F-G-120 RL2024.2
049700 INVALID KEY GO TO REL-TEST-004-2. RL2024.2
049800 GO TO REL-TEST-004-R. RL2024.2
049900 REL-TEST-004-1. RL2024.2
050000 IF RL-FD1-KEY LESS THAN 501 RL2024.2
050100 ADD 1 TO WRK-CS-09V00-004 RL2024.2
050200 GO TO REL-TEST-004-R. RL2024.2
050300 PERFORM PASS. RL2024.2
050400 PERFORM PRINT-DETAIL. RL2024.2
050500* RL2024.2
050600*01 RL2024.2
050700* RL2024.2
050800 ADD 1 TO REC-CT. RL2024.2
050900 GO TO REL-TEST-004-3. RL2024.2
051000 REL-TEST-004-2. RL2024.2
051100 ADD 1 TO WRK-CS-09V00-005. RL2024.2
051200 IF RL-FD1-KEY LESS 501 RL2024.2
051300 GO TO REL-TEST-004-R. RL2024.2
051400 REL-TEST-004-3. RL2024.2
051500 IF WRK-CS-09V00-004 NOT EQUAL TO ZERO RL2024.2
051600 MOVE "INVALID KEY ON READ" TO COMPUTED-A RL2024.2
051700 MOVE WRK-CS-09V00-004 TO CORRECT-18V0 RL2024.2
051800 PERFORM FAIL RL2024.2
051900 ELSE RL2024.2
052000 PERFORM PASS. RL2024.2
052100 PERFORM PRINT-DETAIL. RL2024.2
052200* RL2024.2
052300*02 RL2024.2
052400* RL2024.2
052500 ADD 1 TO REC-CT. RL2024.2
052600 IF WRK-CS-09V00-005 NOT EQUAL TO ZERO RL2024.2
052700 MOVE "INVALID KEY ON REWRITE" TO COMPUTED-A RL2024.2
052800 MOVE WRK-CS-09V00-005 TO CORRECT-18V0 RL2024.2
052900 PERFORM FAIL RL2024.2
053000 ELSE RL2024.2
053100 PERFORM PASS. RL2024.2
053200 PERFORM PRINT-DETAIL. RL2024.2
053300* RL2024.2
053400*03 RL2024.2
053500* RL2024.2
053600 ADD 1 TO REC-CT. RL2024.2
053700 CLOSE RL-FD1. RL2024.2
053800 REL-INIT-005. RL2024.2
053900 MOVE "REL-TEST-005" TO PAR-NAME. RL2024.2
054000 OPEN INPUT RL-FD1. RL2024.2
054100 MOVE 501 TO WRK-CS-09V00-003. RL2024.2
054200 MOVE ZERO TO WRK-CS-09V00-004. RL2024.2
054300 MOVE ZERO TO WRK-CS-09V00-005. RL2024.2
054400 MOVE ZERO TO WRK-CS-09V00-002. RL2024.2
054500 MOVE SPACE TO FILE-RECORD-INFO-P1-120 (1). RL2024.2
054600 MOVE 01 TO REC-CT. RL2024.2
054700* RL2024.2
054800 MOVE "READ RANDOM" TO FEATURE. RL2024.2
054900 REL-TEST-005-R. RL2024.2
055000 SUBTRACT 1 FROM WRK-CS-09V00-003. RL2024.2
055100 MOVE WRK-CS-09V00-003 TO RL-FD1-KEY. RL2024.2
055200 IF WRK-CS-09V00-003 LESS THAN ZERO RL2024.2
055300 MOVE "INVALID KEY/NOT TAKEN" TO RE-MARK RL2024.2
055400 MOVE WRK-CS-09V00-003 TO COMPUTED-18V0 RL2024.2
055500 MOVE ZERO TO CORRECT-18V0 RL2024.2
055600 PERFORM FAIL RL2024.2
055700 PERFORM PRINT-DETAIL RL2024.2
055800 ADD 1 TO REC-CT RL2024.2
055900 GO TO REL-TEST-005-3. RL2024.2
056000 READ RL-FD1 RL2024.2
056100 INVALID KEY GO TO REL-TEST-005-1. RL2024.2
056200 MOVE RL-FD1R1-F-G-120 TO FILE-RECORD-INFO-P1-120 (1). RL2024.2
056300 IF UPDATE-NUMBER (1) EQUAL TO 00 RL2024.2
056400 ADD 1 TO WRK-CS-09V00-004. RL2024.2
056500 IF UPDATE-NUMBER (1) EQUAL TO 01 RL2024.2
056600 ADD 1 TO WRK-CS-09V00-005. RL2024.2
056700 GO TO REL-TEST-005-R. RL2024.2
056800 REL-TEST-005-1. RL2024.2
056900 IF RL-FD1-KEY GREATER ZERO RL2024.2
057000 ADD 1 TO WRK-CS-09V00-002 RL2024.2
057100 GO TO REL-TEST-005-R. RL2024.2
057200 PERFORM PASS. RL2024.2
057300 PERFORM PRINT-DETAIL. RL2024.2
057400 ADD 1 TO REC-CT. RL2024.2
057500*01 RL2024.2
057600 GO TO REL-TEST-005-3. RL2024.2
057700 REL-TEST-005-3. RL2024.2
057800 IF WRK-CS-09V00-004 NOT EQUAL TO 400 RL2024.2
057900 MOVE "NON-UPDATED RECORDS" TO COMPUTED-A RL2024.2
058000 MOVE WRK-CS-09V00-004 TO CORRECT-18V0 RL2024.2
058100 MOVE "SHOULD BE 400" TO RE-MARK RL2024.2
058200 PERFORM FAIL RL2024.2
058300 ELSE RL2024.2
058400 PERFORM PASS. RL2024.2
058500 PERFORM PRINT-DETAIL. RL2024.2
058600* RL2024.2
058700* RL2024.2
058800*02 RL2024.2
058900* RL2024.2
059000 ADD 1 TO REC-CT. RL2024.2
059100 IF WRK-CS-09V00-005 NOT EQUAL TO 100 RL2024.2
059200 MOVE "UPDATED RECORDS" TO COMPUTED-A RL2024.2
059300 MOVE WRK-CS-09V00-005 TO CORRECT-18V0 RL2024.2
059400 MOVE "SHOULD BE 100" TO RE-MARK RL2024.2
059500 PERFORM FAIL RL2024.2
059600 ELSE RL2024.2
059700 PERFORM PASS. RL2024.2
059800 PERFORM PRINT-DETAIL. RL2024.2
059900* RL2024.2
060000*03 RL2024.2
060100* RL2024.2
060200 ADD 1 TO REC-CT. RL2024.2
060300 IF WRK-CS-09V00-002 GREATER 1 RL2024.2
060400 MOVE WRK-CS-09V00-002 TO COMPUTED-N RL2024.2
060500 MOVE "INVALID KEY/READS" TO CORRECT-A RL2024.2
060600 PERFORM FAIL RL2024.2
060700 ELSE RL2024.2
060800 PERFORM PASS. RL2024.2
060900 PERFORM PRINT-DETAIL. RL2024.2
061000* RL2024.2
061100*04 RL2024.2
061200* RL2024.2
061300 ADD 1 TO REC-CT. RL2024.2
061400 CLOSE RL-FD1. RL2024.2
061500 CCVS-EXIT SECTION. RL2024.2
061600 CCVS-999999. RL2024.2
061700 GO TO CLOSE-FILES. RL2024.2
¤ Dauer der Verarbeitung: 0.23 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.
|
