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