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