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