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