000100 IDENTIFICATION DIVISION . RL1044.2PROGRAM-ID . RL1044.2000400**************************************************************** RL1044.2 000500* * RL1044.2 000600* VALIDATION FOR:- * RL1044.2 000700* * RL1044.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL1044.2 000900* * RL1044.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL1044.2 001100* * RL1044.2 001200**************************************************************** RL1044.2 001300* * RL1044.2 001400* X-CARDS USED BY THIS PROGRAM ARE :- * RL1044.2 001500* * RL1044.2 001600* X-55 - SYSTEM PRINTER NAME. * RL1044.2 001700* X-82 - SOURCE COMPUTER NAME. * RL1044.2 001800* X-83 - OBJECT COMPUTER NAME. * RL1044.2 001900* * RL1044.2 002000**************************************************************** RL1044.2 002100* THIS PROGRAM TESTS THE SYNTACTICAL CONSTRUCTS AND RL1044.2 002200* SEMANTIC ACTIONS ASSOCIATED WITH THE FOLLOWING RL1044.2 002300* ELEMENTS: RL1044.2 002400* RL1044.2 002500* (1) FILE STATUS RL1044.2 002600* (2) USE AFTER EXCEPTION PROCEDURE ON FILE-NAME RL1044.2 002700* (3) READ RL1044.2 002800* (4) WRITE RL1044.2 002900* (5) REWRITE RL1044.2 003000* (6) RELATIVE KEY RL1044.2 003100* (7) ACCESS MODE RL1044.2 003200* RL1044.2 003300* THIS PROGRAM CREATES A RELATIVE I-O FILE SEQUENTIALLYRL1044.2 003400* (ACCESS MODE SEQUENTIAL) AND THEN UPDATES SELECTIVE RL1044.2 003500* RECORDS OF THE FILE. THE FILE STATUS CONTENTS ARE RL1044.2 003600* CAPTURED AND TESTED FOR ACCURACY FOR EACH OPEN, CLOSERL1044.2 003700* READ AND REWRITE STATEMENT USED. THE READ, WRITE ANDRL1044.2 003800* REWRITE STATEMENTS ARE USED WITHOUT THE APPROPRIATE RL1044.2 003900* AT END ON INVALID KEY PHRASES. THE OMISSION OF THESERL1044.2 004000* PHRASES ARE PERMITTED IF AN APPLICABLE USE PROCEDURE RL1044.2 004100* HAS BEEN SPECIFIED. RL1044.2 004200* RL1044.2 004300**************************************************************** RL1044.2 ENVIRONMENT DIVISION . RL1044.2CONFIGURATION SECTION . RL1044.2SOURCE-COMPUTER . RL1044.2OBJECT-COMPUTER . RL1044.2INPUT-OUTPUT SECTION . RL1044.2FILE-CONTROL . RL1044.2SELECT PRINT-FILE ASSIGN TO RL1044.2"C0085" . RL1044.2SELECT RL-FS2 ASSIGN RL1044.2"C0034" RL1044.2ORGANIZATION RELATIVE RL1044.2ACCESS SEQUENTIAL RL1044.2RELATIVE RL-FS2-KEY RL1044.2FILE STATUS IS RL-FS2-STATUS. RL1044.2DATA DIVISION . RL1044.2FILE SECTION . RL1044.2FD PRINT-FILE. RL1044.2PICTURE X(120). RL1044.2PICTURE X(120). RL1044.2FD RL-FS2 RL1044.2VALUE OF RL1044.2IS RL1044.2LABEL RECORDS ARE STANDARD RL1044.2BLOCK CONTAINS 1 RECORDS RL1044.2DATA RECORD RL-FS2R1-F-G-240. RL1044.2PIC X(120). RL1044.2PICTURE X OCCURS 120 TIMES. RL1044.2WORKING-STORAGE SECTION . RL1044.2PIC 9(8) VALUE ZERO . RL1044.2PIC S9(9) USAGE COMP VALUE ZERO . RL1044.2PIC S9(9) USAGE COMP VALUE ZERO . RL1044.2PIC S9(9) USAGE COMP VALUE ZERO . RL1044.2PIC S9(9) USAGE COMP VALUE ZERO . RL1044.2PIC S9(9) USAGE COMP VALUE ZERO . RL1044.2PIC S9(9) USAGE COMP VALUE ZERO . RL1044.2PIC S9(9) USAGE COMP VALUE ZERO . RL1044.2PIC XX VALUE SPACE . RL1044.2PIC X(2) VALUE SPACE . RL1044.2PIC X(2) VALUE SPACE . RL1044.2PIC X(2) VALUE SPACE . RL1044.2PIC X(2) VALUE SPACE . RL1044.2PIC X(2) VALUE SPACE . RL1044.2PIC X(2) VALUE SPACE . RL1044.2PIC X(2) VALUE SPACE . RL1044.2PIC X(2) VALUE SPACE . RL1044.2PIC X(2) VALUE SPACE . RL1044.2FILLER PICTURE X(48) VALUE RL1044.2"FILE= ,RECORD= /0,RECNO=000000,UPDT=00" . RL1044.2FILLER PICTURE X(46) VALUE RL1044.2",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000" . RL1044.2FILLER PICTURE X(26) VALUE RL1044.2",LFIL=000000,ORG= ,LBLR= " . RL1044.2FILLER PICTURE X(37) VALUE RL1044.2",RECKEY= " . RL1044.2FILLER PICTURE X(38) VALUE RL1044.2",ALTKEY1= " . RL1044.2FILLER PICTURE X(38) VALUE RL1044.2",ALTKEY2= " . RL1044.2FILLER PICTURE X(7) VALUE SPACE .RL1044.2OCCURS 10 TIMES. RL1044.2FILLER PIC X(5). RL1044.2PIC X(6). RL1044.2FILLER PIC X(8). RL1044.2PIC X(6). RL1044.2FILLER PIC X(1). RL1044.2PIC 9(1). RL1044.2FILLER PIC X(7). RL1044.2PIC 9(6). RL1044.2FILLER PIC X(6). RL1044.2PIC 9(2). RL1044.2FILLER PIC X(5). RL1044.2PIC 9(4). RL1044.2FILLER PIC X(5). RL1044.2PIC X(5). RL1044.2FILLER PIC X(7). RL1044.2PIC 9(6). RL1044.2FILLER PIC X(7). RL1044.2PIC X(2). RL1044.2FILLER PIC X(1). RL1044.2PIC 9(4). RL1044.2FILLER PIC X(6). RL1044.2PIC 9(6). RL1044.2FILLER PIC X(5). RL1044.2PIC X(2). RL1044.2FILLER PIC X(6). RL1044.2PIC X(1). RL1044.2FILLER PIC X(8). RL1044.2PIC X(29). RL1044.2FILLER PIC X(9). RL1044.2PIC X(29). RL1044.2FILLER PIC X(9). RL1044.2PIC X(29). RL1044.2FILLER PIC X(7). RL1044.2FILLER PIC X VALUE SPACE . RL1044.2PIC X(20) VALUE SPACE . RL1044.2FILLER PIC X VALUE SPACE . RL1044.2PIC X(5) VALUE SPACE . RL1044.2FILLER PIC X VALUE SPACE . RL1044.2FILLER PIC X(19) VALUE SPACE . RL1044.2PIC X VALUE SPACE . RL1044.2PIC 99 VALUE ZERO . RL1044.2FILLER PIC X(8) VALUE SPACE . RL1044.2PIC X(61). RL1044.2FILLER PIC X(30) VALUE SPACE . RL1044.2FILLER PIC X(17) VALUE RL1044.2" COMPUTED=" . RL1044.2PIC X(20) VALUE SPACE . RL1044.2REDEFINES COMPUTED-A RL1044.2PIC -9(9).9(9). RL1044.2REDEFINES COMPUTED-A PIC -.9(18). RL1044.2REDEFINES COMPUTED-A PIC -9(4).9(14). RL1044.2REDEFINES COMPUTED-A PIC -9(14).9(4). RL1044.2REDEFINES COMPUTED-A. RL1044.2PIC -9(18). RL1044.2FILLER PIC X. RL1044.2FILLER PIC X(50) VALUE SPACE . RL1044.2FILLER PIC X(30) VALUE SPACE . RL1044.2FILLER PIC X(17) VALUE " CORRECT =" . RL1044.2PIC X(20) VALUE SPACE . RL1044.2REDEFINES CORRECT-A PIC -9(9).9(9). RL1044.2REDEFINES CORRECT-A PIC -.9(18). RL1044.2REDEFINES CORRECT-A PIC -9(4).9(14). RL1044.2REDEFINES CORRECT-A PIC -9(14).9(4). RL1044.2REDEFINES CORRECT-A. RL1044.2PIC -9(18). RL1044.2FILLER PIC X. RL1044.2FILLER PIC X(2) VALUE SPACE . RL1044.2PIC X(48) VALUE SPACE . RL1044.2FILLER PIC IS X(99) VALUE IS " FEATURE PARL1044.2 "SS PARAGRAPH-NAME RL1044.2 " REMARKS" . RL1044.2FILLER PIC X(20) VALUE SPACE . RL1044.2FILLER PIC X VALUE SPACE . RL1044.2FILLER PIC X(6) VALUE "TESTED" . RL1044.2FILLER PIC X(15) VALUE SPACE . RL1044.2FILLER PIC X(4) VALUE "FAIL" . RL1044.2FILLER PIC X(94) VALUE SPACE . RL1044.2PIC 9(2) VALUE ZERO . RL1044.2PIC 99 VALUE ZERO . RL1044.2PIC 999 VALUE ZERO . RL1044.2PIC 999 VALUE ZERO . RL1044.2PIC 999 VALUE ZERO . RL1044.2PIC 999 VALUE ZERO . RL1044.2PIC 999 VALUE ZERO . RL1044.2PIC 999 VALUE ZERO . RL1044.2PIC X(120) VALUE SPACE . RL1044.2PIC 9(5) VALUE ZERO . RL1044.2PIC X(48) VALUE SPACES . RL1044.2FILLER PIC X(39) VALUE SPACES . RL1044.2FILLER PIC X(42) VALUE RL1044.2"OFFICIAL COBOL COMPILER VALIDATION SYSTEM" . RL1044.2FILLER PIC X(39) VALUE SPACES . RL1044.2FILLER PIC X(40) VALUE SPACE . RL1044.2FILLER PIC X(7) VALUE "CCVS85 " . RL1044.2FILLER PIC XXXX VALUE RL1044.2"4.2 " . RL1044.2FILLER PIC X(28) VALUE RL1044.2" COPY - NOT FOR DISTRIBUTION" . RL1044.2FILLER PIC X(41) VALUE SPACE . RL1044.2FILLER PIC X(15) VALUE RL1044.2"TEST RESULT OF " . RL1044.2PIC X(9). RL1044.2FILLER PIC X(4) VALUE RL1044.2" IN " . RL1044.2FILLER PIC X(12) VALUE RL1044.2" HIGH " . RL1044.2FILLER PIC X(22) VALUE RL1044.2" LEVEL VALIDATION FOR " . RL1044.2FILLER PIC X(58) VALUE RL1044.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .RL1044.2FILLER PIC X(34) VALUE RL1044.2" FOR OFFICIAL USE ONLY " . RL1044.2FILLER PIC X(58) VALUE RL1044.2"COBOL 85 VERSION 4.2, Apr 1993 SSVG " .RL1044.2FILLER PIC X(28) VALUE RL1044.2" COPYRIGHT 1985 " . RL1044.2FILLER PIC X(52) VALUE SPACE . RL1044.2FILLER PIC X(14) VALUE IS "END OF TEST- " . RL1044.2PIC X(9). RL1044.2FILLER PIC X(45) VALUE SPACES . RL1044.2FILLER PIC X(31) VALUE SPACE . RL1044.2FILLER PIC X(21) VALUE SPACE . RL1044.2PIC XXX VALUE SPACE . RL1044.2FILLER PIC X VALUE SPACE . RL1044.2PIC X(44) VALUE RL1044.2"ERRORS ENCOUNTERED" . RL1044.2FILLER PIC X(22) VALUE RL1044.2" FOR OFFICIAL USE ONLY" . RL1044.2FILLER PIC X(12) VALUE SPACE . RL1044.2FILLER PIC X(58) VALUE RL1044.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .RL1044.2FILLER PIC X(13) VALUE SPACE . RL1044.2FILLER PIC X(15) VALUE RL1044.2" COPYRIGHT 1985" . RL1044.2PIC XXX VALUE SPACE . RL1044.2FILLER PIC X(4) VALUE " OF " . RL1044.2PIC XXX VALUE SPACE . RL1044.2FILLER PIC X(40) VALUE RL1044.2" TESTS WERE EXECUTED SUCCESSFULLY" . RL1044.2FILLER PIC X(19) VALUE RL1044.2"*** INFORMATION ***" . RL1044.2FILLER PIC X(8) VALUE SPACE . RL1044.2PIC X(20). RL1044.2FILLER PIC X(5) VALUE SPACE . RL1044.2PIC X(20). RL1044.2PIC X(48). RL1044.2FILLER PIC IS X VALUE IS SPACE . RL1044.2FILLER PIC IS X(65) VALUE IS "************************RL1044.2 "*****************************************" . RL1044.2FILLER PIC IS X(54) VALUE IS "************************RL1044.2 "******************************" . RL1044.2PIC X(9) VALUE RL1044.2"RL104A" . RL1044.2PROCEDURE DIVISION . RL1044.2DECLARATIVES . RL1044.2SECTION . RL1044.2USE AFTER STANDARD EXCEPTION PROCEDURE ON RL-FS2. RL1044.2ADD 1 TO WRK-CS-09V00-013. RL1044.2GO TO RL-FS2-01-03 RL1044.2DEPENDING ON WRK-CS-09V00-012. RL1044.2GO TO RL-FS2-01-EXIT. RL1044.2030200*ENTRY FROM SEGMENT REL-TEST-009. RL1044.2 030300* SHOULD NOT ENTER HERE UNLESS SPACE ALLOCATION TOO SMALL. RL1044.2 ADD 1 TO WRK-CS-09V00-014. RL1044.2ADD 1 TO WRK-CS-09V00-017. RL1044.2IF XRECORD-NUMBER (2) EQUAL TO 500 RL1044.2MOVE RL-FS2-STATUS TO WRK-XN-0002-002 RL1044.2MOVE "10" TO WRK-XN-0002-003. RL1044.2EXIT . RL1044.2END DECLARATIVES . RL1044.2SECTION . RL1044.2OPEN OUTPUT PRINT-FILE. RL1044.2MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. RL1044.2MOVE SPACE TO TEST-RESULTS. RL1044.2PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. RL1044.2MOVE ZERO TO REC-SKL-SUB. RL1044.2PERFORM CCVS-INIT-FILE 9 TIMES. RL1044.2ADD 1 TO REC-SKL-SUB. RL1044.2MOVE FILE-RECORD-INFO-SKELETON RL1044.2TO FILE-RECORD-INFO (REC-SKL-SUB). RL1044.2GO TO CCVS1-EXIT. RL1044.2PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. RL1044.2EXIT PROGRAM . RL1044.2STOP RUN . RL1044.2MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. RL1044.2MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. RL1044.2MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. RL1044.2MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. RL1044.2MOVE "****TEST DELETED****" TO RE-MARK. RL1044.2IF REC-CT NOT EQUAL TO ZERO RL1044.2MOVE "." TO PARDOT-X RL1044.2MOVE REC-CT TO DOTVALUE. RL1044.2MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. RL1044.2IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE RL1044.2PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX RL1044.2ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. RL1044.2MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. RL1044.2MOVE SPACE TO CORRECT-X. RL1044.2IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. RL1044.2MOVE SPACE TO RE-MARK. RL1044.2MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL1044.2MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL1044.2MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. RL1044.2MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. RL1044.2MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL1044.2MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL1044.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. RL1044.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.RL1044.2MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL1044.2ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO RL1044.2ADD DELETE-COUNTER TO ERROR-HOLD. RL1044.2ADD PASS-COUNTER TO ERROR-HOLD. RL1044.2036700* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. RL1044.2 MOVE PASS-COUNTER TO CCVS-E-4-1. RL1044.2MOVE ERROR-HOLD TO CCVS-E-4-2. RL1044.2MOVE CCVS-E-4 TO CCVS-E-2-2. RL1044.2MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. RL1044.2MOVE "TEST(S) FAILED" TO ENDER-DESC. RL1044.2IF ERROR-COUNTER IS EQUAL TO ZERO RL1044.2MOVE "NO " TO ERROR-TOTAL RL1044.2ELSE RL1044.2MOVE ERROR-COUNTER TO ERROR-TOTAL. RL1044.2MOVE CCVS-E-2 TO DUMMY-RECORD. RL1044.2PERFORM WRITE-LINE. RL1044.2IF DELETE-COUNTER IS EQUAL TO ZERO RL1044.2MOVE "NO " TO ERROR-TOTAL ELSE RL1044.2MOVE DELETE-COUNTER TO ERROR-TOTAL. RL1044.2MOVE "TEST(S) DELETED " TO ENDER-DESC. RL1044.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL1044.2IF INSPECT-COUNTER EQUAL TO ZERO RL1044.2MOVE "NO " TO ERROR-TOTAL RL1044.2ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. RL1044.2MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. RL1044.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL1044.2MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL1044.2ADD 1 TO RECORD-COUNT. RL1044.2IF RECORD-COUNT GREATER 50 RL1044.2MOVE DUMMY-RECORD TO DUMMY-HOLD RL1044.2MOVE SPACE TO DUMMY-RECORD RL1044.2WRITE DUMMY-RECORD AFTER ADVANCING PAGE RL1044.2MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN RL1044.2MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES RL1044.2MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN RL1044.2MOVE DUMMY-HOLD TO DUMMY-RECORD RL1044.2MOVE ZERO TO RECORD-COUNT. RL1044.2PERFORM WRT-LN. RL1044.2WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. RL1044.2MOVE SPACE TO DUMMY-RECORD. RL1044.2PERFORM WRT-LN. RL1044.2IF COMPUTED-X NOT EQUAL TO SPACE RL1044.2GO TO FAIL-ROUTINE-WRITE. RL1044.2IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.RL1044.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. RL1044.2MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. RL1044.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL1044.2MOVE SPACES TO INF-ANSI-REFERENCE. RL1044.2GO TO FAIL-ROUTINE-EX. RL1044.2MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE RL1044.2MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. RL1044.2MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. RL1044.2MOVE SPACES TO COR-ANSI-REFERENCE. RL1044.2EXIT . RL1044.2IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. RL1044.2IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. RL1044.2MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. RL1044.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. RL1044.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL1044.2MOVE SPACES TO INF-ANSI-REFERENCE. RL1044.2EXIT . RL1044.2EXIT . RL1044.2SECTION . RL1044.2MOVE "REL-TEST-009" TO PAR-NAME. RL1044.2MOVE "CREATE RL-FS2" TO FEATURE RL1044.2MOVE "RL-FS2" TO XFILE-NAME (2). RL1044.2MOVE "R1-F-G" TO XRECORD-NAME (2). RL1044.2MOVE CCVS-PGM-ID TO XPROGRAM-NAME (2). RL1044.2MOVE 000240 TO XRECORD-LENGTH (2). RL1044.2MOVE "RC" TO CHARS-OR-RECORDS (2). RL1044.2MOVE 0001 TO XBLOCK-SIZE (2). RL1044.2MOVE 000500 TO RECORDS-IN-FILE (2). RL1044.2MOVE "RL" TO XFILE-ORGANIZATION (2). RL1044.2MOVE "S" TO XLABEL-TYPE (2). RL1044.2MOVE 000001 TO XRECORD-NUMBER (2). RL1044.2044900*INITIALIZE RECORD WORK AREA NUMBER 2. RL1044.2 MOVE 1 TO WRK-CS-09V00-012. RL1044.2MOVE ZERO TO WRK-CS-09V00-013 WRK-CS-09V00-014 RL1044.2MOVE SPACE TO RL-FS2-STATUS. RL1044.2MOVE 90000002 TO RL-FS2-KEY. RL1044.2MOVE 01 TO REC-CT. RL1044.2OPEN OUTPUT RL-FS2. RL1044.2MOVE RL-FS2-STATUS TO WRK-XN-0002-001. RL1044.2045900*CAPTURE STATUS KEY AFTER OPEN STATEMENT IS EXECUTED. RL1044.2 MOVE "99" TO RL-FS2-STATUS. RL1044.2MOVE FILE-RECORD-INFO-P1-120 (2) TO RL-FS2-WRK-120. RL1044.2MOVE FILE-RECORD-INFO-P1-120 (2) TO RL1044.2WRITE RL-FS2R1-F-G-240. RL1044.2IF RL-FS2-STATUS NOT EQUAL TO "00" RL1044.2GO TO REL-TEST-009-2. RL1044.2IF XRECORD-NUMBER (2) EQUAL TO 500 RL1044.2GO TO REL-TEST-009-2. RL1044.2ADD 01 TO XRECORD-NUMBER (2). RL1044.2GO TO REL-TEST-009-R. RL1044.2IF WRK-CS-09V00-014 NOT EQUAL TO ZERO RL1044.2MOVE "EXCEPTIONS/ERRORS" TO RE-MARK RL1044.2MOVE ZERO TO CORRECT-18V0 RL1044.2MOVE WRK-CS-09V00-014 TO COMPUTED-18V0 RL1044.2PERFORM FAIL RL1044.2ELSE RL1044.2PERFORM PASS. RL1044.2PERFORM PRINT-DETAIL. RL1044.2ADD 01 TO REC-CT. RL1044.2048200* .01 RL1044.2 IF XRECORD-NUMBER (2) NOT EQUAL TO 500 RL1044.2MOVE "INCORRECT COUNT" TO RE-MARK RL1044.2MOVE 500 TO CORRECT-18V0 RL1044.2MOVE XRECORD-NUMBER (2) TO COMPUTED-18V0 RL1044.2PERFORM FAIL RL1044.2ELSE RL1044.2PERFORM PASS. RL1044.2PERFORM PRINT-DETAIL. RL1044.2ADD 01 TO REC-CT. RL1044.2049200* .02 RL1044.2 IF WRK-XN-0002-001 NOT EQUAL TO "00" RL1044.2MOVE "STATUS/OPEN" TO RE-MARK RL1044.2MOVE WRK-XN-0002-001 TO COMPUTED-A RL1044.2MOVE "00" TO CORRECT-A RL1044.2PERFORM FAIL RL1044.2ELSE RL1044.2PERFORM PASS. RL1044.2PERFORM PRINT-DETAIL. RL1044.2ADD 01 TO REC-CT. RL1044.2050200* .03 RL1044.2 IF RL-FS2-STATUS NOT EQUAL TO "00" RL1044.2MOVE "STATUS/WRITE" TO RE-MARK RL1044.2MOVE RL-FS2-STATUS TO COMPUTED-A RL1044.2MOVE "00" TO CORRECT-A RL1044.2PERFORM FAIL RL1044.2ELSE RL1044.2PERFORM PASS. RL1044.2PERFORM PRINT-DETAIL. RL1044.2ADD 01 TO REC-CT. RL1044.2051200* .04 RL1044.2 MOVE SPACE TO RL-FS2-STATUS. RL1044.2CLOSE RL-FS2. RL1044.2IF RL-FS2-STATUS NOT EQUAL TO "00" RL1044.2MOVE "CLOSE/STATUS" TO RE-MARK RL1044.2MOVE RL-FS2-STATUS TO COMPUTED-A RL1044.2MOVE "00" TO CORRECT-A RL1044.2PERFORM FAIL RL1044.2ELSE RL1044.2PERFORM PASS. RL1044.2PERFORM PRINT-DETAIL. RL1044.2ADD 01 TO REC-CT. RL1044.2052400* .05 RL1044.2 MOVE "REL-TEST-010" TO PAR-NAME. RL1044.2MOVE 2 TO WRK-CS-09V00-012. RL1044.2MOVE ZERO TO WRK-CS-09V00-013. RL1044.2MOVE ZERO TO WRK-CS-09V00-014. RL1044.2MOVE ZERO TO WRK-CS-09V00-015. RL1044.2MOVE ZERO TO WRK-CS-09V00-016. RL1044.2MOVE ZERO TO WRK-CS-09V00-017. RL1044.2MOVE ZERO TO WRK-CS-09V00-018. RL1044.2MOVE 01 TO REC-CT. RL1044.2OPEN I-O RL-FS2. RL1044.2MOVE SPACE TO WRK-XN-0002-002 RL1044.2MOVE SPACE TO WRK-XN-0002-003 RL1044.2MOVE SPACE TO WRK-XN-0002-004 RL1044.2MOVE RL-FS2-STATUS TO WRK-XN-0002-001 RL1044.2MOVE SPACE TO RL-FS2-STATUS. RL1044.2054100*CAPTURE THE CONTENTS OF STATUS KEY AFTER OPEN IS EXECUTED. RL1044.2 MOVE "USE/FILE STATUE" TO FEATURE. RL1044.2ADD 1 TO WRK-CS-09V00-014. RL1044.2ADD 1 TO WRK-CS-09V00-015. RL1044.2READ RL-FS2. RL1044.2IF RL-FS2-STATUS EQUAL TO "10" RL1044.2GO TO REL-TEST-010-3. RL1044.2MOVE RL-FS2-WRK-120 TO FILE-RECORD-INFO-P1-120 (2). RL1044.2IF WRK-CS-09V00-015 EQUAL TO 5 RL1044.2ADD 01 TO UPDATE-NUMBER (2) RL1044.2MOVE FILE-RECORD-INFO-P1-120 (2) TO RL-FS2-WRK-120 RL1044.2REWRITE RL-FS2R1-F-G-240 RL1044.2MOVE ZERO TO WRK-CS-09V00-015 RL1044.2GO TO REL-TEST-010-2. RL1044.2IF WRK-CS-09V00-014 GREATER 500 RL1044.2GO TO REL-TEST-010-3. RL1044.2GO TO REL-TEST-010-R. RL1044.2IF RL-FS2-STATUS NOT EQUAL TO "00" RL1044.2ADD 1 TO WRK-CS-09V00-016. RL1044.2MOVE SPACE TO RL-FS2-STATUS. RL1044.2GO TO REL-TEST-010-R. RL1044.2IF WRK-CS-09V00-013 NOT EQUAL TO 1 RL1044.2MOVE "EXCEPTIONS/ERRORS" TO RE-MARK RL1044.2MOVE WRK-CS-09V00-013 TO COMPUTED-18V0 RL1044.2MOVE 1 TO CORRECT-18V0 RL1044.2PERFORM FAIL RL1044.2ELSE RL1044.2PERFORM PASS. RL1044.2PERFORM PRINT-DETAIL. RL1044.2ADD 01 TO REC-CT. RL1044.2057400* .01 RL1044.2 IF WRK-CS-09V00-014 NOT EQUAL TO 501 RL1044.2MOVE "INCORRECT COUNT" TO RE-MARK RL1044.2MOVE WRK-CS-09V00-014 TO COMPUTED-18V0 RL1044.2MOVE 501 TO CORRECT-18V0 RL1044.2PERFORM FAIL RL1044.2ELSE RL1044.2PERFORM PASS. RL1044.2PERFORM PRINT-DETAIL. RL1044.2ADD 01 TO REC-CT. RL1044.2058400* .02 RL1044.2 IF WRK-XN-0002-001 NOT EQUAL TO "00" RL1044.2MOVE "OPEN/STATUS" TO RE-MARK RL1044.2MOVE WRK-XN-0002-001 TO COMPUTED-A RL1044.2MOVE "00" TO CORRECT-A RL1044.2PERFORM FAIL RL1044.2ELSE RL1044.2PERFORM PASS. RL1044.2PERFORM PRINT-DETAIL. RL1044.2ADD 01 TO REC-CT. RL1044.2059400* .03 RL1044.2 IF RL-FS2-STATUS NOT EQUAL TO "10" RL1044.2MOVE "ATEND/STATUS" TO RE-MARK RL1044.2MOVE RL-FS2-STATUS TO COMPUTED-A RL1044.2MOVE "10" TO CORRECT-A RL1044.2PERFORM FAIL RL1044.2ELSE RL1044.2PERFORM PASS. RL1044.2PERFORM PRINT-DETAIL. RL1044.2ADD 01 TO REC-CT. RL1044.2060400* .04 RL1044.2 IF WRK-XN-0002-002 NOT EQUAL TO "10" RL1044.2MOVE "EXCEPTIN/STATUS" TO RE-MARK RL1044.2MOVE WRK-XN-0002-002 TO COMPUTED-A RL1044.2MOVE "10" TO CORRECT-A RL1044.2PERFORM FAIL RL1044.2ELSE RL1044.2PERFORM PASS. RL1044.2PERFORM PRINT-DETAIL. RL1044.2ADD 01 TO REC-CT. RL1044.2061400* .05 RL1044.2 IF WRK-XN-0002-003 NOT EQUAL TO "10" RL1044.2MOVE "NO/EXCEPTION" TO RE-MARK RL1044.2MOVE WRK-XN-0002-003 TO COMPUTED-A RL1044.2MOVE "10" TO CORRECT-A RL1044.2PERFORM FAIL RL1044.2ELSE RL1044.2PERFORM PASS. RL1044.2PERFORM PRINT-DETAIL RL1044.2ADD 01 TO REC-CT. RL1044.2062400* .06 RL1044.2 MOVE SPACE TO RL-FS2-STATUS. RL1044.2CLOSE RL-FS2 RL1044.2IF RL-FS2-STATUS NOT EQUAL TO "00" RL1044.2MOVE "CLOSE/STATUS" TO RE-MARK RL1044.2MOVE RL-FS2-STATUS TO COMPUTED-A RL1044.2MOVE "00" TO CORRECT-A RL1044.2PERFORM FAIL RL1044.2ELSE RL1044.2PERFORM PASS. RL1044.2PERFORM PRINT-DETAIL. RL1044.2ADD 01 TO REC-CT. RL1044.2063600* .07 RL1044.2 SECTION . RL1044.2GO TO CLOSE-FILES. RL1044.2quality 98%
¤ 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.0.28Bemerkung:
(vorverarbeitet)
¤ *Bot Zugriff
