Quelle ix204a.cob
Sprache: Cobol
000100 IDENTIFICATION DIVISION . IX2044.2PROGRAM-ID . IX2044.2000400**************************************************************** IX2044.2 000500* * IX2044.2 000600* VALIDATION FOR:- * IX2044.2 000700* * IX2044.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX2044.2 000900* * IX2044.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IX2044.2 001100* * IX2044.2 001200**************************************************************** IX2044.2 001300*IX204A IX2044.2 001400******************************************************************IX2044.2 001500* IX2044.2 001600* NEW TESTS: IX2044.2 001700* CLOSE ... <WITH LOCK> IX2044.2 001800* IX2044.2 001900* IX2044.2 002000* THIS PROGRAM TESTS THE SYNTACTICAL CONSTRUCTS AND SEMANTIC IX2044.2 002100* ACTIONS ASSOCIATED WITH THE FOLLOWING ELEMENTS: IX2044.2 002200* IX2044.2 002300* (1) FILE STATUS (ONLY 00 & 10) IX2044.2 002400* (2) USE AFTER ERROR PROCEDURE ON FILE-NAME IX2044.2 002500* (3) READ IX2044.2 002600* (4) WRITE IX2044.2 002700* (5) REWRITE IX2044.2 002800* (6) RECORD KEY IX2044.2 002900* (7) ACCESS IX2044.2 003000* IX2044.2 003100* THIS PROGRAM CREATES AN INDEXED FILE SEQUENTIALLY (ACCESS IX2044.2 003200* MODE DYMANIC) AND THEN UPDATES SELECTIVE RECORDS OF THE FILE.IX2044.2 003300* THE FILE STATUS CONTENTS ARE CAPTURED AND TESTED FOR ACCURACYIX2044.2 003400* FOR EACH OPEN, CLOSE, READ AND REWRITE STATEMENT USED. THE IX2044.2 003500* READ, WRITE AND REWRITE STATEMENTS ARE USED WITHOUT THE IX2044.2 003600* APPROPRIATE AT END OR INVALID KEY PHRASES. THE OMISSION OF IX2044.2 003700* THESE PHRASES ARE PERMITTED IF AN APPLICABLE USE PROCEDURE IX2044.2 003800* HAS BEEN SPECIFIED. IX2044.2 003900* IX2044.2 004000* IX2044.2 004100* X-CARDS WHICH MUST BE REPLACED FOR THIS PROGRAM ARE IX2044.2 004200* IX2044.2 004300* X-25 INDEXED FILE IMPLEMENTOR-NAME IN ASSIGN TO IX2044.2 004400* CLAUSE FOR DATA FILE IX-FD2 IX2044.2 004500* X-45 INDEXED FILE IMPLEMENTOR-NAME IN ASSIGN TO IX2044.2 004600* CLAUSE FOR INDEX FILE IX-FD2 IX2044.2 004700* X-55 IMPLEMENTOR-NAME FOR SYSTEM PRINTER IX2044.2 004800* X-62 IMPLEMENTOR-NAME FOR RAW-DATA IX2044.2 004900* X-82 IMPLEMENTOR-NAME FOR SOURCE-COMPUTER IX2044.2 005000* X-83 IMPLEMENTOR-NAME FOR OBJECT-COMPUTER IX2044.2 005100* X-84 LABEL RECORDS FOR PRINT-FILEPUTER IX2044.2 005200* IX2044.2 005300* NOTE: X-CARDS 45, 62 AND 84 ARE OPTIONAL IX2044.2 005400* AND NEED ONLY TO BE PRESENT IF THE COMPILER RE- IX2044.2 005500* QUIRES THIS CODE BE AVAILABLE FOR PROPER PROGRAM IX2044.2 005600* COMPILATION AND EXECUTION. IF THE VP-ROUTINE IS IX2044.2 005700* USED THE X-CARDS MAY BE AUTOMATICALLY SELECTED IX2044.2 005800* FOR INCLUSION IN THE PROGRAM BY SPECIFYING THE IX2044.2 005900* APPROPRIATE LETTER IN THE "*OPT" VP-ROUTINE IX2044.2 006000* CONTROL CARD. THE LETTER CORRESPONDS TO A IX2044.2 006100* CHARACTER IN POSITION 7 OF THE SOURCE LINE AND IX2044.2 006200* THEY ARE AS FOLLOWS IX2044.2 006300* IX2044.2 006400* P SELECTS X-CARDS 62 IX2044.2 006500* J SELECTS X-CARD 45 IX2044.2 006600* C SELECTS X-CARD 84 IX2044.2 006700* IX2044.2 006800****************************************************** IX2044.2 ENVIRONMENT DIVISION . IX2044.2CONFIGURATION SECTION . IX2044.2SOURCE-COMPUTER . IX2044.2OBJECT-COMPUTER . IX2044.2INPUT-OUTPUT SECTION . IX2044.2FILE-CONTROL . IX2044.2SELECT RAW-DATA ASSIGN TO IX2044.2"C0098" IX2044.2ORGANIZATION IS INDEXED IX2044.2ACCESS MODE IS RANDOM IX2044.2RECORD KEY IS RAW-DATA-KEY. IX2044.2SELECT PRINT-FILE ASSIGN TO IX2044.2"C0085" . IX2044.2SELECT IX-FD2 ASSIGN IX2044.2"C0037" IX2044.2"C0069" IX2044.2ORGANIZATION IS INDEXED IX2044.2ACCESS DYNAMIC IX2044.2FILE STATUS IS IX-FD2-STATUS IX2044.2RECORD IX-FD2-KEY. IX2044.2DATA DIVISION . IX2044.2FILE SECTION . IX2044.2FD RAW-DATA. IX2044.2PIC X(6). IX2044.2PIC 9(6). IX2044.2PIC 9(8). IX2044.2PIC 99. IX2044.2PIC 999. IX2044.2PIC 999. IX2044.2PIC 999. IX2044.2PIC 999. IX2044.2PIC 999. IX2044.2PIC X(13). IX2044.2PIC X. IX2044.2PIC X(8). IX2044.2FD PRINT-FILE. IX2044.2PICTURE X(120). IX2044.2PICTURE X(120). IX2044.2FD IX-FD2 IX2044.2LABEL RECORDS ARE STANDARD IX2044.2DATA RECORDS IX-FD2R1-F-G-240 IX2044.2BLOCK CONTAINS 480 IX2044.2RECORD CONTAINS 240 CHARACTERS. IX2044.2PIC X(120). IX2044.2FILLER PICTURE X(8). IX2044.2PIC X(29). IX2044.2FILLER PIC X(83). IX2044.2WORKING-STORAGE SECTION . IX2044.2FILLER PIC X(10) VALUE "ABCD921XYZ" . IX2044.2PIC 9(9) VALUE ZERO . IX2044.2FILLER PIC X(10) VALUE "Z2F()$+-AB" . IX2044.2PIC S9(9) USAGE COMP VALUE ZERO . IX2044.2PIC S9(9) USAGE COMP VALUE ZERO . IX2044.2PIC S9(9) USAGE COMP VALUE ZERO . IX2044.2PIC S9(9) USAGE COMP VALUE ZERO . IX2044.2PIC S9(9) USAGE COMP VALUE ZERO . IX2044.2PIC S9(9) USAGE COMP VALUE ZERO . IX2044.2PIC S9(9) USAGE COMP VALUE ZERO . IX2044.2PIC XX VALUE SPACE . IX2044.2PIC X(2) VALUE SPACE . IX2044.2PIC X(2) VALUE SPACE . IX2044.2PIC X(2) VALUE SPACE . IX2044.2PIC X(2) VALUE SPACE . IX2044.2PIC X(2) VALUE SPACE . IX2044.2PIC X(2) VALUE SPACE . IX2044.2PIC X(2) VALUE SPACE . IX2044.2PIC X(2) VALUE SPACE . IX2044.2PIC X(2) VALUE SPACE . IX2044.2PIC X(120). IX2044.2REDEFINES DUMMY-WRK1. IX2044.2FILLER PIC X(5). IX2044.2PIC X(115). IX2044.2FILLER PICTURE X(48) VALUE IX2044.2"FILE= ,RECORD= /0,RECNO=000000,UPDT=00" . IX2044.2FILLER PICTURE X(46) VALUE IX2044.2",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000" . IX2044.2FILLER PICTURE X(26) VALUE IX2044.2",LFIL=000000,ORG= ,LBLR= " . IX2044.2FILLER PICTURE X(37) VALUE IX2044.2",RECKEY= " . IX2044.2FILLER PICTURE X(38) VALUE IX2044.2",ALTKEY1= " . IX2044.2FILLER PICTURE X(38) VALUE IX2044.2",ALTKEY2= " . IX2044.2FILLER PICTURE X(7) VALUE SPACE .IX2044.2OCCURS 10 TIMES. IX2044.2FILLER PIC X(5). IX2044.2PIC X(6). IX2044.2FILLER PIC X(8). IX2044.2PIC X(6). IX2044.2FILLER PIC X(1). IX2044.2PIC 9(1). IX2044.2FILLER PIC X(7). IX2044.2PIC 9(6). IX2044.2FILLER PIC X(6). IX2044.2PIC 9(2). IX2044.2FILLER PIC X(5). IX2044.2PIC 9(4). IX2044.2FILLER PIC X(5). IX2044.2PIC X(5). IX2044.2FILLER PIC X(7). IX2044.2PIC 9(6). IX2044.2FILLER PIC X(7). IX2044.2PIC X(2). IX2044.2FILLER PIC X(1). IX2044.2PIC 9(4). IX2044.2FILLER PIC X(6). IX2044.2PIC 9(6). IX2044.2FILLER PIC X(5). IX2044.2PIC X(2). IX2044.2FILLER PIC X(6). IX2044.2PIC X(1). IX2044.2FILLER PIC X(8). IX2044.2PIC X(29). IX2044.2FILLER PIC X(9). IX2044.2PIC X(29). IX2044.2FILLER PIC X(9). IX2044.2PIC X(29). IX2044.2FILLER PIC X(7). IX2044.2FILLER PIC X VALUE SPACE . IX2044.2PIC X(20) VALUE SPACE . IX2044.2FILLER PIC X VALUE SPACE . IX2044.2PIC X(5) VALUE SPACE . IX2044.2FILLER PIC X VALUE SPACE . IX2044.2FILLER PIC X(19) VALUE SPACE . IX2044.2PIC X VALUE SPACE . IX2044.2PIC 99 VALUE ZERO . IX2044.2FILLER PIC X(8) VALUE SPACE . IX2044.2PIC X(61). IX2044.2FILLER PIC X(30) VALUE SPACE . IX2044.2FILLER PIC X(17) VALUE IX2044.2" COMPUTED=" . IX2044.2PIC X(20) VALUE SPACE . IX2044.2REDEFINES COMPUTED-A IX2044.2PIC -9(9).9(9). IX2044.2REDEFINES COMPUTED-A PIC -.9(18). IX2044.2REDEFINES COMPUTED-A PIC -9(4).9(14). IX2044.2REDEFINES COMPUTED-A PIC -9(14).9(4). IX2044.2REDEFINES COMPUTED-A. IX2044.2PIC -9(18). IX2044.2FILLER PIC X. IX2044.2FILLER PIC X(50) VALUE SPACE . IX2044.2FILLER PIC X(30) VALUE SPACE . IX2044.2FILLER PIC X(17) VALUE " CORRECT =" . IX2044.2PIC X(20) VALUE SPACE . IX2044.2REDEFINES CORRECT-A PIC -9(9).9(9). IX2044.2REDEFINES CORRECT-A PIC -.9(18). IX2044.2REDEFINES CORRECT-A PIC -9(4).9(14). IX2044.2REDEFINES CORRECT-A PIC -9(14).9(4). IX2044.2REDEFINES CORRECT-A. IX2044.2PIC -9(18). IX2044.2FILLER PIC X. IX2044.2FILLER PIC X(2) VALUE SPACE . IX2044.2PIC X(48) VALUE SPACE . IX2044.2FILLER PIC IS X(99) VALUE IS " FEATURE PAIX2044.2 "SS PARAGRAPH-NAME IX2044.2 " REMARKS" . IX2044.2FILLER PIC X(20) VALUE SPACE . IX2044.2FILLER PIC X VALUE SPACE . IX2044.2FILLER PIC X(6) VALUE "TESTED" . IX2044.2FILLER PIC X(15) VALUE SPACE . IX2044.2FILLER PIC X(4) VALUE "FAIL" . IX2044.2FILLER PIC X(94) VALUE SPACE . IX2044.2PIC 9(2) VALUE ZERO . IX2044.2PIC 99 VALUE ZERO . IX2044.2PIC 999 VALUE ZERO . IX2044.2PIC 999 VALUE ZERO . IX2044.2PIC 999 VALUE ZERO . IX2044.2PIC 999 VALUE ZERO . IX2044.2PIC 999 VALUE ZERO . IX2044.2PIC 999 VALUE ZERO . IX2044.2PIC X(120) VALUE SPACE . IX2044.2PIC 9(5) VALUE ZERO . IX2044.2PIC X(48) VALUE SPACES . IX2044.2FILLER PIC X(39) VALUE SPACES . IX2044.2FILLER PIC X(42) VALUE IX2044.2"OFFICIAL COBOL COMPILER VALIDATION SYSTEM" . IX2044.2FILLER PIC X(39) VALUE SPACES . IX2044.2FILLER PIC X(40) VALUE SPACE . IX2044.2FILLER PIC X(7) VALUE "CCVS85 " . IX2044.2FILLER PIC XXXX VALUE IX2044.2"4.2 " . IX2044.2FILLER PIC X(28) VALUE IX2044.2" COPY - NOT FOR DISTRIBUTION" . IX2044.2FILLER PIC X(41) VALUE SPACE . IX2044.2FILLER PIC X(15) VALUE IX2044.2"TEST RESULT OF " . IX2044.2PIC X(9). IX2044.2FILLER PIC X(4) VALUE IX2044.2" IN " . IX2044.2FILLER PIC X(12) VALUE IX2044.2" HIGH " . IX2044.2FILLER PIC X(22) VALUE IX2044.2" LEVEL VALIDATION FOR " . IX2044.2FILLER PIC X(58) VALUE IX2044.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .IX2044.2FILLER PIC X(34) VALUE IX2044.2" FOR OFFICIAL USE ONLY " . IX2044.2FILLER PIC X(58) VALUE IX2044.2"COBOL 85 VERSION 4.2, Apr 1993 SSVG " .IX2044.2FILLER PIC X(28) VALUE IX2044.2" COPYRIGHT 1985 " . IX2044.2FILLER PIC X(52) VALUE SPACE . IX2044.2FILLER PIC X(14) VALUE IS "END OF TEST- " . IX2044.2PIC X(9). IX2044.2FILLER PIC X(45) VALUE SPACES . IX2044.2FILLER PIC X(31) VALUE SPACE . IX2044.2FILLER PIC X(21) VALUE SPACE . IX2044.2PIC XXX VALUE SPACE . IX2044.2FILLER PIC X VALUE SPACE . IX2044.2PIC X(44) VALUE IX2044.2"ERRORS ENCOUNTERED" . IX2044.2FILLER PIC X(22) VALUE IX2044.2" FOR OFFICIAL USE ONLY" . IX2044.2FILLER PIC X(12) VALUE SPACE . IX2044.2FILLER PIC X(58) VALUE IX2044.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .IX2044.2FILLER PIC X(13) VALUE SPACE . IX2044.2FILLER PIC X(15) VALUE IX2044.2" COPYRIGHT 1985" . IX2044.2PIC XXX VALUE SPACE . IX2044.2FILLER PIC X(4) VALUE " OF " . IX2044.2PIC XXX VALUE SPACE . IX2044.2FILLER PIC X(40) VALUE IX2044.2" TESTS WERE EXECUTED SUCCESSFULLY" . IX2044.2FILLER PIC X(19) VALUE IX2044.2"*** INFORMATION ***" . IX2044.2FILLER PIC X(8) VALUE SPACE . IX2044.2PIC X(20). IX2044.2FILLER PIC X(5) VALUE SPACE . IX2044.2PIC X(20). IX2044.2PIC X(48). IX2044.2FILLER PIC IS X VALUE IS SPACE . IX2044.2FILLER PIC IS X(65) VALUE IS "************************IX2044.2 "*****************************************" . IX2044.2FILLER PIC IS X(54) VALUE IS "************************IX2044.2 "******************************" . IX2044.2PIC X(9) VALUE IX2044.2"IX204A" . IX2044.2PROCEDURE DIVISION . IX2044.2DECLARATIVES . IX2044.2SECTION . IX2044.2USE AFTER STANDARD ERROR PROCEDURE ON IX-FD2. IX2044.2ADD 1 TO WRK-CS-09V00-013. IX2044.2GO TO IX-FD2-01-03 IX2044.2DEPENDING ON WRK-CS-09V00-012. IX2044.2GO TO IX-FD2-01-EXIT. IX2044.2035400*ENTRY FROM SEGMENT INX-TEST-001. IX2044.2 035500* SHOULD NOT ENTER HERE UNLESS SPACE ALLOCATION TOO SMALL. IX2044.2 ADD 1 TO WRK-CS-09V00-014. IX2044.2ADD 1 TO WRK-CS-09V00-017. IX2044.2IF XRECORD-NUMBER (2) EQUAL TO 500 IX2044.2MOVE IX-FD2-STATUS TO WRK-XN-0002-002 IX2044.2MOVE "10" TO WRK-XN-0002-003. IX2044.2EXIT . IX2044.2END DECLARATIVES . IX2044.2SECTION . IX2044.2OPEN I-O RAW-DATA. IX2044.2MOVE CCVS-PGM-ID TO RAW-DATA-KEY. IX2044.2READ RAW-DATA INVALID KEY GO TO END-E-1. IX2044.2MOVE "ABORTED " TO C-ABORT. IX2044.2ADD 1 TO C-NO-OF-TESTS. IX2044.2ACCEPT C-DATE FROM DATE . IX2044.2ACCEPT C-TIME FROM TIME . IX2044.2REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1. IX2044.2CLOSE RAW-DATA. IX2044.2OPEN OUTPUT PRINT-FILE. IX2044.2MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. IX2044.2MOVE SPACE TO TEST-RESULTS. IX2044.2PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. IX2044.2MOVE ZERO TO REC-SKL-SUB. IX2044.2PERFORM CCVS-INIT-FILE 9 TIMES. IX2044.2ADD 1 TO REC-SKL-SUB. IX2044.2MOVE FILE-RECORD-INFO-SKELETON IX2044.2TO FILE-RECORD-INFO (REC-SKL-SUB). IX2044.2GO TO CCVS1-EXIT. IX2044.2OPEN I-O RAW-DATA. IX2044.2MOVE CCVS-PGM-ID TO RAW-DATA-KEY. IX2044.2READ RAW-DATA INVALID KEY GO TO END-E-2. IX2044.2MOVE "OK. " TO C-ABORT. IX2044.2MOVE PASS-COUNTER TO C-OK. IX2044.2MOVE ERROR-HOLD TO C-ALL. IX2044.2MOVE ERROR-COUNTER TO C-FAIL. IX2044.2MOVE DELETE-COUNTER TO C-DELETED. IX2044.2MOVE INSPECT-COUNTER TO C-INSPECT. IX2044.2REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2. IX2044.2CLOSE RAW-DATA. IX2044.2PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. IX2044.2EXIT PROGRAM . IX2044.2STOP RUN . IX2044.2MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. IX2044.2MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. IX2044.2MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. IX2044.2MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. IX2044.2MOVE "****TEST DELETED****" TO RE-MARK. IX2044.2IF REC-CT NOT EQUAL TO ZERO IX2044.2MOVE "." TO PARDOT-X IX2044.2MOVE REC-CT TO DOTVALUE. IX2044.2MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. IX2044.2IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE IX2044.2PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX IX2044.2ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. IX2044.2MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. IX2044.2MOVE SPACE TO CORRECT-X. IX2044.2IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. IX2044.2MOVE SPACE TO RE-MARK. IX2044.2MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2044.2MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2044.2MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. IX2044.2MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. IX2044.2MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2044.2MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2044.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2044.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.IX2044.2MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2044.2ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO IX2044.2ADD DELETE-COUNTER TO ERROR-HOLD. IX2044.2ADD PASS-COUNTER TO ERROR-HOLD. IX2044.2044100* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. IX2044.2 MOVE PASS-COUNTER TO CCVS-E-4-1. IX2044.2MOVE ERROR-HOLD TO CCVS-E-4-2. IX2044.2MOVE CCVS-E-4 TO CCVS-E-2-2. IX2044.2MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. IX2044.2MOVE "TEST(S) FAILED" TO ENDER-DESC. IX2044.2IF ERROR-COUNTER IS EQUAL TO ZERO IX2044.2MOVE "NO " TO ERROR-TOTAL IX2044.2ELSE IX2044.2MOVE ERROR-COUNTER TO ERROR-TOTAL. IX2044.2MOVE CCVS-E-2 TO DUMMY-RECORD. IX2044.2PERFORM WRITE-LINE. IX2044.2IF DELETE-COUNTER IS EQUAL TO ZERO IX2044.2MOVE "NO " TO ERROR-TOTAL ELSE IX2044.2MOVE DELETE-COUNTER TO ERROR-TOTAL. IX2044.2MOVE "TEST(S) DELETED " TO ENDER-DESC. IX2044.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2044.2IF INSPECT-COUNTER EQUAL TO ZERO IX2044.2MOVE "NO " TO ERROR-TOTAL IX2044.2ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. IX2044.2MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. IX2044.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2044.2MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2044.2ADD 1 TO RECORD-COUNT. IX2044.2IF RECORD-COUNT GREATER 42 IX2044.2MOVE DUMMY-RECORD TO DUMMY-HOLD IX2044.2MOVE SPACE TO DUMMY-RECORD IX2044.2WRITE DUMMY-RECORD AFTER ADVANCING PAGE IX2044.2MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES IX2044.2MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES IX2044.2MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES IX2044.2MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES IX2044.2MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN IX2044.2MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN IX2044.2MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN IX2044.2MOVE DUMMY-HOLD TO DUMMY-RECORD IX2044.2MOVE ZERO TO RECORD-COUNT. IX2044.2PERFORM WRT-LN. IX2044.2WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. IX2044.2MOVE SPACE TO DUMMY-RECORD. IX2044.2PERFORM WRT-LN. IX2044.2IF COMPUTED-X NOT EQUAL TO SPACE IX2044.2GO TO FAIL-ROUTINE-WRITE. IX2044.2IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IX2044.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. IX2044.2MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. IX2044.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2044.2MOVE SPACES TO INF-ANSI-REFERENCE. IX2044.2GO TO FAIL-ROUTINE-EX. IX2044.2MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE IX2044.2MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. IX2044.2MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. IX2044.2MOVE SPACES TO COR-ANSI-REFERENCE. IX2044.2EXIT . IX2044.2IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. IX2044.2IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. IX2044.2MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. IX2044.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. IX2044.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2044.2MOVE SPACES TO INF-ANSI-REFERENCE. IX2044.2EXIT . IX2044.2EXIT . IX2044.2SECTION . IX2044.2MOVE "CREATE IX-FD2" TO FEATURE IX2044.2MOVE "WRITE-TEST-001" TO PAR-NAME. IX2044.2MOVE "IX-FD2" TO XFILE-NAME (2). IX2044.2MOVE "R1-F-G" TO XRECORD-NAME (2). IX2044.2MOVE CCVS-PGM-ID TO XPROGRAM-NAME (2). IX2044.2MOVE 000240 TO XRECORD-LENGTH (2). IX2044.2MOVE "RC" TO CHARS-OR-RECORDS (2). IX2044.2MOVE 0001 TO XBLOCK-SIZE (2). IX2044.2MOVE 000500 TO RECORDS-IN-FILE (2). IX2044.2MOVE "IX" TO XFILE-ORGANIZATION (2). IX2044.2MOVE "S" TO XLABEL-TYPE (2). IX2044.2MOVE 000001 TO XRECORD-NUMBER (2). IX2044.2052700*INITIALIZE RECORD WORK AREA NUMBER 2. IX2044.2 MOVE 1 TO WRK-CS-09V00-012. IX2044.2MOVE ZERO TO WRK-CS-09V00-013 WRK-CS-09V00-014 IX2044.2MOVE SPACE TO IX-FD2-STATUS. IX2044.2MOVE ZERO TO WRK-DU-09V00-001. IX2044.2OPEN OUTPUT IX-FD2. IX2044.2MOVE GRP-0101 TO IX-FD2-KEY. IX2044.2MOVE IX-FD2-STATUS TO WRK-XN-0002-001. IX2044.2053700*CAPTURE STATUS KEY AFTER OPEN STATEMENT IS EXECUTED. IX2044.2 MOVE "99" TO IX-FD2-STATUS. IX2044.2MOVE XRECORD-NUMBER (2) TO WRK-DU-09V00-001. IX2044.2MOVE GRP-0101 TO XRECORD-KEY (2). IX2044.2MOVE FILE-RECORD-INFO (2) TO IX-FD2R1-F-G-240. IX2044.2WRITE IX-FD2R1-F-G-240. IX2044.2IF IX-FD2-STATUS NOT EQUAL TO "00" IX2044.2ADD 1 TO WRK-CS-09V00-016. IX2044.2IF XRECORD-NUMBER (2) EQUAL TO 500 IX2044.2GO TO WRITE-TEST-GF-01. IX2044.2ADD 01 TO XRECORD-NUMBER (2). IX2044.2GO TO WRITE-TEST-GF-01-R. IX2044.2MOVE "WRITE IX-FD2." TO FEATURE. IX2044.2MOVE "WRITE-TEST-GF-01" TO PAR-NAME. IX2044.2IF WRK-CS-09V00-014 NOT EQUAL TO ZERO IX2044.2MOVE "EXCEPTIONS/ERRORS; IX-41 4.9.2" TO RE-MARK IX2044.2MOVE ZERO TO CORRECT-18V0 IX2044.2MOVE WRK-CS-09V00-014 TO COMPUTED-18V0 IX2044.2PERFORM FAIL IX2044.2ELSE IX2044.2PERFORM PASS. IX2044.2PERFORM PRINT-DETAIL. IX2044.2MOVE "WRITE IX-FD2." TO FEATURE. IX2044.2MOVE "WRITE-TEST-GF-02" TO PAR-NAME. IX2044.2IF XRECORD-NUMBER (2) NOT EQUAL TO 500 IX2044.2MOVE "INCORRECT COUNT; IX-41 4.9.2" TO RE-MARK IX2044.2MOVE 500 TO CORRECT-18V0 IX2044.2MOVE XRECORD-NUMBER (2) TO COMPUTED-18V0 IX2044.2PERFORM FAIL IX2044.2ELSE IX2044.2PERFORM PASS. IX2044.2PERFORM PRINT-DETAIL. IX2044.2MOVE "OPEN OUTPUT 00" TO FEATURE. IX2044.2MOVE "WRITE-TEST-GF-03" TO PAR-NAME. IX2044.2IF WRK-XN-0002-001 NOT EQUAL TO "00" IX2044.2MOVE "STATUS/OPEN; IX-3 1.3.4 (1) A" TO RE-MARK IX2044.2MOVE WRK-XN-0002-001 TO COMPUTED-A IX2044.2MOVE "00" TO CORRECT-A IX2044.2PERFORM FAIL IX2044.2ELSE IX2044.2PERFORM PASS. IX2044.2PERFORM PRINT-DETAIL. IX2044.2MOVE "WRITE STATUS 00" TO FEATURE. IX2044.2MOVE "WRITE-TEST-GF-04" TO PAR-NAME. IX2044.2IF IX-FD2-STATUS NOT EQUAL TO "00" IX2044.2MOVE "STATUS/WRITE; IX-3 1.3.4 (1) A" TO RE-MARK IX2044.2MOVE IX-FD2-STATUS TO COMPUTED-A IX2044.2MOVE "00" TO CORRECT-A IX2044.2PERFORM FAIL IX2044.2ELSE IX2044.2PERFORM PASS. IX2044.2PERFORM PRINT-DETAIL. IX2044.2MOVE "WRITE STATUS 00" TO FEATURE. IX2044.2MOVE "WRITE-TEST-GF-05" TO PAR-NAME. IX2044.2IF WRK-CS-09V00-016 NOT EQUAL TO ZERO IX2044.2MOVE "STATUS/WRITE; IX-3 1.3.4 (1) A" TO RE-MARK IX2044.2MOVE ZERO TO CORRECT-18V0 IX2044.2MOVE WRK-CS-09V00-016 TO COMPUTED-18V0 IX2044.2PERFORM FAIL IX2044.2ELSE IX2044.2PERFORM PASS. IX2044.2PERFORM PRINT-DETAIL. IX2044.2MOVE "CLOSE: STATUS: 00" TO FEATURE. IX2044.2MOVE "WRITE-TEST-GF-06" TO PAR-NAME. IX2044.2MOVE SPACE TO IX-FD2-STATUS. IX2044.2CLOSE IX-FD2. IX2044.2IF IX-FD2-STATUS NOT EQUAL TO "00" IX2044.2MOVE "CLOSE/STATUS; IX-3 1.3.4 (1) A" TO RE-MARK IX2044.2MOVE IX-FD2-STATUS TO COMPUTED-18V0 IX2044.2MOVE "00" TO CORRECT-A IX2044.2PERFORM FAIL IX2044.2ELSE IX2044.2PERFORM PASS. IX2044.2PERFORM PRINT-DETAIL. IX2044.2MOVE 2 TO WRK-CS-09V00-012. IX2044.2MOVE ZERO TO WRK-CS-09V00-013. IX2044.2MOVE ZERO TO WRK-CS-09V00-014. IX2044.2MOVE ZERO TO WRK-CS-09V00-015. IX2044.2MOVE ZERO TO WRK-CS-09V00-016. IX2044.2MOVE ZERO TO WRK-CS-09V00-017. IX2044.2MOVE ZERO TO WRK-CS-09V00-018. IX2044.2MOVE SPACE TO IX-FD2-STATUS. IX2044.2OPEN I-O IX-FD2. IX2044.2MOVE SPACE TO WRK-XN-0002-002 IX2044.2MOVE SPACE TO WRK-XN-0002-003 IX2044.2MOVE SPACE TO WRK-XN-0002-004 IX2044.2MOVE IX-FD2-STATUS TO WRK-XN-0002-001 IX2044.2MOVE SPACE TO IX-FD2-STATUS. IX2044.2063300*CAPTURE THE CONTENTS OF STATUS KEY AFTER OPEN IS EXECUTED. IX2044.2 ADD 1 TO WRK-CS-09V00-014. IX2044.2ADD 1 TO WRK-CS-09V00-015. IX2044.2READ IX-FD2 NEXT RECORD . IX2044.2IF IX-FD2-STATUS EQUAL TO "10" IX2044.2GO TO RWRT-TEST-GF-01. IX2044.2MOVE IX-FD2R1-F-G-240 TO FILE-RECORD-INFO (2). IX2044.2IF WRK-CS-09V00-015 EQUAL TO 5 IX2044.2ADD 01 TO UPDATE-NUMBER (2) IX2044.2MOVE FILE-RECORD-INFO (2) TO IX-FD2R1-F-G-240 IX2044.2PERFORM RWRT-010-UPDATE IX2044.2MOVE ZERO TO WRK-CS-09V00-015 IX2044.2GO TO RWRT-TEST-GF-01-2. IX2044.2IF WRK-CS-09V00-014 GREATER 500 IX2044.2GO TO RWRT-TEST-GF-01. IX2044.2GO TO RWRT-TEST-GF-01-R. IX2044.2REWRITE IX-FD2R1-F-G-240. IX2044.2IF IX-FD2-STATUS NOT EQUAL TO "00" IX2044.2ADD 1 TO WRK-CS-09V00-016. IX2044.2MOVE SPACE TO IX-FD2-STATUS. IX2044.2GO TO RWRT-TEST-GF-01-R. IX2044.2MOVE "RWRT-TEST-GF-01" TO PAR-NAME. IX2044.2MOVE "REWRITE IX-FD2" TO FEATURE. IX2044.2IF WRK-CS-09V00-013 NOT EQUAL TO 1 IX2044.2MOVE "EXCEPTIONS/ERRORS; IX-33 4.6.2" TO RE-MARK IX2044.2MOVE WRK-CS-09V00-013 TO COMPUTED-18V0 IX2044.2MOVE 1 TO CORRECT-18V0 IX2044.2PERFORM FAIL IX2044.2ELSE IX2044.2PERFORM PASS. IX2044.2PERFORM PRINT-DETAIL. IX2044.2MOVE "RWRT-TEST-GF-02" TO PAR-NAME. IX2044.2MOVE "UPDATE IX-FD2" TO FEATURE. IX2044.2IF WRK-CS-09V00-014 NOT EQUAL TO 501 IX2044.2MOVE "INCORRECT COUNT; IX-33 4.6.2" TO RE-MARK IX2044.2MOVE WRK-CS-09V00-014 TO COMPUTED-18V0 IX2044.2MOVE 501 TO CORRECT-18V0 IX2044.2PERFORM FAIL IX2044.2ELSE IX2044.2PERFORM PASS. IX2044.2PERFORM PRINT-DETAIL. IX2044.2MOVE "RWRT-TEST-GF-03" TO PAR-NAME. IX2044.2MOVE "OPEN I-O STATUS: 00" TO FEATURE. IX2044.2IF WRK-XN-0002-001 NOT EQUAL TO "00" IX2044.2MOVE "OPEN/STATUS; IX-3 1.3.4 (1) A" TO RE-MARK IX2044.2MOVE WRK-XN-0002-001 TO COMPUTED-A IX2044.2MOVE "00" TO CORRECT-A IX2044.2PERFORM FAIL IX2044.2ELSE IX2044.2PERFORM PASS. IX2044.2PERFORM PRINT-DETAIL. IX2044.2MOVE "RWRT-TEST-GF-04" TO PAR-NAME. IX2044.2MOVE "READ I-O STATUS 10" TO FEATURE. IX2044.2IF IX-FD2-STATUS NOT EQUAL TO "10" IX2044.2MOVE "AT END/STATUS; IX-4 1.3.4 (2) A" TO RE-MARK IX2044.2MOVE IX-FD2-STATUS TO COMPUTED-A IX2044.2MOVE "10" TO CORRECT-A IX2044.2PERFORM FAIL IX2044.2ELSE IX2044.2PERFORM PASS. IX2044.2PERFORM PRINT-DETAIL. IX2044.2MOVE "RWRT-TEST-GF-05" TO PAR-NAME. IX2044.2MOVE "UPDATE IX-FD2" TO FEATURE. IX2044.2IF WRK-XN-0002-002 NOT EQUAL TO "10" IX2044.2MOVE "EXCEPTIN/STATUS; IX-4 1.3.4 (2) A" TO RE-MARKIX2044.2MOVE WRK-XN-0002-002 TO COMPUTED-A IX2044.2MOVE "10" TO CORRECT-A IX2044.2PERFORM FAIL IX2044.2ELSE IX2044.2PERFORM PASS. IX2044.2PERFORM PRINT-DETAIL. IX2044.2MOVE "RWRT-TEST-GF-06" TO PAR-NAME. IX2044.2MOVE "STATUS: 10 " TO FEATURE. IX2044.2IF WRK-XN-0002-003 NOT EQUAL TO "10" IX2044.2MOVE "NO/EXCEPTION; IX-4 1.3.4 (2) A" TO RE-MARK IX2044.2MOVE WRK-XN-0002-003 TO COMPUTED-A IX2044.2MOVE "10" TO CORRECT-A IX2044.2PERFORM FAIL IX2044.2ELSE IX2044.2PERFORM PASS. IX2044.2PERFORM PRINT-DETAIL. IX2044.2MOVE "RWRT-TEST-GF-07" TO PAR-NAME. IX2044.2MOVE "CLOSE . LOCK: 00" TO FEATURE. IX2044.2MOVE SPACE TO IX-FD2-STATUS. IX2044.2CLOSE IX-FD2 WITH LOCK . IX2044.2IF IX-FD2-STATUS NOT EQUAL TO "00" IX2044.2MOVE "CLOSE/STATUS; IX-3 1.3.4 (1) A" TO RE-MARK IX2044.2MOVE IX-FD2-STATUS TO COMPUTED-A IX2044.2MOVE "00" TO CORRECT-A IX2044.2PERFORM FAIL IX2044.2ELSE IX2044.2PERFORM PASS. IX2044.2PERFORM PRINT-DETAIL. IX2044.2SECTION . IX2044.2GO TO CLOSE-FILES. IX2044.2quality 97%
¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.26Angebot
Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können
¤ *Eine klare Vorstellung vom Zielzustand
2026-03-28
