|
000100 IDENTIFICATION DIVISION. RW1044.2
000200 PROGRAM-ID. RW1044.2
000300 RW104A. RW1044.2
000400 AUTHOR. RW1044.2
000500 FEDERAL COMPILER TESTING CENTER. RW1044.2
000600 INSTALLATION. RW1044.2
000700 GENERAL SERVICES ADMINISTRATION RW1044.2
000800 AUTOMATED DATA AND TELECOMMUNICATION SERVICE. RW1044.2
000900 SOFTWARE DEVELOPMENT OFFICE. RW1044.2
001000 5203 LEESBURG PIKE SUITE 1100 RW1044.2
001100 FALLS CHURCH VIRGINIA 22041. RW1044.2
001200 RW1044.2
001300 PHONE (703) 756-6153 RW1044.2
001400 RW1044.2
001500 " HIGH ". RW1044.2
001600 DATE-WRITTEN. RW1044.2
001700 CCVS-74 VERSION 4.0 - 1980 JULY 1. RW1044.2
001800 CREATION DATE / VALIDATION DATE RW1044.2
001900 "4.2 ". RW1044.2
002000 SECURITY. RW1044.2
002100 NONE. RW1044.2
002200******************************************************************RW1044.2
002300* RW1044.2
002400* THE ROUTINE RW104A TESTS BASIC REPORT WRITER MODULE RW1044.2
002500* FUNCTIONS. ONE OUTPUT REPORT IS PRODUCED BY THE RWCS. RW1044.2
002600* THE REPORT DESCRIPTION IN THIS ROUTINE CONTAINS RW1044.2
002700* PAGE LIMITS ARE 30 LINES RW1044.2
002800* HEADING 1 RW1044.2
002900* FIRST DETAIL 6 RW1044.2
003000* LAST DETAIL 25 RW1044.2
003100* FOOTING 29. RW1044.2
003200* RW1044.2
003300* THE PROCEDURE DIVISION FOR RW104A RW1044.2
003400* OPENS THE SEQUENTIAL FILE RW-FS4, RW1044.2
003500* INITIATES THE REPORT RW-FS4-REPORT-1, RW1044.2
003600* CHECKS THE VALUES IN LINE-COUNTER AND PAGE-COUNTER RW1044.2
003700* AFTER EXECUTING THE INITIATE STATEMENT, RW1044.2
003800* GENERATES A THREE PAGE REPORT WITH GENERATE DATA- RW1044.2
003900* NAME STATEMENTS, RW1044.2
004000* CHECKS THE VALUES IN LINE-COUNTER AND PAGE-COUNTER RW1044.2
004100* AFTER EACH GENERATE STATEMENT, RW1044.2
004200* CHECKS THAT LINE-COUNTER AND PAGE-COUNTER ARE RESET RW1044.2
004300* WHEN PAGE ADVANCING PROCESSING HAS OCCURRED, RW1044.2
004400* TERMINATES THE REPORT RW-FS4-REPORT-1, RW1044.2
004500* CLOSES THE FILE RW-FS4. RW1044.2
004600* RW1044.2
004700* THE OUTPUT OF THIS ROUTINE CONSISTS OF AN OUTPUT REPORT RW1044.2
004800* IN THE USUAL AUDIT ROUTINE FORMAT PRODUCED USING WRITE RW1044.2
004900* STATEMENTS AND A REPORT PRODUCED BY THE RWCS. BOTH REPORTS RW1044.2
005000* MUST BE CAREFULLY EXAMINED TO VERIFY THAT THE TESTS IN RW1044.2
005100* RW104 WERE EXECUTED CORRECTLY. RW1044.2
005200* RW1044.2
005300* THE OUTPUT REPORT GENERATED BY THE RWCS CONSISTS OF RW1044.2
005400* THREE PAGES WITH EACH PAGE CONTAINING A PAGE HEADING ON RW1044.2
005500* LINE 1, TWENTY DETAIL LINES ON LINES 6 THROUGH 25, AND A RW1044.2
005600* PAGE FOOTING ON LINE 30. LINES 2 THROUGH 5 AND 26 THROUGH 29RW1044.2
005700* SHOULD BE BLANK. RW1044.2
005800* RW1044.2
005900* THE VALUE OF LINE-COUNTER IN THE DETAIL LINE IS FIVE RW1044.2
006000* GREATER THAN THE DETAIL LINE NUMBER, AND PAGE-COUNTER IS RW1044.2
006100* EQUAL TO THE PAGE ON WHICH THE DETAIL LINE IS PRESENTED. RW1044.2
006200* RW1044.2
006300******************************************************************RW1044.2
006400* RW1044.2
006500* REFERENCE AMERICAN NATIONAL STANDARD PROGRAMMING RW1044.2
006600* LANGUAGE COBOL, X3.23-1974 RW1044.2
006700* SECTION VIII - REPORT WRITER MODULE RW1044.2
006800* RW1044.2
006900******************************************************************RW1044.2
007000 ENVIRONMENT DIVISION. RW1044.2
007100 CONFIGURATION SECTION. RW1044.2
007200 SOURCE-COMPUTER. RW1044.2
007300 Card0130. RW1044.2
007400 OBJECT-COMPUTER. RW1044.2
007500 Card0131. RW1044.2
007600 INPUT-OUTPUT SECTION. RW1044.2
007700 FILE-CONTROL. RW1044.2
007800 SELECT PRINT-FILE ASSIGN TO RW1044.2
007900 "C0085" . RW1044.2
008000 SELECT RW-FS4 ASSIGN TO RW1044.2
008100 "C0073" . RW1044.2
008200 DATA DIVISION. RW1044.2
008300 FILE SECTION. RW1044.2
008400 FD PRINT-FILE RW1044.2
008500 LABEL RECORDS RW1044.2
008600 Card0132 RW1044.2
008700 DATA RECORD IS PRINT-REC DUMMY-RECORD. RW1044.2
008800 01 PRINT-REC PICTURE X(120). RW1044.2
008900 01 DUMMY-RECORD PICTURE X(120). RW1044.2
009000 FD RW-FS4 RW1044.2
009100 LABEL RECORDS ARE STANDARD RW1044.2
009200 VALUE OF RW1044.2
009300 Impl1 RW1044.2
009400 IS RW1044.2
009500 4711 RW1044.2
009600 RW1044.2
009700 REPORT IS RW-FS4-REPORT-1. RW1044.2
009800 WORKING-STORAGE SECTION. RW1044.2
009900 01 LC-ERRORS PIC 99 VALUE 0. RW1044.2
010000 01 PC-ERRORS PIC 99 VALUE 0. RW1044.2
010100 01 WS-COUNTER PIC 99 VALUE 0. RW1044.2
010200 01 PAGENO PIC 99 VALUE 1. RW1044.2
010300 01 TEMP-COMP PIC 99. RW1044.2
010400 01 TEST-RESULTS. RW1044.2
010500 02 FILLER PICTURE X VALUE SPACE. RW1044.2
010600 02 FEATURE PICTURE X(20) VALUE SPACE. RW1044.2
010700 02 FILLER PICTURE X VALUE SPACE. RW1044.2
010800 02 P-OR-F PICTURE X(5) VALUE SPACE. RW1044.2
010900 02 FILLER PICTURE X VALUE SPACE. RW1044.2
011000 02 PAR-NAME. RW1044.2
011100 03 FILLER PICTURE X(12) VALUE SPACE. RW1044.2
011200 03 PARDOT-X PICTURE X VALUE SPACE. RW1044.2
011300 03 DOTVALUE PICTURE 99 VALUE ZERO. RW1044.2
011400 03 FILLER PIC X(5) VALUE SPACE. RW1044.2
011500 02 FILLER PIC X(10) VALUE SPACE. RW1044.2
011600 02 RE-MARK PIC X(61). RW1044.2
011700 01 TEST-COMPUTED. RW1044.2
011800 02 FILLER PIC X(30) VALUE SPACE. RW1044.2
011900 02 FILLER PIC X(17) VALUE " COMPUTED=". RW1044.2
012000 02 COMPUTED-X. RW1044.2
012100 03 COMPUTED-A PICTURE X(20) VALUE SPACE. RW1044.2
012200 03 COMPUTED-N REDEFINES COMPUTED-A PICTURE -9(9).9(9). RW1044.2
012300 03 COMPUTED-0V18 REDEFINES COMPUTED-A PICTURE -.9(18). RW1044.2
012400 03 COMPUTED-4V14 REDEFINES COMPUTED-A PICTURE -9(4).9(14). RW1044.2
012500 03 COMPUTED-14V4 REDEFINES COMPUTED-A PICTURE -9(14).9(4). RW1044.2
012600 03 CM-18V0 REDEFINES COMPUTED-A. RW1044.2
012700 04 COMPUTED-18V0 PICTURE -9(18). RW1044.2
012800 04 FILLER PICTURE X. RW1044.2
012900 03 FILLER PIC X(50) VALUE SPACE. RW1044.2
013000 01 TEST-CORRECT. RW1044.2
013100 02 FILLER PIC X(30) VALUE SPACE. RW1044.2
013200 02 FILLER PIC X(17) VALUE " CORRECT =". RW1044.2
013300 02 CORRECT-X. RW1044.2
013400 03 CORRECT-A PICTURE X(20) VALUE SPACE. RW1044.2
013500 03 CORRECT-N REDEFINES CORRECT-A PICTURE -9(9).9(9). RW1044.2
013600 03 CORRECT-0V18 REDEFINES CORRECT-A PICTURE -.9(18). RW1044.2
013700 03 CORRECT-4V14 REDEFINES CORRECT-A PICTURE -9(4).9(14). RW1044.2
013800 03 CORRECT-14V4 REDEFINES CORRECT-A PICTURE -9(14).9(4). RW1044.2
013900 03 CR-18V0 REDEFINES CORRECT-A. RW1044.2
014000 04 CORRECT-18V0 PICTURE -9(18). RW1044.2
014100 04 FILLER PICTURE X. RW1044.2
014200 03 FILLER PIC X(50) VALUE SPACE. RW1044.2
014300 01 CCVS-C-1. RW1044.2
014400 02 FILLER PICTURE IS X(99) VALUE IS " FEATURE PARW1044.2
014500- "SS PARAGRAPH-NAME RW1044.2
014600- " REMARKS". RW1044.2
014700 02 FILLER PICTURE IS X(20) VALUE IS SPACE. RW1044.2
014800 01 CCVS-C-2. RW1044.2
014900 02 FILLER PICTURE IS X VALUE IS SPACE. RW1044.2
015000 02 FILLER PICTURE IS X(6) VALUE IS "TESTED". RW1044.2
015100 02 FILLER PICTURE IS X(15) VALUE IS SPACE. RW1044.2
015200 02 FILLER PICTURE IS X(4) VALUE IS "FAIL". RW1044.2
015300 02 FILLER PICTURE IS X(94) VALUE IS SPACE. RW1044.2
015400 01 REC-SKL-SUB PICTURE 9(2) VALUE ZERO. RW1044.2
015500 01 REC-CT PICTURE 99 VALUE ZERO. RW1044.2
015600 01 DELETE-CNT PICTURE 999 VALUE ZERO. RW1044.2
015700 01 ERROR-COUNTER PICTURE IS 999 VALUE IS ZERO. RW1044.2
015800 01 INSPECT-COUNTER PIC 999 VALUE ZERO. RW1044.2
015900 01 PASS-COUNTER PIC 999 VALUE ZERO. RW1044.2
016000 01 TOTAL-ERROR PIC 999 VALUE ZERO. RW1044.2
016100 01 ERROR-HOLD PIC 999 VALUE ZERO. RW1044.2
016200 01 DUMMY-HOLD PIC X(120) VALUE SPACE. RW1044.2
016300 01 RECORD-COUNT PIC 9(5) VALUE ZERO. RW1044.2
016400 01 CCVS-H-1. RW1044.2
016500 02 FILLER PICTURE X(27) VALUE SPACE. RW1044.2
016600 02 FILLER PICTURE X(67) VALUE RW1044.2
016700 " FEDERAL COMPILER TESTING CENTER COBOL COMPILER VALIDATION RW1044.2
016800- " SYSTEM". RW1044.2
016900 02 FILLER PICTURE X(26) VALUE SPACE. RW1044.2
017000 01 CCVS-H-2. RW1044.2
017100 02 FILLER PICTURE X(52) VALUE IS RW1044.2
017200 "CCVS74 NCC COPY, NOT FOR DISTRIBUTION.". RW1044.2
017300 02 FILLER PICTURE IS X(19) VALUE IS "TEST RESULTS SET- ". RW1044.2
017400 02 TEST-ID PICTURE IS X(9). RW1044.2
017500 02 FILLER PICTURE IS X(40) VALUE IS SPACE. RW1044.2
017600 01 CCVS-H-3. RW1044.2
017700 02 FILLER PICTURE X(34) VALUE RW1044.2
017800 " FOR OFFICIAL USE ONLY ". RW1044.2
017900 02 FILLER PICTURE X(58) VALUE RW1044.2
018000 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RW1044.2
018100 02 FILLER PICTURE X(28) VALUE RW1044.2
018200 " COPYRIGHT 1974 ". RW1044.2
018300 01 CCVS-E-1. RW1044.2
018400 02 FILLER PICTURE IS X(52) VALUE IS SPACE. RW1044.2
018500 02 FILLER PICTURE IS X(14) VALUE IS "END OF TEST- ". RW1044.2
018600 02 ID-AGAIN PICTURE IS X(9). RW1044.2
018700 02 FILLER PICTURE X(45) VALUE IS RW1044.2
018800 " NTIS DISTRIBUTION COBOL 74". RW1044.2
018900 01 CCVS-E-2. RW1044.2
019000 02 FILLER PICTURE X(31) VALUE RW1044.2
019100 SPACE. RW1044.2
019200 02 FILLER PICTURE X(21) VALUE SPACE. RW1044.2
019300 02 CCVS-E-2-2. RW1044.2
019400 03 ERROR-TOTAL PICTURE IS XXX VALUE IS SPACE. RW1044.2
019500 03 FILLER PICTURE IS X VALUE IS SPACE. RW1044.2
019600 03 ENDER-DESC PIC X(44) VALUE "ERRORS ENCOUNTERED". RW1044.2
019700 01 CCVS-E-3. RW1044.2
019800 02 FILLER PICTURE X(22) VALUE RW1044.2
019900 " FOR OFFICIAL USE ONLY". RW1044.2
020000 02 FILLER PICTURE X(12) VALUE SPACE. RW1044.2
020100 02 FILLER PICTURE X(58) VALUE RW1044.2
020200 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RW1044.2
020300 02 FILLER PICTURE X(13) VALUE SPACE. RW1044.2
020400 02 FILLER PIC X(15) VALUE " COPYRIGHT 1974". RW1044.2
020500 01 CCVS-E-4. RW1044.2
020600 02 CCVS-E-4-1 PIC XXX VALUE SPACE. RW1044.2
020700 02 FILLER PIC XXXX VALUE " OF ". RW1044.2
020800 02 CCVS-E-4-2 PIC XXX VALUE SPACE. RW1044.2
020900 02 FILLER PIC X(40) VALUE RW1044.2
021000 " TESTS WERE EXECUTED SUCCESSFULLY". RW1044.2
021100 01 XXINFO. RW1044.2
021200 02 FILLER PIC X(30) VALUE " *** INFORMATION ***". RW1044.2
021300 02 INFO-TEXT. RW1044.2
021400 04 FILLER PIC X(20) VALUE SPACE. RW1044.2
021500 04 XXCOMPUTED PIC X(20). RW1044.2
021600 04 FILLER PIC X(5) VALUE SPACE. RW1044.2
021700 04 XXCORRECT PIC X(20). RW1044.2
021800 01 HYPHEN-LINE. RW1044.2
021900 02 FILLER PICTURE IS X VALUE IS SPACE. RW1044.2
022000 02 FILLER PICTURE IS X(65) VALUE IS "************************RW1044.2
022100- "*****************************************". RW1044.2
022200 02 FILLER PICTURE IS X(54) VALUE IS "************************RW1044.2
022300- "******************************". RW1044.2
022400 01 CCVS-PGM-ID PIC X(6) VALUE RW1044.2
022500 "RW104A". RW1044.2
022600* REPORT SECTION. RW1044.2
022700* RD RW-FS4-REPORT-1 RW1044.2
022800* PAGE LIMITS ARE 30 LINES RW1044.2
022900* HEADING 1 RW1044.2
023000* FIRST DETAIL 6 RW1044.2
023100* LAST DETAIL 25 RW1044.2
023200* FOOTING 29. RW1044.2
023300 01 RW-FS4-HEADING. RW1044.2
023400* LINE NUMBER 1 RW1044.2
023500* TYPE PH. RW1044.2
023600 03 PIC X(36) RW1044.2
023700 VALUE "U.S. NAVY COBOL AUDIT ROUTINE RW104A". RW1044.2
023800 03 PIC X(5) VALUE "LINE ". RW1044.2
023900 03 PIC 9 . RW1044.2
024000 03 PIC X(5) VALUE "PAGE ". RW1044.2
024100 03 PIC 9. RW1044.2
024200 01 RW-FS4-DETAIL. RW1044.2
024300* LINE NUMBER PLUS 1 RW1044.2
024400* TYPE DE. RW1044.2
024500 03 VALUE "DETAIL LINE " PIC X(12). RW1044.2
024600 03 PIC 99 . RW1044.2
024700 03 PIC X(13) VALUE "PAGE-COUNTER ". RW1044.2
024800 03 PIC 9 . RW1044.2
024900 03 PIC X(13) VALUE "LINE-COUNTER ". RW1044.2
025000 03 PIC 99 . RW1044.2
025100 01 RW-FS4-FOOTING. RW1044.2
025200* LINE NUMBER 30 RW1044.2
025300* TYPE IS PAGE FOOTING. RW1044.2
025400 05 PICTURE X(36) RW1044.2
025500 VALUE "PAGE FOOTING ROUTINE RW104 LINE ". RW1044.2
025600 05 PIC 99 . RW1044.2
025700 05 PIC X(5) VALUE "PAGE ". RW1044.2
025800 05 PIC 9 . RW1044.2
025900* RW1044.2
026000* EXCEPT FOR THE DATA-NAME CLAUSE, THE CLAUSES IN A REPORT RW1044.2
026100* GROUP DESCRIPTION ENTRY MAY BE WRITTEN IN ANY SEQUENCE. RW1044.2
026200* REFERENCE VIII-7, 2.5.3(2), REPORT GROUP DESCRIPTION ENTRY RW1044.2
026300* RW1044.2
026400 PROCEDURE DIVISION. RW1044.2
026500 CCVS1 SECTION. RW1044.2
026600 OPEN-FILES. RW1044.2
026700 OPEN OUTPUT PRINT-FILE. RW1044.2
026800 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. RW1044.2
026900 MOVE SPACE TO TEST-RESULTS. RW1044.2
027000 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. RW1044.2
027100 GO TO CCVS1-EXIT. RW1044.2
027200 CLOSE-FILES. RW1044.2
027300 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. RW1044.2
027400 TERMINATE-CCVS. RW1044.2
027500 EXIT PROGRAM. RW1044.2
027600 TERMINATE-CALL. RW1044.2
027700 STOP RUN. RW1044.2
027800 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. RW1044.2
027900 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. RW1044.2
028000 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. RW1044.2
028100 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-CNT. RW1044.2
028200 MOVE "****TEST DELETED****" TO RE-MARK. RW1044.2
028300 PRINT-DETAIL. RW1044.2
028400 IF REC-CT NOT EQUAL TO ZERO RW1044.2
028500 MOVE "." TO PARDOT-X RW1044.2
028600 MOVE REC-CT TO DOTVALUE. RW1044.2
028700 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. RW1044.2
028800 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE RW1044.2
028900 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX RW1044.2
029000 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. RW1044.2
029100 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. RW1044.2
029200 MOVE SPACE TO CORRECT-X. RW1044.2
029300 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. RW1044.2
029400 MOVE SPACE TO RE-MARK. RW1044.2
029500 HEAD-ROUTINE. RW1044.2
029600 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RW1044.2
029700 MOVE CCVS-H-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES. RW1044.2
029800 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. RW1044.2
029900 COLUMN-NAMES-ROUTINE. RW1044.2
030000 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. RW1044.2
030100 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RW1044.2
030200 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. RW1044.2
030300 END-ROUTINE. RW1044.2
030400 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.RW1044.2
030500 END-RTN-EXIT. RW1044.2
030600 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RW1044.2
030700 END-ROUTINE-1. RW1044.2
030800 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO RW1044.2
030900 ERROR-HOLD. ADD DELETE-CNT TO ERROR-HOLD. RW1044.2
031000 ADD PASS-COUNTER TO ERROR-HOLD. RW1044.2
031100* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. RW1044.2
031200 MOVE PASS-COUNTER TO CCVS-E-4-1. RW1044.2
031300 MOVE ERROR-HOLD TO CCVS-E-4-2. RW1044.2
031400 MOVE CCVS-E-4 TO CCVS-E-2-2. RW1044.2
031500 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. RW1044.2
031600 END-ROUTINE-12. RW1044.2
031700 MOVE "TEST(S) FAILED" TO ENDER-DESC. RW1044.2
031800 IF ERROR-COUNTER IS EQUAL TO ZERO RW1044.2
031900 MOVE "NO " TO ERROR-TOTAL RW1044.2
032000 ELSE RW1044.2
032100 MOVE ERROR-COUNTER TO ERROR-TOTAL. RW1044.2
032200 MOVE CCVS-E-2 TO DUMMY-RECORD. RW1044.2
032300 PERFORM WRITE-LINE. RW1044.2
032400 END-ROUTINE-13. RW1044.2
032500 IF DELETE-CNT IS EQUAL TO ZERO RW1044.2
032600 MOVE "NO " TO ERROR-TOTAL ELSE RW1044.2
032700 MOVE DELETE-CNT TO ERROR-TOTAL. RW1044.2
032800 MOVE "TEST(S) DELETED " TO ENDER-DESC. RW1044.2
032900 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. RW1044.2
033000 IF INSPECT-COUNTER EQUAL TO ZERO RW1044.2
033100 MOVE "NO " TO ERROR-TOTAL RW1044.2
033200 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. RW1044.2
033300 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. RW1044.2
033400 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. RW1044.2
033500 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. RW1044.2
033600 WRITE-LINE. RW1044.2
033700 ADD 1 TO RECORD-COUNT. RW1044.2
033800 IF RECORD-COUNT GREATER 50 RW1044.2
033900 MOVE DUMMY-RECORD TO DUMMY-HOLD RW1044.2
034000 MOVE SPACE TO DUMMY-RECORD RW1044.2
034100 WRITE DUMMY-RECORD AFTER ADVANCING PAGE RW1044.2
034200 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN RW1044.2
034300 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES RW1044.2
034400 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN RW1044.2
034500 MOVE DUMMY-HOLD TO DUMMY-RECORD RW1044.2
034600 MOVE ZERO TO RECORD-COUNT. RW1044.2
034700 PERFORM WRT-LN. RW1044.2
034800 WRT-LN. RW1044.2
034900 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. RW1044.2
035000 MOVE SPACE TO DUMMY-RECORD. RW1044.2
035100 BLANK-LINE-PRINT. RW1044.2
035200 PERFORM WRT-LN. RW1044.2
035300 FAIL-ROUTINE. RW1044.2
035400 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. RW1044.2
035500 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. RW1044.2
035600 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. RW1044.2
035700 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RW1044.2
035800 GO TO FAIL-ROUTINE-EX. RW1044.2
035900 FAIL-ROUTINE-WRITE. RW1044.2
036000 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE RW1044.2
036100 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. RW1044.2
036200 FAIL-ROUTINE-EX. EXIT. RW1044.2
036300 BAIL-OUT. RW1044.2
036400 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. RW1044.2
036500 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. RW1044.2
036600 BAIL-OUT-WRITE. RW1044.2
036700 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. RW1044.2
036800 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RW1044.2
036900 BAIL-OUT-EX. EXIT. RW1044.2
037000 CCVS1-EXIT. RW1044.2
037100 EXIT. RW1044.2
037200 SECT-RW104-0001 SECTION. RW1044.2
037300 RW104-INIT. RW1044.2
037400 OPEN OUTPUT RW-FS4. RW1044.2
037500 INIT-TEST-05. RW1044.2
037600* INITIATE RW-FS4-REPORT-1. RW1044.2
037700* RW1044.2
037800* AFTER EXECUTION OF THE INITIATE STATEMENT FOR A REPORT, RW1044.2
037900* THE REPORT LINE-COUNTER SHOULD BE ZERO AND PAGE-COUNTER RW1044.2
038000* SHOULD BE ONE. RW1044.2
038100* REFERENCE PAGE VIII-53, 3.2.4(1)B AND C, INITIATE STATEMENT RW1044.2
038200* RW1044.2
038300 INIT-TEST-05-01. RW1044.2
038400 IF LINE-COUNTER IS EQUAL TO ZERO RW1044.2
038500 PERFORM PASS RW1044.2
038600 GO TO INIT-WRITE-05-01. RW1044.2
038700 INIT-FAIL-05-01. RW1044.2
038800 PERFORM FAIL. RW1044.2
038900 MOVE ZERO TO CORRECT-18V0. RW1044.2
039000 MOVE LINE-COUNTER TO COMPUTED-18V0. RW1044.2
039100 MOVE "LINE-COUNTER AFTER INITIATE" TO RE-MARK. RW1044.2
039200 INIT-WRITE-05-01. RW1044.2
039300 MOVE "INIT-TEST-05" TO PAR-NAME. RW1044.2
039400 MOVE 1 TO REC-CT. RW1044.2
039500 MOVE "INITIATE REPORT" TO FEATURE. RW1044.2
039600 PERFORM PRINT-DETAIL. RW1044.2
039700 INIT-TEST-05-02. RW1044.2
039800 IF PAGE-COUNTER IS EQUAL TO 1 RW1044.2
039900 PERFORM PASS RW1044.2
040000 GO TO INIT-WRITE-05-02. RW1044.2
040100 INIT-FAIL-05-02. RW1044.2
040200 PERFORM FAIL. RW1044.2
040300 MOVE 1 TO CORRECT-18V0. RW1044.2
040400 MOVE PAGE-COUNTER TO COMPUTED-18V0. RW1044.2
040500 MOVE "PAGE-COUNTER AFTER INITIATE" TO RE-MARK. RW1044.2
040600 INIT-WRITE-05-02. RW1044.2
040700 MOVE 2 TO REC-CT. RW1044.2
040800 PERFORM PRINT-DETAIL. RW1044.2
040900 GENER-TEST-14. RW1044.2
041000* THIS TEST EXECUTES THE CHRONOLOGICALLY FIRST GENERATE RW1044.2
041100* STATEMENT FOR THE REPORT RW-FS4-REPORT-1. RW1044.2
041200* REFERENCE PAGE VIII-52, 3.1.4(5)B AND D, GENERATE STATEMENT RW1044.2
041300* RW1044.2
041400 ADD 1 TO WS-COUNTER. RW1044.2
041500* GENERATE RW-FS4-DETAIL. RW1044.2
041600* RW1044.2
041700* OUTPUT REPORT INFORMATION RW1044.2
041800* RW1044.2
041900* THE PAGE HEADING REPORT GROUP IS PRESENTED ON LINE 1 RW1044.2
042000* OF PAGE 1. RW1044.2
042100* REFERENCE PAGE VIII-14, 2.5.5.7, PAGE HEADING PRE. RULES RW1044.2
042200* RW1044.2
042300* THE LINE-COUNTER VALUE PRINTED ON THE PH LINE SHOULD RW1044.2
042400* EQUAL ONE. RW1044.2
042500* REFERENCE PAGE VIII-5, 2.4.5(6), LINE-COUNTER RULES RW1044.2
042600* RW1044.2
042700* THE FIRST DETAIL LINE IS PRESENTED ON LINE 6 OF PAGE 1. RW1044.2
042800* REFERENCE PAGE VIII-18, 2.5.5.8.1(4)B, BODY GROUP PRE RULES RW1044.2
042900* RW1044.2
043000 GENER-TEST-14-01. RW1044.2
043100 IF LINE-COUNTER IS EQUAL TO 6 RW1044.2
043200 PERFORM PASS RW1044.2
043300 GO TO GENER-WRITE-14-01. RW1044.2
043400* RW1044.2
043500* THE LINE-COUNTER SETTING AFTER THE GENERATE STATEMENT RW1044.2
043600* IS EQUAL TO THE LINE NUMBER ON WHICH THE PRINT LINE WAS RW1044.2
043700* PRESENTED, IN THIS CASE 6. RW1044.2
043800* REFERENCE PAGE VIII-19, 2.5.5.8.1(6)D, FINAL L-C SETTING RW1044.2
043900* RW1044.2
044000 GENER-FAIL-14-01. RW1044.2
044100 PERFORM FAIL. RW1044.2
044200 MOVE 6 TO CORRECT-18V0. RW1044.2
044300 MOVE LINE-COUNTER TO COMPUTED-18V0. RW1044.2
044400 MOVE "LINE-COUNTER AFTER FIRST GENER" TO RE-MARK. RW1044.2
044500 GENER-WRITE-14-01. RW1044.2
044600 MOVE "GENR-WRITE-14" TO PAR-NAME. RW1044.2
044700 MOVE "FIRST GENERATE" TO FEATURE. RW1044.2
044800 MOVE 1 TO REC-CT. RW1044.2
044900 PERFORM PRINT-DETAIL. RW1044.2
045000 GENER-TEST-14-02. RW1044.2
045100 IF PAGE-COUNTER EQUAL TO 1 RW1044.2
045200 PERFORM PASS RW1044.2
045300 GO TO GENER-WRITE-14-02. RW1044.2
045400* RW1044.2
045500* EXECUTION OF THE FIRST GENERATE STATEMENT SHOULD NOT RW1044.2
045600* CHANGE THE VALUE OF PAGE-COUNTER. IT SHOULD STILL BE RW1044.2
045700* EQUAL TO ONE. RW1044.2
045800* REFERENCE PAGE VIII-4, 2.4.4, PAGE-COUNTER RULES RW1044.2
045900* RW1044.2
046000 GENER-FAIL-14-02. RW1044.2
046100 PERFORM FAIL. RW1044.2
046200 MOVE 1 TO CORRECT-18V0. RW1044.2
046300 MOVE PAGE-COUNTER TO COMPUTED-18V0. RW1044.2
046400 MOVE "PAGE-COUNTER AFTER FIRST GENER" TO RE-MARK. RW1044.2
046500 GENER-WRITE-14-02. RW1044.2
046600 MOVE 2 TO REC-CT. RW1044.2
046700 PERFORM PRINT-DETAIL. RW1044.2
046800 GENER-TEST-15. RW1044.2
046900* THIS TEST EXECUTES A GENERATE STATEMENT FOR THE DETAIL RW1044.2
047000* REPORT GROUP 19 TIMES. RW1044.2
047100* REFERENCE PAGE VIII-51, 3.1.4(2), (6)B, GENERATE STATEMENT RW1044.2
047200* RW1044.2
047300 PERFORM GENER-DETAIL-LINE 19 TIMES. RW1044.2
047400* RW1044.2
047500* OUTPUT REPORT INFORMATION RW1044.2
047600* NINETEEN DETAIL LINES SINGLE SPACED ARE PRESENTED ON RW1044.2
047700* LINES 7 THROUGH 25 OF THE FIRST PAGE. RW1044.2
047800* REFERENCE PAGE VIII-18, 2.5.5.8.1(4)B, BODY GROUP PRE. RULESRW1044.2
047900* RW1044.2
048000 GO TO GENER-TEST-15-01. RW1044.2
048100 GENER-DETAIL-LINE. RW1044.2
048200 ADD 1 TO WS-COUNTER. RW1044.2
048300* GENERATE RW-FS4-DETAIL. RW1044.2
048400 MOVE WS-COUNTER TO TEMP-COMP. RW1044.2
048500 ADD 5 TO TEMP-COMP. RW1044.2
048600 IF LINE-COUNTER NOT EQUAL TO TEMP-COMP RW1044.2
048700 ADD 1 TO LC-ERRORS. RW1044.2
048800* RW1044.2
048900* THE LINE-COUNTER SETTING AFTER THE GENERATE STATEMENT RW1044.2
049000* IS EQUAL TO THE LINE NUMBER ON WHICH THE PRINT LINE WAS RW1044.2
049100* PRESENTED. THIS NUMBER IS FIVE GREATER THAN THE DETAIL RW1044.2
049200* LINE NUMBER. RW1044.2
049300* REFERENCE PAGE VIII-19, 2.5.5.8.1(6)D, FINAL L-C SETTING RW1044.2
049400* RW1044.2
049500 IF PAGE-COUNTER NOT EQUAL TO PAGENO RW1044.2
049600 ADD 1 TO PC-ERRORS. RW1044.2
049700* RW1044.2
049800* EXECUTION OF A GENERATE STATEMENT WHICH DOES NOT CAUSE RW1044.2
049900* PAGE ADVANCING SHOULD NOT CHANGE THE VALUE OF PAGE-COUNTER. RW1044.2
050000* REFERENCE PAGE VIII-4, 2.4.4, PAGE-COUNTER RULES RW1044.2
050100* RW1044.2
050200 GENER-TEST-15-01. RW1044.2
050300 IF LC-ERRORS EQUAL TO ZERO RW1044.2
050400 PERFORM PASS RW1044.2
050500 GO TO GENER-WRITE-15-01. RW1044.2
050600 GENER-FAIL-15-01. RW1044.2
050700 PERFORM FAIL. RW1044.2
050800 MOVE LC-ERRORS TO COMPUTED-18V0. RW1044.2
050900 MOVE ZERO TO CORRECT-18V0. RW1044.2
051000 MOVE "NUMBER OF LINE-COUNTER ERRORS" TO RE-MARK. RW1044.2
051100 GENER-WRITE-15-01. RW1044.2
051200 MOVE "GENR-TEST-15" TO PAR-NAME. RW1044.2
051300 MOVE "GENERATE 19 LINES" TO FEATURE. RW1044.2
051400 MOVE 1 TO REC-CT. RW1044.2
051500 PERFORM PRINT-DETAIL. RW1044.2
051600 GENER-TEST-15-02. RW1044.2
051700 IF PC-ERRORS EQUAL TO ZERO RW1044.2
051800 PERFORM PASS RW1044.2
051900 GO TO GENER-WRITE-15-02. RW1044.2
052000 GENER-FAIL-15-02. RW1044.2
052100 PERFORM FAIL. RW1044.2
052200 MOVE PC-ERRORS TO COMPUTED-18V0. RW1044.2
052300 MOVE ZERO TO CORRECT-18V0. RW1044.2
052400 MOVE "NUMBER OF PAGE-COUNTER ERRORS" TO RE-MARK. RW1044.2
052500 GENER-WRITE-15-02. RW1044.2
052600 MOVE 2 TO REC-CT. RW1044.2
052700 PERFORM PRINT-DETAIL. RW1044.2
052800 GENER-TEST-16. RW1044.2
052900* RW1044.2
053000* THIS TEST EXECUTES A GENERATE STATEMENT WHICH CAUSES RW1044.2
053100* PAGE ADVANCING FROM PAGE 1 TO PAGE 2. THE PAGE FOOTING RW1044.2
053200* REPORT GROUP SHOULD BE PRESENTED ON LINE 30 OF PAGE 1, THE RW1044.2
053300* PAGE HEADINNG REPORT GROUP SHOULD BE PRESENTED ON LINE 1 RW1044.2
053400* OF PAGE 2 AND THE DETAIL REPORT GROUP SHOULD BE PRESENTED RW1044.2
053500* ON LINE 6 OF PAGE 2. RW1044.2
053600* REFERENCES PAGE VIII-51, 3.1.4(4), GENERATE STATEMENT RW1044.2
053700* PAGE VIII-14, 2.5.5.7, PH PRESENTATION RULES RW1044.2
053800* PAGE VIII-17, 2.5.5.8, BODY GROUP PRE. RULES RW1044.2
053900* PAGE VIII-20, 2.5.5.9, PF PRESENTATION RULES RW1044.2
054000* RW1044.2
054100 MOVE 1 TO WS-COUNTER. RW1044.2
054200* GENERATE RW-FS4-DETAIL. RW1044.2
054300 GENER-TEST-16-01. RW1044.2
054400 IF LINE-COUNTER EQUAL TO 6 RW1044.2
054500 PERFORM PASS RW1044.2
054600 GO TO GENER-WRITE-16-01. RW1044.2
054700* RW1044.2
054800* LINE-COUNTER SHOULD BE RESET TO ZERO WHEN THE PAGE RW1044.2
054900* ADVANCE FROM PAGE 1 TO PAGE 2 IS EXECUTED, AND LINE-COUNTER RW1044.2
055000* IS SET TO 6 WHEN THE DETAIL REPORT GROUP IS PRESENTED. RW1044.2
055100* REFERENCES PAGE VIII-5, 2.4.5(4), LINE-COUNTER RULES RW1044.2
055200* PAGE VIII-19, 2.5.5.8.1(6)D, FINAL L-C SETTING RW1044.2
055300* RW1044.2
055400 GENER-FAIL-16-01. RW1044.2
055500 PERFORM FAIL. RW1044.2
055600 MOVE 6 TO CORRECT-18V0. RW1044.2
055700 MOVE LINE-COUNTER TO COMPUTED-18V0. RW1044.2
055800 MOVE "LINE-COUNTER AFTER PAGE ADVANCE" TO RE-MARK. RW1044.2
055900 GENER-WRITE-16-01. RW1044.2
056000 MOVE "GENR-TEST-16" TO PAR-NAME. RW1044.2
056100 MOVE "PAGE ADVANCE" TO FEATURE. RW1044.2
056200 MOVE 1 TO REC-CT. RW1044.2
056300 PERFORM PRINT-DETAIL. RW1044.2
056400 GENER-TEST-16-02. RW1044.2
056500 IF PAGE-COUNTER EQUAL TO 2 RW1044.2
056600 PERFORM PASS RW1044.2
056700 GO TO GENER-WRITE-16-02. RW1044.2
056800* RW1044.2
056900* PAGE-COUNTER SHOULD BE INCREMENTED TO 2 WHEN THE PAGE RW1044.2
057000* ADVANCE FROM PAGE 1 TO PAGE 2 IS EXECUTED. RW1044.2
057100* REFERENCE PAGE VIII-5, 2.4.4(5), PAGE-COUNTER RULES RW1044.2
057200* RW1044.2
057300 GENER-FAIL-16-02. RW1044.2
057400 PERFORM FAIL. RW1044.2
057500 MOVE 2 TO CORRECT-18V0. RW1044.2
057600 MOVE PAGE-COUNTER TO COMPUTED-18V0. RW1044.2
057700 MOVE "PAGE-COUNTER AFTER PAGE ADVANCE" TO RE-MARK. RW1044.2
057800 GENER-WRITE-16-02. RW1044.2
057900 MOVE 2 TO REC-CT. RW1044.2
058000 PERFORM PRINT-DETAIL. RW1044.2
058100 GENER-TEST-17. RW1044.2
058200* THIS TEST EXECUTES A GENERATE STATEMENT FOR THE DETAIL RW1044.2
058300* REPORT GROUP 19 TIMES. NINETEEN DETAIL LINES SINGLE SPACED RW1044.2
058400* ARE PRESENTED ON LINES 7 THROUGH 25 OF THE SECOND REPORT RW1044.2
058500* PAGE. RW1044.2
058600* REFERENCES PAGE VIII-51, 3.1.4(2), (6)B, GENERATE STATEMENT RW1044.2
058700* PAGE VIII-18, 2.5.5.8.1(4)B, BODY GROUP PRE RULESRW1044.2
058800* RW1044.2
058900 MOVE 2 TO PAGENO. RW1044.2
059000 MOVE ZERO TO LC-ERRORS PC-ERRORS. RW1044.2
059100 PERFORM GENER-DETAIL-LINE 19 TIMES. RW1044.2
059200 GENER-TEST-17-01. RW1044.2
059300 IF LC-ERRORS EQUAL TO ZERO RW1044.2
059400 PERFORM PASS RW1044.2
059500 GO TO GENER-WRITE-17-01. RW1044.2
059600 GENER-FAIL-17-01. RW1044.2
059700 PERFORM FAIL. RW1044.2
059800 MOVE LC-ERRORS TO COMPUTED-18V0. RW1044.2
059900 MOVE ZERO TO CORRECT-18V0. RW1044.2
060000 MOVE "NUMBER OF LINE-COUNTER ERRORS" TO RE-MARK. RW1044.2
060100 GENER-WRITE-17-01. RW1044.2
060200 MOVE "GENR-TEST-17" TO PAR-NAME. RW1044.2
060300 MOVE 1 TO REC-CT. RW1044.2
060400 MOVE "GENERATE 19 LINES" TO FEATURE. RW1044.2
060500 PERFORM PRINT-DETAIL. RW1044.2
060600 GENER-TEST-17-02. RW1044.2
060700 IF PC-ERRORS EQUAL TO ZERO RW1044.2
060800 PERFORM PASS RW1044.2
060900 GO TO GENER-WRITE-17-02. RW1044.2
061000 GENER-FAIL-17-02. RW1044.2
061100 PERFORM FAIL. RW1044.2
061200 MOVE PC-ERRORS TO COMPUTED-18V0. RW1044.2
061300 MOVE ZERO TO CORRECT-18V0. RW1044.2
061400 MOVE "NUMBER OF PAGE-COUNTER ERRORS" TO RE-MARK. RW1044.2
061500 GENER-WRITE-17-02. RW1044.2
061600 MOVE 2 TO REC-CT. RW1044.2
061700 PERFORM PRINT-DETAIL. RW1044.2
061800 GENER-TEST-18. RW1044.2
061900* THIS TEST EXECUTES A GENERATE STATEMENT WHICH CAUSES RW1044.2
062000* PAGE ADVANCING FROM PAGE 2 TO PAGE 3. THE PAGE FOOTING RW1044.2
062100* REPORT GROUP SHOULD BE PRESENTED ON LINE 30 OF PAGE 2, THE RW1044.2
062200* PAGE HEADING REPORT GROUP SHOULD BE PRESENTED ON LINE 1 RW1044.2
062300* OF PAGE 3 AND THE DETAIL REPORT GROUP SHOULD BE PRESENTED RW1044.2
062400* ON LINE 6 OF PAGE 3. RW1044.2
062500* REFERENCES PAGE VIII-51, 3.1.4(4), GENERATE STATEMENT RW1044.2
062600* PAGE VIII-14, 2.5.5.7, PH PRESENTATION RULES RW1044.2
062700* PAGE VIII-17, 2.5.5.8, BODY GROUP PRE. RULES RW1044.2
062800* PAGE VIII-20, 2.5.5.9, PF PRESENTATION RULES RW1044.2
062900* RW1044.2
063000 MOVE 1 TO WS-COUNTER. RW1044.2
063100* GENERATE RW-FS4-DETAIL. RW1044.2
063200 GENER-TEST-18-01. RW1044.2
063300 IF LINE-COUNTER EQUAL TO 6 RW1044.2
063400 PERFORM PASS RW1044.2
063500 GO TO GENER-WRITE-18-01. RW1044.2
063600* RW1044.2
063700* LINE-COUNTER SHOULD BE RESET TO ZERO WHEN THE PAGE RW1044.2
063800* ADVANCE FROM PAGE 2 TO PAGE 3 IS EXECUTED, AND LINE-COUNTER RW1044.2
063900* IS SET TO 6 WHEN THE DETAIL REPORT GROUP IS PRESENTED. RW1044.2
064000* REFERENCES PAGE VIII-5, 2.4.5(4), LINE-COUNTER RULES RW1044.2
064100* PAGE VIII-19, 2.5.5.8.1(6)D, FINAL L-C SETTING RW1044.2
064200* RW1044.2
064300 GENER-FAIL-18-01. RW1044.2
064400 PERFORM FAIL. RW1044.2
064500 MOVE 6 TO CORRECT-18V0. RW1044.2
064600 MOVE LINE-COUNTER TO COMPUTED-18V0. RW1044.2
064700 MOVE "LINE-COUNTER AFTER PAGE ADVANCE" TO RE-MARK. RW1044.2
064800 GENER-WRITE-18-01. RW1044.2
064900 MOVE "GENR-TEST-18" TO PAR-NAME. RW1044.2
065000 MOVE "PAGE ADVANCE" TO FEATURE. RW1044.2
065100 MOVE 1 TO REC-CT. RW1044.2
065200 PERFORM PRINT-DETAIL. RW1044.2
065300 GENER-TEST-18-02. RW1044.2
065400 IF PAGE-COUNTER EQUAL TO 3 RW1044.2
065500 PERFORM PASS RW1044.2
065600 GO TO GENER-WRITE-18-02. RW1044.2
065700* RW1044.2
065800* PAGE-COUNTER SHOULD BE INCREMENTED TO 3 WHEN THE PAGE RW1044.2
065900* ADVANCE FROM PAGE 2 TO PAGE 3 IS EXECUTED. RW1044.2
066000* REFERENCES PAGE VIII-5, 2.4.4(5), PAGE-COUNTER RULES RW1044.2
066100* RW1044.2
066200 GENER-FAIL-18-02. RW1044.2
066300 PERFORM FAIL. RW1044.2
066400 MOVE 3 TO CORRECT-18V0. RW1044.2
066500 MOVE PAGE-COUNTER TO COMPUTED-18V0. RW1044.2
066600 MOVE "PAGE-COUNTER AFTER PAGE ADVANCE" TO RE-MARK. RW1044.2
066700 GENER-WRITE-18-02. RW1044.2
066800 MOVE 2 TO REC-CT. RW1044.2
066900 PERFORM PRINT-DETAIL. RW1044.2
067000 GENER-TEST-19. RW1044.2
067100* THIS TEST EXECUTES A GENERATE STATEMENT FOR THE DETAIL RW1044.2
067200* REPORT GROUP 19 TIMES. NINETEEN DETAIL LINES SINGLE SPACED RW1044.2
067300* ARE PRESENTED ON LINES 7 THROUGH 25 OF THE THIRD REPORT RW1044.2
067400* PAGE. RW1044.2
067500* REFERENCES PAGE VIII-51, 3.1.4(2),(6), GENERATE STATEMENT RW1044.2
067600* PAGE VIII-18, 2.5.5.8.1(4)B, BODY GROUP PRE RULESRW1044.2
067700* RW1044.2
067800 MOVE 3 TO PAGENO. RW1044.2
067900 MOVE ZERO TO LC-ERRORS. RW1044.2
068000 MOVE ZERO TO PC-ERRORS. RW1044.2
068100 PERFORM GENER-DETAIL-LINE 19 TIMES. RW1044.2
068200 GENER-TEST-19-01. RW1044.2
068300 IF LC-ERRORS EQUAL TO ZERO RW1044.2
068400 PERFORM PASS RW1044.2
068500 GO TO GENER-WRITE-19-01. RW1044.2
068600 GENER-FAIL-19-01. RW1044.2
068700 PERFORM FAIL. RW1044.2
068800 MOVE LC-ERRORS TO COMPUTED-18V0. RW1044.2
068900 MOVE ZERO TO CORRECT-18V0. RW1044.2
069000 MOVE "NUMBER OF LINE-COUNTER ERRORS" TO RE-MARK. RW1044.2
069100 GENER-WRITE-19-01. RW1044.2
069200 MOVE "GENR-TEST-19" TO PAR-NAME. RW1044.2
069300 MOVE 1 TO REC-CT. RW1044.2
069400 MOVE "GENERATE 19 LINES" TO FEATURE. RW1044.2
069500 PERFORM PRINT-DETAIL. RW1044.2
069600 GENER-TEST-19-02. RW1044.2
069700 IF PC-ERRORS EQUAL TO ZERO RW1044.2
069800 PERFORM PASS RW1044.2
069900 GO TO GENER-WRITE-19-02. RW1044.2
070000 GENER-FAIL-19-02. RW1044.2
070100 PERFORM FAIL. RW1044.2
070200 MOVE PC-ERRORS TO COMPUTED-18V0. RW1044.2
070300 MOVE ZERO TO CORRECT-18V0. RW1044.2
070400 MOVE "NUMBER OF PAGE-COUNTER ERRORS" TO RE-MARK. RW1044.2
070500 GENER-WRITE-19-02. RW1044.2
070600 MOVE 2 TO REC-CT. RW1044.2
070700 PERFORM PRINT-DETAIL. RW1044.2
070800 TERM-TEST-04. RW1044.2
070900* THE TERMINATE STATEMENT SHOULD PRODUCE THE PAGE FOOTING RW1044.2
071000* REPORT GROUP ON LINE 30 OF PAGE 3. RW1044.2
071100* REFERENCES PAGE VIII-55, 3.4, TERMINATE STATEMENT RW1044.2
071200* PAGE VIII-47, 2.21.4(7), TYPE CLAUSE GEN. RULES RW1044.2
071300* RW1044.2
071400* TERMINATE RW-FS4-REPORT-1. RW1044.2
071500 MOVE ZERO TO REC-CT. RW1044.2
071600 TERM-WRITE-04. RW1044.2
071700 MOVE "TERMINATE REPORT" TO FEATURE. RW1044.2
071800 MOVE "TERM-TEST-04" TO PAR-NAME. RW1044.2
071900 MOVE "3 PAGE REPORT" TO COMPUTED-A. RW1044.2
072000 MOVE "20 DE LINES PER PAGE" TO CORRECT-A. RW1044.2
072100 MOVE "CHECK RWCS OUTPUT REPORT" TO RE-MARK. RW1044.2
072200 PERFORM PRINT-DETAIL. RW1044.2
072300 CLOSE-RW-FS4. RW1044.2
072400 CLOSE RW-FS4. RW1044.2
072500 EXIT-RW104. RW1044.2
072600 EXIT. RW1044.2
072700 CCVS-EXIT SECTION. RW1044.2
072800 CCVS-999999. RW1044.2
072900 GO TO CLOSE-FILES. RW1044.2
¤ Dauer der Verarbeitung: 0.25 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.
|
