000100 IDENTIFICATION DIVISION . SQ2084.2PROGRAM-ID . SQ2084.2000400**************************************************************** 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 ENVIRONMENT DIVISION . SQ2084.2CONFIGURATION SECTION . SQ2084.2SOURCE-COMPUTER . SQ2084.2OBJECT-COMPUTER . SQ2084.2INPUT-OUTPUT SECTION . SQ2084.2FILE-CONTROL . SQ2084.2SELECT RAW-DATA ASSIGN TO SQ2084.2"C0098" SQ2084.2ORGANIZATION IS INDEXED SQ2084.2ACCESS MODE IS RANDOM SQ2084.2RECORD KEY IS RAW-DATA-KEY. SQ2084.2SELECT PRINT-FILE ASSIGN TO SQ2084.2"C0085" . SQ2084.2DATA DIVISION . SQ2084.2FILE SECTION . SQ2084.2FD RAW-DATA. SQ2084.2PIC X(6). SQ2084.2PIC 9(6). SQ2084.2PIC 9(8). SQ2084.2PIC 99. SQ2084.2PIC 999. SQ2084.2PIC 999. SQ2084.2PIC 999. SQ2084.2PIC 999. SQ2084.2PIC 999. SQ2084.2PIC X(13). SQ2084.2PIC X. SQ2084.2PIC X(8). SQ2084.2FD PRINT-FILE SQ2084.2LABEL RECORDS SQ2084.2DATA RECORD IS PRINT-REC DUMMY-RECORD SQ2084.2LINAGE LINAGE-CTR SQ2084.2FOOTING FOOT-CTR SQ2084.2TOP TOP-CTR SQ2084.2BOTTOM BOTTOM-CTR. SQ2084.2PICTURE X(120). SQ2084.2PICTURE X(120). SQ2084.2WORKING-STORAGE SECTION . SQ2084.2PIC 999 VALUE 66. SQ2084.2PIC 999 VALUE 66. SQ2084.2PIC 999 VALUE 0. SQ2084.2PIC 999 VALUE 0. SQ2084.2FILLER PIC X(20) VALUE SPACE . SQ2084.2FILLER PIC X(13) VALUE "THIS IS LINE " . SQ2084.2PIC 999. SQ2084.2FILLER PIC X(4) VALUE " OF " . SQ2084.2PIC 999. SQ2084.2FILLER PIC X(34) VALUE " DETAIL LINES. LINAGESQ2084.2 "-COUNTER IS " . SQ2084.2PIC 999. SQ2084.2FILLER PIC X(40) VALUE "." . SQ2084.2FILLER PIC X(20) VALUE SPACE . SQ2084.2FILLER PIC X(13) VALUE "THIS IS LINE " . SQ2084.2PIC 999. SQ2084.2FILLER PIC X(41) VALUE " OF 010 DETAIL LINES. SQ2084.2 " LINAGE-COUNTER IS " . SQ2084.2PIC 999. SQ2084.2FILLER PIC X(40) VALUE "." . SQ2084.2FILLER PIC X(20) VALUE SPACE . SQ2084.2FILLER PIC X(13) VALUE "THIS IS LINE " . SQ2084.2PIC 99. SQ2084.2FILLER PIC X(40) VALUE " OF 60 DETAIL LINES. SQ2084.2 "LINAGE-COUNTER IS " . SQ2084.2PIC 999. SQ2084.2FILLER PIC X(42) VALUE "." . SQ2084.2FILLER PIC X(20) VALUE SPACE . SQ2084.2FILLER PIC X(57) VALUE "THIS IS LINE 001 OF 00SQ2084.2 "1 FOOTING LINES. LINAGE-COUNTER IS " . SQ2084.2PIC 999. SQ2084.2FILLER PIC X(40) VALUE "." . SQ2084.2FILLER PIC X(103) VALUE "THIS LINE WAS PRINTED SQ2084.2 "FROM AN EOP CLAUSE. THE VALUE OF THE LINAGE-COUNTER PRIOR TSQ2084.2 "O THIS EXECUTION IS " . SQ2084.2PIC 999. SQ2084.2FILLER PIC X(14) VALUE "." . SQ2084.2PIC X(120) VALUE "THIS TEST IS DESIGNED SQ2084.2 "TO TEST THE OVERFLOW RESULTS OF A WRITE BEFORE ADVANCING OPESQ2084.2 "RATION CONTAINING AN EOP PHRASE." . SQ2084.2PIC X(120) VALUE "THIS TEST IS DESIGNED SQ2084.2 "TO TEST THE OVERFLOW RESULTS OF A WRITE AFTER ADVANCING OPERSQ2084.2 "ATION CONTAINING AN EOP PHRASE." . SQ2084.2PIC X(120) VALUE "FOR THIS TEST LINAGE ASQ2084.2 "ND FOOTING VALUES ARE 40." . SQ2084.2PIC X(120) VALUE "39 DETAIL LINES SHOULDSQ2084.2 " PRINT ON THE 1ST LOGICAL PAGE AND THE REMAINING 21 DETAIL LSQ2084.2 "INES ON THE 2ND LOGICAL PAGE." . SQ2084.2PIC X(120) VALUE "THE EOP LINE SHOULD FOSQ2084.2 "LLOW DETAIL LINE 39 AND BE THE LAST LINE ON THE 1ST LOGICAL SQ2084.2 "PAGE." . SQ2084.2PIC X(120) VALUE "THE EOP LINE SHOULD FOSQ2084.2 "LLOW DETAIL LINE 39 AND BE THE FIRST LINE ON THE 2ND LOGICALSQ2084.2 " PAGE." . SQ2084.2PIC X(120) VALUE "ALL LINAGE-COUNTER VALSQ2084.2 "UES REPRESENT VALUES PRIOR TO EXECUTION OF THE WRITE OPERATISQ2084.2 "ON. NO MODIFICATIONS HAVE BEEN MADE." . SQ2084.2PIC X(120) VALUE "BECAUSE OF THE NATURE SQ2084.2 "OF THESE TESTS A PASS OR FAIL CANNOT BE DETERMINED WITHIN THSQ2084.2 "E PROGRAM. THE USER MUST VISUALLY" . SQ2084.2PIC X(120) VALUE "CHECK THE POSITION OF SQ2084.2 "EACH LINE TO DETERMINE THE ACCURACY OF THE VARIOUS WRITE OPTSQ2084.2 "IONS. VII-22, 3.2.2 LINAGE, VII-27-29" . SQ2084.2PIC X(120) VALUE "IN THIS TEST THE FIRSTSQ2084.2 " LOGICAL PAGE SHOULD CONTAIN 65 DETAIL LINES." . SQ2084.2PIC X(120) VALUE "1 FOOTING LINE AND BE SQ2084.2 "FOLLOWED BY 1 BLANK LINE. ALL SUCCEEDING LOGICAL PAGES SHOUSQ2084.2 "LD CONTAIN 29 DETAIL LINES, 1 FOOTING" . SQ2084.2PIC X(120) VALUE "LINE AND BE SEPARATED SQ2084.2 "BY 3 BLANK LINES" . SQ2084.2PIC X(120) VALUE "IN THIS TEST THE FIRSTSQ2084.2 " LOGICAL PAGE SHOULD CONTAIN 19 DETAIL LINES, 1 FOOTING LINESQ2084.2 ", BE PRECEDED BY 2 BLANK LINES, AND" . SQ2084.2PIC X(120) VALUE "BE FOLLOWED BY 4 BLANKSQ2084.2 " LINES. ALL SUCCEEDING LOGICAL PAGES SHOULD CONTAIN 39 DETASQ2084.2 "IL LINES, 1 FOOTING LINE, AND BE" . SQ2084.2PIC X(120) VALUE "SEPARATED BY 3 BLANK LSQ2084.2 "INES." . SQ2084.2PIC X(120) VALUE "IN THIS TEST THE FIRSTSQ2084.2 " LOGICAL PAGE SHOULD CONTAIN 15 DETAIL LINES, BE PRECEDED BYSQ2084.2 " 2 BLANK LINES, AND BE FOLLOWED BY" . SQ2084.2PIC X(120) VALUE "9 BLANK LINES. ALL SUSQ2084.2 "CCEEDING LOGICAL PAGES SHOULD CONTAIN 40 DETAIL LINES AND BESQ2084.2 " SEPARATED BY 3 BLANK LINES." . SQ2084.2PIC X(120) VALUE "THIS TEST IS DESIGNED SQ2084.2 "TO TEST THE MINIMUM LINAGE VALUE OF 1 AND THE MINIMUM TOP VASQ2084.2 "LUE OF ZERO. EACH LOGICAL PAGE SHOULD" . SQ2084.2PIC X(120) VALUE "CONTAIN 1 DETAIL LINE SQ2084.2 "AND BE SEPARATED BY 2 BLANK LINES. THE FIRST PAGE SHOULD NOSQ2084.2 "T BE PRECEDED BY ANY BLANK LINES." . SQ2084.2PIC X(120) VALUE "THIS TEST IS DESIGNED SQ2084.2 "TO TEST THE MINIMUM FOOTING LINE VALUE OF 1 AND MINIMUM BOTTSQ2084.2 "OM VALUE OF ZERO. EACH LOGICAL PAGE" . SQ2084.2PIC X(120) VALUE "SHOULD CONTAIN 1 DETAISQ2084.2 "L LINE, 1 FOOTING LINE, AND BE SEPARATED BY 1 BLANK LINE." . SQ2084.2PIC X(120) VALUE "THIS IS THE LAST LINE SQ2084.2 "IN THE PAGE BODY OF THIS LOGICAL PAGE. USE IT AS A REFERENCSQ2084.2 "E POINT FOR THE FOLLOWING TEST PAGES." . SQ2084.2FILLER PICTURE X VALUE SPACE . SQ2084.2PICTURE X(20) VALUE SPACE . SQ2084.2FILLER PICTURE X VALUE SPACE . SQ2084.2PICTURE X(5) VALUE SPACE . SQ2084.2FILLER PICTURE X VALUE SPACE . SQ2084.2FILLER PICTURE X(12) VALUE SPACE . SQ2084.2PICTURE X VALUE SPACE . SQ2084.2PICTURE 99 VALUE ZERO . SQ2084.2FILLER PIC X(5) VALUE SPACE . SQ2084.2FILLER PIC X(10) VALUE SPACE . SQ2084.2PIC X(61). SQ2084.2FILLER PIC X(30) VALUE SPACE . SQ2084.2FILLER PIC X(17) VALUE " COMPUTED=" . SQ2084.2PICTURE X(20) VALUE SPACE . SQ2084.2REDEFINES COMPUTED-A PICTURE -9(9).9(9). SQ2084.2REDEFINES COMPUTED-A PICTURE -.9(18). SQ2084.2REDEFINES COMPUTED-A PICTURE -9(4).9(14). SQ2084.2REDEFINES COMPUTED-A PICTURE -9(14).9(4). SQ2084.2REDEFINES COMPUTED-A. SQ2084.2PICTURE -9(18). SQ2084.2FILLER PICTURE X. SQ2084.2FILLER PIC X(50) VALUE SPACE . SQ2084.2FILLER PIC X(30) VALUE SPACE . SQ2084.2FILLER PIC X(17) VALUE " CORRECT =" . SQ2084.2PICTURE X(20) VALUE SPACE . SQ2084.2REDEFINES CORRECT-A PICTURE -9(9).9(9). SQ2084.2REDEFINES CORRECT-A PICTURE -.9(18). SQ2084.2REDEFINES CORRECT-A PICTURE -9(4).9(14). SQ2084.2REDEFINES CORRECT-A PICTURE -9(14).9(4). SQ2084.2REDEFINES CORRECT-A. SQ2084.2PICTURE -9(18). SQ2084.2FILLER PICTURE X. SQ2084.2FILLER PIC X(50) VALUE SPACE . SQ2084.2FILLER PICTURE IS X(99) VALUE IS " FEATURE PASQ2084.2 "SS PARAGRAPH-NAME SQ2084.2 " REMARKS" . SQ2084.2FILLER PICTURE IS X(20) VALUE IS SPACE . SQ2084.2FILLER PICTURE IS X VALUE IS SPACE . SQ2084.2FILLER PICTURE IS X(6) VALUE IS "TESTED" . SQ2084.2FILLER PICTURE IS X(15) VALUE IS SPACE . SQ2084.2FILLER PICTURE IS X(4) VALUE IS "FAIL" . SQ2084.2FILLER PICTURE IS X(94) VALUE IS SPACE . SQ2084.2PICTURE 9(2) VALUE ZERO . SQ2084.2PICTURE 99 VALUE ZERO . SQ2084.2PICTURE 999 VALUE ZERO . SQ2084.2PICTURE IS 999 VALUE IS ZERO . SQ2084.2PIC 999 VALUE 7. SQ2084.2PIC 999 VALUE ZERO . SQ2084.2PIC 999 VALUE ZERO . SQ2084.2PIC 999 VALUE ZERO . SQ2084.2PIC X(120) VALUE SPACE . SQ2084.2PIC 9(5) VALUE ZERO . SQ2084.2FILLER PICTURE X(27) VALUE SPACE . SQ2084.2FILLER PICTURE X(67) VALUE SQ2084.2" FEDERAL SOFTWARE TESTING CENTER COBOL COMPILER VALIDATION SQ2084.2 " SYSTEM" . SQ2084.2FILLER PICTURE X(26) VALUE SPACE . SQ2084.2FILLER PICTURE X(52) VALUE IS SQ2084.2"CCVS85 FSTC COPY, NOT FOR DISTRIBUTION." . SQ2084.2FILLER PICTURE IS X(19) VALUE IS "TEST RESULTS SET- " . SQ2084.2PICTURE IS X(9). SQ2084.2FILLER PICTURE IS X(40) VALUE IS SPACE . SQ2084.2FILLER PICTURE X(34) VALUE SQ2084.2" FOR OFFICIAL USE ONLY " . SQ2084.2FILLER PICTURE X(58) VALUE SQ2084.2"COBOL 85 VERSION 4.2, Apr 1993 SSVG " .SQ2084.2FILLER PICTURE X(28) VALUE SQ2084.2" COPYRIGHT 1985 " . SQ2084.2FILLER PICTURE IS X(52) VALUE IS SPACE . SQ2084.2FILLER PICTURE IS X(14) VALUE IS "END OF TEST- " . SQ2084.2PICTURE IS X(9). SQ2084.2FILLER PICTURE X(45) VALUE IS SQ2084.2" NTIS DISTRIBUTION COBOL 85" . SQ2084.2FILLER PICTURE X(31) VALUE SQ2084.2SPACE . SQ2084.2FILLER PICTURE X(21) VALUE SPACE . SQ2084.2PICTURE IS XXX VALUE IS SPACE . SQ2084.2FILLER PICTURE IS X VALUE IS SPACE . SQ2084.2PIC X(46) VALUE "ERRORS ENCOUNTERED" . SQ2084.2FILLER PICTURE X(22) VALUE SQ2084.2" FOR OFFICIAL USE ONLY" . SQ2084.2FILLER PICTURE X(12) VALUE SPACE . SQ2084.2FILLER PICTURE X(58) VALUE SQ2084.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .SQ2084.2FILLER PICTURE X(13) VALUE SPACE . SQ2084.2FILLER PIC X(15) VALUE " COPYRIGHT 1985" . SQ2084.2PIC XXX VALUE SPACE . SQ2084.2FILLER PIC XXXX VALUE " OF " . SQ2084.2PIC XXX VALUE SPACE . SQ2084.2FILLER PIC X(40) VALUE SQ2084.2" TESTS WERE EXECUTED SUCCESSFULLY" . SQ2084.2FILLER PIC X(30) VALUE " *** INFORMATION ***" . SQ2084.2FILLER PIC X(20) VALUE SPACE . SQ2084.2PIC X(20). SQ2084.2FILLER PIC X(5) VALUE SPACE . SQ2084.2PIC X(20). SQ2084.2FILLER PICTURE IS X VALUE IS SPACE . SQ2084.2FILLER PICTURE IS X(65) VALUE IS "************************SQ2084.2 "*****************************************" . SQ2084.2FILLER PICTURE IS X(54) VALUE IS "************************SQ2084.2 "******************************" . SQ2084.2PIC X(6) VALUE SQ2084.2"SQ208M" . SQ2084.2PROCEDURE DIVISION . SQ2084.2SECTION . SQ2084.2OPEN I-O RAW-DATA. SQ2084.2MOVE CCVS-PGM-ID TO RAW-DATA-KEY. SQ2084.2READ RAW-DATA INVALID KEY GO TO END-E-1. SQ2084.2MOVE "ABORTED " TO C-ABORT. SQ2084.2ADD 1 TO C-NO-OF-TESTS. SQ2084.2ACCEPT C-DATE FROM DATE . SQ2084.2ACCEPT C-TIME FROM TIME . SQ2084.2REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1. SQ2084.2CLOSE RAW-DATA. SQ2084.2OPEN OUTPUT PRINT-FILE. SQ2084.2MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. SQ2084.2MOVE SPACE TO TEST-RESULTS. SQ2084.2PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. SQ2084.2GO TO CCVS1-EXIT. SQ2084.2PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. SQ2084.2OPEN I-O RAW-DATA. SQ2084.2MOVE CCVS-PGM-ID TO RAW-DATA-KEY. SQ2084.2READ RAW-DATA INVALID KEY GO TO END-E-2. SQ2084.2MOVE "OK. " TO C-ABORT. SQ2084.2MOVE PASS-COUNTER TO C-OK. SQ2084.2MOVE ERROR-HOLD TO C-ALL. SQ2084.2MOVE ERROR-COUNTER TO C-FAIL. SQ2084.2MOVE DELETE-CNT TO C-DELETED. SQ2084.2MOVE INSPECT-COUNTER TO C-INSPECT. SQ2084.2REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2. SQ2084.2CLOSE RAW-DATA. SQ2084.2EXIT PROGRAM . SQ2084.2STOP RUN . SQ2084.2MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. SQ2084.2MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. SQ2084.2MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. SQ2084.2MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-CNT. SQ2084.2MOVE "****TEST DELETED****" TO RE-MARK. SQ2084.2IF REC-CT NOT EQUAL TO ZERO SQ2084.2MOVE "." TO PARDOT-X SQ2084.2MOVE REC-CT TO DOTVALUE. SQ2084.2MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. SQ2084.2IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE SQ2084.2PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX SQ2084.2ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. SQ2084.2MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. SQ2084.2MOVE SPACE TO CORRECT-X. SQ2084.2IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. SQ2084.2MOVE SPACE TO RE-MARK. SQ2084.2MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2084.2MOVE CCVS-H-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES. SQ2084.2MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. SQ2084.2MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2084.2MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2084.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2084.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.SQ2084.2MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2084.2ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO SQ2084.2ADD DELETE-CNT TO ERROR-HOLD. SQ2084.2ADD PASS-COUNTER TO ERROR-HOLD. SQ2084.2036600* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. SQ2084.2 MOVE PASS-COUNTER TO CCVS-E-4-1. SQ2084.2MOVE ERROR-HOLD TO CCVS-E-4-2. SQ2084.2MOVE CCVS-E-4 TO CCVS-E-2-2. SQ2084.2MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. SQ2084.2MOVE "TEST(S) FAILED" TO ENDER-DESC. SQ2084.2IF ERROR-COUNTER IS EQUAL TO ZERO SQ2084.2MOVE "NO " TO ERROR-TOTAL SQ2084.2ELSE SQ2084.2MOVE ERROR-COUNTER TO ERROR-TOTAL. SQ2084.2MOVE CCVS-E-2 TO DUMMY-RECORD. SQ2084.2PERFORM WRITE-LINE. SQ2084.2IF DELETE-CNT IS EQUAL TO ZERO SQ2084.2MOVE "NO " TO ERROR-TOTAL ELSE SQ2084.2MOVE DELETE-CNT TO ERROR-TOTAL. SQ2084.2MOVE "TEST(S) DELETED " TO ENDER-DESC. SQ2084.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2084.2IF INSPECT-COUNTER EQUAL TO ZERO SQ2084.2MOVE "NO " TO ERROR-TOTAL SQ2084.2ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. SQ2084.2MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. SQ2084.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2084.2MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. SQ2084.2ADD 1 TO RECORD-COUNT. SQ2084.2IF RECORD-COUNT GREATER 50 SQ2084.2MOVE DUMMY-RECORD TO DUMMY-HOLD SQ2084.2MOVE SPACE TO DUMMY-RECORD SQ2084.2WRITE DUMMY-RECORD AFTER ADVANCING PAGE SQ2084.2MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN SQ2084.2MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES SQ2084.2MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN SQ2084.2MOVE DUMMY-HOLD TO DUMMY-RECORD SQ2084.2MOVE ZERO TO RECORD-COUNT. SQ2084.2PERFORM WRT-LN. SQ2084.2WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. SQ2084.2MOVE SPACE TO DUMMY-RECORD. SQ2084.2PERFORM WRT-LN. SQ2084.2IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SQ2084.2IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. SQ2084.2MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. SQ2084.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2084.2GO TO FAIL-ROUTINE-EX. SQ2084.2MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE SQ2084.2MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. SQ2084.2EXIT . SQ2084.2IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. SQ2084.2IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. SQ2084.2MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. SQ2084.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. SQ2084.2EXIT . SQ2084.2EXIT . SQ2084.2SECTION . SQ2084.2MOVE COMMENT-LINE-1 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 5 LINES. SQ2084.2MOVE COMMENT-LINE-2 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINE . SQ2084.2MOVE SPACE TO DUMMY-RECORD. SQ2084.2PERFORM BLANK-LINE-PRINT. SQ2084.2043600* 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 MOVE SPACE TO DUMMY-RECORD. SQ2084.2PERFORM INITIALIZE-PAGE. SQ2084.2MOVE "LINAGE AFTER OPEN" TO FEATURE. SQ2084.2MOVE "WRITE-TEST-GF-01" TO PAR-NAME. SQ2084.2PERFORM PRINT-DETAIL. SQ2084.2MOVE COMMENT-LINE-3 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 5 LINES. SQ2084.2MOVE COMMENT-LINE-4 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINE . SQ2084.2MOVE COMMENT-LINE-5 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINES. SQ2084.2MOVE SPACE TO DUMMY-RECORD. SQ2084.2PERFORM PRINT-LAST-LINE. SQ2084.2MOVE SPACE TO DUMMY-RECORD. SQ2084.2PERFORM BLANK-LINE-PRINT. SQ2084.2MOVE 30 TO LINAGE-CTR, FOOT-CTR. SQ2084.2MOVE 1 TO TOP-CTR. SQ2084.2MOVE 2 TO BOTTOM-CTR. SQ2084.2MOVE 1 TO DL1-LINE-NO. SQ2084.2MOVE 123 TO DL1-TOTAL-LINES. SQ2084.2PERFORM PRINT-DETAIL-1 123 TIMES. SQ2084.2046100* 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 PERFORM INITIALIZE-PAGE. SQ2084.2MOVE "LINAGE AFT OVERFLOW" TO FEATURE. SQ2084.2MOVE "WRITE-TEST-GF-02" TO PAR-NAME. SQ2084.2PERFORM PRINT-DETAIL. SQ2084.2MOVE COMMENT-LINE-6 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 5 LINES. SQ2084.2MOVE COMMENT-LINE-7 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINE . SQ2084.2MOVE COMMENT-LINE-8 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINE . SQ2084.2MOVE SPACE TO DUMMY-RECORD. SQ2084.2PERFORM PRINT-LAST-LINE. SQ2084.2MOVE 20 TO LINAGE-CTR, FOOT-CTR. SQ2084.2MOVE 2 TO TOP-CTR. SQ2084.2MOVE 3 TO BOTTOM-CTR. SQ2084.2MOVE SPACE TO DUMMY-RECORD. SQ2084.2PERFORM BLANK-LINE-PRINT. SQ2084.2MOVE 40 TO LINAGE-CTR, FOOT-CTR. SQ2084.2MOVE 1 TO TOP-CTR. SQ2084.2MOVE 2 TO BOTTOM-CTR. SQ2084.2MOVE 1 TO DL1-LINE-NO. SQ2084.2MOVE 136 TO DL1-TOTAL-LINES. SQ2084.2PERFORM PRINT-DETAIL-1 136 TIMES. SQ2084.2048800* 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 PERFORM INITIALIZE-PAGE. SQ2084.2MOVE "LINAGE AFT WRT PAGE" TO FEATURE. SQ2084.2MOVE "WRITE-TEST-GF-03" TO PAR-NAME. SQ2084.2PERFORM PRINT-DETAIL. SQ2084.2MOVE COMMENT-LINE-9 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 5 LINES. SQ2084.2MOVE COMMENT-LINE-10 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINES. SQ2084.2MOVE SPACE TO DUMMY-RECORD. SQ2084.2PERFORM PRINT-LAST-LINE. SQ2084.2MOVE 20 TO LINAGE-CTR, FOOT-CTR. SQ2084.2MOVE 2 TO TOP-CTR. SQ2084.2MOVE 3 TO BOTTOM-CTR. SQ2084.2MOVE SPACE TO DUMMY-RECORD. SQ2084.2PERFORM BLANK-LINE-PRINT. SQ2084.2MOVE 1 TO DL1-LINE-NO. SQ2084.2MOVE 135 TO DL1-TOTAL-LINES. SQ2084.2PERFORM PRINT-DETAIL-2 15 TIMES. SQ2084.2MOVE 40 TO LINAGE-CTR, FOOT-CTR. SQ2084.2MOVE 1 TO TOP-CTR. SQ2084.2MOVE 2 TO BOTTOM-CTR. SQ2084.2MOVE SPACE TO DUMMY-RECORD. SQ2084.2WRITE PRINT-REC BEFORE ADVANCING PAGE . SQ2084.2MOVE 16 TO DL1-LINE-NO. SQ2084.2PERFORM PRINT-DETAIL-2 120 TIMES. SQ2084.2051700* THIS TEST CHECKS THE MINIMUM LINAGE VALUE OF 1 SQ2084.2 051800* AND THE MINIMUM TOP VALUE OF ZERO. SQ2084.2 PERFORM INITIALIZE-PAGE. SQ2084.2MOVE "MIN LINAGE / 0 TOP" TO FEATURE. SQ2084.2MOVE "WRITE-TEST-GF-04" TO PAR-NAME. SQ2084.2PERFORM PRINT-DETAIL. SQ2084.2MOVE COMMENT-LINE-11 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 5 LINES. SQ2084.2MOVE COMMENT-LINE-12 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINE . SQ2084.2MOVE SPACE TO DUMMY-RECORD. SQ2084.2PERFORM PRINT-LAST-LINE. SQ2084.2MOVE 1 TO LINAGE-CTR, FOOT-CTR. SQ2084.2MOVE 0 TO TOP-CTR. SQ2084.2MOVE 2 TO BOTTOM-CTR. SQ2084.2MOVE 1 TO DL2-LINE-NO. SQ2084.2PERFORM PRINT-DETAIL-3 10 TIMES. SQ2084.2053500* THIS TEST CHECKS THE MINIMUM FOOTING VALUE OF 1 SQ2084.2 053600* AND THE MINIMUM BOTTOM VALUE OF ZERO. SQ2084.2 PERFORM INITIALIZE-PAGE. SQ2084.2MOVE "MIN FOOTING / 0 BOTM" TO FEATURE. SQ2084.2MOVE "WRITE-TEST-GF-05" TO PAR-NAME. SQ2084.2PERFORM PRINT-DETAIL. SQ2084.2MOVE COMMENT-LINE-13 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 5 LINES. SQ2084.2MOVE COMMENT-LINE-14 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINE . SQ2084.2MOVE SPACE TO DUMMY-RECORD. SQ2084.2PERFORM PRINT-LAST-LINE. SQ2084.2MOVE 2 TO LINAGE-CTR. SQ2084.2MOVE 1 TO FOOT-CTR, TOP-CTR. SQ2084.2MOVE 0 TO BOTTOM-CTR. SQ2084.2MOVE 1 TO DL2-LINE-NO. SQ2084.2PERFORM PRINT-DETAIL-4 10 TIMES. SQ2084.2055300* 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 MOVE SPACE TO DUMMY-RECORD. SQ2084.2PERFORM INITIALIZE-PAGE. SQ2084.2MOVE "WRITE BEFORE" TO FEATURE. SQ2084.2MOVE "WRITE-TEST-GF-06" TO PAR-NAME. SQ2084.2PERFORM PRINT-DETAIL. SQ2084.2MOVE INFO-LINE-1 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 5 LINES. SQ2084.2MOVE INFO-LINE-3 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINES. SQ2084.2MOVE INFO-LINE-4 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINE . SQ2084.2MOVE INFO-LINE-6 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINES. SQ2084.2MOVE INFO-LINE-8 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINES. SQ2084.2MOVE SPACE TO DUMMY-RECORD. SQ2084.2PERFORM BLANK-LINE-PRINT UNTIL LINAGE-COUNTER EQUAL 66. SQ2084.2MOVE 40 TO LINAGE-CTR, FOOT-CTR. SQ2084.2MOVE 1 TO TOP-CTR, BOTTOM-CTR. SQ2084.2MOVE LAST-LINE TO PRINT-REC. SQ2084.2WRITE PRINT-REC BEFORE ADVANCING 1 LINE . SQ2084.2MOVE SPACE TO DUMMY-RECORD. SQ2084.2MOVE 1 TO DL3-LINE-NO. SQ2084.2PERFORM WRITE-BEFORE 60 TIMES. SQ2084.2058100* 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 MOVE SPACE TO DUMMY-RECORD. SQ2084.2PERFORM INITIALIZE-PAGE. SQ2084.2MOVE "WRITE AFTER" TO FEATURE. SQ2084.2MOVE "WRITE-TEST-GF-07" TO PAR-NAME. SQ2084.2PERFORM PRINT-DETAIL. SQ2084.2MOVE INFO-LINE-2 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 5 LINES. SQ2084.2MOVE INFO-LINE-3 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINES. SQ2084.2MOVE INFO-LINE-4 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINE . SQ2084.2MOVE INFO-LINE-7 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINES. SQ2084.2MOVE INFO-LINE-8 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINE . SQ2084.2MOVE SPACE TO DUMMY-RECORD. SQ2084.2PERFORM BLANK-LINE-PRINT UNTIL LINAGE-COUNTER EQUAL 66. SQ2084.2MOVE 40 TO LINAGE-CTR, FOOT-CTR. SQ2084.2MOVE 1 TO TOP-CTR, BOTTOM-CTR. SQ2084.2MOVE LAST-LINE TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINE . SQ2084.2MOVE SPACE TO DUMMY-RECORD. SQ2084.2MOVE 1 TO DL3-LINE-NO. SQ2084.2PERFORM WRITE-AFTER 60 TIMES. SQ2084.2MOVE "END OF SQ208M VALIDATION TESTS" TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINE . SQ2084.2GO TO CCVS-EXIT. SQ2084.2MOVE 0 TO TOP-CTR, BOTTOM-CTR. SQ2084.2MOVE 66 TO LINAGE-CTR, FOOT-CTR. SQ2084.2PERFORM BLANK-LINE-PRINT UNTIL LINAGE-COUNTER EQUAL 1. SQ2084.2PERFORM BLANK-LINE-PRINT UNTIL LINAGE-COUNTER EQUAL 65. SQ2084.2MOVE LAST-LINE TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINE . SQ2084.2MOVE LINAGE-COUNTER TO DL1-LC. SQ2084.2MOVE DETAIL-LINE-1 TO PRINT-REC. SQ2084.2WRITE PRINT-REC BEFORE ADVANCING 1 LINE AT END-OF-PAGE SQ2084.2MOVE LINAGE-COUNTER TO FL1-LC SQ2084.2MOVE FOOT-LINE-1 TO PRINT-REC SQ2084.2WRITE PRINT-REC BEFORE ADVANCING 1 LINE . SQ2084.2ADD 1 TO DL1-LINE-NO. SQ2084.2MOVE LINAGE-COUNTER TO DL1-LC. SQ2084.2MOVE DETAIL-LINE-1 TO PRINT-REC. SQ2084.2WRITE PRINT-REC BEFORE ADVANCING 1 LINE . SQ2084.2ADD 1 TO DL1-LINE-NO. SQ2084.2MOVE LINAGE-COUNTER TO DL2-LC. SQ2084.2MOVE DETAIL-LINE-2 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINE . SQ2084.2ADD 1 TO DL2-LINE-NO. SQ2084.2MOVE LINAGE-COUNTER TO DL2-LC. SQ2084.2MOVE DETAIL-LINE-2 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINE AT EOP SQ2084.2MOVE LINAGE-COUNTER TO FL1-LC SQ2084.2MOVE FOOT-LINE-1 TO PRINT-REC SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINE . SQ2084.2ADD 1 TO DL2-LINE-NO. SQ2084.2MOVE LINAGE-COUNTER TO DL3-LC. SQ2084.2MOVE DETAIL-LINE-3 TO PRINT-REC. SQ2084.2WRITE PRINT-REC BEFORE ADVANCING 1 LINE AT EOP SQ2084.2MOVE LINAGE-COUNTER TO FL3-LC SQ2084.2MOVE FOOT-LINE-3 TO PRINT-REC SQ2084.2WRITE PRINT-REC BEFORE ADVANCING 1 LINE . SQ2084.2ADD 1 TO DL3-LINE-NO. SQ2084.2MOVE LINAGE-COUNTER TO DL3-LC. SQ2084.2MOVE DETAIL-LINE-3 TO PRINT-REC. SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINE AT EOP SQ2084.2MOVE LINAGE-COUNTER TO FL3-LC SQ2084.2MOVE FOOT-LINE-3 TO PRINT-REC SQ2084.2WRITE PRINT-REC AFTER ADVANCING 1 LINE . SQ2084.2ADD 1 TO DL3-LINE-NO. SQ2084.2SECTION . SQ2084.2GO TO CLOSE-FILES. SQ2084.2quality 97%
¤ Dauer der Verarbeitung: 0.22 Sekunden
¤ *© Formatika GbR, Deutschland
