Quelle sq220a.cob
Sprache: Cobol
000100 IDENTIFICATION DIVISION . SQ2204.2PROGRAM-ID . SQ2204.2000400**************************************************************** SQ2204.2 000500* * SQ2204.2 000600* VALIDATION FOR:- * SQ2204.2 000700* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ2204.2 000800* * SQ2204.2 000900* CREATION DATE / VALIDATION DATE * SQ2204.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SQ2204.2 001100* * SQ2204.2 001200* THIS ROUTINE CHECKS THE SQ2204.2 001300* SQ2204.2 001400* RECORD IS VARYING IN SIZE FROM 120 TO 151 CHARACTERS SQ2204.2 001500* DEPENDING ON DATA-NAME-1 SQ2204.2 001600* AND THE SQ2204.2 001700* NEXT RECORD CLAUSE. SQ2204.2 001800* SQ2204.2 001900* THIS ROUTINE BUILDS A SEQUENTIAL MASS STORAGE FILE SQ2204.2 002000* WHICH CONTAINS BOTH 120 CHARACTER AND 151 CHARACTER SQ2204.2 002100* RECORDS. THE MASS STORAGE FILE CONSISTS OF 1 SHORT, SQ2204.2 002200* 1 LONG, 10 SHORT, 100 LONG, AND 338 SHORT RECORDS FOR SQ2204.2 002300* A TOTAL OF 450 RECORDS IN THE FILE. THE MASS STORAGE SQ2204.2 002400* FILE IS READ AND FIELDS IN THE RECORDS ARE CHECKED SQ2204.2 002500* AGAINST THE EXPECTED VALUES. SQ2204.2 002600* SQ2204.2 002700* AN INFORMATION SECTION AT THE END OF THE ROUTINE SQ2204.2 002800* CHECKS THE FIELD WHICH CONTAINS THE XRECORD-NUMBER. SQ2204.2 002900* THIS FIELD IS PART OF A LONG RECORD ONLY. IF THE SQ2204.2 003000* XRECORD-NUMBER IS THERE FOR A SHORT RECORD, IT MEANS SQ2204.2 003100* THE MAXIMUM SIZE RECORD IS ALWAYS WRITTEN. SQ2204.2 ENVIRONMENT DIVISION . SQ2204.2CONFIGURATION SECTION . SQ2204.2SOURCE-COMPUTER . SQ2204.2OBJECT-COMPUTER . SQ2204.2INPUT-OUTPUT SECTION . SQ2204.2FILE-CONTROL . SQ2204.2SELECT RAW-DATA ASSIGN TO SQ2204.2"C0098" SQ2204.2ORGANIZATION IS INDEXED SQ2204.2ACCESS MODE IS RANDOM SQ2204.2RECORD KEY IS RAW-DATA-KEY. SQ2204.2SELECT PRINT-FILE ASSIGN TO SQ2204.2"C0085" . SQ2204.2SELECT SQ-VS7 ASSIGN TO SQ2204.2"C0020" SQ2204.2ORGANIZATION SEQUENTIAL SQ2204.2ACCESS SEQUENTIAL . SQ2204.2DATA DIVISION . SQ2204.2FILE SECTION . SQ2204.2FD RAW-DATA. SQ2204.2PIC X(6). SQ2204.2PIC 9(6). SQ2204.2PIC 9(8). SQ2204.2PIC 99. SQ2204.2PIC 999. SQ2204.2PIC 999. SQ2204.2PIC 999. SQ2204.2PIC 999. SQ2204.2PIC 999. SQ2204.2PIC X(13). SQ2204.2PIC X. SQ2204.2PIC X(8). SQ2204.2FD PRINT-FILE SQ2204.2LABEL RECORDS SQ2204.2DATA RECORD IS PRINT-REC DUMMY-RECORD SQ2204.2PICTURE X(120). SQ2204.2PICTURE X(120). SQ2204.2FD SQ-VS7 SQ2204.2LABEL RECORDS ARE STANDARD SQ2204.2RECORD IS VARYING IN SIZE FROM 120 TO 151 CHARACTERS SQ2204.2DEPENDING ON RECORD-LENGTH. SQ2204.2PICTURE X(120). SQ2204.2PICTURE X(120). SQ2204.2PICTURE X(5). SQ2204.2PICTURE X(5). SQ2204.2PICTURE X(21). SQ2204.2WORKING-STORAGE SECTION . SQ2204.2PICTURE 999 VALUE ZERO . SQ2204.2PICTURE X(5) VALUE SPACE . SQ2204.2PICTURE S9(5) COMPUTATIONAL. SQ2204.2PICTURE S9(5) COMPUTATIONAL. SQ2204.2PICTURE 9. SQ2204.2PICTURE 9. SQ2204.2PICTURE X(5). SQ2204.2PICTURE 9(5). SQ2204.2PICTURE X(21). SQ2204.2FILLER PICTURE X(48) VALUE SQ2204.2"FILE= ,RECORD= /0,RECNO=000000,UPDT=00" . SQ2204.2FILLER PICTURE X(46) VALUE SQ2204.2",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000" . SQ2204.2FILLER PICTURE X(26) VALUE SQ2204.2",LFIL=000000,ORG= ,LBLR= " . SQ2204.2FILLER PICTURE X(37) VALUE SQ2204.2",RECKEY= " . SQ2204.2FILLER PICTURE X(38) VALUE SQ2204.2",ALTKEY1= " . SQ2204.2FILLER PICTURE X(38) VALUE SQ2204.2",ALTKEY2= " . SQ2204.2FILLER PICTURE X(7) VALUE SPACE .SQ2204.2OCCURS 10 TIMES. SQ2204.2FILLER PIC X(5). SQ2204.2PIC X(6). SQ2204.2FILLER PIC X(8). SQ2204.2PIC X(6). SQ2204.2FILLER PIC X(1). SQ2204.2PIC 9(1). SQ2204.2FILLER PIC X(7). SQ2204.2PIC 9(6). SQ2204.2FILLER PIC X(6). SQ2204.2PIC 9(2). SQ2204.2FILLER PIC X(5). SQ2204.2PIC 9(4). SQ2204.2FILLER PIC X(5). SQ2204.2PIC X(5). SQ2204.2FILLER PIC X(7). SQ2204.2PIC 9(6). SQ2204.2FILLER PIC X(7). SQ2204.2PIC X(2). SQ2204.2FILLER PIC X(1). SQ2204.2PIC 9(4). SQ2204.2FILLER PIC X(6). SQ2204.2PIC 9(6). SQ2204.2FILLER PIC X(5). SQ2204.2PIC X(2). SQ2204.2FILLER PIC X(6). SQ2204.2PIC X(1). SQ2204.2FILLER PIC X(8). SQ2204.2PIC X(29). SQ2204.2FILLER PIC X(9). SQ2204.2PIC X(29). SQ2204.2FILLER PIC X(9). SQ2204.2PIC X(29). SQ2204.2FILLER PIC X(7). SQ2204.2FILLER PICTURE X VALUE SPACE . SQ2204.2PICTURE X(20) VALUE SPACE . SQ2204.2FILLER PICTURE X VALUE SPACE . SQ2204.2PICTURE X(5) VALUE SPACE . SQ2204.2FILLER PICTURE X VALUE SPACE . SQ2204.2FILLER PICTURE X(12) VALUE SPACE . SQ2204.2PICTURE X VALUE SPACE . SQ2204.2PICTURE 99 VALUE ZERO . SQ2204.2FILLER PIC X(5) VALUE SPACE . SQ2204.2FILLER PIC X(10) VALUE SPACE . SQ2204.2PIC X(61). SQ2204.2FILLER PIC X(30) VALUE SPACE . SQ2204.2FILLER PIC X(17) VALUE " COMPUTED=" . SQ2204.2PICTURE X(20) VALUE SPACE . SQ2204.2REDEFINES COMPUTED-A PICTURE -9(9).9(9). SQ2204.2REDEFINES COMPUTED-A PICTURE -.9(18). SQ2204.2REDEFINES COMPUTED-A PICTURE -9(4).9(14). SQ2204.2REDEFINES COMPUTED-A PICTURE -9(14).9(4). SQ2204.2REDEFINES COMPUTED-A. SQ2204.2PICTURE -9(18). SQ2204.2FILLER PICTURE X. SQ2204.2FILLER PIC X(50) VALUE SPACE . SQ2204.2FILLER PIC X(30) VALUE SPACE . SQ2204.2FILLER PIC X(17) VALUE " CORRECT =" . SQ2204.2PICTURE X(20) VALUE SPACE . SQ2204.2REDEFINES CORRECT-A PICTURE -9(9).9(9). SQ2204.2REDEFINES CORRECT-A PICTURE -.9(18). SQ2204.2REDEFINES CORRECT-A PICTURE -9(4).9(14). SQ2204.2REDEFINES CORRECT-A PICTURE -9(14).9(4). SQ2204.2REDEFINES CORRECT-A. SQ2204.2PICTURE -9(18). SQ2204.2FILLER PICTURE X. SQ2204.2FILLER PIC X(50) VALUE SPACE . SQ2204.2FILLER PICTURE IS X(99) VALUE IS " FEATURE PASQ2204.2 "SS PARAGRAPH-NAME SQ2204.2 " REMARKS" . SQ2204.2FILLER PICTURE IS X(20) VALUE IS SPACE . SQ2204.2FILLER PICTURE IS X VALUE IS SPACE . SQ2204.2FILLER PICTURE IS X(6) VALUE IS "TESTED" . SQ2204.2FILLER PICTURE IS X(15) VALUE IS SPACE . SQ2204.2FILLER PICTURE IS X(4) VALUE IS "FAIL" . SQ2204.2FILLER PICTURE IS X(94) VALUE IS SPACE . SQ2204.2PICTURE 9(2) VALUE ZERO . SQ2204.2PICTURE 99 VALUE ZERO . SQ2204.2PICTURE 999 VALUE ZERO . SQ2204.2PICTURE IS 999 VALUE IS ZERO . SQ2204.2PIC 999 VALUE ZERO . SQ2204.2PIC 999 VALUE ZERO . SQ2204.2PIC 999 VALUE ZERO . SQ2204.2PIC 999 VALUE ZERO . SQ2204.2PIC X(120) VALUE SPACE . SQ2204.2PIC 9(5) VALUE ZERO . SQ2204.2FILLER PICTURE X(27) VALUE SPACE . SQ2204.2FILLER PICTURE X(67) VALUE SQ2204.2" FEDERAL SOFTWARE TESTING CENTER COBOL COMPILER VALIDATION SQ2204.2 " SYSTEM" . SQ2204.2FILLER PICTURE X(26) VALUE SPACE . SQ2204.2FILLER PICTURE X(52) VALUE IS SQ2204.2"CCVS85 FSTC COPY, NOT FOR DISTRIBUTION." . SQ2204.2FILLER PICTURE IS X(19) VALUE IS "TEST RESULTS SET- " . SQ2204.2PICTURE IS X(9). SQ2204.2FILLER PICTURE IS X(40) VALUE IS SPACE . SQ2204.2FILLER PICTURE X(34) VALUE SQ2204.2" FOR OFFICIAL USE ONLY " . SQ2204.2FILLER PICTURE X(58) VALUE SQ2204.2"COBOL 85 VERSION 4.2, Apr 1993 SSVG " .SQ2204.2FILLER PICTURE X(28) VALUE SQ2204.2" COPYRIGHT 1985 " . SQ2204.2FILLER PICTURE IS X(52) VALUE IS SPACE . SQ2204.2FILLER PICTURE IS X(14) VALUE IS "END OF TEST- " . SQ2204.2PICTURE IS X(9). SQ2204.2FILLER PICTURE X(45) VALUE IS SQ2204.2" NTIS DISTRIBUTION COBOL 85" . SQ2204.2FILLER PICTURE X(31) VALUE SQ2204.2SPACE . SQ2204.2FILLER PICTURE X(21) VALUE SPACE . SQ2204.2PICTURE IS XXX VALUE IS SPACE . SQ2204.2FILLER PICTURE IS X VALUE IS SPACE . SQ2204.2PIC X(46) VALUE "ERRORS ENCOUNTERED" . SQ2204.2FILLER PICTURE X(22) VALUE SQ2204.2" FOR OFFICIAL USE ONLY" . SQ2204.2FILLER PICTURE X(12) VALUE SPACE . SQ2204.2FILLER PICTURE X(58) VALUE SQ2204.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .SQ2204.2FILLER PICTURE X(13) VALUE SPACE . SQ2204.2FILLER PIC X(15) VALUE " COPYRIGHT 1985" . SQ2204.2PIC XXX VALUE SPACE . SQ2204.2FILLER PIC XXXX VALUE " OF " . SQ2204.2PIC XXX VALUE SPACE . SQ2204.2FILLER PIC X(40) VALUE SQ2204.2" TESTS WERE EXECUTED SUCCESSFULLY" . SQ2204.2FILLER PIC X(30) VALUE " *** INFORMATION ***" . SQ2204.2FILLER PIC X(20) VALUE SPACE . SQ2204.2PIC X(20). SQ2204.2FILLER PIC X(5) VALUE SPACE . SQ2204.2PIC X(20). SQ2204.2FILLER PICTURE IS X VALUE IS SPACE . SQ2204.2FILLER PICTURE IS X(65) VALUE IS "************************SQ2204.2 "*****************************************" . SQ2204.2FILLER PICTURE IS X(54) VALUE IS "************************SQ2204.2 "******************************" . SQ2204.2PIC X(6) VALUE SQ2204.2"SQ220A" . SQ2204.2PROCEDURE DIVISION . SQ2204.2SECTION . SQ2204.2OPEN I-O RAW-DATA. SQ2204.2MOVE CCVS-PGM-ID TO RAW-DATA-KEY. SQ2204.2READ RAW-DATA INVALID KEY GO TO END-E-1. SQ2204.2MOVE "ABORTED " TO C-ABORT. SQ2204.2ADD 1 TO C-NO-OF-TESTS. SQ2204.2ACCEPT C-DATE FROM DATE . SQ2204.2ACCEPT C-TIME FROM TIME . SQ2204.2REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1. SQ2204.2CLOSE RAW-DATA. SQ2204.2OPEN OUTPUT PRINT-FILE. SQ2204.2MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. SQ2204.2MOVE SPACE TO TEST-RESULTS. SQ2204.2PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. SQ2204.2MOVE ZERO TO REC-SKL-SUB. SQ2204.2PERFORM CCVS-INIT-FILE 9 TIMES. SQ2204.2ADD 1 TO REC-SKL-SUB. SQ2204.2MOVE FILE-RECORD-INFO-SKELETON TO SQ2204.2GO TO CCVS1-EXIT. SQ2204.2PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. SQ2204.2OPEN I-O RAW-DATA. SQ2204.2MOVE CCVS-PGM-ID TO RAW-DATA-KEY. SQ2204.2READ RAW-DATA INVALID KEY GO TO END-E-2. SQ2204.2MOVE "OK. " TO C-ABORT. SQ2204.2MOVE PASS-COUNTER TO C-OK. SQ2204.2MOVE ERROR-HOLD TO C-ALL. SQ2204.2MOVE ERROR-COUNTER TO C-FAIL. SQ2204.2MOVE DELETE-CNT TO C-DELETED. SQ2204.2MOVE INSPECT-COUNTER TO C-INSPECT. SQ2204.2REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2. SQ2204.2CLOSE RAW-DATA. SQ2204.2EXIT PROGRAM . SQ2204.2STOP RUN . SQ2204.2MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. SQ2204.2MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. SQ2204.2MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. SQ2204.2MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-CNT. SQ2204.2MOVE "****TEST DELETED****" TO RE-MARK. SQ2204.2IF REC-CT NOT EQUAL TO ZERO SQ2204.2MOVE "." TO PARDOT-X SQ2204.2MOVE REC-CT TO DOTVALUE. SQ2204.2MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. SQ2204.2IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE SQ2204.2PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX SQ2204.2ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. SQ2204.2MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. SQ2204.2MOVE SPACE TO CORRECT-X. SQ2204.2IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. SQ2204.2MOVE SPACE TO RE-MARK. SQ2204.2MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2204.2MOVE CCVS-H-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES. SQ2204.2MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. SQ2204.2MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2204.2MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2204.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2204.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.SQ2204.2MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2204.2ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO SQ2204.2ADD DELETE-CNT TO ERROR-HOLD. SQ2204.2ADD PASS-COUNTER TO ERROR-HOLD. SQ2204.2034700* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. SQ2204.2 MOVE PASS-COUNTER TO CCVS-E-4-1. SQ2204.2MOVE ERROR-HOLD TO CCVS-E-4-2. SQ2204.2MOVE CCVS-E-4 TO CCVS-E-2-2. SQ2204.2MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. SQ2204.2MOVE "TEST(S) FAILED" TO ENDER-DESC. SQ2204.2IF ERROR-COUNTER IS EQUAL TO ZERO SQ2204.2MOVE "NO " TO ERROR-TOTAL SQ2204.2ELSE SQ2204.2MOVE ERROR-COUNTER TO ERROR-TOTAL. SQ2204.2MOVE CCVS-E-2 TO DUMMY-RECORD. SQ2204.2PERFORM WRITE-LINE. SQ2204.2IF DELETE-CNT IS EQUAL TO ZERO SQ2204.2MOVE "NO " TO ERROR-TOTAL ELSE SQ2204.2MOVE DELETE-CNT TO ERROR-TOTAL. SQ2204.2MOVE "TEST(S) DELETED " TO ENDER-DESC. SQ2204.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2204.2IF INSPECT-COUNTER EQUAL TO ZERO SQ2204.2MOVE "NO " TO ERROR-TOTAL SQ2204.2ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. SQ2204.2MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. SQ2204.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2204.2MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2204.2ADD 1 TO RECORD-COUNT. SQ2204.2IF RECORD-COUNT GREATER 50 SQ2204.2MOVE DUMMY-RECORD TO DUMMY-HOLD SQ2204.2MOVE SPACE TO DUMMY-RECORD SQ2204.2WRITE DUMMY-RECORD AFTER ADVANCING PAGE SQ2204.2MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN SQ2204.2MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES SQ2204.2MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN SQ2204.2MOVE DUMMY-HOLD TO DUMMY-RECORD SQ2204.2MOVE ZERO TO RECORD-COUNT. SQ2204.2PERFORM WRT-LN. SQ2204.2WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. SQ2204.2MOVE SPACE TO DUMMY-RECORD. SQ2204.2PERFORM WRT-LN. SQ2204.2IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SQ2204.2IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SQ2204.2MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. SQ2204.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2204.2GO TO FAIL-ROUTINE-EX. SQ2204.2MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE SQ2204.2MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. SQ2204.2EXIT . SQ2204.2IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. SQ2204.2IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. SQ2204.2MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. SQ2204.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2204.2EXIT . SQ2204.2EXIT . SQ2204.2SECTION . SQ2204.2MOVE "SQ-VS7" TO XFILE-NAME (1). SQ2204.2MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1). SQ2204.2MOVE "RC" TO CHARS-OR-RECORDS (1). SQ2204.2MOVE 0001 TO XBLOCK-SIZE (1). SQ2204.2MOVE 000450 TO RECORDS-IN-FILE (1). SQ2204.2MOVE "SQ" TO XFILE-ORGANIZATION (1). SQ2204.2MOVE "S" TO XLABEL-TYPE (1). SQ2204.2MOVE 000000 TO XRECORD-NUMBER (1). SQ2204.2MOVE ZERO TO COUNT-OF-RECS. SQ2204.2OPEN OUTPUT SQ-VS7. SQ2204.2MOVE "MULTIPLE LENGTH RECS" TO SQ-VS7-FILLER. SQ2204.2PERFORM WRITE-SHORT-REC. SQ2204.2PERFORM WRITE-LONG-REC. SQ2204.2PERFORM WRITE-SHORT-REC 10 TIMES. SQ2204.2PERFORM WRITE-LONG-REC 100 TIMES. SQ2204.2PERFORM WRITE-SHORT-REC 338 TIMES. SQ2204.2MOVE "CREATE FILE SQ-VS7" TO FEATURE. SQ2204.2MOVE "WRITE-TEST-GF-01" TO PAR-NAME. SQ2204.2MOVE "FILE CREATED, RECS =" TO COMPUTED-A. SQ2204.2MOVE COUNT-OF-RECS TO CORRECT-18V0. SQ2204.2MOVE "FILE HAS 120 AND 151 CHAR RECS" TO RE-MARK. SQ2204.2PERFORM PRINT-DETAIL. SQ2204.2043400* A SEQUENTIAL MASS STORAGE FILE CONTAINING 450 SQ2204.2 043500* RECORDS HAS BEEN CREATED. THE FILE CONTAINS RECORDS SQ2204.2 043600* OF 120 CHARACTERS AND RECORDS OF 151 CHARACTERS. THE SQ2204.2 043700* SEQUENCE IN WHICH THE RECORDS WERE WRITTEN IS S-L-10S- SQ2204.2 043800* 100L-338S. SQ2204.2 CLOSE SQ-VS7. SQ2204.2GO TO READ-INIT-F1-01. SQ2204.2MOVE "R1-M-G" TO XRECORD-NAME (1). SQ2204.2MOVE 000120 TO XRECORD-LENGTH (1). SQ2204.2ADD 1 TO COUNT-OF-RECS. SQ2204.2MOVE COUNT-OF-RECS TO XRECORD-NUMBER (1). SQ2204.2MOVE "SHORT" TO LONG-OR-SHORT. SQ2204.2MOVE COUNT-OF-RECS TO SQ-VS7-RECNO. SQ2204.2MOVE FILE-RECORD-INFO-P1-120 (1) TO SQ-VS7R1-FIRST. SQ2204.2MOVE 120 TO RECORD-LENGTH. SQ2204.2WRITE SQ-VS7R1-M-G-120. SQ2204.2MOVE "R2-M-G" TO XRECORD-NAME (1). SQ2204.2MOVE 000151 TO XRECORD-LENGTH (1). SQ2204.2ADD 1 TO COUNT-OF-RECS. SQ2204.2MOVE COUNT-OF-RECS TO XRECORD-NUMBER (1). SQ2204.2MOVE "LONG" TO LONG-OR-SHORT. SQ2204.2MOVE COUNT-OF-RECS TO SQ-VS7-RECNO. SQ2204.2MOVE FILE-RECORD-INFO-P1-120 (1) TO SQ-VS7R2-FIRST. SQ2204.2MOVE 151 TO RECORD-LENGTH. SQ2204.2WRITE SQ-VS7R2-M-G-151. SQ2204.2MOVE ZERO TO RECORD-LENGTH. SQ2204.2MOVE ZERO TO COUNT-OF-RECS. SQ2204.2MOVE ZERO TO EOF-FLAG. SQ2204.2MOVE ZERO TO RECORDS-IN-ERROR. SQ2204.2MOVE ZERO TO ERROR-FLAG. SQ2204.2OPEN INPUT SQ-VS7. SQ2204.2PERFORM READ-SHORT-REC THRU READ-SHORT-REC-EXIT. SQ2204.2IF EOF-FLAG EQUAL TO 1 SQ2204.2MOVE "EOF ON FIRST READ" TO RE-MARK SQ2204.2GO TO READ-EOF-F1-06. SQ2204.2IF ERROR-FLAG EQUAL TO 1 SQ2204.2GO TO READ-FAIL-F1-01. SQ2204.2PERFORM PASS. SQ2204.2GO TO READ-WRITE-F1-01. SQ2204.2MOVE " FILE NOT OK. SEE PROGRAM & VII-52 OR -44" TO RE-MARK. SQ2204.2PERFORM FAIL. SQ2204.2MOVE "READ SHORT RECORD" TO FEATURE. SQ2204.2MOVE "READ-TEST-F1-01" TO PAR-NAME. SQ2204.2MOVE "EXPECTED RECORD LENGTH: 120" TO RE-MARK. SQ2204.2MOVE RECORD-LENGTH TO COMPUTED-N. SQ2204.2MOVE 120 TO CORRECT-N. SQ2204.2PERFORM PRINT-DETAIL. SQ2204.2GO TO READ-INIT-F1-02. SQ2204.2049100* READ <FILE> NEXT RECORD AT END *SQ2204.2 049200******************************************************************SQ2204.2 IF EOF-FLAG EQUAL TO 1 SQ2204.2GO TO READ-SHORT-REC-EXIT. SQ2204.2READ SQ-VS7 NEXT RECORD AT END SQ2204.2MOVE 1 TO EOF-FLAG SQ2204.2GO TO READ-SHORT-REC-EXIT. SQ2204.2ADD 1 TO COUNT-OF-RECS. SQ2204.2MOVE SQ-VS7R1-FIRST TO FILE-RECORD-INFO-P1-120 (1). SQ2204.2IF XRECORD-NAME (1) NOT EQUAL TO "R1-M-G" SQ2204.2GO TO READ-SHORT-REC-ERROR. SQ2204.2IF RECORD-LENGTH NOT EQUAL TO 120 SQ2204.2GO TO READ-SHORT-REC-ERROR. SQ2204.2IF COUNT-OF-RECS NOT EQUAL TO XRECORD-NUMBER (1) SQ2204.2GO TO READ-SHORT-REC-ERROR. SQ2204.2IF XLABEL-TYPE (1) EQUAL TO "S" SQ2204.2GO TO READ-SHORT-REC-EXIT. SQ2204.2ADD 1 TO RECORDS-IN-ERROR. SQ2204.2MOVE 1 TO ERROR-FLAG. SQ2204.2EXIT . SQ2204.2MOVE ZERO TO ERROR-FLAG. SQ2204.2PERFORM READ-LONG-REC THRU READ-LONG-REC-EXIT. SQ2204.2IF EOF-FLAG EQUAL TO 1 SQ2204.2MOVE "EOF ON SECOND READ" TO RE-MARK SQ2204.2GO TO READ-EOF-F1-06. SQ2204.2IF ERROR-FLAG EQUAL TO 1 SQ2204.2GO TO READ-FAIL-F1-02. SQ2204.2PERFORM PASS. SQ2204.2GO TO READ-WRITE-F1-02. SQ2204.2MOVE "SEE VII-52 WRITE LONG RECORD OR VII-44 READ" TO RE-MARKSQ2204.2MOVE RECORD-LENGTH TO COMPUTED-N. SQ2204.2MOVE 151 TO CORRECT-N. SQ2204.2PERFORM FAIL. SQ2204.2MOVE "READ LONG RECORD" TO FEATURE. SQ2204.2MOVE "READ-TEST-F1-02" TO PAR-NAME. SQ2204.2MOVE "EXPECTED RECORD LENGTH: 151" TO RE-MARK. SQ2204.2PERFORM PRINT-DETAIL. SQ2204.2GO TO READ-INIT-F1-03. SQ2204.2IF EOF-FLAG EQUAL TO 1 SQ2204.2GO TO READ-LONG-REC-EXIT. SQ2204.2READ SQ-VS7 END SQ2204.2MOVE 1 TO EOF-FLAG SQ2204.2GO TO READ-LONG-REC-EXIT. SQ2204.2ADD 1 TO COUNT-OF-RECS. SQ2204.2MOVE SQ-VS7R2-FIRST TO FILE-RECORD-INFO-P1-120 (1). SQ2204.2IF XRECORD-NAME (1) NOT EQUAL TO "R2-M-G" SQ2204.2GO TO READ-LONG-REC-ERROR. SQ2204.2IF RECORD-LENGTH NOT EQUAL TO 151 SQ2204.2GO TO READ-LONG-REC-ERROR. SQ2204.2MOVE COUNT-OF-RECS TO SAVE-COUNT-OF-RECS. SQ2204.2IF SAVE-COUNT-OF-RECS NOT EQUAL TO SQ-VS7-RECNO SQ2204.2GO TO READ-LONG-REC-ERROR. SQ2204.2IF LONG-OR-SHORT EQUAL TO "LONG " SQ2204.2GO TO READ-LONG-REC-EXIT. SQ2204.2ADD 1 TO RECORDS-IN-ERROR. SQ2204.2MOVE 1 TO ERROR-FLAG. SQ2204.2EXIT . SQ2204.2MOVE ZERO TO ERROR-FLAG. SQ2204.2PERFORM READ-SHORT-REC THRU READ-SHORT-REC-EXIT 10 TIMES. SQ2204.2IF EOF-FLAG EQUAL TO 1 SQ2204.2MOVE "UNEXPECTED EOF" TO RE-MARK SQ2204.2GO TO READ-EOF-F1-06. SQ2204.2IF ERROR-FLAG EQUAL TO 1 SQ2204.2GO TO READ-FAIL-F1-03. SQ2204.2PERFORM PASS. SQ2204.2GO TO READ-WRITE-F1-03. SQ2204.2MOVE "SEE VII-52 WRITE SHORT REC OR VII-44 READ" TO RE-MARKSQ2204.2MOVE RECORD-LENGTH TO COMPUTED-N. SQ2204.2MOVE 120 TO CORRECT-N. SQ2204.2PERFORM FAIL. SQ2204.2MOVE "READ SHORT RECORDS" TO FEATURE. SQ2204.2MOVE "READ-TEST-F1-03" TO PAR-NAME. SQ2204.2MOVE "EXPECTED RECORD LENGTH: 120" TO RE-MARK. SQ2204.2PERFORM PRINT-DETAIL. SQ2204.2MOVE ZERO TO ERROR-FLAG. SQ2204.2PERFORM READ-LONG-REC THRU READ-LONG-REC-EXIT 100 TIMES. SQ2204.2IF EOF-FLAG EQUAL TO 1 SQ2204.2MOVE "UNEXPECTED EOF" TO RE-MARK SQ2204.2GO TO READ-EOF-F1-06. SQ2204.2IF ERROR-FLAG EQUAL TO 1 SQ2204.2GO TO READ-FAIL-F1-04. SQ2204.2PERFORM PASS. SQ2204.2GO TO READ-WRITE-F1-04. SQ2204.2MOVE RECORD-LENGTH TO COMPUTED-N. SQ2204.2MOVE 151 TO CORRECT-N. SQ2204.2PERFORM FAIL. SQ2204.2MOVE "READ LONG RECORDS" TO FEATURE. SQ2204.2MOVE "READ-TEST-F1-04" TO PAR-NAME. SQ2204.2MOVE "EXPECTED RECORD LENGTH: 151" TO RE-MARK. SQ2204.2PERFORM PRINT-DETAIL. SQ2204.2MOVE ZERO TO ERROR-FLAG. SQ2204.2PERFORM READ-SHORT-REC THRU READ-SHORT-REC-EXIT 338 TIMES. SQ2204.2IF EOF-FLAG EQUAL TO 1 SQ2204.2MOVE "UNEXPECTED EOF" TO RE-MARK SQ2204.2GO TO READ-EOF-F1-06. SQ2204.2IF ERROR-FLAG EQUAL TO 1 SQ2204.2GO TO READ-FAIL-F1-05. SQ2204.2PERFORM PASS. SQ2204.2GO TO READ-WRITE-F1-05. SQ2204.2MOVE "SEE VII-52 WRITE LONG RECORD OR VII-44 READ" TO RE-MARKSQ2204.2MOVE RECORD-LENGTH TO COMPUTED-N. SQ2204.2MOVE 120 TO CORRECT-N. SQ2204.2PERFORM FAIL. SQ2204.2MOVE "READ SHORT RECORDS" TO FEATURE. SQ2204.2MOVE "READ-TEST-F1-05" TO PAR-NAME. SQ2204.2MOVE "EXPECTED RECORD LENGTH: 120" TO RE-MARK. SQ2204.2PERFORM PRINT-DETAIL. SQ2204.2READ SQ-VS7 RECORD END SQ2204.2GO TO READ-TEST-F1-06. SQ2204.2MOVE "MORE THAN 450 RECORDS" TO RE-MARK. SQ2204.2GO TO READ-FAIL-F1-06. SQ2204.2MOVE "RECORDS READ =" TO COMPUTED-A. SQ2204.2MOVE COUNT-OF-RECS TO CORRECT-18V0. SQ2204.2GO TO READ-FAIL-F1-06. SQ2204.2IF RECORDS-IN-ERROR NOT EQUAL TO ZERO SQ2204.2MOVE "RECORDS IN ERROR =" TO COMPUTED-A SQ2204.2MOVE RECORDS-IN-ERROR TO CORRECT-18V0 SQ2204.2GO TO READ-FAIL-F1-06. SQ2204.2PERFORM PASS. SQ2204.2GO TO READ-WRITE-F1-06. SQ2204.2PERFORM FAIL. SQ2204.2MOVE "READ-TEST-F1-06" TO PAR-NAME. SQ2204.2MOVE "VERIFY FILE SQ-VS7" TO FEATURE. SQ2204.2PERFORM PRINT-DETAIL. SQ2204.2CLOSE SQ-VS7. SQ2204.2SECTION . SQ2204.2064900* THIS SECTION CHECKS IF THE ENTIRE RECORD AREA IS SQ2204.2 065000* WRITTEN ON THE MASS STORAGE DEVICE WHEN A SHORT RECORD SQ2204.2 065100* IS WRITTEN. THE RECORD NUMBER IN CHARACTERS 126 THROUGH SQ2204.2 065200* 130 IS UNIQUE FOR EACH RECORD. SQ2204.2 OPEN INPUT SQ-VS7. SQ2204.2MOVE ZERO TO COUNT-OF-RECS. SQ2204.2READ SQ-VS7 AT END SQ2204.2GO TO INFO-END. SQ2204.2ADD 1 TO COUNT-OF-RECS. SQ2204.2IF SQ-VS7-RECNO NOT EQUAL TO "00001" SQ2204.2GO TO NO-INFO-01. SQ2204.2MOVE "MAXIMUM RECORD SIZE WRITTEN" TO RE-MARK. SQ2204.2MOVE "RECORD READ =" TO COMPUTED-A. SQ2204.2MOVE 0001 TO CORRECT-18V0. SQ2204.2GO TO INFO-WRITE-01. SQ2204.2MOVE "NO DEFINITE CONCLUSION POSSIBLE" TO RE-MARK. SQ2204.2MOVE "READ SHORT RECORD" TO FEATURE. SQ2204.2MOVE "INFO-TEST-01" TO PAR-NAME. SQ2204.2PERFORM PRINT-DETAIL. SQ2204.2READ SQ-VS7 RECORD AT END SQ2204.2GO TO INFO-END. SQ2204.2READ SQ-VS7 END SQ2204.2GO TO INFO-END. SQ2204.2READ SQ-VS7 AT END SQ2204.2GO TO INFO-END. SQ2204.2IF SQ-VS7-RECNO NOT EQUAL TO "00004" SQ2204.2GO TO NO-INFO-02. SQ2204.2MOVE "MAXIMUM RECORD SIZE WRITTEN" TO RE-MARK. SQ2204.2MOVE "RECORD READ =" TO COMPUTED-A. SQ2204.2MOVE 0004 TO CORRECT-18V0. SQ2204.2GO TO INFO-WRITE-02. SQ2204.2MOVE "NO DEFINITE CONCLUSION POSSIBLE" TO RE-MARK. SQ2204.2MOVE "READ SHORT RECORD" TO FEATURE. SQ2204.2MOVE "INFO-TEST-02" TO PAR-NAME. SQ2204.2PERFORM PRINT-DETAIL. SQ2204.2ADD 3 TO COUNT-OF-RECS. SQ2204.2READ SQ-VS7 RECORD SQ2204.2END GO TO INFO-END. SQ2204.2ADD 1 TO COUNT-OF-RECS. SQ2204.2IF COUNT-OF-RECS EQUAL TO 450 SQ2204.2GO TO INFO-TEST-03. SQ2204.2GO TO INFO-INIT-03-1. SQ2204.2IF SQ-VS7-RECNO NOT EQUAL TO "00450" SQ2204.2GO TO NO-INFO-03. SQ2204.2MOVE "MAXIMUM RECORD SIZE WRITTEN" TO RE-MARK. SQ2204.2MOVE "RECORD READ =" TO COMPUTED-A. SQ2204.2MOVE 0450 TO CORRECT-18V0. SQ2204.2GO TO INFO-WRITE-03. SQ2204.2MOVE "NO DEFINITE CONCLUSION POSSIBLE" TO RE-MARK. SQ2204.2MOVE "READ SHORT RECORD" TO FEATURE. SQ2204.2MOVE "INFO-TEST-03" TO PAR-NAME. SQ2204.2PERFORM PRINT-DETAIL. SQ2204.2CLOSE SQ-VS7. SQ2204.2EXIT . SQ2204.2SECTION . SQ2204.2GO TO CLOSE-FILES. SQ2204.2quality 91%
¤ Dauer der Verarbeitung: 0.30 Sekunden
(vorverarbeitet)
¤ *© Formatika GbR, Deutschland
2026-03-28
