| products/Sources/formale Sprachen/COBOL/verschiedene-Autoren/Cobug/ |
|
Quellcode-Bibliothek© Kompilation durch diese Firma[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]Datei: Sprache: Cobol |
|
||||||
|
000100 IDENTIFICATION DIVISION. SQ2084.2
000200 PROGRAM-ID. SQ2084.2 000300 SQ208M. SQ2084.2 000400**************************************************************** SQ2084.2 000500* * SQ2084.2 000600* VALIDATION FOR:- * SQ2084.2 000700* " HIGH ". SQ2084.2 000800* * SQ2084.2 000900* CREATION DATE / VALIDATION DATE * SQ2084.2 001000* "4.2 ". SQ2084.2 001100* * SQ2084.2 001200* THE ROUTINE SQ208M TESTS THE USE OF THE LEVEL 2 WRITE SQ2084.2 001300* STATEMENT AND THE LINAGE CLAUSE FOR A FILE DESIGNATED AS SQ2084.2 001400* PRINTER OUTPUT. THESE STATEMENTS CONTROL THE VERTICAL SQ2084.2 001500* POSITIONING OF EACH LINE ON A PRINTED PAGE. THE LINAGE SQ2084.2 001600* CLAUSE SPECIFICALLY CONTROLS THE VERTICAL FORMAT OF A LOGICALSQ2084.2 001700* PRINT PAGE. SQ208M TESTS THE USE OF DATA-NAMES IN THE LINAGE,SQ2084.2 001800* FOOTING, TOP, AND BOTTOM PHRASES. VALUES OF DATA-NAMES ARE SQ2084.2 001900* CHANGED IN ORDER TO CHECK REDEFINITION OF LOGICAL PAGE SQ2084.2 002000* FORMATS AFTER OVERFLOW OR WRITE ADVANCING PAGE OPERATIONS. SQ2084.2 002100* IT IS ASSUMED THAT ALL LEVEL 2 NUCLEUS OPTIONS ARE AVAILABLE SQ2084.2 002200* IN TESTING SQ208M. SQ2084.2 002300* BECAUSE OF THE NATURE OF THESE TESTS A "PASS" OR "FAIL" SQ2084.2 002400* CANNOT BE DETERMINED WITHIN THE PROGRAM. THE USER MUST SQ2084.2 002500* VISUALLY CHECK THE POSITION OF EACH LINE TO DETERMINE THE SQ2084.2 002600* ACCURACY OF THE VARIOUS WRITE AND LINAGE OPTIONS. SQ2084.2 002700 ENVIRONMENT DIVISION. SQ2084.2 002800 CONFIGURATION SECTION. SQ2084.2 002900 SOURCE-COMPUTER. SQ2084.2 003000 Card0130. SQ2084.2 003100 OBJECT-COMPUTER. SQ2084.2 003200 Card0131. SQ2084.2 003300 INPUT-OUTPUT SECTION. SQ2084.2 003400 FILE-CONTROL. SQ2084.2 003500 SELECT RAW-DATA ASSIGN TO SQ2084.2 003600 "C0098" SQ2084.2 003700 ORGANIZATION IS INDEXED SQ2084.2 003800 ACCESS MODE IS RANDOM SQ2084.2 003900 RECORD KEY IS RAW-DATA-KEY. SQ2084.2 004000 SELECT PRINT-FILE ASSIGN TO SQ2084.2 004100 "C0085" . SQ2084.2 004200 DATA DIVISION. SQ2084.2 004300 FILE SECTION. SQ2084.2 004400 SQ2084.2 004500 FD RAW-DATA. SQ2084.2 004600 SQ2084.2 004700 01 RAW-DATA-SATZ. SQ2084.2 004800 05 RAW-DATA-KEY PIC X(6). SQ2084.2 004900 05 C-DATE PIC 9(6). SQ2084.2 005000 05 C-TIME PIC 9(8). SQ2084.2 005100 05 C-NO-OF-TESTS PIC 99. SQ2084.2 005200 05 C-OK PIC 999. SQ2084.2 005300 05 C-ALL PIC 999. SQ2084.2 005400 05 C-FAIL PIC 999. SQ2084.2 005500 05 C-DELETED PIC 999. SQ2084.2 005600 05 C-INSPECT PIC 999. SQ2084.2 005700 05 C-NOTE PIC X(13). SQ2084.2 005800 05 C-INDENT PIC X. SQ2084.2 005900 05 C-ABORT PIC X(8). SQ2084.2 006000 FD PRINT-FILE SQ2084.2 006100 LABEL RECORDS SQ2084.2 006200 Card0132 SQ2084.2 006300 DATA RECORD IS PRINT-REC DUMMY-RECORD SQ2084.2 006400 LINAGE LINAGE-CTR SQ2084.2 006500 FOOTING FOOT-CTR SQ2084.2 006600 TOP TOP-CTR SQ2084.2 006700 BOTTOM BOTTOM-CTR. SQ2084.2 006800 01 PRINT-REC PICTURE X(120). SQ2084.2 006900 01 DUMMY-RECORD PICTURE X(120). SQ2084.2 007000 WORKING-STORAGE SECTION. SQ2084.2 007100 77 LINAGE-CTR PIC 999 VALUE 66. SQ2084.2 007200 01 FOOT-CTR PIC 999 VALUE 66. SQ2084.2 007300 01 SPACING-CTR. SQ2084.2 007400 02 TOP-CTR PIC 999 VALUE 0. SQ2084.2 007500 02 BOTTOM-CTR PIC 999 VALUE 0. SQ2084.2 007600 01 DETAIL-LINE-1. SQ2084.2 007700 02 FILLER PIC X(20) VALUE SPACE. SQ2084.2 007800 02 FILLER PIC X(13) VALUE "THIS IS LINE ". SQ2084.2 007900 02 DL1-LINE-NO PIC 999. SQ2084.2 008000 02 FILLER PIC X(4) VALUE " OF ". SQ2084.2 008100 02 DL1-TOTAL-LINES PIC 999. SQ2084.2 008200 02 FILLER PIC X(34) VALUE " DETAIL LINES. LINAGESQ2084.2 008300- "-COUNTER IS ". SQ2084.2 008400 02 DL1-LC PIC 999. SQ2084.2 008500 02 FILLER PIC X(40) VALUE ".". SQ2084.2 008600 01 DETAIL-LINE-2. SQ2084.2 008700 02 FILLER PIC X(20) VALUE SPACE. SQ2084.2 008800 02 FILLER PIC X(13) VALUE "THIS IS LINE ". SQ2084.2 008900 02 DL2-LINE-NO PIC 999. SQ2084.2 009000 02 FILLER PIC X(41) VALUE " OF 010 DETAIL LINES. SQ2084.2 009100- " LINAGE-COUNTER IS ". SQ2084.2 009200 02 DL2-LC PIC 999. SQ2084.2 009300 02 FILLER PIC X(40) VALUE ".". SQ2084.2 009400 01 DETAIL-LINE-3. SQ2084.2 009500 02 FILLER PIC X(20) VALUE SPACE. SQ2084.2 009600 02 FILLER PIC X(13) VALUE "THIS IS LINE ". SQ2084.2 009700 02 DL3-LINE-NO PIC 99. SQ2084.2 009800 02 FILLER PIC X(40) VALUE " OF 60 DETAIL LINES. SQ2084.2 009900- "LINAGE-COUNTER IS ". SQ2084.2 010000 02 DL3-LC PIC 999. SQ2084.2 010100 02 FILLER PIC X(42) VALUE ".". SQ2084.2 010200 01 FOOT-LINE-1. SQ2084.2 010300 02 FILLER PIC X(20) VALUE SPACE. SQ2084.2 010400 02 FILLER PIC X(57) VALUE "THIS IS LINE 001 OF 00SQ2084.2 010500- "1 FOOTING LINES. LINAGE-COUNTER IS ". SQ2084.2 010600 02 FL1-LC PIC 999. SQ2084.2 010700 02 FILLER PIC X(40) VALUE ".". SQ2084.2 010800 01 FOOT-LINE-3. SQ2084.2 010900 02 FILLER PIC X(103) VALUE "THIS LINE WAS PRINTED SQ2084.2 011000- "FROM AN EOP CLAUSE. THE VALUE OF THE LINAGE-COUNTER PRIOR TSQ2084.2 011100- "O THIS EXECUTION IS ". SQ2084.2 011200 02 FL3-LC PIC 999. SQ2084.2 011300 02 FILLER PIC X(14) VALUE ".". SQ2084.2 011400 01 INFO-LINE-1 PIC X(120) VALUE "THIS TEST IS DESIGNED SQ2084.2 011500- "TO TEST THE OVERFLOW RESULTS OF A WRITE BEFORE ADVANCING OPESQ2084.2 011600- "RATION CONTAINING AN EOP PHRASE.". SQ2084.2 011700 01 INFO-LINE-2 PIC X(120) VALUE "THIS TEST IS DESIGNED SQ2084.2 011800- "TO TEST THE OVERFLOW RESULTS OF A WRITE AFTER ADVANCING OPERSQ2084.2 011900- "ATION CONTAINING AN EOP PHRASE.". SQ2084.2 012000 01 INFO-LINE-3 PIC X(120) VALUE "FOR THIS TEST LINAGE ASQ2084.2 012100- "ND FOOTING VALUES ARE 40.". SQ2084.2 012200 01 INFO-LINE-4 PIC X(120) VALUE "39 DETAIL LINES SHOULDSQ2084.2 012300- " PRINT ON THE 1ST LOGICAL PAGE AND THE REMAINING 21 DETAIL LSQ2084.2 012400- "INES ON THE 2ND LOGICAL PAGE.". SQ2084.2 012500 01 INFO-LINE-6 PIC X(120) VALUE "THE EOP LINE SHOULD FOSQ2084.2 012600- "LLOW DETAIL LINE 39 AND BE THE LAST LINE ON THE 1ST LOGICAL SQ2084.2 012700- "PAGE.". SQ2084.2 012800 01 INFO-LINE-7 PIC X(120) VALUE "THE EOP LINE SHOULD FOSQ2084.2 012900- "LLOW DETAIL LINE 39 AND BE THE FIRST LINE ON THE 2ND LOGICALSQ2084.2 013000- " PAGE.". SQ2084.2 013100 01 INFO-LINE-8 PIC X(120) VALUE "ALL LINAGE-COUNTER VALSQ2084.2 013200- "UES REPRESENT VALUES PRIOR TO EXECUTION OF THE WRITE OPERATISQ2084.2 013300- "ON. NO MODIFICATIONS HAVE BEEN MADE.". SQ2084.2 013400 01 COMMENT-LINE-1 PIC X(120) VALUE "BECAUSE OF THE NATURE SQ2084.2 013500- "OF THESE TESTS A PASS OR FAIL CANNOT BE DETERMINED WITHIN THSQ2084.2 013600- "E PROGRAM. THE USER MUST VISUALLY". SQ2084.2 013700 01 COMMENT-LINE-2 PIC X(120) VALUE "CHECK THE POSITION OF SQ2084.2 013800- "EACH LINE TO DETERMINE THE ACCURACY OF THE VARIOUS WRITE OPTSQ2084.2 013900- "IONS. VII-22, 3.2.2 LINAGE, VII-27-29". SQ2084.2 014000 01 COMMENT-LINE-3 PIC X(120) VALUE "IN THIS TEST THE FIRSTSQ2084.2 014100- " LOGICAL PAGE SHOULD CONTAIN 65 DETAIL LINES.". SQ2084.2 014200 01 COMMENT-LINE-4 PIC X(120) VALUE "1 FOOTING LINE AND BE SQ2084.2 014300- "FOLLOWED BY 1 BLANK LINE. ALL SUCCEEDING LOGICAL PAGES SHOUSQ2084.2 014400- "LD CONTAIN 29 DETAIL LINES, 1 FOOTING". SQ2084.2 014500 01 COMMENT-LINE-5 PIC X(120) VALUE "LINE AND BE SEPARATED SQ2084.2 014600- "BY 3 BLANK LINES". SQ2084.2 014700 01 COMMENT-LINE-6 PIC X(120) VALUE "IN THIS TEST THE FIRSTSQ2084.2 014800- " LOGICAL PAGE SHOULD CONTAIN 19 DETAIL LINES, 1 FOOTING LINESQ2084.2 014900- ", BE PRECEDED BY 2 BLANK LINES, AND". SQ2084.2 015000 01 COMMENT-LINE-7 PIC X(120) VALUE "BE FOLLOWED BY 4 BLANKSQ2084.2 015100- " LINES. ALL SUCCEEDING LOGICAL PAGES SHOULD CONTAIN 39 DETASQ2084.2 015200- "IL LINES, 1 FOOTING LINE, AND BE". SQ2084.2 015300 01 COMMENT-LINE-8 PIC X(120) VALUE "SEPARATED BY 3 BLANK LSQ2084.2 015400- "INES.". SQ2084.2 015500 01 COMMENT-LINE-9 PIC X(120) VALUE "IN THIS TEST THE FIRSTSQ2084.2 015600- " LOGICAL PAGE SHOULD CONTAIN 15 DETAIL LINES, BE PRECEDED BYSQ2084.2 015700- " 2 BLANK LINES, AND BE FOLLOWED BY". SQ2084.2 015800 01 COMMENT-LINE-10 PIC X(120) VALUE "9 BLANK LINES. ALL SUSQ2084.2 015900- "CCEEDING LOGICAL PAGES SHOULD CONTAIN 40 DETAIL LINES AND BESQ2084.2 016000- " SEPARATED BY 3 BLANK LINES.". SQ2084.2 016100 01 COMMENT-LINE-11 PIC X(120) VALUE "THIS TEST IS DESIGNED SQ2084.2 016200- "TO TEST THE MINIMUM LINAGE VALUE OF 1 AND THE MINIMUM TOP VASQ2084.2 016300- "LUE OF ZERO. EACH LOGICAL PAGE SHOULD". SQ2084.2 016400 01 COMMENT-LINE-12 PIC X(120) VALUE "CONTAIN 1 DETAIL LINE SQ2084.2 016500- "AND BE SEPARATED BY 2 BLANK LINES. THE FIRST PAGE SHOULD NOSQ2084.2 016600- "T BE PRECEDED BY ANY BLANK LINES.". SQ2084.2 016700 01 COMMENT-LINE-13 PIC X(120) VALUE "THIS TEST IS DESIGNED SQ2084.2 016800- "TO TEST THE MINIMUM FOOTING LINE VALUE OF 1 AND MINIMUM BOTTSQ2084.2 016900- "OM VALUE OF ZERO. EACH LOGICAL PAGE". SQ2084.2 017000 01 COMMENT-LINE-14 PIC X(120) VALUE "SHOULD CONTAIN 1 DETAISQ2084.2 017100- "L LINE, 1 FOOTING LINE, AND BE SEPARATED BY 1 BLANK LINE.". SQ2084.2 017200 01 LAST-LINE PIC X(120) VALUE "THIS IS THE LAST LINE SQ2084.2 017300- "IN THE PAGE BODY OF THIS LOGICAL PAGE. USE IT AS A REFERENCSQ2084.2 017400- "E POINT FOR THE FOLLOWING TEST PAGES.". SQ2084.2 017500 01 TEST-RESULTS. SQ2084.2 017600 02 FILLER PICTURE X VALUE SPACE. SQ2084.2 017700 02 FEATURE PICTURE X(20) VALUE SPACE. SQ2084.2 017800 02 FILLER PICTURE X VALUE SPACE. SQ2084.2 017900 02 P-OR-F PICTURE X(5) VALUE SPACE. SQ2084.2 018000 02 FILLER PICTURE X VALUE SPACE. SQ2084.2 018100 02 PAR-NAME. SQ2084.2 018200 03 FILLER PICTURE X(12) VALUE SPACE. SQ2084.2 018300 03 PARDOT-X PICTURE X VALUE SPACE. SQ2084.2 018400 03 DOTVALUE PICTURE 99 VALUE ZERO. SQ2084.2 018500 03 FILLER PIC X(5) VALUE SPACE. SQ2084.2 018600 02 FILLER PIC X(10) VALUE SPACE. SQ2084.2 018700 02 RE-MARK PIC X(61). SQ2084.2 018800 01 TEST-COMPUTED. SQ2084.2 018900 02 FILLER PIC X(30) VALUE SPACE. SQ2084.2 019000 02 FILLER PIC X(17) VALUE " COMPUTED=". SQ2084.2 019100 02 COMPUTED-X. SQ2084.2 019200 03 COMPUTED-A PICTURE X(20) VALUE SPACE. SQ2084.2 019300 03 COMPUTED-N REDEFINES COMPUTED-A PICTURE -9(9).9(9). SQ2084.2 019400 03 COMPUTED-0V18 REDEFINES COMPUTED-A PICTURE -.9(18). SQ2084.2 019500 03 COMPUTED-4V14 REDEFINES COMPUTED-A PICTURE -9(4).9(14). SQ2084.2 019600 03 COMPUTED-14V4 REDEFINES COMPUTED-A PICTURE -9(14).9(4). SQ2084.2 019700 03 CM-18V0 REDEFINES COMPUTED-A. SQ2084.2 019800 04 COMPUTED-18V0 PICTURE -9(18). SQ2084.2 019900 04 FILLER PICTURE X. SQ2084.2 020000 03 FILLER PIC X(50) VALUE SPACE. SQ2084.2 020100 01 TEST-CORRECT. SQ2084.2 020200 02 FILLER PIC X(30) VALUE SPACE. SQ2084.2 020300 02 FILLER PIC X(17) VALUE " CORRECT =". SQ2084.2 020400 02 CORRECT-X. SQ2084.2 020500 03 CORRECT-A PICTURE X(20) VALUE SPACE. SQ2084.2 020600 03 CORRECT-N REDEFINES CORRECT-A PICTURE -9(9).9(9). SQ2084.2 020700 03 CORRECT-0V18 REDEFINES CORRECT-A PICTURE -.9(18). SQ2084.2 020800 03 CORRECT-4V14 REDEFINES CORRECT-A PICTURE -9(4).9(14). SQ2084.2 020900 03 CORRECT-14V4 REDEFINES CORRECT-A PICTURE -9(14).9(4). SQ2084.2 021000 03 CR-18V0 REDEFINES CORRECT-A. SQ2084.2 021100 04 CORRECT-18V0 PICTURE -9(18). SQ2084.2 021200 04 FILLER PICTURE X. SQ2084.2 021300 03 FILLER PIC X(50) VALUE SPACE. SQ2084.2 021400 01 CCVS-C-1. SQ2084.2 021500 02 FILLER PICTURE IS X(99) VALUE IS " FEATURE PASQ2084.2 021600- "SS PARAGRAPH-NAME SQ2084.2 021700- " REMARKS". SQ2084.2 021800 02 FILLER PICTURE IS X(20) VALUE IS SPACE. SQ2084.2 021900 01 CCVS-C-2. SQ2084.2 022000 02 FILLER PICTURE IS X VALUE IS SPACE. SQ2084.2 022100 02 FILLER PICTURE IS X(6) VALUE IS "TESTED". SQ2084.2 022200 02 FILLER PICTURE IS X(15) VALUE IS SPACE. SQ2084.2 022300 02 FILLER PICTURE IS X(4) VALUE IS "FAIL". SQ2084.2 022400 02 FILLER PICTURE IS X(94) VALUE IS SPACE. SQ2084.2 022500 01 REC-SKL-SUB PICTURE 9(2) VALUE ZERO. SQ2084.2 022600 01 REC-CT PICTURE 99 VALUE ZERO. SQ2084.2 022700 01 DELETE-CNT PICTURE 999 VALUE ZERO. SQ2084.2 022800 01 ERROR-COUNTER PICTURE IS 999 VALUE IS ZERO. SQ2084.2 022900 01 INSPECT-COUNTER PIC 999 VALUE 7. SQ2084.2 023000 01 PASS-COUNTER PIC 999 VALUE ZERO. SQ2084.2 023100 01 TOTAL-ERROR PIC 999 VALUE ZERO. SQ2084.2 023200 01 ERROR-HOLD PIC 999 VALUE ZERO. SQ2084.2 023300 01 DUMMY-HOLD PIC X(120) VALUE SPACE. SQ2084.2 023400 01 RECORD-COUNT PIC 9(5) VALUE ZERO. SQ2084.2 023500 01 CCVS-H-1. SQ2084.2 023600 02 FILLER PICTURE X(27) VALUE SPACE. SQ2084.2 023700 02 FILLER PICTURE X(67) VALUE SQ2084.2 023800 " FEDERAL SOFTWARE TESTING CENTER COBOL COMPILER VALIDATION SQ2084.2 023900- " SYSTEM". SQ2084.2 024000 02 FILLER PICTURE X(26) VALUE SPACE. SQ2084.2 024100 01 CCVS-H-2. SQ2084.2 024200 02 FILLER PICTURE X(52) VALUE IS SQ2084.2 024300 "CCVS85 FSTC COPY, NOT FOR DISTRIBUTION.". SQ2084.2 024400 02 FILLER PICTURE IS X(19) VALUE IS "TEST RESULTS SET- ". SQ2084.2 024500 02 TEST-ID PICTURE IS X(9). SQ2084.2 024600 02 FILLER PICTURE IS X(40) VALUE IS SPACE. SQ2084.2 024700 01 CCVS-H-3. SQ2084.2 024800 02 FILLER PICTURE X(34) VALUE SQ2084.2 024900 " FOR OFFICIAL USE ONLY ". SQ2084.2 025000 02 FILLER PICTURE X(58) VALUE SQ2084.2 025100 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SQ2084.2 025200 02 FILLER PICTURE X(28) VALUE SQ2084.2 025300 " COPYRIGHT 1985 ". SQ2084.2 025400 01 CCVS-E-1. SQ2084.2 025500 02 FILLER PICTURE IS X(52) VALUE IS SPACE. SQ2084.2 025600 02 FILLER PICTURE IS X(14) VALUE IS "END OF TEST- ". SQ2084.2 025700 02 ID-AGAIN PICTURE IS X(9). SQ2084.2 025800 02 FILLER PICTURE X(45) VALUE IS SQ2084.2 025900 " NTIS DISTRIBUTION COBOL 85". SQ2084.2 026000 01 CCVS-E-2. SQ2084.2 026100 02 FILLER PICTURE X(31) VALUE SQ2084.2 026200 SPACE. SQ2084.2 026300 02 FILLER PICTURE X(21) VALUE SPACE. SQ2084.2 026400 02 CCVS-E-2-2. SQ2084.2 026500 03 ERROR-TOTAL PICTURE IS XXX VALUE IS SPACE. SQ2084.2 026600 03 FILLER PICTURE IS X VALUE IS SPACE. SQ2084.2 026700 03 ENDER-DESC PIC X(46) VALUE "ERRORS ENCOUNTERED". SQ2084.2 026800 01 CCVS-E-3. SQ2084.2 026900 02 FILLER PICTURE X(22) VALUE SQ2084.2 027000 " FOR OFFICIAL USE ONLY". SQ2084.2 027100 02 FILLER PICTURE X(12) VALUE SPACE. SQ2084.2 027200 02 FILLER PICTURE X(58) VALUE SQ2084.2 027300 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ2084.2 027400 02 FILLER PICTURE X(13) VALUE SPACE. SQ2084.2 027500 02 FILLER PIC X(15) VALUE " COPYRIGHT 1985". SQ2084.2 027600 01 CCVS-E-4. SQ2084.2 027700 02 CCVS-E-4-1 PIC XXX VALUE SPACE. SQ2084.2 027800 02 FILLER PIC XXXX VALUE " OF ". SQ2084.2 027900 02 CCVS-E-4-2 PIC XXX VALUE SPACE. SQ2084.2 028000 02 FILLER PIC X(40) VALUE SQ2084.2 028100 " TESTS WERE EXECUTED SUCCESSFULLY". SQ2084.2 028200 01 XXINFO. SQ2084.2 028300 02 FILLER PIC X(30) VALUE " *** INFORMATION ***". SQ2084.2 028400 02 INFO-TEXT. SQ2084.2 028500 04 FILLER PIC X(20) VALUE SPACE. SQ2084.2 028600 04 XXCOMPUTED PIC X(20). SQ2084.2 028700 04 FILLER PIC X(5) VALUE SPACE. SQ2084.2 028800 04 XXCORRECT PIC X(20). SQ2084.2 028900 01 HYPHEN-LINE. SQ2084.2 029000 02 FILLER PICTURE IS X VALUE IS SPACE. SQ2084.2 029100 02 FILLER PICTURE IS X(65) VALUE IS "************************SQ2084.2 029200- "*****************************************". SQ2084.2 029300 02 FILLER PICTURE IS X(54) VALUE IS "************************SQ2084.2 029400- "******************************". SQ2084.2 029500 01 CCVS-PGM-ID PIC X(6) VALUE SQ2084.2 029600 "SQ208M". SQ2084.2 029700 PROCEDURE DIVISION. SQ2084.2 029800 CCVS1 SECTION. SQ2084.2 029900 OPEN-FILES. SQ2084.2 030000 OPEN I-O RAW-DATA. SQ2084.2 030100 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. SQ2084.2 030200 READ RAW-DATA INVALID KEY GO TO END-E-1. SQ2084.2 030300 MOVE "ABORTED " TO C-ABORT. SQ2084.2 030400 ADD 1 TO C-NO-OF-TESTS. SQ2084.2 030500 ACCEPT C-DATE FROM DATE. SQ2084.2 030600 ACCEPT C-TIME FROM TIME. SQ2084.2 030700 REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1. SQ2084.2 030800 END-E-1. SQ2084.2 030900 CLOSE RAW-DATA. SQ2084.2 031000 OPEN OUTPUT PRINT-FILE. SQ2084.2 031100 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. SQ2084.2 031200 MOVE SPACE TO TEST-RESULTS. SQ2084.2 031300 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. SQ2084.2 031400 GO TO CCVS1-EXIT. SQ2084.2 031500 CLOSE-FILES. SQ2084.2 031600 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. SQ2084.2 031700 OPEN I-O RAW-DATA. SQ2084.2 031800 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. SQ2084.2 031900 READ RAW-DATA INVALID KEY GO TO END-E-2. SQ2084.2 032000 MOVE "OK. " TO C-ABORT. SQ2084.2 032100 MOVE PASS-COUNTER TO C-OK. SQ2084.2 032200 MOVE ERROR-HOLD TO C-ALL. SQ2084.2 032300 MOVE ERROR-COUNTER TO C-FAIL. SQ2084.2 032400 MOVE DELETE-CNT TO C-DELETED. SQ2084.2 032500 MOVE INSPECT-COUNTER TO C-INSPECT. SQ2084.2 032600 REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2. SQ2084.2 032700 END-E-2. SQ2084.2 032800 CLOSE RAW-DATA. SQ2084.2 032900 TERMINATE-CCVS. SQ2084.2 033000 EXIT PROGRAM. SQ2084.2 033100 TERMINATE-CALL. SQ2084.2 033200 STOP RUN. SQ2084.2 033300 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. SQ2084.2 033400 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. SQ2084.2 033500 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. SQ2084.2 033600 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-CNT. SQ2084.2 033700 MOVE "****TEST DELETED****" TO RE-MARK. SQ2084.2 033800 PRINT-DETAIL. SQ2084.2 033900 IF REC-CT NOT EQUAL TO ZERO SQ2084.2 034000 MOVE "." TO PARDOT-X SQ2084.2 034100 MOVE REC-CT TO DOTVALUE. SQ2084.2 034200 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. SQ2084.2 034300 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE SQ2084.2 034400 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX SQ2084.2 034500 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. SQ2084.2 034600 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. SQ2084.2 034700 MOVE SPACE TO CORRECT-X. SQ2084.2 034800 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. SQ2084.2 034900 MOVE SPACE TO RE-MARK. SQ2084.2 035000 HEAD-ROUTINE. SQ2084.2 035100 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2084.2 035200 MOVE CCVS-H-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES. SQ2084.2 035300 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. SQ2084.2 035400 COLUMN-NAMES-ROUTINE. SQ2084.2 035500 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2084.2 035600 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2084.2 035700 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2084.2 035800 END-ROUTINE. SQ2084.2 035900 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.SQ2084.2 036000 END-RTN-EXIT. SQ2084.2 036100 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2084.2 036200 END-ROUTINE-1. SQ2084.2 036300 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO SQ2084.2 036400 ERROR-HOLD. ADD DELETE-CNT TO ERROR-HOLD. SQ2084.2 036500 ADD PASS-COUNTER TO ERROR-HOLD. SQ2084.2 036600* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. SQ2084.2 036700 MOVE PASS-COUNTER TO CCVS-E-4-1. SQ2084.2 036800 MOVE ERROR-HOLD TO CCVS-E-4-2. SQ2084.2 036900 MOVE CCVS-E-4 TO CCVS-E-2-2. SQ2084.2 037000 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. SQ2084.2 037100 END-ROUTINE-12. SQ2084.2 037200 MOVE "TEST(S) FAILED" TO ENDER-DESC. SQ2084.2 037300 IF ERROR-COUNTER IS EQUAL TO ZERO SQ2084.2 037400 MOVE "NO " TO ERROR-TOTAL SQ2084.2 037500 ELSE SQ2084.2 037600 MOVE ERROR-COUNTER TO ERROR-TOTAL. SQ2084.2 037700 MOVE CCVS-E-2 TO DUMMY-RECORD. SQ2084.2 037800 PERFORM WRITE-LINE. SQ2084.2 037900 END-ROUTINE-13. SQ2084.2 038000 IF DELETE-CNT IS EQUAL TO ZERO SQ2084.2 038100 MOVE "NO " TO ERROR-TOTAL ELSE SQ2084.2 038200 MOVE DELETE-CNT TO ERROR-TOTAL. SQ2084.2 038300 MOVE "TEST(S) DELETED " TO ENDER-DESC. SQ2084.2 038400 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2084.2 038500 IF INSPECT-COUNTER EQUAL TO ZERO SQ2084.2 038600 MOVE "NO " TO ERROR-TOTAL SQ2084.2 038700 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. SQ2084.2 038800 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. SQ2084.2 038900 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2084.2 039000 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2084.2 039100 WRITE-LINE. SQ2084.2 039200 ADD 1 TO RECORD-COUNT. SQ2084.2 039300 IF RECORD-COUNT GREATER 50 SQ2084.2 039400 MOVE DUMMY-RECORD TO DUMMY-HOLD SQ2084.2 039500 MOVE SPACE TO DUMMY-RECORD SQ2084.2 039600 WRITE DUMMY-RECORD AFTER ADVANCING PAGE SQ2084.2 039700 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN SQ2084.2 039800 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES SQ2084.2 039900 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN SQ2084.2 040000 MOVE DUMMY-HOLD TO DUMMY-RECORD SQ2084.2 040100 MOVE ZERO TO RECORD-COUNT. SQ2084.2 040200 PERFORM WRT-LN. SQ2084.2 040300 WRT-LN. SQ2084.2 040400 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. SQ2084.2 040500 MOVE SPACE TO DUMMY-RECORD. SQ2084.2 040600 BLANK-LINE-PRINT. SQ2084.2 040700 PERFORM WRT-LN. SQ2084.2 040800 FAIL-ROUTINE. SQ2084.2 040900 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SQ2084.2 041000 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SQ2084.2 041100 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. SQ2084.2 041200 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2084.2 041300 GO TO FAIL-ROUTINE-EX. SQ2084.2 041400 FAIL-ROUTINE-WRITE. SQ2084.2 041500 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE SQ2084.2 041600 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. SQ2084.2 041700 FAIL-ROUTINE-EX. EXIT. SQ2084.2 041800 BAIL-OUT. SQ2084.2 041900 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. SQ2084.2 042000 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. SQ2084.2 042100 BAIL-OUT-WRITE. SQ2084.2 042200 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. SQ2084.2 042300 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2084.2 042400 BAIL-OUT-EX. EXIT. SQ2084.2 042500 CCVS1-EXIT. SQ2084.2 042600 EXIT. SQ2084.2 042700 SECT-SQ208M-0001 SECTION. SQ2084.2 042800 WRITE-INIT-GF-01. SQ2084.2 042900 MOVE COMMENT-LINE-1 TO PRINT-REC. SQ2084.2 043000 WRITE PRINT-REC AFTER ADVANCING 5 LINES. SQ2084.2 043100 MOVE COMMENT-LINE-2 TO PRINT-REC. SQ2084.2 043200 WRITE PRINT-REC AFTER ADVANCING 1 LINE. SQ2084.2 043300 MOVE SPACE TO DUMMY-RECORD. SQ2084.2 043400 PERFORM BLANK-LINE-PRINT. SQ2084.2 043500 WRITE-TEST-GF-01. SQ2084.2 043600* THIS TEST CHECKS THE RESULTS OF CHANGING THE VALUES SQ2084.2 043700* OF THE DATA-NAMES IN THE LINAGE CLAUSE AFTER AN SQ2084.2 043800* OPEN OUTPUT PRINT-FILE. SQ2084.2 043900 MOVE SPACE TO DUMMY-RECORD. SQ2084.2 044000 PERFORM INITIALIZE-PAGE. SQ2084.2 044100 MOVE "LINAGE AFTER OPEN" TO FEATURE. SQ2084.2 044200 MOVE "WRITE-TEST-GF-01" TO PAR-NAME. SQ2084.2 044300 PERFORM PRINT-DETAIL. SQ2084.2 044400 MOVE COMMENT-LINE-3 TO PRINT-REC. SQ2084.2 044500 WRITE PRINT-REC AFTER ADVANCING 5 LINES. SQ2084.2 044600 MOVE COMMENT-LINE-4 TO PRINT-REC. SQ2084.2 044700 WRITE PRINT-REC AFTER ADVANCING 1 LINE. SQ2084.2 044800 MOVE COMMENT-LINE-5 TO PRINT-REC. SQ2084.2 044900 WRITE PRINT-REC AFTER ADVANCING 1 LINES. SQ2084.2 045000 MOVE SPACE TO DUMMY-RECORD. SQ2084.2 045100 PERFORM PRINT-LAST-LINE. SQ2084.2 045200 MOVE SPACE TO DUMMY-RECORD. SQ2084.2 045300 PERFORM BLANK-LINE-PRINT. SQ2084.2 045400 MOVE 30 TO LINAGE-CTR, FOOT-CTR. SQ2084.2 045500 MOVE 1 TO TOP-CTR. SQ2084.2 045600 MOVE 2 TO BOTTOM-CTR. SQ2084.2 045700 MOVE 1 TO DL1-LINE-NO. SQ2084.2 045800 MOVE 123 TO DL1-TOTAL-LINES. SQ2084.2 045900 PERFORM PRINT-DETAIL-1 123 TIMES. SQ2084.2 046000 WRITE-TEST-GF-02. SQ2084.2 046100* THIS TEST CHECKS THE RESULTS OF CHANGING THE VALUES SQ2084.2 046200* OF THE DATA-NAMES IN THE LINAGE CLAUSE PRIOR TO A SQ2084.2 046300* PAGE OVERFLOW. SQ2084.2 046400 PERFORM INITIALIZE-PAGE. SQ2084.2 046500 MOVE "LINAGE AFT OVERFLOW" TO FEATURE. SQ2084.2 046600 MOVE "WRITE-TEST-GF-02" TO PAR-NAME. SQ2084.2 046700 PERFORM PRINT-DETAIL. SQ2084.2 046800 MOVE COMMENT-LINE-6 TO PRINT-REC. SQ2084.2 046900 WRITE PRINT-REC AFTER ADVANCING 5 LINES. SQ2084.2 047000 MOVE COMMENT-LINE-7 TO PRINT-REC. SQ2084.2 047100 WRITE PRINT-REC AFTER ADVANCING 1 LINE. SQ2084.2 047200 MOVE COMMENT-LINE-8 TO PRINT-REC. SQ2084.2 047300 WRITE PRINT-REC AFTER ADVANCING 1 LINE. SQ2084.2 047400 MOVE SPACE TO DUMMY-RECORD. SQ2084.2 047500 PERFORM PRINT-LAST-LINE. SQ2084.2 047600 MOVE 20 TO LINAGE-CTR, FOOT-CTR. SQ2084.2 047700 MOVE 2 TO TOP-CTR. SQ2084.2 047800 MOVE 3 TO BOTTOM-CTR. SQ2084.2 047900 MOVE SPACE TO DUMMY-RECORD. SQ2084.2 048000 PERFORM BLANK-LINE-PRINT. SQ2084.2 048100 MOVE 40 TO LINAGE-CTR, FOOT-CTR. SQ2084.2 048200 MOVE 1 TO TOP-CTR. SQ2084.2 048300 MOVE 2 TO BOTTOM-CTR. SQ2084.2 048400 MOVE 1 TO DL1-LINE-NO. SQ2084.2 048500 MOVE 136 TO DL1-TOTAL-LINES. SQ2084.2 048600 PERFORM PRINT-DETAIL-1 136 TIMES. SQ2084.2 048700 WRITE-TEST-GF-03. SQ2084.2 048800* THIS TEST CHECKS THE RESULTS OF CHANGING THE VALUES SQ2084.2 048900* OF THE DATA-NAMES IN THE LINAGE-CLAUSE PRIOR TO A SQ2084.2 049000* WRITE ADVANCING PAGE OPERATION. SQ2084.2 049100 PERFORM INITIALIZE-PAGE. SQ2084.2 049200 MOVE "LINAGE AFT WRT PAGE" TO FEATURE. SQ2084.2 049300 MOVE "WRITE-TEST-GF-03" TO PAR-NAME. SQ2084.2 049400 PERFORM PRINT-DETAIL. SQ2084.2 049500 MOVE COMMENT-LINE-9 TO PRINT-REC. SQ2084.2 049600 WRITE PRINT-REC AFTER ADVANCING 5 LINES. SQ2084.2 049700 MOVE COMMENT-LINE-10 TO PRINT-REC. SQ2084.2 049800 WRITE PRINT-REC AFTER ADVANCING 1 LINES. SQ2084.2 049900 MOVE SPACE TO DUMMY-RECORD. SQ2084.2 050000 PERFORM PRINT-LAST-LINE. SQ2084.2 050100 MOVE 20 TO LINAGE-CTR, FOOT-CTR. SQ2084.2 050200 MOVE 2 TO TOP-CTR. SQ2084.2 050300 MOVE 3 TO BOTTOM-CTR. SQ2084.2 050400 MOVE SPACE TO DUMMY-RECORD. SQ2084.2 050500 PERFORM BLANK-LINE-PRINT. SQ2084.2 050600 MOVE 1 TO DL1-LINE-NO. SQ2084.2 050700 MOVE 135 TO DL1-TOTAL-LINES. SQ2084.2 050800 PERFORM PRINT-DETAIL-2 15 TIMES. SQ2084.2 050900 MOVE 40 TO LINAGE-CTR, FOOT-CTR. SQ2084.2 051000 MOVE 1 TO TOP-CTR. SQ2084.2 051100 MOVE 2 TO BOTTOM-CTR. SQ2084.2 051200 MOVE SPACE TO DUMMY-RECORD. SQ2084.2 051300 WRITE PRINT-REC BEFORE ADVANCING PAGE. SQ2084.2 051400 MOVE 16 TO DL1-LINE-NO. SQ2084.2 051500 PERFORM PRINT-DETAIL-2 120 TIMES. SQ2084.2 051600 WRITE-TEST-GF-04. SQ2084.2 051700* THIS TEST CHECKS THE MINIMUM LINAGE VALUE OF 1 SQ2084.2 051800* AND THE MINIMUM TOP VALUE OF ZERO. SQ2084.2 051900 PERFORM INITIALIZE-PAGE. SQ2084.2 052000 MOVE "MIN LINAGE / 0 TOP" TO FEATURE. SQ2084.2 052100 MOVE "WRITE-TEST-GF-04" TO PAR-NAME. SQ2084.2 052200 PERFORM PRINT-DETAIL. SQ2084.2 052300 MOVE COMMENT-LINE-11 TO PRINT-REC. SQ2084.2 052400 WRITE PRINT-REC AFTER ADVANCING 5 LINES. SQ2084.2 052500 MOVE COMMENT-LINE-12 TO PRINT-REC. SQ2084.2 052600 WRITE PRINT-REC AFTER ADVANCING 1 LINE. SQ2084.2 052700 MOVE SPACE TO DUMMY-RECORD. SQ2084.2 052800 PERFORM PRINT-LAST-LINE. SQ2084.2 052900 MOVE 1 TO LINAGE-CTR, FOOT-CTR. SQ2084.2 053000 MOVE 0 TO TOP-CTR. SQ2084.2 053100 MOVE 2 TO BOTTOM-CTR. SQ2084.2 053200 MOVE 1 TO DL2-LINE-NO. SQ2084.2 053300 PERFORM PRINT-DETAIL-3 10 TIMES. SQ2084.2 053400 WRITE-TEST-GF-05. SQ2084.2 053500* THIS TEST CHECKS THE MINIMUM FOOTING VALUE OF 1 SQ2084.2 053600* AND THE MINIMUM BOTTOM VALUE OF ZERO. SQ2084.2 053700 PERFORM INITIALIZE-PAGE. SQ2084.2 053800 MOVE "MIN FOOTING / 0 BOTM" TO FEATURE. SQ2084.2 053900 MOVE "WRITE-TEST-GF-05" TO PAR-NAME. SQ2084.2 054000 PERFORM PRINT-DETAIL. SQ2084.2 054100 MOVE COMMENT-LINE-13 TO PRINT-REC. SQ2084.2 054200 WRITE PRINT-REC AFTER ADVANCING 5 LINES. SQ2084.2 054300 MOVE COMMENT-LINE-14 TO PRINT-REC. SQ2084.2 054400 WRITE PRINT-REC AFTER ADVANCING 1 LINE. SQ2084.2 054500 MOVE SPACE TO DUMMY-RECORD. SQ2084.2 054600 PERFORM PRINT-LAST-LINE. SQ2084.2 054700 MOVE 2 TO LINAGE-CTR. SQ2084.2 054800 MOVE 1 TO FOOT-CTR, TOP-CTR. SQ2084.2 054900 MOVE 0 TO BOTTOM-CTR. SQ2084.2 055000 MOVE 1 TO DL2-LINE-NO. SQ2084.2 055100 PERFORM PRINT-DETAIL-4 10 TIMES. SQ2084.2 055200 WRITE-TEST-GF-06. SQ2084.2 055300* THIS TEST SHOWS THE RESULTS OF A WRITE BEFORE SQ2084.2 055400* OPERATION WITH AN EOP PHRASE. LINAGE AND FOOTING SQ2084.2 055500* VALUES ARE SPECIFIED AND EQUAL. SQ2084.2 055600 MOVE SPACE TO DUMMY-RECORD. SQ2084.2 055700 PERFORM INITIALIZE-PAGE. SQ2084.2 055800 MOVE "WRITE BEFORE" TO FEATURE. SQ2084.2 055900 MOVE "WRITE-TEST-GF-06" TO PAR-NAME. SQ2084.2 056000 PERFORM PRINT-DETAIL. SQ2084.2 056100 MOVE INFO-LINE-1 TO PRINT-REC. SQ2084.2 056200 WRITE PRINT-REC AFTER ADVANCING 5 LINES. SQ2084.2 056300 MOVE INFO-LINE-3 TO PRINT-REC. SQ2084.2 056400 WRITE PRINT-REC AFTER ADVANCING 1 LINES. SQ2084.2 056500 MOVE INFO-LINE-4 TO PRINT-REC. SQ2084.2 056600 WRITE PRINT-REC AFTER ADVANCING 1 LINE. SQ2084.2 056700 MOVE INFO-LINE-6 TO PRINT-REC. SQ2084.2 056800 WRITE PRINT-REC AFTER ADVANCING 1 LINES. SQ2084.2 056900 MOVE INFO-LINE-8 TO PRINT-REC. SQ2084.2 057000 WRITE PRINT-REC AFTER ADVANCING 1 LINES. SQ2084.2 057100 MOVE SPACE TO DUMMY-RECORD. SQ2084.2 057200 PERFORM BLANK-LINE-PRINT UNTIL LINAGE-COUNTER EQUAL 66. SQ2084.2 057300 MOVE 40 TO LINAGE-CTR, FOOT-CTR. SQ2084.2 057400 MOVE 1 TO TOP-CTR, BOTTOM-CTR. SQ2084.2 057500 MOVE LAST-LINE TO PRINT-REC. SQ2084.2 057600 WRITE PRINT-REC BEFORE ADVANCING 1 LINE. SQ2084.2 057700 MOVE SPACE TO DUMMY-RECORD. SQ2084.2 057800 MOVE 1 TO DL3-LINE-NO. SQ2084.2 057900 PERFORM WRITE-BEFORE 60 TIMES. SQ2084.2 058000 WRITE-TEST-GF-07. SQ2084.2 058100* THIS TEST SHOWS THE RESULTS OF A WRITE AFTER SQ2084.2 058200* OPERATION WITH AN EOP PHRASE. LINAGE AND FOOTING SQ2084.2 058300* VALUES ARE SPECIFIED AND EQUAL. SQ2084.2 058400 MOVE SPACE TO DUMMY-RECORD. SQ2084.2 058500 PERFORM INITIALIZE-PAGE. SQ2084.2 058600 MOVE "WRITE AFTER" TO FEATURE. SQ2084.2 058700 MOVE "WRITE-TEST-GF-07" TO PAR-NAME. SQ2084.2 058800 PERFORM PRINT-DETAIL. SQ2084.2 058900 MOVE INFO-LINE-2 TO PRINT-REC. SQ2084.2 059000 WRITE PRINT-REC AFTER ADVANCING 5 LINES. SQ2084.2 059100 MOVE INFO-LINE-3 TO PRINT-REC. SQ2084.2 059200 WRITE PRINT-REC AFTER ADVANCING 1 LINES. SQ2084.2 059300 MOVE INFO-LINE-4 TO PRINT-REC. SQ2084.2 059400 WRITE PRINT-REC AFTER ADVANCING 1 LINE. SQ2084.2 059500 MOVE INFO-LINE-7 TO PRINT-REC. SQ2084.2 059600 WRITE PRINT-REC AFTER ADVANCING 1 LINES. SQ2084.2 059700 MOVE INFO-LINE-8 TO PRINT-REC. SQ2084.2 059800 WRITE PRINT-REC AFTER ADVANCING 1 LINE. SQ2084.2 059900 MOVE SPACE TO DUMMY-RECORD. SQ2084.2 060000 PERFORM BLANK-LINE-PRINT UNTIL LINAGE-COUNTER EQUAL 66. SQ2084.2 060100 MOVE 40 TO LINAGE-CTR, FOOT-CTR. SQ2084.2 060200 MOVE 1 TO TOP-CTR, BOTTOM-CTR. SQ2084.2 060300 MOVE LAST-LINE TO PRINT-REC. SQ2084.2 060400 WRITE PRINT-REC AFTER ADVANCING 1 LINE. SQ2084.2 060500 MOVE SPACE TO DUMMY-RECORD. SQ2084.2 060600 MOVE 1 TO DL3-LINE-NO. SQ2084.2 060700 PERFORM WRITE-AFTER 60 TIMES. SQ2084.2 060800 SQ208M-END-ROUTINE. SQ2084.2 060900 MOVE "END OF SQ208M VALIDATION TESTS" TO PRINT-REC. SQ2084.2 061000 WRITE PRINT-REC AFTER ADVANCING 1 LINE. SQ2084.2 061100 GO TO CCVS-EXIT. SQ2084.2 061200 INITIALIZE-PAGE. SQ2084.2 061300 MOVE 0 TO TOP-CTR, BOTTOM-CTR. SQ2084.2 061400 MOVE 66 TO LINAGE-CTR, FOOT-CTR. SQ2084.2 061500 PERFORM BLANK-LINE-PRINT UNTIL LINAGE-COUNTER EQUAL 1. SQ2084.2 061600 PRINT-LAST-LINE. SQ2084.2 061700 PERFORM BLANK-LINE-PRINT UNTIL LINAGE-COUNTER EQUAL 65. SQ2084.2 061800 MOVE LAST-LINE TO PRINT-REC. SQ2084.2 061900 WRITE PRINT-REC AFTER ADVANCING 1 LINE. SQ2084.2 062000 PRINT-DETAIL-1. SQ2084.2 062100 MOVE LINAGE-COUNTER TO DL1-LC. SQ2084.2 062200 MOVE DETAIL-LINE-1 TO PRINT-REC. SQ2084.2 062300 WRITE PRINT-REC BEFORE ADVANCING 1 LINE AT END-OF-PAGE SQ2084.2 062400 MOVE LINAGE-COUNTER TO FL1-LC SQ2084.2 062500 MOVE FOOT-LINE-1 TO PRINT-REC SQ2084.2 062600 WRITE PRINT-REC BEFORE ADVANCING 1 LINE. SQ2084.2 062700 ADD 1 TO DL1-LINE-NO. SQ2084.2 062800 PRINT-DETAIL-2. SQ2084.2 062900 MOVE LINAGE-COUNTER TO DL1-LC. SQ2084.2 063000 MOVE DETAIL-LINE-1 TO PRINT-REC. SQ2084.2 063100 WRITE PRINT-REC BEFORE ADVANCING 1 LINE. SQ2084.2 063200 ADD 1 TO DL1-LINE-NO. SQ2084.2 063300 PRINT-DETAIL-3. SQ2084.2 063400 MOVE LINAGE-COUNTER TO DL2-LC. SQ2084.2 063500 MOVE DETAIL-LINE-2 TO PRINT-REC. SQ2084.2 063600 WRITE PRINT-REC AFTER ADVANCING 1 LINE. SQ2084.2 063700 ADD 1 TO DL2-LINE-NO. SQ2084.2 063800 PRINT-DETAIL-4. SQ2084.2 063900 MOVE LINAGE-COUNTER TO DL2-LC. SQ2084.2 064000 MOVE DETAIL-LINE-2 TO PRINT-REC. SQ2084.2 064100 WRITE PRINT-REC AFTER ADVANCING 1 LINE AT EOP SQ2084.2 064200 MOVE LINAGE-COUNTER TO FL1-LC SQ2084.2 064300 MOVE FOOT-LINE-1 TO PRINT-REC SQ2084.2 064400 WRITE PRINT-REC AFTER ADVANCING 1 LINE. SQ2084.2 064500 ADD 1 TO DL2-LINE-NO. SQ2084.2 064600 WRITE-BEFORE. SQ2084.2 064700 MOVE LINAGE-COUNTER TO DL3-LC. SQ2084.2 064800 MOVE DETAIL-LINE-3 TO PRINT-REC. SQ2084.2 064900 WRITE PRINT-REC BEFORE ADVANCING 1 LINE AT EOP SQ2084.2 065000 MOVE LINAGE-COUNTER TO FL3-LC SQ2084.2 065100 MOVE FOOT-LINE-3 TO PRINT-REC SQ2084.2 065200 WRITE PRINT-REC BEFORE ADVANCING 1 LINE. SQ2084.2 065300 ADD 1 TO DL3-LINE-NO. SQ2084.2 065400 WRITE-AFTER. SQ2084.2 065500 MOVE LINAGE-COUNTER TO DL3-LC. SQ2084.2 065600 MOVE DETAIL-LINE-3 TO PRINT-REC. SQ2084.2 065700 WRITE PRINT-REC AFTER ADVANCING 1 LINE AT EOP SQ2084.2 065800 MOVE LINAGE-COUNTER TO FL3-LC SQ2084.2 065900 MOVE FOOT-LINE-3 TO PRINT-REC SQ2084.2 066000 WRITE PRINT-REC AFTER ADVANCING 1 LINE. SQ2084.2 066100 ADD 1 TO DL3-LINE-NO. SQ2084.2 066200 CCVS-EXIT SECTION. SQ2084.2 066300 CCVS-999999. SQ2084.2 066400 GO TO CLOSE-FILES. SQ2084.2 ¤ Dauer der Verarbeitung: 0.155 Sekunden (vorverarbeitet) ¤ |
schauen Sie vor die Tür
Fenster
Die Firma ist wie angegeben erreichbar.Die farbliche Syntaxdarstellung ist noch experimentell.Bot Zugriff |
