|
000100 IDENTIFICATION DIVISION. SQ2224.2
000200 PROGRAM-ID. SQ2224.2
000300 SQ222A. SQ2224.2
000400**************************************************************** SQ2224.2
000500* * SQ2224.2
000600* VALIDATION FOR:- * SQ2224.2
000700* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ2224.2
000800* * SQ2224.2
000900* CREATION DATE / VALIDATION DATE * SQ2224.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SQ2224.2
001100* * SQ2224.2
001200* THIS ROUTINE CHECKS: SQ2224.2
001300* SQ2224.2
001400* RECORD VARYING. SQ2224.2
001500* SQ2224.2
001600* THIS ROUTINE BUILDS A SEQUENTIAL MASS STORAGE FILE SQ2224.2
001700* WHICH CONTAINS BOTH 120 CHARACTER AND 151 CHARACTER SQ2224.2
001800* RECORDS. THE MASS STORAGE FILE CONSISTS OF 1 SHORT, SQ2224.2
001900* 1 LONG, 10 SHORT, 100 LONG, AND 338 SHORT RECORDS FOR SQ2224.2
002000* A TOTAL OF 450 RECORDS IN THE FILE. THE MASS STORAGE SQ2224.2
002100* FILE IS READ AND FIELDS IN THE RECORDS ARE CHECKED SQ2224.2
002200* AGAINST THE EXPECTED VALUES. SQ2224.2
002300* SQ2224.2
002400* AN INFORMATION SECTION AT THE END OF THE ROUTINE SQ2224.2
002500* CHECKS THE FIELD WHICH CONTAINS THE XRECORD-NUMBER. SQ2224.2
002600* THIS FIELD IS PART OF A LONG RECORD ONLY. IF THE SQ2224.2
002700* XRECORD-NUMBER IS THERE FOR A SHORT RECORD, IT MEANS SQ2224.2
002800* THE MAXIMUM SIZE RECORD IS ALWAYS WRITTEN. SQ2224.2
002900 ENVIRONMENT DIVISION. SQ2224.2
003000 CONFIGURATION SECTION. SQ2224.2
003100 SOURCE-COMPUTER. SQ2224.2
003200 Card0130. SQ2224.2
003300 OBJECT-COMPUTER. SQ2224.2
003400 Card0131. SQ2224.2
003500 INPUT-OUTPUT SECTION. SQ2224.2
003600 FILE-CONTROL. SQ2224.2
003700 SELECT RAW-DATA ASSIGN TO SQ2224.2
003800 "C0098" SQ2224.2
003900 ORGANIZATION IS INDEXED SQ2224.2
004000 ACCESS MODE IS RANDOM SQ2224.2
004100 RECORD KEY IS RAW-DATA-KEY. SQ2224.2
004200 SELECT PRINT-FILE ASSIGN TO SQ2224.2
004300 "C0085" . SQ2224.2
004400 SELECT SQ-VS7 ASSIGN TO SQ2224.2
004500 "C0020" SQ2224.2
004600 ORGANIZATION SEQUENTIAL SQ2224.2
004700 ACCESS SEQUENTIAL. SQ2224.2
004800 DATA DIVISION. SQ2224.2
004900 FILE SECTION. SQ2224.2
005000 SQ2224.2
005100 FD RAW-DATA. SQ2224.2
005200 SQ2224.2
005300 01 RAW-DATA-SATZ. SQ2224.2
005400 05 RAW-DATA-KEY PIC X(6). SQ2224.2
005500 05 C-DATE PIC 9(6). SQ2224.2
005600 05 C-TIME PIC 9(8). SQ2224.2
005700 05 C-NO-OF-TESTS PIC 99. SQ2224.2
005800 05 C-OK PIC 999. SQ2224.2
005900 05 C-ALL PIC 999. SQ2224.2
006000 05 C-FAIL PIC 999. SQ2224.2
006100 05 C-DELETED PIC 999. SQ2224.2
006200 05 C-INSPECT PIC 999. SQ2224.2
006300 05 C-NOTE PIC X(13). SQ2224.2
006400 05 C-INDENT PIC X. SQ2224.2
006500 05 C-ABORT PIC X(8). SQ2224.2
006600 FD PRINT-FILE SQ2224.2
006700 LABEL RECORDS SQ2224.2
006800 Card0132 SQ2224.2
006900 DATA RECORD IS PRINT-REC DUMMY-RECORD SQ2224.2
007000 . SQ2224.2
007100 01 PRINT-REC PICTURE X(120). SQ2224.2
007200 01 DUMMY-RECORD PICTURE X(120). SQ2224.2
007300 FD SQ-VS7 SQ2224.2
007400 LABEL RECORDS ARE STANDARD SQ2224.2
007500 RECORD VARYING. SQ2224.2
007600 01 SQ-VS7R1-M-G-120. SQ2224.2
007700 02 SQ-VS7R1-FIRST PICTURE X(120). SQ2224.2
007800 01 SQ-VS7R2-M-G-151. SQ2224.2
007900 02 SQ-VS7R2-FIRST PICTURE X(120). SQ2224.2
008000 02 LONG-OR-SHORT PICTURE X(5). SQ2224.2
008100 02 SQ-VS7-RECNO PICTURE X(5). SQ2224.2
008200 02 SQ-VS7-FILLER PICTURE X(21). SQ2224.2
008300 WORKING-STORAGE SECTION. SQ2224.2
008400 01 SAVE-COUNT-OF-RECS PICTURE X(5) VALUE SPACE. SQ2224.2
008500 01 COUNT-OF-RECS PICTURE S9(5) COMPUTATIONAL. SQ2224.2
008600 01 RECORDS-IN-ERROR PICTURE S9(5) COMPUTATIONAL. SQ2224.2
008700 01 ERROR-FLAG PICTURE 9. SQ2224.2
008800 01 EOF-FLAG PICTURE 9. SQ2224.2
008900 01 DUMP-AREA. SQ2224.2
009000 02 TYPE-OF-REC PICTURE X(5). SQ2224.2
009100 02 RECNO PICTURE 9(5). SQ2224.2
009200 02 REC-FILLER PICTURE X(21). SQ2224.2
009300 01 FILE-RECORD-INFORMATION-REC. SQ2224.2
009400 03 FILE-RECORD-INFO-SKELETON. SQ2224.2
009500 05 FILLER PICTURE X(48) VALUE SQ2224.2
009600 "FILE= ,RECORD= /0,RECNO=000000,UPDT=00". SQ2224.2
009700 05 FILLER PICTURE X(46) VALUE SQ2224.2
009800 ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000". SQ2224.2
009900 05 FILLER PICTURE X(26) VALUE SQ2224.2
010000 ",LFIL=000000,ORG= ,LBLR= ". SQ2224.2
010100 05 FILLER PICTURE X(37) VALUE SQ2224.2
010200 ",RECKEY= ". SQ2224.2
010300 05 FILLER PICTURE X(38) VALUE SQ2224.2
010400 ",ALTKEY1= ". SQ2224.2
010500 05 FILLER PICTURE X(38) VALUE SQ2224.2
010600 ",ALTKEY2= ". SQ2224.2
010700 05 FILLER PICTURE X(7) VALUE SPACE.SQ2224.2
010800 03 FILE-RECORD-INFO OCCURS 10 TIMES. SQ2224.2
010900 05 FILE-RECORD-INFO-P1-120. SQ2224.2
011000 07 FILLER PIC X(5). SQ2224.2
011100 07 XFILE-NAME PIC X(6). SQ2224.2
011200 07 FILLER PIC X(8). SQ2224.2
011300 07 XRECORD-NAME PIC X(6). SQ2224.2
011400 07 FILLER PIC X(1). SQ2224.2
011500 07 REELUNIT-NUMBER PIC 9(1). SQ2224.2
011600 07 FILLER PIC X(7). SQ2224.2
011700 07 XRECORD-NUMBER PIC 9(6). SQ2224.2
011800 07 FILLER PIC X(6). SQ2224.2
011900 07 UPDATE-NUMBER PIC 9(2). SQ2224.2
012000 07 FILLER PIC X(5). SQ2224.2
012100 07 ODO-NUMBER PIC 9(4). SQ2224.2
012200 07 FILLER PIC X(5). SQ2224.2
012300 07 XPROGRAM-NAME PIC X(5). SQ2224.2
012400 07 FILLER PIC X(7). SQ2224.2
012500 07 XRECORD-LENGTH PIC 9(6). SQ2224.2
012600 07 FILLER PIC X(7). SQ2224.2
012700 07 CHARS-OR-RECORDS PIC X(2). SQ2224.2
012800 07 FILLER PIC X(1). SQ2224.2
012900 07 XBLOCK-SIZE PIC 9(4). SQ2224.2
013000 07 FILLER PIC X(6). SQ2224.2
013100 07 RECORDS-IN-FILE PIC 9(6). SQ2224.2
013200 07 FILLER PIC X(5). SQ2224.2
013300 07 XFILE-ORGANIZATION PIC X(2). SQ2224.2
013400 07 FILLER PIC X(6). SQ2224.2
013500 07 XLABEL-TYPE PIC X(1). SQ2224.2
013600 05 FILE-RECORD-INFO-P121-240. SQ2224.2
013700 07 FILLER PIC X(8). SQ2224.2
013800 07 XRECORD-KEY PIC X(29). SQ2224.2
013900 07 FILLER PIC X(9). SQ2224.2
014000 07 ALTERNATE-KEY1 PIC X(29). SQ2224.2
014100 07 FILLER PIC X(9). SQ2224.2
014200 07 ALTERNATE-KEY2 PIC X(29). SQ2224.2
014300 07 FILLER PIC X(7). SQ2224.2
014400 01 TEST-RESULTS. SQ2224.2
014500 02 FILLER PICTURE X VALUE SPACE. SQ2224.2
014600 02 FEATURE PICTURE X(20) VALUE SPACE. SQ2224.2
014700 02 FILLER PICTURE X VALUE SPACE. SQ2224.2
014800 02 P-OR-F PICTURE X(5) VALUE SPACE. SQ2224.2
014900 02 FILLER PICTURE X VALUE SPACE. SQ2224.2
015000 02 PAR-NAME. SQ2224.2
015100 03 FILLER PICTURE X(12) VALUE SPACE. SQ2224.2
015200 03 PARDOT-X PICTURE X VALUE SPACE. SQ2224.2
015300 03 DOTVALUE PICTURE 99 VALUE ZERO. SQ2224.2
015400 03 FILLER PIC X(5) VALUE SPACE. SQ2224.2
015500 02 FILLER PIC X(10) VALUE SPACE. SQ2224.2
015600 02 RE-MARK PIC X(61). SQ2224.2
015700 01 TEST-COMPUTED. SQ2224.2
015800 02 FILLER PIC X(30) VALUE SPACE. SQ2224.2
015900 02 FILLER PIC X(17) VALUE " COMPUTED=". SQ2224.2
016000 02 COMPUTED-X. SQ2224.2
016100 03 COMPUTED-A PICTURE X(20) VALUE SPACE. SQ2224.2
016200 03 COMPUTED-N REDEFINES COMPUTED-A PICTURE -9(9).9(9). SQ2224.2
016300 03 COMPUTED-0V18 REDEFINES COMPUTED-A PICTURE -.9(18). SQ2224.2
016400 03 COMPUTED-4V14 REDEFINES COMPUTED-A PICTURE -9(4).9(14). SQ2224.2
016500 03 COMPUTED-14V4 REDEFINES COMPUTED-A PICTURE -9(14).9(4). SQ2224.2
016600 03 CM-18V0 REDEFINES COMPUTED-A. SQ2224.2
016700 04 COMPUTED-18V0 PICTURE -9(18). SQ2224.2
016800 04 FILLER PICTURE X. SQ2224.2
016900 03 FILLER PIC X(50) VALUE SPACE. SQ2224.2
017000 01 TEST-CORRECT. SQ2224.2
017100 02 FILLER PIC X(30) VALUE SPACE. SQ2224.2
017200 02 FILLER PIC X(17) VALUE " CORRECT =". SQ2224.2
017300 02 CORRECT-X. SQ2224.2
017400 03 CORRECT-A PICTURE X(20) VALUE SPACE. SQ2224.2
017500 03 CORRECT-N REDEFINES CORRECT-A PICTURE -9(9).9(9). SQ2224.2
017600 03 CORRECT-0V18 REDEFINES CORRECT-A PICTURE -.9(18). SQ2224.2
017700 03 CORRECT-4V14 REDEFINES CORRECT-A PICTURE -9(4).9(14). SQ2224.2
017800 03 CORRECT-14V4 REDEFINES CORRECT-A PICTURE -9(14).9(4). SQ2224.2
017900 03 CR-18V0 REDEFINES CORRECT-A. SQ2224.2
018000 04 CORRECT-18V0 PICTURE -9(18). SQ2224.2
018100 04 FILLER PICTURE X. SQ2224.2
018200 03 FILLER PIC X(50) VALUE SPACE. SQ2224.2
018300 01 CCVS-C-1. SQ2224.2
018400 02 FILLER PICTURE IS X(99) VALUE IS " FEATURE PASQ2224.2
018500- "SS PARAGRAPH-NAME SQ2224.2
018600- " REMARKS". SQ2224.2
018700 02 FILLER PICTURE IS X(20) VALUE IS SPACE. SQ2224.2
018800 01 CCVS-C-2. SQ2224.2
018900 02 FILLER PICTURE IS X VALUE IS SPACE. SQ2224.2
019000 02 FILLER PICTURE IS X(6) VALUE IS "TESTED". SQ2224.2
019100 02 FILLER PICTURE IS X(15) VALUE IS SPACE. SQ2224.2
019200 02 FILLER PICTURE IS X(4) VALUE IS "FAIL". SQ2224.2
019300 02 FILLER PICTURE IS X(94) VALUE IS SPACE. SQ2224.2
019400 01 REC-SKL-SUB PICTURE 9(2) VALUE ZERO. SQ2224.2
019500 01 REC-CT PICTURE 99 VALUE ZERO. SQ2224.2
019600 01 DELETE-CNT PICTURE 999 VALUE ZERO. SQ2224.2
019700 01 ERROR-COUNTER PICTURE IS 999 VALUE IS ZERO. SQ2224.2
019800 01 INSPECT-COUNTER PIC 999 VALUE ZERO. SQ2224.2
019900 01 PASS-COUNTER PIC 999 VALUE ZERO. SQ2224.2
020000 01 TOTAL-ERROR PIC 999 VALUE ZERO. SQ2224.2
020100 01 ERROR-HOLD PIC 999 VALUE ZERO. SQ2224.2
020200 01 DUMMY-HOLD PIC X(120) VALUE SPACE. SQ2224.2
020300 01 RECORD-COUNT PIC 9(5) VALUE ZERO. SQ2224.2
020400 01 CCVS-H-1. SQ2224.2
020500 02 FILLER PICTURE X(27) VALUE SPACE. SQ2224.2
020600 02 FILLER PICTURE X(67) VALUE SQ2224.2
020700 " FEDERAL SOFTWARE TESTING CENTER COBOL COMPILER VALIDATION SQ2224.2
020800- " SYSTEM". SQ2224.2
020900 02 FILLER PICTURE X(26) VALUE SPACE. SQ2224.2
021000 01 CCVS-H-2. SQ2224.2
021100 02 FILLER PICTURE X(52) VALUE IS SQ2224.2
021200 "CCVS85 FSTC COPY, NOT FOR DISTRIBUTION.". SQ2224.2
021300 02 FILLER PICTURE IS X(19) VALUE IS "TEST RESULTS SET- ". SQ2224.2
021400 02 TEST-ID PICTURE IS X(9). SQ2224.2
021500 02 FILLER PICTURE IS X(40) VALUE IS SPACE. SQ2224.2
021600 01 CCVS-H-3. SQ2224.2
021700 02 FILLER PICTURE X(34) VALUE SQ2224.2
021800 " FOR OFFICIAL USE ONLY ". SQ2224.2
021900 02 FILLER PICTURE X(58) VALUE SQ2224.2
022000 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SQ2224.2
022100 02 FILLER PICTURE X(28) VALUE SQ2224.2
022200 " COPYRIGHT 1985 ". SQ2224.2
022300 01 CCVS-E-1. SQ2224.2
022400 02 FILLER PICTURE IS X(52) VALUE IS SPACE. SQ2224.2
022500 02 FILLER PICTURE IS X(14) VALUE IS "END OF TEST- ". SQ2224.2
022600 02 ID-AGAIN PICTURE IS X(9). SQ2224.2
022700 02 FILLER PICTURE X(45) VALUE IS SQ2224.2
022800 " NTIS DISTRIBUTION COBOL 85". SQ2224.2
022900 01 CCVS-E-2. SQ2224.2
023000 02 FILLER PICTURE X(31) VALUE SQ2224.2
023100 SPACE. SQ2224.2
023200 02 FILLER PICTURE X(21) VALUE SPACE. SQ2224.2
023300 02 CCVS-E-2-2. SQ2224.2
023400 03 ERROR-TOTAL PICTURE IS XXX VALUE IS SPACE. SQ2224.2
023500 03 FILLER PICTURE IS X VALUE IS SPACE. SQ2224.2
023600 03 ENDER-DESC PIC X(46) VALUE "ERRORS ENCOUNTERED". SQ2224.2
023700 01 CCVS-E-3. SQ2224.2
023800 02 FILLER PICTURE X(22) VALUE SQ2224.2
023900 " FOR OFFICIAL USE ONLY". SQ2224.2
024000 02 FILLER PICTURE X(12) VALUE SPACE. SQ2224.2
024100 02 FILLER PICTURE X(58) VALUE SQ2224.2
024200 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ2224.2
024300 02 FILLER PICTURE X(13) VALUE SPACE. SQ2224.2
024400 02 FILLER PIC X(15) VALUE " COPYRIGHT 1985". SQ2224.2
024500 01 CCVS-E-4. SQ2224.2
024600 02 CCVS-E-4-1 PIC XXX VALUE SPACE. SQ2224.2
024700 02 FILLER PIC XXXX VALUE " OF ". SQ2224.2
024800 02 CCVS-E-4-2 PIC XXX VALUE SPACE. SQ2224.2
024900 02 FILLER PIC X(40) VALUE SQ2224.2
025000 " TESTS WERE EXECUTED SUCCESSFULLY". SQ2224.2
025100 01 XXINFO. SQ2224.2
025200 02 FILLER PIC X(30) VALUE " *** INFORMATION ***". SQ2224.2
025300 02 INFO-TEXT. SQ2224.2
025400 04 FILLER PIC X(20) VALUE SPACE. SQ2224.2
025500 04 XXCOMPUTED PIC X(20). SQ2224.2
025600 04 FILLER PIC X(5) VALUE SPACE. SQ2224.2
025700 04 XXCORRECT PIC X(20). SQ2224.2
025800 01 HYPHEN-LINE. SQ2224.2
025900 02 FILLER PICTURE IS X VALUE IS SPACE. SQ2224.2
026000 02 FILLER PICTURE IS X(65) VALUE IS "************************SQ2224.2
026100- "*****************************************". SQ2224.2
026200 02 FILLER PICTURE IS X(54) VALUE IS "************************SQ2224.2
026300- "******************************". SQ2224.2
026400 01 CCVS-PGM-ID PIC X(6) VALUE SQ2224.2
026500 "SQ222A". SQ2224.2
026600 PROCEDURE DIVISION. SQ2224.2
026700 CCVS1 SECTION. SQ2224.2
026800 OPEN-FILES. SQ2224.2
026900 OPEN I-O RAW-DATA. SQ2224.2
027000 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. SQ2224.2
027100 READ RAW-DATA INVALID KEY GO TO END-E-1. SQ2224.2
027200 MOVE "ABORTED " TO C-ABORT. SQ2224.2
027300 ADD 1 TO C-NO-OF-TESTS. SQ2224.2
027400 ACCEPT C-DATE FROM DATE. SQ2224.2
027500 ACCEPT C-TIME FROM TIME. SQ2224.2
027600 REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1. SQ2224.2
027700 END-E-1. SQ2224.2
027800 CLOSE RAW-DATA. SQ2224.2
027900 OPEN OUTPUT PRINT-FILE. SQ2224.2
028000 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. SQ2224.2
028100 MOVE SPACE TO TEST-RESULTS. SQ2224.2
028200 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. SQ2224.2
028300 MOVE ZERO TO REC-SKL-SUB. SQ2224.2
028400 PERFORM CCVS-INIT-FILE 9 TIMES. SQ2224.2
028500 CCVS-INIT-FILE. SQ2224.2
028600 ADD 1 TO REC-SKL-SUB. SQ2224.2
028700 MOVE FILE-RECORD-INFO-SKELETON TO SQ2224.2
028800 FILE-RECORD-INFO (REC-SKL-SUB). SQ2224.2
028900 CCVS-INIT-EXIT. SQ2224.2
029000 GO TO CCVS1-EXIT. SQ2224.2
029100 CLOSE-FILES. SQ2224.2
029200 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. SQ2224.2
029300 OPEN I-O RAW-DATA. SQ2224.2
029400 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. SQ2224.2
029500 READ RAW-DATA INVALID KEY GO TO END-E-2. SQ2224.2
029600 MOVE "OK. " TO C-ABORT. SQ2224.2
029700 MOVE PASS-COUNTER TO C-OK. SQ2224.2
029800 MOVE ERROR-HOLD TO C-ALL. SQ2224.2
029900 MOVE ERROR-COUNTER TO C-FAIL. SQ2224.2
030000 MOVE DELETE-CNT TO C-DELETED. SQ2224.2
030100 MOVE INSPECT-COUNTER TO C-INSPECT. SQ2224.2
030200 REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2. SQ2224.2
030300 END-E-2. SQ2224.2
030400 CLOSE RAW-DATA. SQ2224.2
030500 TERMINATE-CCVS. SQ2224.2
030600 EXIT PROGRAM. SQ2224.2
030700 TERMINATE-CALL. SQ2224.2
030800 STOP RUN. SQ2224.2
030900 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. SQ2224.2
031000 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. SQ2224.2
031100 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. SQ2224.2
031200 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-CNT. SQ2224.2
031300 MOVE "****TEST DELETED****" TO RE-MARK. SQ2224.2
031400 PRINT-DETAIL. SQ2224.2
031500 IF REC-CT NOT EQUAL TO ZERO SQ2224.2
031600 MOVE "." TO PARDOT-X SQ2224.2
031700 MOVE REC-CT TO DOTVALUE. SQ2224.2
031800 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. SQ2224.2
031900 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE SQ2224.2
032000 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX SQ2224.2
032100 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. SQ2224.2
032200 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. SQ2224.2
032300 MOVE SPACE TO CORRECT-X. SQ2224.2
032400 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. SQ2224.2
032500 MOVE SPACE TO RE-MARK. SQ2224.2
032600 HEAD-ROUTINE. SQ2224.2
032700 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2224.2
032800 MOVE CCVS-H-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES. SQ2224.2
032900 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. SQ2224.2
033000 COLUMN-NAMES-ROUTINE. SQ2224.2
033100 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2224.2
033200 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2224.2
033300 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2224.2
033400 END-ROUTINE. SQ2224.2
033500 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.SQ2224.2
033600 END-RTN-EXIT. SQ2224.2
033700 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2224.2
033800 END-ROUTINE-1. SQ2224.2
033900 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO SQ2224.2
034000 ERROR-HOLD. ADD DELETE-CNT TO ERROR-HOLD. SQ2224.2
034100 ADD PASS-COUNTER TO ERROR-HOLD. SQ2224.2
034200* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. SQ2224.2
034300 MOVE PASS-COUNTER TO CCVS-E-4-1. SQ2224.2
034400 MOVE ERROR-HOLD TO CCVS-E-4-2. SQ2224.2
034500 MOVE CCVS-E-4 TO CCVS-E-2-2. SQ2224.2
034600 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. SQ2224.2
034700 END-ROUTINE-12. SQ2224.2
034800 MOVE "TEST(S) FAILED" TO ENDER-DESC. SQ2224.2
034900 IF ERROR-COUNTER IS EQUAL TO ZERO SQ2224.2
035000 MOVE "NO " TO ERROR-TOTAL SQ2224.2
035100 ELSE SQ2224.2
035200 MOVE ERROR-COUNTER TO ERROR-TOTAL. SQ2224.2
035300 MOVE CCVS-E-2 TO DUMMY-RECORD. SQ2224.2
035400 PERFORM WRITE-LINE. SQ2224.2
035500 END-ROUTINE-13. SQ2224.2
035600 IF DELETE-CNT IS EQUAL TO ZERO SQ2224.2
035700 MOVE "NO " TO ERROR-TOTAL ELSE SQ2224.2
035800 MOVE DELETE-CNT TO ERROR-TOTAL. SQ2224.2
035900 MOVE "TEST(S) DELETED " TO ENDER-DESC. SQ2224.2
036000 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2224.2
036100 IF INSPECT-COUNTER EQUAL TO ZERO SQ2224.2
036200 MOVE "NO " TO ERROR-TOTAL SQ2224.2
036300 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. SQ2224.2
036400 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. SQ2224.2
036500 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2224.2
036600 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2224.2
036700 WRITE-LINE. SQ2224.2
036800 ADD 1 TO RECORD-COUNT. SQ2224.2
036900 IF RECORD-COUNT GREATER 50 SQ2224.2
037000 MOVE DUMMY-RECORD TO DUMMY-HOLD SQ2224.2
037100 MOVE SPACE TO DUMMY-RECORD SQ2224.2
037200 WRITE DUMMY-RECORD AFTER ADVANCING PAGE SQ2224.2
037300 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN SQ2224.2
037400 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES SQ2224.2
037500 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN SQ2224.2
037600 MOVE DUMMY-HOLD TO DUMMY-RECORD SQ2224.2
037700 MOVE ZERO TO RECORD-COUNT. SQ2224.2
037800 PERFORM WRT-LN. SQ2224.2
037900 WRT-LN. SQ2224.2
038000 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. SQ2224.2
038100 MOVE SPACE TO DUMMY-RECORD. SQ2224.2
038200 BLANK-LINE-PRINT. SQ2224.2
038300 PERFORM WRT-LN. SQ2224.2
038400 FAIL-ROUTINE. SQ2224.2
038500 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SQ2224.2
038600 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SQ2224.2
038700 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. SQ2224.2
038800 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2224.2
038900 GO TO FAIL-ROUTINE-EX. SQ2224.2
039000 FAIL-ROUTINE-WRITE. SQ2224.2
039100 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE SQ2224.2
039200 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. SQ2224.2
039300 FAIL-ROUTINE-EX. EXIT. SQ2224.2
039400 BAIL-OUT. SQ2224.2
039500 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. SQ2224.2
039600 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. SQ2224.2
039700 BAIL-OUT-WRITE. SQ2224.2
039800 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. SQ2224.2
039900 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2224.2
040000 BAIL-OUT-EX. EXIT. SQ2224.2
040100 CCVS1-EXIT. SQ2224.2
040200 EXIT. SQ2224.2
040300 SECT-SQ222A-0001 SECTION. SQ2224.2
040400 WRITE-INIT-GF-01. SQ2224.2
040500 MOVE "SQ-VS7" TO XFILE-NAME (1). SQ2224.2
040600 MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1). SQ2224.2
040700 MOVE "RC" TO CHARS-OR-RECORDS (1). SQ2224.2
040800 MOVE 0001 TO XBLOCK-SIZE (1). SQ2224.2
040900 MOVE 000450 TO RECORDS-IN-FILE (1). SQ2224.2
041000 MOVE "SQ" TO XFILE-ORGANIZATION (1). SQ2224.2
041100 MOVE "S" TO XLABEL-TYPE (1). SQ2224.2
041200 MOVE 000000 TO XRECORD-NUMBER (1). SQ2224.2
041300 MOVE ZERO TO COUNT-OF-RECS. SQ2224.2
041400 OPEN OUTPUT SQ-VS7. SQ2224.2
041500 MOVE "MULTIPLE LENGTH RECS" TO SQ-VS7-FILLER. SQ2224.2
041600 WRITE-TEST-GF-01. SQ2224.2
041700 PERFORM WRITE-SHORT-REC. SQ2224.2
041800 PERFORM WRITE-LONG-REC. SQ2224.2
041900 PERFORM WRITE-SHORT-REC 10 TIMES. SQ2224.2
042000 PERFORM WRITE-LONG-REC 100 TIMES. SQ2224.2
042100 PERFORM WRITE-SHORT-REC 338 TIMES. SQ2224.2
042200 WRITE-WRITE-GF-01. SQ2224.2
042300 MOVE "CREATE FILE SQ-VS7" TO FEATURE. SQ2224.2
042400 MOVE "WRITE-TEST-GF-01" TO PAR-NAME. SQ2224.2
042500 MOVE "FILE CREATED, RECS =" TO COMPUTED-A. SQ2224.2
042600 MOVE COUNT-OF-RECS TO CORRECT-18V0. SQ2224.2
042700 MOVE "FILE HAS 120 AND 151 CHAR RECS" TO RE-MARK. SQ2224.2
042800 PERFORM PRINT-DETAIL. SQ2224.2
042900* A SEQUENTIAL MASS STORAGE FILE CONTAINING 450 SQ2224.2
043000* RECORDS HAS BEEN CREATED. THE FILE CONTAINS RECORDS SQ2224.2
043100* OF 120 CHARACTERS AND RECORDS OF 151 CHARACTERS. THE SQ2224.2
043200* SEQUENCE IN WHICH THE RECORDS WERE WRITTEN IS S-L-10S- SQ2224.2
043300* 100L-338S. SQ2224.2
043400 WRITE-CLOSE-GF-01. SQ2224.2
043500 CLOSE SQ-VS7. SQ2224.2
043600 GO TO READ-INIT-F1-01. SQ2224.2
043700 WRITE-SHORT-REC. SQ2224.2
043800 MOVE "R1-M-G" TO XRECORD-NAME (1). SQ2224.2
043900 MOVE 000120 TO XRECORD-LENGTH (1). SQ2224.2
044000 ADD 1 TO COUNT-OF-RECS. SQ2224.2
044100 MOVE COUNT-OF-RECS TO XRECORD-NUMBER (1). SQ2224.2
044200 MOVE "SHORT" TO LONG-OR-SHORT. SQ2224.2
044300 MOVE COUNT-OF-RECS TO SQ-VS7-RECNO. SQ2224.2
044400 MOVE FILE-RECORD-INFO-P1-120 (1) TO SQ-VS7R1-FIRST. SQ2224.2
044500 WRITE SQ-VS7R1-M-G-120. SQ2224.2
044600 WRITE-LONG-REC. SQ2224.2
044700 MOVE "R2-M-G" TO XRECORD-NAME (1). SQ2224.2
044800 MOVE 000151 TO XRECORD-LENGTH (1). SQ2224.2
044900 ADD 1 TO COUNT-OF-RECS. SQ2224.2
045000 MOVE COUNT-OF-RECS TO XRECORD-NUMBER (1). SQ2224.2
045100 MOVE "LONG" TO LONG-OR-SHORT. SQ2224.2
045200 MOVE COUNT-OF-RECS TO SQ-VS7-RECNO. SQ2224.2
045300 MOVE FILE-RECORD-INFO-P1-120 (1) TO SQ-VS7R2-FIRST. SQ2224.2
045400 WRITE SQ-VS7R2-M-G-151. SQ2224.2
045500 READ-INIT-F1-01. SQ2224.2
045600 MOVE ZERO TO COUNT-OF-RECS. SQ2224.2
045700 MOVE ZERO TO EOF-FLAG. SQ2224.2
045800 MOVE ZERO TO RECORDS-IN-ERROR. SQ2224.2
045900 MOVE ZERO TO ERROR-FLAG. SQ2224.2
046000 OPEN INPUT SQ-VS7. SQ2224.2
046100 READ-TEST-F1-01. SQ2224.2
046200 PERFORM READ-SHORT-REC THRU READ-SHORT-REC-EXIT. SQ2224.2
046300 IF EOF-FLAG EQUAL TO 1 SQ2224.2
046400 MOVE "EOF ON FIRST READ" TO RE-MARK SQ2224.2
046500 GO TO READ-EOF-F1-06. SQ2224.2
046600 IF ERROR-FLAG EQUAL TO 1 SQ2224.2
046700 GO TO READ-FAIL-F1-01. SQ2224.2
046800 READ-PASS-F1-01. SQ2224.2
046900 PERFORM PASS. SQ2224.2
047000 GO TO READ-WRITE-F1-01. SQ2224.2
047100 READ-FAIL-F1-01. SQ2224.2
047200 MOVE "ERROR: SEE VII-52 WRITE OR VII-44 READ" TO RE-MARK. SQ2224.2
047300 PERFORM FAIL. SQ2224.2
047400 READ-WRITE-F1-01. SQ2224.2
047500 MOVE "READ SHORT RECORD" TO FEATURE. SQ2224.2
047600 MOVE "READ-TEST-F1-01" TO PAR-NAME. SQ2224.2
047700 MOVE "EXPECTED RECORD LENGTH: 120" TO RE-MARK. SQ2224.2
047800 PERFORM PRINT-DETAIL. SQ2224.2
047900 GO TO READ-INIT-F1-02. SQ2224.2
048000 READ-SHORT-REC. SQ2224.2
048100 IF EOF-FLAG EQUAL TO 1 SQ2224.2
048200 GO TO READ-SHORT-REC-EXIT. SQ2224.2
048300 READ SQ-VS7 AT END SQ2224.2
048400 MOVE 1 TO EOF-FLAG SQ2224.2
048500 GO TO READ-SHORT-REC-EXIT. SQ2224.2
048600 ADD 1 TO COUNT-OF-RECS. SQ2224.2
048700 MOVE SQ-VS7R1-FIRST TO FILE-RECORD-INFO-P1-120 (1). SQ2224.2
048800 IF XRECORD-NAME (1) NOT EQUAL TO "R1-M-G" SQ2224.2
048900 GO TO READ-SHORT-REC-ERROR. SQ2224.2
049000 IF XRECORD-LENGTH (1) NOT EQUAL TO 120 SQ2224.2
049100 GO TO READ-SHORT-REC-ERROR. SQ2224.2
049200 IF COUNT-OF-RECS NOT EQUAL TO XRECORD-NUMBER (1) SQ2224.2
049300 GO TO READ-SHORT-REC-ERROR. SQ2224.2
049400 IF XLABEL-TYPE (1) EQUAL TO "S" SQ2224.2
049500 GO TO READ-SHORT-REC-EXIT. SQ2224.2
049600 READ-SHORT-REC-ERROR. SQ2224.2
049700 ADD 1 TO RECORDS-IN-ERROR. SQ2224.2
049800 MOVE 1 TO ERROR-FLAG. SQ2224.2
049900 READ-SHORT-REC-EXIT. SQ2224.2
050000 EXIT. SQ2224.2
050100 READ-INIT-F1-02. SQ2224.2
050200 MOVE ZERO TO ERROR-FLAG. SQ2224.2
050300 READ-TEST-F1-02. SQ2224.2
050400 PERFORM READ-LONG-REC THRU READ-LONG-REC-EXIT. SQ2224.2
050500 IF EOF-FLAG EQUAL TO 1 SQ2224.2
050600 MOVE "EOF ON SECOND READ" TO RE-MARK SQ2224.2
050700 GO TO READ-EOF-F1-06. SQ2224.2
050800 IF ERROR-FLAG EQUAL TO 1 SQ2224.2
050900 GO TO READ-FAIL-F1-02. SQ2224.2
051000 READ-PASS-F1-02. SQ2224.2
051100 PERFORM PASS. SQ2224.2
051200 GO TO READ-WRITE-F1-02. SQ2224.2
051300 READ-FAIL-F1-02. SQ2224.2
051400 MOVE "ERROR: SEE VII-52 WRITE OR VII-44 READ" TO RE-MARK. SQ2224.2
051500 PERFORM FAIL. SQ2224.2
051600 READ-WRITE-F1-02. SQ2224.2
051700 MOVE "READ LONG RECORD" TO FEATURE. SQ2224.2
051800 MOVE "READ-TEST-F1-02" TO PAR-NAME. SQ2224.2
051900 MOVE "EXPECTED RECORD LENGTH: 151" TO RE-MARK. SQ2224.2
052000 PERFORM PRINT-DETAIL. SQ2224.2
052100 GO TO READ-INIT-F1-03. SQ2224.2
052200 READ-LONG-REC. SQ2224.2
052300 IF EOF-FLAG EQUAL TO 1 SQ2224.2
052400 GO TO READ-LONG-REC-EXIT. SQ2224.2
052500 READ SQ-VS7 END SQ2224.2
052600 MOVE 1 TO EOF-FLAG SQ2224.2
052700 GO TO READ-LONG-REC-EXIT. SQ2224.2
052800 ADD 1 TO COUNT-OF-RECS. SQ2224.2
052900 MOVE SQ-VS7R2-FIRST TO FILE-RECORD-INFO-P1-120 (1). SQ2224.2
053000 IF XRECORD-NAME (1) NOT EQUAL TO "R2-M-G" SQ2224.2
053100 GO TO READ-LONG-REC-ERROR. SQ2224.2
053200 IF XRECORD-LENGTH (1) NOT EQUAL TO 151 SQ2224.2
053300 GO TO READ-LONG-REC-ERROR. SQ2224.2
053400 MOVE COUNT-OF-RECS TO SAVE-COUNT-OF-RECS. SQ2224.2
053500 IF SAVE-COUNT-OF-RECS NOT EQUAL TO SQ-VS7-RECNO SQ2224.2
053600 GO TO READ-LONG-REC-ERROR. SQ2224.2
053700 IF LONG-OR-SHORT EQUAL TO "LONG " SQ2224.2
053800 GO TO READ-LONG-REC-EXIT. SQ2224.2
053900 READ-LONG-REC-ERROR. SQ2224.2
054000 ADD 1 TO RECORDS-IN-ERROR. SQ2224.2
054100 MOVE 1 TO ERROR-FLAG. SQ2224.2
054200 READ-LONG-REC-EXIT. SQ2224.2
054300 EXIT. SQ2224.2
054400 READ-INIT-F1-03. SQ2224.2
054500 MOVE ZERO TO ERROR-FLAG. SQ2224.2
054600 READ-TEST-F1-03. SQ2224.2
054700 PERFORM READ-SHORT-REC THRU READ-SHORT-REC-EXIT 10 TIMES. SQ2224.2
054800 IF EOF-FLAG EQUAL TO 1 SQ2224.2
054900 MOVE "UNEXPECTED EOF" TO RE-MARK SQ2224.2
055000 GO TO READ-EOF-F1-06. SQ2224.2
055100 IF ERROR-FLAG EQUAL TO 1 SQ2224.2
055200 GO TO READ-FAIL-F1-03. SQ2224.2
055300 READ-PASS-F1-03. SQ2224.2
055400 PERFORM PASS. SQ2224.2
055500 GO TO READ-WRITE-F1-03. SQ2224.2
055600 READ-FAIL-F1-03. SQ2224.2
055700 MOVE "ERROR: SEE VII-52 WRITE OR VII-44 READ" TO RE-MARK. SQ2224.2
055800 PERFORM FAIL. SQ2224.2
055900 READ-WRITE-F1-03. SQ2224.2
056000 MOVE "READ SHORT RECORDS" TO FEATURE. SQ2224.2
056100 MOVE "READ-TEST-F1-03" TO PAR-NAME. SQ2224.2
056200 MOVE "EXPECTED RECORD LENGTH: 120" TO RE-MARK. SQ2224.2
056300 PERFORM PRINT-DETAIL. SQ2224.2
056400 READ-INIT-F1-04. SQ2224.2
056500 MOVE ZERO TO ERROR-FLAG. SQ2224.2
056600 READ-TEST-F1-04. SQ2224.2
056700 PERFORM READ-LONG-REC THRU READ-LONG-REC-EXIT 100 TIMES. SQ2224.2
056800 IF EOF-FLAG EQUAL TO 1 SQ2224.2
056900 MOVE "UNEXPECTED EOF" TO RE-MARK SQ2224.2
057000 GO TO READ-EOF-F1-06. SQ2224.2
057100 IF ERROR-FLAG EQUAL TO 1 SQ2224.2
057200 GO TO READ-FAIL-F1-04. SQ2224.2
057300 READ-PASS-F1-04. SQ2224.2
057400 PERFORM PASS. SQ2224.2
057500 GO TO READ-WRITE-F1-04. SQ2224.2
057600 READ-FAIL-F1-04. SQ2224.2
057700 MOVE "ERROR: SEE VII-52 WRITE OR VII-44 READ" TO RE-MARK. SQ2224.2
057800 PERFORM FAIL. SQ2224.2
057900 READ-WRITE-F1-04. SQ2224.2
058000 MOVE "READ LONG RECORDS" TO FEATURE. SQ2224.2
058100 MOVE "READ-TEST-F1-04" TO PAR-NAME. SQ2224.2
058200 MOVE "EXPECTED RECORD LENGTH: 151" TO RE-MARK. SQ2224.2
058300 PERFORM PRINT-DETAIL. SQ2224.2
058400 READ-INIT-F1-05. SQ2224.2
058500 MOVE ZERO TO ERROR-FLAG. SQ2224.2
058600 READ-TEST-F1-05. SQ2224.2
058700 PERFORM READ-SHORT-REC THRU READ-SHORT-REC-EXIT 338 TIMES. SQ2224.2
058800 IF EOF-FLAG EQUAL TO 1 SQ2224.2
058900 MOVE "UNEXPECTED EOF" TO RE-MARK SQ2224.2
059000 GO TO READ-EOF-F1-06. SQ2224.2
059100 IF ERROR-FLAG EQUAL TO 1 SQ2224.2
059200 GO TO READ-FAIL-F1-05. SQ2224.2
059300 READ-PASS-F1-05. SQ2224.2
059400 PERFORM PASS. SQ2224.2
059500 GO TO READ-WRITE-F1-05. SQ2224.2
059600 READ-FAIL-F1-05. SQ2224.2
059700 MOVE "ERROR: SEE VII-52 WRITE OR VII-44 READ" TO RE-MARK. SQ2224.2
059800 PERFORM FAIL. SQ2224.2
059900 READ-WRITE-F1-05. SQ2224.2
060000 MOVE "READ SHORT RECORDS" TO FEATURE. SQ2224.2
060100 MOVE "READ-TEST-F1-05" TO PAR-NAME. SQ2224.2
060200 MOVE "EXPECTED RECORD LENGTH: 120" TO RE-MARK. SQ2224.2
060300 PERFORM PRINT-DETAIL. SQ2224.2
060400 READ-INIT-F1-06. SQ2224.2
060500 READ SQ-VS7 RECORD END SQ2224.2
060600 GO TO READ-TEST-F1-06. SQ2224.2
060700 MOVE "MORE THAN 450 RECORDS" TO RE-MARK. SQ2224.2
060800 GO TO READ-FAIL-F1-06. SQ2224.2
060900 READ-EOF-F1-06. SQ2224.2
061000 MOVE "RECORDS READ =" TO COMPUTED-A. SQ2224.2
061100 MOVE COUNT-OF-RECS TO CORRECT-18V0. SQ2224.2
061200 GO TO READ-FAIL-F1-06. SQ2224.2
061300 READ-TEST-F1-06. SQ2224.2
061400 IF RECORDS-IN-ERROR NOT EQUAL TO ZERO SQ2224.2
061500 MOVE "RECORDS IN ERROR =" TO COMPUTED-A SQ2224.2
061600 MOVE RECORDS-IN-ERROR TO CORRECT-18V0 SQ2224.2
061700 GO TO READ-FAIL-F1-06. SQ2224.2
061800 READ-PASS-F1-06. SQ2224.2
061900 PERFORM PASS. SQ2224.2
062000 GO TO READ-WRITE-F1-06. SQ2224.2
062100 READ-FAIL-F1-06. SQ2224.2
062200 PERFORM FAIL. SQ2224.2
062300 READ-WRITE-F1-06. SQ2224.2
062400 MOVE "READ-TEST-F1-06" TO PAR-NAME. SQ2224.2
062500 MOVE "VERIFY FILE SQ-VS7" TO FEATURE. SQ2224.2
062600 PERFORM PRINT-DETAIL. SQ2224.2
062700 READ-CLOSE-F1-06. SQ2224.2
062800 CLOSE SQ-VS7. SQ2224.2
062900 SECT-SQ222A-0002 SECTION. SQ2224.2
063000* THIS SECTION CHECKS IF THE ENTIRE RECORD AREA IS SQ2224.2
063100* WRITTEN ON THE MASS STORAGE DEVICE WHEN A SHORT RECORD SQ2224.2
063200* IS WRITTEN. THE RECORD NUMBER IN CHARACTERS 126 THROUGH SQ2224.2
063300* 130 IS UNIQUE FOR EACH RECORD. SQ2224.2
063400 INFO-INIT-01. SQ2224.2
063500 OPEN INPUT SQ-VS7. SQ2224.2
063600 MOVE ZERO TO COUNT-OF-RECS. SQ2224.2
063700 INFO-TEST-01. SQ2224.2
063800 READ SQ-VS7 AT END SQ2224.2
063900 GO TO INFO-END. SQ2224.2
064000 ADD 1 TO COUNT-OF-RECS. SQ2224.2
064100 IF SQ-VS7-RECNO NOT EQUAL TO "00001" SQ2224.2
064200 GO TO NO-INFO-01. SQ2224.2
064300 MOVE "MAXIMUM RECORD SIZE WRITTEN" TO RE-MARK. SQ2224.2
064400 MOVE "RECORD READ =" TO COMPUTED-A. SQ2224.2
064500 MOVE 0001 TO CORRECT-18V0. SQ2224.2
064600 GO TO INFO-WRITE-01. SQ2224.2
064700 NO-INFO-01. SQ2224.2
064800 MOVE "NO DEFINITE CONCLUSION POSSIBLE" TO RE-MARK. SQ2224.2
064900 INFO-WRITE-01. SQ2224.2
065000 MOVE "READ SHORT RECORD" TO FEATURE. SQ2224.2
065100 MOVE "SEQ-INFO-01 " TO PAR-NAME. SQ2224.2
065200 PERFORM PRINT-DETAIL. SQ2224.2
065300 INFO-INIT-02. SQ2224.2
065400 READ SQ-VS7 RECORD AT END SQ2224.2
065500 GO TO INFO-END. SQ2224.2
065600 READ SQ-VS7 END SQ2224.2
065700 GO TO INFO-END. SQ2224.2
065800 INFO-TEST-02. SQ2224.2
065900 READ SQ-VS7 AT END SQ2224.2
066000 GO TO INFO-END. SQ2224.2
066100 IF SQ-VS7-RECNO NOT EQUAL TO "00004" SQ2224.2
066200 GO TO NO-INFO-02. SQ2224.2
066300 MOVE "MAXIMUM RECORD SIZE WRITTEN" TO RE-MARK. SQ2224.2
066400 MOVE "RECORD READ =" TO COMPUTED-A. SQ2224.2
066500 MOVE 0004 TO CORRECT-18V0. SQ2224.2
066600 GO TO INFO-WRITE-02. SQ2224.2
066700 NO-INFO-02. SQ2224.2
066800 MOVE "NO DEFINITE CONCLUSION POSSIBLE" TO RE-MARK. SQ2224.2
066900 INFO-WRITE-02. SQ2224.2
067000 MOVE "READ SHORT RECORD" TO FEATURE. SQ2224.2
067100 MOVE "SEQ-INFO-02 " TO PAR-NAME. SQ2224.2
067200 PERFORM PRINT-DETAIL. SQ2224.2
067300 INFO-INIT-03. SQ2224.2
067400 ADD 3 TO COUNT-OF-RECS. SQ2224.2
067500 INFO-INIT-03-1. SQ2224.2
067600 READ SQ-VS7 RECORD SQ2224.2
067700 END GO TO INFO-END. SQ2224.2
067800 ADD 1 TO COUNT-OF-RECS. SQ2224.2
067900 IF COUNT-OF-RECS EQUAL TO 450 SQ2224.2
068000 GO TO INFO-TEST-03. SQ2224.2
068100 GO TO INFO-INIT-03-1. SQ2224.2
068200 INFO-TEST-03. SQ2224.2
068300 IF SQ-VS7-RECNO NOT EQUAL TO "00450" SQ2224.2
068400 GO TO NO-INFO-03. SQ2224.2
068500 MOVE "MAXIMUM RECORD SIZE WRITTEN" TO RE-MARK. SQ2224.2
068600 MOVE "RECORD READ =" TO COMPUTED-A. SQ2224.2
068700 MOVE 0450 TO CORRECT-18V0. SQ2224.2
068800 GO TO INFO-WRITE-03. SQ2224.2
068900 NO-INFO-03. SQ2224.2
069000 MOVE "NO DEFINITE CONCLUSION POSSIBLE" TO RE-MARK. SQ2224.2
069100 INFO-WRITE-03. SQ2224.2
069200 MOVE "READ SHORT RECORD" TO FEATURE. SQ2224.2
069300 MOVE "SEQ-INFO-03 " TO PAR-NAME. SQ2224.2
069400 PERFORM PRINT-DETAIL. SQ2224.2
069500 INFO-END. SQ2224.2
069600 CLOSE SQ-VS7. SQ2224.2
069700 TERMINATE-ROUTINE. SQ2224.2
069800 EXIT. SQ2224.2
069900 CCVS-EXIT SECTION. SQ2224.2
070000 CCVS-999999. SQ2224.2
070100 GO TO CLOSE-FILES. SQ2224.2
¤ Dauer der Verarbeitung: 0.63 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.
|
