Impressum rl207a.cob
Sprache: Cobol
000100 IDENTIFICATION DIVISION . RL2074.2PROGRAM-ID . RL2074.2000400**************************************************************** RL2074.2 000500* * RL2074.2 000600* VALIDATION FOR:- * RL2074.2 000700* * RL2074.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL2074.2 000900* * RL2074.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL2074.2 001100* * RL2074.2 001200**************************************************************** RL2074.2 001300*GENERAL: THE FUNCTION OF THIS PROGRAM IS TO PROCESS A RELATIVERL2074.2 001400* I-O FILE RANDOMLY (ACCESS MODE IS DYNAMIC). THE FILE RL2074.2 001500* USED AS INPUT IS THAT FILE CREATED BY RL206A. RL2074.2 001600* RL2074.2 001700* FIRST THE FILE IS VERIFED AS TO THE EXISTANCE AND RL2074.2 001800* ACCURACY OF THE 500 RECORDS CREATED IN THE FIRST RL2074.2 001900* PROGRAM. SECONDLY, RECORDS OF THE FILE ARE SEL- RL2074.2 002000* ECTIVELY UPDATED; AND THIRDLY, THE ACCURACY OF EACH RL2074.2 002100* RECORD IN THE FILE IS AGAIN VERIFIED. RL2074.2 002200* RL2074.2 002300* X-CARD PARAMETERS WHICH MUST BE SUPPLIED FOR THIS RL2074.2 002400* PROGRAM ARE: RL2074.2 002500* RL2074.2 002600* X-21 IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR RL2074.2 002700* RELATIVE I-O DATA FILE RL2074.2 002800* X-55 SYSTEM PRINTER RL2074.2 002900* X-69 ADDITIONAL VALUE OF CLAUSES RL2074.2 003000* X-74 VALUE OF IMPLEMENTOR-NAME RL2074.2 003100* X-75 OBJECT OF VALUE OF CLAUSE RL2074.2 003200* X-82 SOURCE-COMPUTER RL2074.2 003300* X-83 OBJECT-COMPUTER. RL2074.2 003400* RL2074.2 003500**************************************************************** RL2074.2 ENVIRONMENT DIVISION . RL2074.2CONFIGURATION SECTION . RL2074.2SOURCE-COMPUTER . RL2074.2OBJECT-COMPUTER . RL2074.2INPUT-OUTPUT SECTION . RL2074.2FILE-CONTROL . RL2074.2SELECT PRINT-FILE ASSIGN TO RL2074.2"C0085" . RL2074.2SELECT RL-FD1 ASSIGN TO RL2074.2ORGANIZATION IS RELATIVE RL2074.2ACCESS MODE IS DYNAMIC RL2074.2RELATIVE KEY RL-FD1-KEY RL2074.2STATUS WS-STATUS. RL2074.2DATA DIVISION . RL2074.2FILE SECTION . RL2074.2FD PRINT-FILE. RL2074.2PICTURE X(120). RL2074.2PICTURE X(120). RL2074.2FD RL-FD1 RL2074.2LABEL RECORDS STANDARD RL2074.2VALUE OF RL2074.2IS RL2074.2BLOCK CONTAINS 1 RECORDS RL2074.2RECORD VARYING 120 TO 140 DEPENDING WRK-SIZE. RL2074.2FILLER PICTURE X(140). RL2074.2WORKING-STORAGE SECTION . RL2074.2PIC XX. RL2074.2PIC 999. RL2074.2PIC S9(09) USAGE COMP VALUE ZERO . RL2074.2PIC 9(09) USAGE COMP VALUE ZERO . RL2074.2PIC S9(9) VALUE ZERO . RL2074.2PIC S9(09) USAGE COMP VALUE ZERO . RL2074.2PIC S9(09) USAGE COMP VALUE ZERO . RL2074.2PIC X(3) VALUE "NO " . RL2074.2PIC S9(09) USAGE COMP VALUE ZERO . RL2074.2PIC S9(09) USAGE COMP VALUE ZERO . RL2074.2PIC S9(09) USAGE COMP VALUE ZERO . RL2074.2PIC S9(09) VALUE ZERO . RL2074.2FILLER PICTURE X(48) VALUE RL2074.2"FILE= ,RECORD= /0,RECNO=000000,UPDT=00" . RL2074.2FILLER PICTURE X(46) VALUE RL2074.2",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000" . RL2074.2FILLER PICTURE X(26) VALUE RL2074.2",LFIL=000000,ORG= ,LBLR= " . RL2074.2FILLER PICTURE X(37) VALUE RL2074.2",RECKEY= " . RL2074.2FILLER PICTURE X(38) VALUE RL2074.2",ALTKEY1= " . RL2074.2FILLER PICTURE X(38) VALUE RL2074.2",ALTKEY2= " . RL2074.2FILLER PICTURE X(7) VALUE SPACE .RL2074.2OCCURS 10 TIMES. RL2074.2FILLER PIC X(5). RL2074.2PIC X(6). RL2074.2FILLER PIC X(8). RL2074.2PIC X(6). RL2074.2FILLER PIC X(1). RL2074.2PIC 9(1). RL2074.2FILLER PIC X(7). RL2074.2PIC 9(6). RL2074.2FILLER PIC X(6). RL2074.2PIC 9(2). RL2074.2FILLER PIC X(5). RL2074.2PIC 9(4). RL2074.2FILLER PIC X(5). RL2074.2PIC X(5). RL2074.2FILLER PIC X(7). RL2074.2PIC 9(6). RL2074.2FILLER PIC X(7). RL2074.2PIC X(2). RL2074.2FILLER PIC X(1). RL2074.2PIC 9(4). RL2074.2FILLER PIC X(6). RL2074.2PIC 9(6). RL2074.2FILLER PIC X(5). RL2074.2PIC X(2). RL2074.2FILLER PIC X(6). RL2074.2PIC X(1). RL2074.2FILLER PIC X(8). RL2074.2PIC X(29). RL2074.2FILLER PIC X(9). RL2074.2PIC X(29). RL2074.2FILLER PIC X(9). RL2074.2PIC X(29). RL2074.2FILLER PIC X(7). RL2074.2PIC X(115). RL2074.2PIC X(120). RL2074.2PIC X(5). RL2074.2PIC X(120). RL2074.2PIC X(8). RL2074.2PIC X(120). RL2074.2PIC X(10). RL2074.2PIC X(120). RL2074.2PIC X(12). RL2074.2PIC X(120). RL2074.2PIC X(15). RL2074.2PIC X(120). RL2074.2PIC X(20). RL2074.2PIC X(120). RL2074.2PIC X(25). RL2074.2FILLER PIC X VALUE SPACE . RL2074.2PIC X(20) VALUE SPACE . RL2074.2FILLER PIC X VALUE SPACE . RL2074.2PIC X(5) VALUE SPACE . RL2074.2FILLER PIC X VALUE SPACE . RL2074.2FILLER PIC X(19) VALUE SPACE . RL2074.2PIC X VALUE SPACE . RL2074.2PIC 99 VALUE ZERO . RL2074.2FILLER PIC X(8) VALUE SPACE . RL2074.2PIC X(61). RL2074.2FILLER PIC X(30) VALUE SPACE . RL2074.2FILLER PIC X(17) VALUE RL2074.2" COMPUTED=" . RL2074.2PIC X(20) VALUE SPACE . RL2074.2REDEFINES COMPUTED-A RL2074.2PIC -9(9).9(9). RL2074.2REDEFINES COMPUTED-A PIC -.9(18). RL2074.2REDEFINES COMPUTED-A PIC -9(4).9(14). RL2074.2REDEFINES COMPUTED-A PIC -9(14).9(4). RL2074.2REDEFINES COMPUTED-A. RL2074.2PIC -9(18). RL2074.2FILLER PIC X. RL2074.2FILLER PIC X(50) VALUE SPACE . RL2074.2FILLER PIC X(30) VALUE SPACE . RL2074.2FILLER PIC X(17) VALUE " CORRECT =" . RL2074.2PIC X(20) VALUE SPACE . RL2074.2REDEFINES CORRECT-A PIC -9(9).9(9). RL2074.2REDEFINES CORRECT-A PIC -.9(18). RL2074.2REDEFINES CORRECT-A PIC -9(4).9(14). RL2074.2REDEFINES CORRECT-A PIC -9(14).9(4). RL2074.2REDEFINES CORRECT-A. RL2074.2PIC -9(18). RL2074.2FILLER PIC X. RL2074.2FILLER PIC X(2) VALUE SPACE . RL2074.2PIC X(48) VALUE SPACE . RL2074.2FILLER PIC IS X(99) VALUE IS " FEATURE PARL2074.2 "SS PARAGRAPH-NAME RL2074.2 " REMARKS" . RL2074.2FILLER PIC X(20) VALUE SPACE . RL2074.2FILLER PIC X VALUE SPACE . RL2074.2FILLER PIC X(6) VALUE "TESTED" . RL2074.2FILLER PIC X(15) VALUE SPACE . RL2074.2FILLER PIC X(4) VALUE "FAIL" . RL2074.2FILLER PIC X(94) VALUE SPACE . RL2074.2PIC 9(2) VALUE ZERO . RL2074.2PIC 99 VALUE ZERO . RL2074.2PIC 999 VALUE ZERO . RL2074.2PIC 999 VALUE ZERO . RL2074.2PIC 999 VALUE ZERO . RL2074.2PIC 999 VALUE ZERO . RL2074.2PIC 999 VALUE ZERO . RL2074.2PIC 999 VALUE ZERO . RL2074.2PIC X(120) VALUE SPACE . RL2074.2PIC 9(5) VALUE ZERO . RL2074.2PIC X(48) VALUE SPACES . RL2074.2FILLER PIC X(39) VALUE SPACES . RL2074.2FILLER PIC X(42) VALUE RL2074.2"OFFICIAL COBOL COMPILER VALIDATION SYSTEM" . RL2074.2FILLER PIC X(39) VALUE SPACES . RL2074.2FILLER PIC X(40) VALUE SPACE . RL2074.2FILLER PIC X(7) VALUE "CCVS85 " . RL2074.2FILLER PIC XXXX VALUE RL2074.2"4.2 " . RL2074.2FILLER PIC X(28) VALUE RL2074.2" COPY - NOT FOR DISTRIBUTION" . RL2074.2FILLER PIC X(41) VALUE SPACE . RL2074.2FILLER PIC X(15) VALUE RL2074.2"TEST RESULT OF " . RL2074.2PIC X(9). RL2074.2FILLER PIC X(4) VALUE RL2074.2" IN " . RL2074.2FILLER PIC X(12) VALUE RL2074.2" HIGH " . RL2074.2FILLER PIC X(22) VALUE RL2074.2" LEVEL VALIDATION FOR " . RL2074.2FILLER PIC X(58) VALUE RL2074.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .RL2074.2FILLER PIC X(34) VALUE RL2074.2" FOR OFFICIAL USE ONLY " . RL2074.2FILLER PIC X(58) VALUE RL2074.2"COBOL 85 VERSION 4.2, Apr 1993 SSVG " .RL2074.2FILLER PIC X(28) VALUE RL2074.2" COPYRIGHT 1985 " . RL2074.2FILLER PIC X(52) VALUE SPACE . RL2074.2FILLER PIC X(14) VALUE IS "END OF TEST- " . RL2074.2PIC X(9). RL2074.2FILLER PIC X(45) VALUE SPACES . RL2074.2FILLER PIC X(31) VALUE SPACE . RL2074.2FILLER PIC X(21) VALUE SPACE . RL2074.2PIC XXX VALUE SPACE . RL2074.2FILLER PIC X VALUE SPACE . RL2074.2PIC X(44) VALUE RL2074.2"ERRORS ENCOUNTERED" . RL2074.2FILLER PIC X(22) VALUE RL2074.2" FOR OFFICIAL USE ONLY" . RL2074.2FILLER PIC X(12) VALUE SPACE . RL2074.2FILLER PIC X(58) VALUE RL2074.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .RL2074.2FILLER PIC X(13) VALUE SPACE . RL2074.2FILLER PIC X(15) VALUE RL2074.2" COPYRIGHT 1985" . RL2074.2PIC XXX VALUE SPACE . RL2074.2FILLER PIC X(4) VALUE " OF " . RL2074.2PIC XXX VALUE SPACE . RL2074.2FILLER PIC X(40) VALUE RL2074.2" TESTS WERE EXECUTED SUCCESSFULLY" . RL2074.2FILLER PIC X(19) VALUE RL2074.2"*** INFORMATION ***" . RL2074.2FILLER PIC X(8) VALUE SPACE . RL2074.2PIC X(20). RL2074.2FILLER PIC X(5) VALUE SPACE . RL2074.2PIC X(20). RL2074.2PIC X(48). RL2074.2FILLER PIC IS X VALUE IS SPACE . RL2074.2FILLER PIC IS X(65) VALUE IS "************************RL2074.2 "*****************************************" . RL2074.2FILLER PIC IS X(54) VALUE IS "************************RL2074.2 "******************************" . RL2074.2PIC X(9) VALUE RL2074.2"RL207A" . RL2074.2PROCEDURE DIVISION . RL2074.2SECTION . RL2074.2OPEN OUTPUT PRINT-FILE. RL2074.2MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. RL2074.2MOVE SPACE TO TEST-RESULTS. RL2074.2PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. RL2074.2MOVE ZERO TO REC-SKL-SUB. RL2074.2PERFORM CCVS-INIT-FILE 9 TIMES. RL2074.2ADD 1 TO REC-SKL-SUB. RL2074.2MOVE FILE-RECORD-INFO-SKELETON RL2074.2TO FILE-RECORD-INFO (REC-SKL-SUB). RL2074.2GO TO CCVS1-EXIT. RL2074.2PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. RL2074.2EXIT PROGRAM . RL2074.2STOP RUN . RL2074.2MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. RL2074.2MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. RL2074.2MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. RL2074.2MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. RL2074.2MOVE "****TEST DELETED****" TO RE-MARK. RL2074.2IF REC-CT NOT EQUAL TO ZERO RL2074.2MOVE "." TO PARDOT-X RL2074.2MOVE REC-CT TO DOTVALUE. RL2074.2MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. RL2074.2IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE RL2074.2PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX RL2074.2ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. RL2074.2MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. RL2074.2MOVE SPACE TO CORRECT-X. RL2074.2IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. RL2074.2MOVE SPACE TO RE-MARK. RL2074.2MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2074.2MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2074.2MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. RL2074.2MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. RL2074.2MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2074.2MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2074.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2074.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.RL2074.2MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2074.2ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO RL2074.2ADD DELETE-COUNTER TO ERROR-HOLD. RL2074.2ADD PASS-COUNTER TO ERROR-HOLD. RL2074.2035200* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. RL2074.2 MOVE PASS-COUNTER TO CCVS-E-4-1. RL2074.2MOVE ERROR-HOLD TO CCVS-E-4-2. RL2074.2MOVE CCVS-E-4 TO CCVS-E-2-2. RL2074.2MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. RL2074.2MOVE "TEST(S) FAILED" TO ENDER-DESC. RL2074.2IF ERROR-COUNTER IS EQUAL TO ZERO RL2074.2MOVE "NO " TO ERROR-TOTAL RL2074.2ELSE RL2074.2MOVE ERROR-COUNTER TO ERROR-TOTAL. RL2074.2MOVE CCVS-E-2 TO DUMMY-RECORD. RL2074.2PERFORM WRITE-LINE. RL2074.2IF DELETE-COUNTER IS EQUAL TO ZERO RL2074.2MOVE "NO " TO ERROR-TOTAL ELSE RL2074.2MOVE DELETE-COUNTER TO ERROR-TOTAL. RL2074.2MOVE "TEST(S) DELETED " TO ENDER-DESC. RL2074.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2074.2IF INSPECT-COUNTER EQUAL TO ZERO RL2074.2MOVE "NO " TO ERROR-TOTAL RL2074.2ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. RL2074.2MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. RL2074.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2074.2MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2074.2ADD 1 TO RECORD-COUNT. RL2074.2IF RECORD-COUNT GREATER 50 RL2074.2MOVE DUMMY-RECORD TO DUMMY-HOLD RL2074.2MOVE SPACE TO DUMMY-RECORD RL2074.2WRITE DUMMY-RECORD AFTER ADVANCING PAGE RL2074.2MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN RL2074.2MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES RL2074.2MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN RL2074.2MOVE DUMMY-HOLD TO DUMMY-RECORD RL2074.2MOVE ZERO TO RECORD-COUNT. RL2074.2PERFORM WRT-LN. RL2074.2WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. RL2074.2MOVE SPACE TO DUMMY-RECORD. RL2074.2PERFORM WRT-LN. RL2074.2IF COMPUTED-X NOT EQUAL TO SPACE RL2074.2GO TO FAIL-ROUTINE-WRITE. RL2074.2IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.RL2074.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. RL2074.2MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. RL2074.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2074.2MOVE SPACES TO INF-ANSI-REFERENCE. RL2074.2GO TO FAIL-ROUTINE-EX. RL2074.2MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE RL2074.2MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. RL2074.2MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. RL2074.2MOVE SPACES TO COR-ANSI-REFERENCE. RL2074.2EXIT . RL2074.2IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. RL2074.2IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. RL2074.2MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. RL2074.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. RL2074.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2074.2MOVE SPACES TO INF-ANSI-REFERENCE. RL2074.2EXIT . RL2074.2EXIT . RL2074.2SECTION . RL2074.2MOVE "VIII-26 4.5.4" TO ANSI-REFERENCE. RL2074.2OPEN INPUT RL-FD1. RL2074.2MOVE "REL-TEST-003" TO PAR-NAME. RL2074.2MOVE ZERO TO RL-FD1-KEY. RL2074.2MOVE ZERO TO WRK-CS-09V00-002. RL2074.2MOVE ZERO TO WRK-CS-09V00-003. RL2074.2042800* RL2074.2 MOVE 01 TO REC-CT. RL2074.2MOVE "READ RANDOM" TO FEATURE. RL2074.2ADD 1 TO WRK-CS-09V00-003. RL2074.2MOVE WRK-CS-09V00-003 TO RL-FD1-KEY. RL2074.2IF RL-FD1-KEY GREATER +501 RL2074.2MOVE "INVALID KEY NOT TAKEN" TO COMPUTED-A RL2074.2MOVE RL-FD1-KEY TO CORRECT-18V0 RL2074.2PERFORM FAIL RL2074.2PERFORM PRINT-DETAIL RL2074.2ADD 1 TO REC-CT RL2074.2GO TO REL-WRITE-003. RL2074.2READ RL-FD1 RL2074.2INVALID KEY GO TO REL-WRITE-003. RL2074.2MOVE RL-FD1R1-F-G-140 TO FILE-RECORD-INFO-P1-120 (1). RL2074.2IF XRECORD-NUMBER (1) EQUAL TO RL-FD1-KEY RL2074.2GO TO REL-TEST-003-R. RL2074.2MOVE "YES" TO I-O-ERROR-RL-FD1. RL2074.2ADD 1 TO WRK-CS-09V00-002. RL2074.2GO TO REL-TEST-003-R. RL2074.2IF RL-FD1-KEY NOT EQUAL TO 501 RL2074.2MOVE "WRONG KEY/NOT 500" TO CORRECT-A RL2074.2MOVE RL-FD1-KEY TO COMPUTED-18V0 RL2074.2PERFORM FAIL RL2074.2ELSE RL2074.2PERFORM PASS. RL2074.2PERFORM PRINT-DETAIL. RL2074.2045700* RL2074.2 045800*01 RL2074.2 045900* RL2074.2 ADD 1 TO REC-CT. RL2074.2IF XRECORD-NUMBER (1) NOT EQUAL TO 500 RL2074.2MOVE "WRONG RECORD/NOT 500" TO CORRECT-A RL2074.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0 RL2074.2PERFORM FAIL RL2074.2ELSE RL2074.2PERFORM PASS. RL2074.2PERFORM PRINT-DETAIL. RL2074.2046800* RL2074.2 046900*02 RL2074.2 047000* RL2074.2 ADD 1 TO REC-CT. RL2074.2IF WRK-CS-09V00-003 NOT EQUAL TO 501 RL2074.2MOVE "INCORRECT RECORD COUNT" TO RE-MARK RL2074.2MOVE WRK-CS-09V00-003 TO COMPUTED-18V0 RL2074.2MOVE 501 TO CORRECT-18V0 RL2074.2PERFORM FAIL RL2074.2ELSE RL2074.2PERFORM PASS. RL2074.2PERFORM PRINT-DETAIL. RL2074.2048000* RL2074.2 048100*03 RL2074.2 048200* RL2074.2 ADD 1 TO REC-CT. RL2074.2IF I-O-ERROR-RL-FD1 EQUAL TO "YES" RL2074.2MOVE WRK-CS-09V00-002 TO COMPUTED-18V0 RL2074.2MOVE "RECORDS DID NOT COMPARE" TO RE-MARK RL2074.2PERFORM FAIL RL2074.2ELSE RL2074.2PERFORM PASS. RL2074.2PERFORM PRINT-DETAIL. RL2074.2049100* RL2074.2 049200*04 RL2074.2 049300* RL2074.2 ADD 1 TO REC-CT. RL2074.2CLOSE RL-FD1. RL2074.2MOVE "REL-TEST-004" TO PAR-NAME. RL2074.2OPEN I-O RL-FD1. RL2074.2MOVE ZERO TO RL-FD1-KEY. RL2074.2MOVE ZERO TO WRK-CS-09V00-002. RL2074.2MOVE ZERO TO WRK-CS-09V00-003. RL2074.2MOVE ZERO TO WRK-CS-09V00-004. RL2074.2MOVE ZERO TO WRK-CS-09V00-005. RL2074.2050400* RL2074.2 MOVE 01 TO REC-CT. RL2074.2MOVE SPACE TO FILE-RECORD-INFO-P1-120 (1). RL2074.2MOVE "REWRITE" TO FEATURE. RL2074.2ADD 5 TO WRK-CS-09V00-003. RL2074.2MOVE WRK-CS-09V00-003 TO RL-FD1-KEY. RL2074.2IF RL-FD1-KEY GREATER 505 RL2074.2MOVE "INVALID KEY/NOT TAKEN" TO COMPUTED-A RL2074.2MOVE RL-FD1-KEY TO CORRECT-18V0 RL2074.2PERFORM FAIL RL2074.2PERFORM PRINT-DETAIL RL2074.2ADD 1 TO REC-CT RL2074.2GO TO REL-TEST-004-3. RL2074.2READ RL-FD1 RL2074.2INVALID KEY GO TO REL-TEST-004-1. RL2074.2MOVE RL-FD1R1-F-G-140 TO FILE-RECORD-INFO-P1-120 (1) RL2074.2ADD 01 TO UPDATE-NUMBER (1). RL2074.2MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1). RL2074.2MOVE FILE-RECORD-INFO-P1-120 (1) TO RL-FD1R1-F-G-140. RL2074.2REWRITE RL-FD1R1-F-G-140 RL2074.2INVALID KEY GO TO REL-TEST-004-2. RL2074.2GO TO REL-TEST-004-R. RL2074.2IF RL-FD1-KEY LESS THAN 501 RL2074.2ADD 1 TO WRK-CS-09V00-004 RL2074.2GO TO REL-TEST-004-R. RL2074.2PERFORM PASS. RL2074.2PERFORM PRINT-DETAIL. RL2074.2053300* RL2074.2 053400*01 RL2074.2 053500* RL2074.2 ADD 1 TO REC-CT. RL2074.2GO TO REL-TEST-004-3. RL2074.2ADD 1 TO WRK-CS-09V00-005. RL2074.2IF RL-FD1-KEY LESS 501 RL2074.2GO TO REL-TEST-004-R. RL2074.2IF WRK-CS-09V00-004 NOT EQUAL TO ZERO RL2074.2MOVE "INVALID KEY ON READ" TO COMPUTED-A RL2074.2MOVE WRK-CS-09V00-004 TO CORRECT-18V0 RL2074.2PERFORM FAIL RL2074.2ELSE RL2074.2PERFORM PASS. RL2074.2PERFORM PRINT-DETAIL. RL2074.2055000* RL2074.2 055100*02 RL2074.2 055200* RL2074.2 ADD 1 TO REC-CT. RL2074.2IF WRK-CS-09V00-005 NOT EQUAL TO ZERO RL2074.2MOVE "INVALID KEY ON REWRITE" TO COMPUTED-A RL2074.2MOVE WRK-CS-09V00-005 TO CORRECT-18V0 RL2074.2PERFORM FAIL RL2074.2ELSE RL2074.2PERFORM PASS. RL2074.2PERFORM PRINT-DETAIL. RL2074.2056100* RL2074.2 056200*03 RL2074.2 056300* RL2074.2 ADD 1 TO REC-CT. RL2074.2CLOSE RL-FD1. RL2074.2MOVE "REL-TEST-005" TO PAR-NAME. RL2074.2OPEN INPUT RL-FD1. RL2074.2MOVE 501 TO WRK-CS-09V00-003. RL2074.2MOVE ZERO TO WRK-CS-09V00-004. RL2074.2MOVE ZERO TO WRK-CS-09V00-005. RL2074.2MOVE ZERO TO WRK-CS-09V00-002. RL2074.2MOVE SPACE TO FILE-RECORD-INFO-P1-120 (1). RL2074.2MOVE 01 TO REC-CT. RL2074.2057500* RL2074.2 MOVE "READ RANDOM" TO FEATURE. RL2074.2SUBTRACT 1 FROM WRK-CS-09V00-003. RL2074.2MOVE WRK-CS-09V00-003 TO RL-FD1-KEY. RL2074.2IF WRK-CS-09V00-003 LESS THAN ZERO RL2074.2MOVE "INVALID KEY/NOT TAKEN" TO RE-MARK RL2074.2MOVE WRK-CS-09V00-003 TO COMPUTED-18V0 RL2074.2MOVE ZERO TO CORRECT-18V0 RL2074.2PERFORM FAIL RL2074.2PERFORM PRINT-DETAIL RL2074.2ADD 1 TO REC-CT RL2074.2GO TO REL-TEST-005-3. RL2074.2READ RL-FD1 RL2074.2INVALID KEY GO TO REL-TEST-005-1. RL2074.2MOVE RL-FD1R1-F-G-140 TO FILE-RECORD-INFO-P1-120 (1). RL2074.2IF UPDATE-NUMBER (1) EQUAL TO 00 RL2074.2ADD 1 TO WRK-CS-09V00-004. RL2074.2IF UPDATE-NUMBER (1) EQUAL TO 01 RL2074.2ADD 1 TO WRK-CS-09V00-005. RL2074.2GO TO REL-TEST-005-R. RL2074.2IF RL-FD1-KEY GREATER ZERO RL2074.2ADD 1 TO WRK-CS-09V00-002 RL2074.2GO TO REL-TEST-005-R. RL2074.2PERFORM PASS. RL2074.2PERFORM PRINT-DETAIL. RL2074.2ADD 1 TO REC-CT. RL2074.2060300*01 RL2074.2 GO TO REL-TEST-005-3. RL2074.2IF WRK-CS-09V00-004 NOT EQUAL TO 400 RL2074.2MOVE "NON-UPDATED RECORDS" TO COMPUTED-A RL2074.2MOVE WRK-CS-09V00-004 TO CORRECT-18V0 RL2074.2MOVE "SHOULD BE 400" TO RE-MARK RL2074.2PERFORM FAIL RL2074.2ELSE RL2074.2PERFORM PASS. RL2074.2PERFORM PRINT-DETAIL. RL2074.2061400* RL2074.2 061500* RL2074.2 061600*02 RL2074.2 061700* RL2074.2 ADD 1 TO REC-CT. RL2074.2IF WRK-CS-09V00-005 NOT EQUAL TO 100 RL2074.2MOVE "UPDATED RECORDS" TO COMPUTED-A RL2074.2MOVE WRK-CS-09V00-005 TO CORRECT-18V0 RL2074.2MOVE "SHOULD BE 100" TO RE-MARK RL2074.2PERFORM FAIL RL2074.2ELSE RL2074.2PERFORM PASS. RL2074.2PERFORM PRINT-DETAIL. RL2074.2062700* RL2074.2 062800*03 RL2074.2 062900* RL2074.2 ADD 1 TO REC-CT. RL2074.2IF WRK-CS-09V00-002 GREATER 1 RL2074.2MOVE WRK-CS-09V00-002 TO COMPUTED-N RL2074.2MOVE "INVALID KEY/READS" TO CORRECT-A RL2074.2PERFORM FAIL RL2074.2ELSE RL2074.2PERFORM PASS. RL2074.2PERFORM PRINT-DETAIL. RL2074.2063800* RL2074.2 063900*04 RL2074.2 064000* RL2074.2 ADD 1 TO REC-CT. RL2074.2CLOSE RL-FD1. RL2074.2MOVE "REL-TEST-006" TO PAR-NAME. RL2074.2OPEN I-O RL-FD1. RL2074.2MOVE "VAR. SIZE REC UPDATE" TO FEATURE. RL2074.2MOVE 1 TO WRK-CS-09V00-003. RL2074.2MOVE WRK-CS-09V00-003 TO RL-FD1-KEY. RL2074.2READ RL-FD1 RL2074.2INVALID KEY MOVE "REL-INIT-006 READ1" TO PAR-NAME RL2074.2MOVE "INVALID KEY ON 1ST RECORD READ" RL2074.2TO RE-MARK RL2074.2PERFORM FAIL RL2074.2PERFORM PRINT-DETAIL RL2074.2GO TO REL-INIT-007. RL2074.2MOVE RL-FD1R1-F-G-140 TO FILE-RECORD-INFO-P1-120 (1). RL2074.2MOVE 98 TO UPDATE-NUMBER (1). RL2074.2MOVE FILE-RECORD-INFO-P1-120 (1) TO RL-FD1R1-F-G-140. RL2074.2MOVE 120 TO WRK-SIZE. RL2074.2REWRITE RL-FD1R1-F-G-140 RL2074.2INVALID KEY MOVE "REL-INIT-006 REWRITE" TO PAR-NAME RL2074.2MOVE "INVALID KEY ON 1ST RECORD REWRITE" RL2074.2TO RE-MARK RL2074.2PERFORM FAIL RL2074.2PERFORM PRINT-DETAIL RL2074.2GO TO REL-INIT-007. RL2074.2MOVE SPACES TO RL-FD1R1-F-G-140. RL2074.2READ RL-FD1 RL2074.2INVALID KEY MOVE "REL-INIT-006 READ2" TO PAR-NAME RL2074.2MOVE "INVALID KEY ON 1ST RECORD READ" RL2074.2TO RE-MARK RL2074.2PERFORM FAIL RL2074.2PERFORM PRINT-DETAIL RL2074.2GO TO REL-INIT-007. RL2074.2MOVE "REL-TEST-006" TO PAR-NAME. RL2074.2MOVE RL-FD1R1-F-G-140 TO FILE-RECORD-INFO-P1-120 (1). RL2074.2IF UPDATE-NUMBER (1) = 98 RL2074.2PERFORM PASS RL2074.2PERFORM PRINT-DETAIL RL2074.2ELSE RL2074.2MOVE "INVALID UPDATE OF UPDATE NUMBER FIELD" RL2074.2TO RE-MARK RL2074.2MOVE UPDATE-NUMBER (1) TO COMPUTED-X RL2074.2MOVE 98 TO CORRECT-N RL2074.2PERFORM FAIL RL2074.2PERFORM PRINT-DETAIL. RL2074.2068800* RL2074.2 MOVE "REL-TEST-007" TO PAR-NAME. RL2074.2MOVE 11 TO WRK-CS-09V00-003. RL2074.2MOVE WRK-CS-09V00-003 TO RL-FD1-KEY. RL2074.2READ RL-FD1 RL2074.2INVALID KEY MOVE "REL-INIT-007 READ1" TO PAR-NAME RL2074.2MOVE "INVALID KEY ON 11TH RECORD READ" RL2074.2TO RE-MARK RL2074.2PERFORM FAIL RL2074.2PERFORM PRINT-DETAIL RL2074.2GO TO REL-INIT-008. RL2074.2MOVE RL-FD1R1-F-G-140 TO NEW-130-CHAR-AREA. RL2074.2MOVE NEW-130-120 TO FILE-RECORD-INFO-P1-120 (1). RL2074.2MOVE 98 TO UPDATE-NUMBER (1). RL2074.2MOVE FILE-RECORD-INFO-P1-120 (1) TO NEW-130-120. RL2074.2MOVE NEW-130-CHAR-AREA TO RL-FD1R1-F-G-140. RL2074.2MOVE 130 TO WRK-SIZE. RL2074.2REWRITE RL-FD1R1-F-G-140 RL2074.2INVALID KEY MOVE "REL-INIT-007 REWRITE" TO PAR-NAME RL2074.2MOVE "INVALID KEY ON 11TH RECORD REWRITE" RL2074.2TO RE-MARK RL2074.2PERFORM FAIL RL2074.2PERFORM PRINT-DETAIL RL2074.2GO TO REL-INIT-008. RL2074.2MOVE SPACES TO RL-FD1R1-F-G-140. RL2074.2READ RL-FD1 RL2074.2INVALID KEY MOVE "REL-INIT-007 READ2" TO PAR-NAME RL2074.2MOVE "INVALID KEY ON 11TH RECORD READ" RL2074.2TO RE-MARK RL2074.2PERFORM FAIL RL2074.2PERFORM PRINT-DETAIL RL2074.2GO TO REL-INIT-008. RL2074.2MOVE "REL-TEST-007" TO PAR-NAME. RL2074.2MOVE RL-FD1R1-F-G-140 TO FILE-RECORD-INFO-P1-120 (1). RL2074.2IF UPDATE-NUMBER (1) = 98 RL2074.2PERFORM PASS RL2074.2PERFORM PRINT-DETAIL RL2074.2ELSE RL2074.2MOVE "INVALID UPDATE OF UPDATE NUMBER FIELD" RL2074.2TO RE-MARK RL2074.2MOVE UPDATE-NUMBER (1) TO COMPUTED-X RL2074.2MOVE 98 TO CORRECT-N RL2074.2PERFORM FAIL RL2074.2PERFORM PRINT-DETAIL. RL2074.2073400* RL2074.2 MOVE "REL-TEST-008" TO PAR-NAME. RL2074.2MOVE 21 TO WRK-CS-09V00-003. RL2074.2MOVE WRK-CS-09V00-003 TO RL-FD1-KEY. RL2074.2READ RL-FD1 RL2074.2INVALID KEY MOVE "REL-INIT-008 READ1" TO PAR-NAME RL2074.2MOVE "INVALID KEY ON 21ST RECORD READ" RL2074.2TO RE-MARK RL2074.2PERFORM FAIL RL2074.2PERFORM PRINT-DETAIL RL2074.2GO TO REL-INIT-009. RL2074.2MOVE RL-FD1R1-F-G-140 TO NEW-140-CHAR-AREA. RL2074.2MOVE NEW-140-120 TO FILE-RECORD-INFO-P1-120 (1). RL2074.2MOVE 98 TO UPDATE-NUMBER (1). RL2074.2MOVE FILE-RECORD-INFO-P1-120 (1) TO NEW-140-120. RL2074.2MOVE NEW-140-CHAR-AREA TO RL-FD1R1-F-G-140. RL2074.2MOVE 140 TO WRK-SIZE. RL2074.2REWRITE RL-FD1R1-F-G-140 RL2074.2INVALID KEY MOVE "REL-INIT-008 REWRITE" TO PAR-NAME RL2074.2MOVE "INVALID KEY ON 21ST RECORD REWRITE" RL2074.2TO RE-MARK RL2074.2PERFORM FAIL RL2074.2PERFORM PRINT-DETAIL RL2074.2GO TO REL-INIT-009. RL2074.2MOVE SPACES TO RL-FD1R1-F-G-140. RL2074.2READ RL-FD1 RL2074.2INVALID KEY MOVE "REL-INIT-008 READ2" TO PAR-NAME RL2074.2MOVE "INVALID KEY ON 21ST RECORD READ" RL2074.2TO RE-MARK RL2074.2PERFORM FAIL RL2074.2PERFORM PRINT-DETAIL RL2074.2GO TO REL-INIT-009. RL2074.2MOVE "REL-TEST-008" TO PAR-NAME. RL2074.2MOVE RL-FD1R1-F-G-140 TO FILE-RECORD-INFO-P1-120 (1). RL2074.2IF UPDATE-NUMBER (1) = 98 RL2074.2PERFORM PASS RL2074.2PERFORM PRINT-DETAIL RL2074.2ELSE RL2074.2MOVE "INVALID UPDATE OF UPDATE NUMBER FIELD" RL2074.2TO RE-MARK RL2074.2MOVE UPDATE-NUMBER (1) TO COMPUTED-X RL2074.2MOVE 98 TO CORRECT-N RL2074.2PERFORM FAIL RL2074.2PERFORM PRINT-DETAIL. RL2074.2078000* RL2074.2 MOVE "REL-TEST-009" TO PAR-NAME. RL2074.2MOVE 31 TO WRK-CS-09V00-003. RL2074.2MOVE WRK-CS-09V00-003 TO RL-FD1-KEY. RL2074.2READ RL-FD1 RL2074.2INVALID KEY MOVE "REL-INIT-009 READ1" TO PAR-NAME RL2074.2MOVE "INVALID KEY ON 31ST RECORD READ" RL2074.2TO RE-MARK RL2074.2PERFORM FAIL RL2074.2PERFORM PRINT-DETAIL RL2074.2GO TO REL-INIT-010. RL2074.2MOVE RL-FD1R1-F-G-140 TO NEW-125-CHAR-AREA. RL2074.2MOVE NEW-125-120 TO FILE-RECORD-INFO-P1-120 (1). RL2074.2MOVE 98 TO UPDATE-NUMBER (1). RL2074.2MOVE FILE-RECORD-INFO-P1-120 (1) TO NEW-128-120. RL2074.2MOVE "ABCDEFGH" TO EXTRA-8-CHARS. RL2074.2MOVE NEW-128-CHAR-AREA TO RL-FD1R1-F-G-140. RL2074.2MOVE 128 TO WRK-SIZE. RL2074.2MOVE "REL-TEST-009-1" TO PAR-NAME. RL2074.2REWRITE RL-FD1R1-F-G-140 RL2074.2INVALID KEY MOVE "INVALID KEY - 31ST RECORD REWRITE" RL2074.2TO RE-MARK RL2074.2PERFORM FAIL RL2074.2PERFORM PRINT-DETAIL RL2074.2GO TO REL-INIT-010. RL2074.2PERFORM PASS. RL2074.2PERFORM PRINT-DETAIL. RL2074.2MOVE SPACES TO RL-FD1R1-F-G-140. RL2074.2quality 95%
¤ Dauer der Verarbeitung: 0.13 Sekunden
(vorverarbeitet)
¤ *© Formatika GbR, Deutschland
2026-03-28
