000100 IDENTIFICATION DIVISION . RL2124.2PROGRAM-ID . RL2124.2000400**************************************************************** RL2124.2 000500* * RL2124.2 000600* VALIDATION FOR:- * RL2124.2 000700* * RL2124.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL2124.2 000900* * RL2124.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL2124.2 001100* * RL2124.2 001200**************************************************************** RL2124.2 001300* THIS RUN UNIT IS THE FIRST OF A SERIES OF TWO PROGRAMS * RL2124.2 001400* PROCESSES A RELATIVE I-O FILE. THE FUNCTION OF THIS * RL2124.2 001500* PROGRAM IS TO CREATE A RELATIVE FILE SEQUENTIALLY * RL2124.2 001600* (ACCESS MODE SEQUENTIAL) AND VERIFY THAT IT WAS * RL2124.2 001700* CREATED CORRECTLY. THE FILE IS IDENTIFED AS "RL-FS1" * RL2124.2 001800* AND WILL CONTAIN 500 RECORDS OF 120 CHARACTERS. * RL2124.2 001900* * RL2124.2 002000* X-CARD PARAMETERS WHICH MUST BE SUPPLIED FOR THIS * RL2124.2 002100* PROGRAM ARE: * RL2124.2 002200* * RL2124.2 002300* X-21 IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR * RL2124.2 002400* RELATIVE I-O DATA FILE * RL2124.2 002500* X-55 SYSTEM PRINTER * RL2124.2 002600* X-69 ADDITIONAL VALUE OF CLAUSES * RL2124.2 002700* X-74 VALUE OF IMPLEMENTOR-NAME * RL2124.2 002800* X-75 OBJECT OF VALUE OF CLAUSE * RL2124.2 002900* X-82 SOURCE-COMPUTER * RL2124.2 003000* X-83 OBJECT-COMPUTER. * RL2124.2 003100* * RL2124.2 003200**************************************************************** RL2124.2 ENVIRONMENT DIVISION . RL2124.2CONFIGURATION SECTION . RL2124.2SOURCE-COMPUTER . RL2124.2OBJECT-COMPUTER . RL2124.2INPUT-OUTPUT SECTION . RL2124.2FILE-CONTROL . RL2124.2SELECT PRINT-FILE ASSIGN TO RL2124.2"C0085" . RL2124.2SELECT RL-FS1 ASSIGN TO RL2124.2ORGANIZATION IS RELATIVE . RL2124.2004600* ABSENCE OF THE ACCESS CLAUSE IS TREATED AS THOUGH RL2124.2 004700* SEQUENTIAL HAD BEEN SPECIFIED. RL2124.2 DATA DIVISION . RL2124.2FILE SECTION . RL2124.2FD PRINT-FILE. RL2124.2PICTURE X(120). RL2124.2PICTURE X(120). RL2124.2FD RL-FS1 RL2124.2LABEL RECORDS STANDARD RL2124.2VALUE OF RL2124.2IS RL2124.2BLOCK CONTAINS 1 RECORDS RL2124.2RECORD CONTAINS 120 CHARACTERS. RL2124.2FILLER PIC X(120). RL2124.2WORKING-STORAGE SECTION . RL2124.2PIC S9(9) USAGE COMP VALUE ZERO . RL2124.2FILLER PICTURE X(48) VALUE RL2124.2"FILE= ,RECORD= /0,RECNO=000000,UPDT=00" . RL2124.2FILLER PICTURE X(46) VALUE RL2124.2",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000" . RL2124.2FILLER PICTURE X(26) VALUE RL2124.2",LFIL=000000,ORG= ,LBLR= " . RL2124.2FILLER PICTURE X(37) VALUE RL2124.2",RECKEY= " . RL2124.2FILLER PICTURE X(38) VALUE RL2124.2",ALTKEY1= " . RL2124.2FILLER PICTURE X(38) VALUE RL2124.2",ALTKEY2= " . RL2124.2FILLER PICTURE X(7) VALUE SPACE .RL2124.2OCCURS 10 TIMES. RL2124.2FILLER PIC X(5). RL2124.2PIC X(6). RL2124.2FILLER PIC X(8). RL2124.2PIC X(6). RL2124.2FILLER PIC X(1). RL2124.2PIC 9(1). RL2124.2FILLER PIC X(7). RL2124.2PIC 9(6). RL2124.2FILLER PIC X(6). RL2124.2PIC 9(2). RL2124.2FILLER PIC X(5). RL2124.2PIC 9(4). RL2124.2FILLER PIC X(5). RL2124.2PIC X(5). RL2124.2FILLER PIC X(7). RL2124.2PIC 9(6). RL2124.2FILLER PIC X(7). RL2124.2PIC X(2). RL2124.2FILLER PIC X(1). RL2124.2PIC 9(4). RL2124.2FILLER PIC X(6). RL2124.2PIC 9(6). RL2124.2FILLER PIC X(5). RL2124.2PIC X(2). RL2124.2FILLER PIC X(6). RL2124.2PIC X(1). RL2124.2FILLER PIC X(8). RL2124.2PIC X(29). RL2124.2FILLER PIC X(9). RL2124.2PIC X(29). RL2124.2FILLER PIC X(9). RL2124.2PIC X(29). RL2124.2FILLER PIC X(7). RL2124.2FILLER PIC X VALUE SPACE . RL2124.2PIC X(20) VALUE SPACE . RL2124.2FILLER PIC X VALUE SPACE . RL2124.2PIC X(5) VALUE SPACE . RL2124.2FILLER PIC X VALUE SPACE . RL2124.2FILLER PIC X(19) VALUE SPACE . RL2124.2PIC X VALUE SPACE . RL2124.2PIC 99 VALUE ZERO . RL2124.2FILLER PIC X(8) VALUE SPACE . RL2124.2PIC X(61). RL2124.2FILLER PIC X(30) VALUE SPACE . RL2124.2FILLER PIC X(17) VALUE RL2124.2" COMPUTED=" . RL2124.2PIC X(20) VALUE SPACE . RL2124.2REDEFINES COMPUTED-A RL2124.2PIC -9(9).9(9). RL2124.2REDEFINES COMPUTED-A PIC -.9(18). RL2124.2REDEFINES COMPUTED-A PIC -9(4).9(14). RL2124.2REDEFINES COMPUTED-A PIC -9(14).9(4). RL2124.2REDEFINES COMPUTED-A. RL2124.2PIC -9(18). RL2124.2FILLER PIC X. RL2124.2FILLER PIC X(50) VALUE SPACE . RL2124.2FILLER PIC X(30) VALUE SPACE . RL2124.2FILLER PIC X(17) VALUE " CORRECT =" . RL2124.2PIC X(20) VALUE SPACE . RL2124.2REDEFINES CORRECT-A PIC -9(9).9(9). RL2124.2REDEFINES CORRECT-A PIC -.9(18). RL2124.2REDEFINES CORRECT-A PIC -9(4).9(14). RL2124.2REDEFINES CORRECT-A PIC -9(14).9(4). RL2124.2REDEFINES CORRECT-A. RL2124.2PIC -9(18). RL2124.2FILLER PIC X. RL2124.2FILLER PIC X(2) VALUE SPACE . RL2124.2PIC X(48) VALUE SPACE . RL2124.2FILLER PIC IS X(99) VALUE IS " FEATURE PARL2124.2 "SS PARAGRAPH-NAME RL2124.2 " REMARKS" . RL2124.2FILLER PIC X(20) VALUE SPACE . RL2124.2FILLER PIC X VALUE SPACE . RL2124.2FILLER PIC X(6) VALUE "TESTED" . RL2124.2FILLER PIC X(15) VALUE SPACE . RL2124.2FILLER PIC X(4) VALUE "FAIL" . RL2124.2FILLER PIC X(94) VALUE SPACE . RL2124.2PIC 9(2) VALUE ZERO . RL2124.2PIC 99 VALUE ZERO . RL2124.2PIC 999 VALUE ZERO . RL2124.2PIC 999 VALUE ZERO . RL2124.2PIC 999 VALUE ZERO . RL2124.2PIC 999 VALUE ZERO . RL2124.2PIC 999 VALUE ZERO . RL2124.2PIC 999 VALUE ZERO . RL2124.2PIC X(120) VALUE SPACE . RL2124.2PIC 9(5) VALUE ZERO . RL2124.2PIC X(48) VALUE SPACES . RL2124.2FILLER PIC X(39) VALUE SPACES . RL2124.2FILLER PIC X(42) VALUE RL2124.2"OFFICIAL COBOL COMPILER VALIDATION SYSTEM" . RL2124.2FILLER PIC X(39) VALUE SPACES . RL2124.2FILLER PIC X(40) VALUE SPACE . RL2124.2FILLER PIC X(7) VALUE "CCVS85 " . RL2124.2FILLER PIC XXXX VALUE RL2124.2"4.2 " . RL2124.2FILLER PIC X(28) VALUE RL2124.2" COPY - NOT FOR DISTRIBUTION" . RL2124.2FILLER PIC X(41) VALUE SPACE . RL2124.2FILLER PIC X(15) VALUE RL2124.2"TEST RESULT OF " . RL2124.2PIC X(9). RL2124.2FILLER PIC X(4) VALUE RL2124.2" IN " . RL2124.2FILLER PIC X(12) VALUE RL2124.2" HIGH " . RL2124.2FILLER PIC X(22) VALUE RL2124.2" LEVEL VALIDATION FOR " . RL2124.2FILLER PIC X(58) VALUE RL2124.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .RL2124.2FILLER PIC X(34) VALUE RL2124.2" FOR OFFICIAL USE ONLY " . RL2124.2FILLER PIC X(58) VALUE RL2124.2"COBOL 85 VERSION 4.2, Apr 1993 SSVG " .RL2124.2FILLER PIC X(28) VALUE RL2124.2" COPYRIGHT 1985 " . RL2124.2FILLER PIC X(52) VALUE SPACE . RL2124.2FILLER PIC X(14) VALUE IS "END OF TEST- " . RL2124.2PIC X(9). RL2124.2FILLER PIC X(45) VALUE SPACES . RL2124.2FILLER PIC X(31) VALUE SPACE . RL2124.2FILLER PIC X(21) VALUE SPACE . RL2124.2PIC XXX VALUE SPACE . RL2124.2FILLER PIC X VALUE SPACE . RL2124.2PIC X(44) VALUE RL2124.2"ERRORS ENCOUNTERED" . RL2124.2FILLER PIC X(22) VALUE RL2124.2" FOR OFFICIAL USE ONLY" . RL2124.2FILLER PIC X(12) VALUE SPACE . RL2124.2FILLER PIC X(58) VALUE RL2124.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .RL2124.2FILLER PIC X(13) VALUE SPACE . RL2124.2FILLER PIC X(15) VALUE RL2124.2" COPYRIGHT 1985" . RL2124.2PIC XXX VALUE SPACE . RL2124.2FILLER PIC X(4) VALUE " OF " . RL2124.2PIC XXX VALUE SPACE . RL2124.2FILLER PIC X(40) VALUE RL2124.2" TESTS WERE EXECUTED SUCCESSFULLY" . RL2124.2FILLER PIC X(19) VALUE RL2124.2"*** INFORMATION ***" . RL2124.2FILLER PIC X(8) VALUE SPACE . RL2124.2PIC X(20). RL2124.2FILLER PIC X(5) VALUE SPACE . RL2124.2PIC X(20). RL2124.2PIC X(48). RL2124.2FILLER PIC IS X VALUE IS SPACE . RL2124.2FILLER PIC IS X(65) VALUE IS "************************RL2124.2 "*****************************************" . RL2124.2FILLER PIC IS X(54) VALUE IS "************************RL2124.2 "******************************" . RL2124.2PIC X(9) VALUE RL2124.2"RL212A" . RL2124.2PROCEDURE DIVISION . RL2124.2SECTION . RL2124.2OPEN OUTPUT PRINT-FILE. RL2124.2MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. RL2124.2MOVE SPACE TO TEST-RESULTS. RL2124.2PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. RL2124.2MOVE ZERO TO REC-SKL-SUB. RL2124.2PERFORM CCVS-INIT-FILE 9 TIMES. RL2124.2ADD 1 TO REC-SKL-SUB. RL2124.2MOVE FILE-RECORD-INFO-SKELETON RL2124.2TO FILE-RECORD-INFO (REC-SKL-SUB). RL2124.2GO TO CCVS1-EXIT. RL2124.2PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. RL2124.2EXIT PROGRAM . RL2124.2STOP RUN . RL2124.2MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. RL2124.2MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. RL2124.2MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. RL2124.2MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. RL2124.2MOVE "****TEST DELETED****" TO RE-MARK. RL2124.2IF REC-CT NOT EQUAL TO ZERO RL2124.2MOVE "." TO PARDOT-X RL2124.2MOVE REC-CT TO DOTVALUE. RL2124.2MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. RL2124.2IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE RL2124.2PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX RL2124.2ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. RL2124.2MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. RL2124.2MOVE SPACE TO CORRECT-X. RL2124.2IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. RL2124.2MOVE SPACE TO RE-MARK. RL2124.2MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2124.2MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2124.2MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. RL2124.2MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. RL2124.2MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2124.2MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2124.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2124.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.RL2124.2MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2124.2ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO RL2124.2ADD DELETE-COUNTER TO ERROR-HOLD. RL2124.2ADD PASS-COUNTER TO ERROR-HOLD. RL2124.2031300* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. RL2124.2 MOVE PASS-COUNTER TO CCVS-E-4-1. RL2124.2MOVE ERROR-HOLD TO CCVS-E-4-2. RL2124.2MOVE CCVS-E-4 TO CCVS-E-2-2. RL2124.2MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. RL2124.2MOVE "TEST(S) FAILED" TO ENDER-DESC. RL2124.2IF ERROR-COUNTER IS EQUAL TO ZERO RL2124.2MOVE "NO " TO ERROR-TOTAL RL2124.2ELSE RL2124.2MOVE ERROR-COUNTER TO ERROR-TOTAL. RL2124.2MOVE CCVS-E-2 TO DUMMY-RECORD. RL2124.2PERFORM WRITE-LINE. RL2124.2IF DELETE-COUNTER IS EQUAL TO ZERO RL2124.2MOVE "NO " TO ERROR-TOTAL ELSE RL2124.2MOVE DELETE-COUNTER TO ERROR-TOTAL. RL2124.2MOVE "TEST(S) DELETED " TO ENDER-DESC. RL2124.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2124.2IF INSPECT-COUNTER EQUAL TO ZERO RL2124.2MOVE "NO " TO ERROR-TOTAL RL2124.2ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. RL2124.2MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. RL2124.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2124.2MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2124.2ADD 1 TO RECORD-COUNT. RL2124.2IF RECORD-COUNT GREATER 50 RL2124.2MOVE DUMMY-RECORD TO DUMMY-HOLD RL2124.2MOVE SPACE TO DUMMY-RECORD RL2124.2WRITE DUMMY-RECORD AFTER ADVANCING PAGE RL2124.2MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN RL2124.2MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES RL2124.2MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN RL2124.2MOVE DUMMY-HOLD TO DUMMY-RECORD RL2124.2MOVE ZERO TO RECORD-COUNT. RL2124.2PERFORM WRT-LN. RL2124.2WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. RL2124.2MOVE SPACE TO DUMMY-RECORD. RL2124.2PERFORM WRT-LN. RL2124.2IF COMPUTED-X NOT EQUAL TO SPACE RL2124.2GO TO FAIL-ROUTINE-WRITE. RL2124.2IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.RL2124.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. RL2124.2MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. RL2124.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2124.2MOVE SPACES TO INF-ANSI-REFERENCE. RL2124.2GO TO FAIL-ROUTINE-EX. RL2124.2MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE RL2124.2MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. RL2124.2MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. RL2124.2MOVE SPACES TO COR-ANSI-REFERENCE. RL2124.2EXIT . RL2124.2IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. RL2124.2IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. RL2124.2MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. RL2124.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. RL2124.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2124.2MOVE SPACES TO INF-ANSI-REFERENCE. RL2124.2EXIT . RL2124.2EXIT . RL2124.2SECTION . RL2124.2MOVE "FILE CREATE RL-FS1" TO FEATURE. RL2124.2OPEN OUTPUT RL-FS1. RL2124.2MOVE "RL-FS1" TO XFILE-NAME (1). RL2124.2MOVE "R1-F-G" TO XRECORD-NAME (1). RL2124.2MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1). RL2124.2MOVE 000120 TO XRECORD-LENGTH (1). RL2124.2MOVE "RC" TO CHARS-OR-RECORDS (1). RL2124.2MOVE 0001 TO XBLOCK-SIZE (1). RL2124.2MOVE 000500 TO RECORDS-IN-FILE (1). RL2124.2MOVE "RL" TO XFILE-ORGANIZATION (1). RL2124.2MOVE "S" TO XLABEL-TYPE (1). RL2124.2MOVE 000001 TO XRECORD-NUMBER (1). RL2124.2MOVE FILE-RECORD-INFO-P1-120 (1) TO RL-FS1R1-F-G-120. RL2124.2WRITE RL-FS1R1-F-G-120 RL2124.2INVALID KEY GO TO REL-FAIL-001. RL2124.2IF XRECORD-NUMBER (1) EQUAL TO 500 RL2124.2GO TO REL-WRITE-001. RL2124.2ADD 000001 TO XRECORD-NUMBER (1). RL2124.2GO TO REL-TEST-001. RL2124.2PERFORM DE-LETE. RL2124.2GO TO REL-WRITE-001. RL2124.2PERFORM FAIL. RL2124.2MOVE "BOUNDARY VIOLATION" TO RE-MARK. RL2124.2MOVE "REL-TEST-001" TO PAR-NAME RL2124.2MOVE "FILE CREATED, LFILE " TO COMPUTED-A. RL2124.2MOVE XRECORD-NUMBER (1) TO CORRECT-18V0. RL2124.2PERFORM PRINT-DETAIL. RL2124.2CLOSE RL-FS1. RL2124.2OPEN INPUT RL-FS1. RL2124.2MOVE ZERO TO WRK-CS-09V00. RL2124.2READ RL-FS1 RL2124.2AT END GO TO REL-TEST-002-1. RL2124.2MOVE RL-FS1R1-F-G-120 TO FILE-RECORD-INFO-P1-120 (1). RL2124.2ADD 1 TO WRK-CS-09V00. RL2124.2IF WRK-CS-09V00 GREATER 500 RL2124.2MOVE "MORE THAN 500 RECORDS" TO RE-MARK RL2124.2GO TO REL-TEST-002-1. RL2124.2GO TO REL-TEST-002. RL2124.2PERFORM DE-LETE. RL2124.2PERFORM PRINT-DETAIL. RL2124.2IF XRECORD-NUMBER (1) NOT EQUAL TO 500 RL2124.2PERFORM FAIL RL2124.2ELSE RL2124.2PERFORM PASS. RL2124.2GO TO REL-WRITE-002. RL2124.2MOVE "REL-TEST-002" TO PAR-NAME. RL2124.2MOVE "FILE VERIFIED, LFILE" TO COMPUTED-A. RL2124.2MOVE XRECORD-NUMBER (1) TO CORRECT-18V0. RL2124.2PERFORM PRINT-DETAIL. RL2124.2CLOSE RL-FS1. RL2124.2SECTION . RL2124.2GO TO CLOSE-FILES. RL2124.2quality 97%
¤ Dauer der Verarbeitung: 0.18 Sekunden
(vorverarbeitet)
¤ *© Formatika GbR, Deutschland
