Quelle st134a.cob
Sprache: Cobol
000100 IDENTIFICATION DIVISION . ST1344.2PROGRAM-ID . ST1344.2000400**************************************************************** ST1344.2 000500* * ST1344.2 000600* VALIDATION FOR:- * ST1344.2 000700* * ST1344.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".ST1344.2 000900* * ST1344.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".ST1344.2 001100* * ST1344.2 001200**************************************************************** ST1344.2 001300* * ST1344.2 001400* X-CARDS USED BY THIS PROGRAM ARE :- * ST1344.2 001500* * ST1344.2 001600* X-55 - SYSTEM PRINTER NAME. * ST1344.2 001700* X-82 - SOURCE COMPUTER NAME. * ST1344.2 001800* X-83 - OBJECT COMPUTER NAME. * ST1344.2 001900* * ST1344.2 002000**************************************************************** ST1344.2 002100* ST134A DOES THE FOLLOWING --- ST1344.2 002200* 1. CREATES A FILE CONSISTING OF RECORDS WITH A KEY ITEMST1344.2 002300* AND TWO NON-KEY ITEMS. THIS CREATION OCCURS IN AN ST1344.2 002400* INDEPENDENT SECTION OF THE PROGRAM. ST1344.2 002500* 2. SORTS THE FILE, EMPLOYING INPUT AND OUTPUT ST1344.2 002600* PROCEDURES. THESE PROCEDURES ARE EQUIVALENT TO THE ST1344.2 002700* PROCEDURES GENERATED BY USING AND GIVING CLAUSES. ST1344.2 002800* THE SORTED FILE IS IN THE SAME SEQUENCE AS THE ST1344.2 002900* ORIGINAL FILE. ST1344.2 003000* 3. SPOT-CHECKS THE RESULTS OF THE SORT IN ANOTHER ST1344.2 003100* INDEPENDENT SECTION OF THE PROGRAM. ST1344.2 003200* THE FILES SORTIN-2C AND SORTOUT-2C HAVE THE SAME RECORD AREA.ST1344.2 003300* TEN RECORDS ARE SORTED. THE KEY ITEMS ARE SHOWN BELOW. ST1344.2 003400* ST1344.2 003500* -100 -80 -60 -40 -20 ZERO +20 +40 +60 +80 ST1344.2 ENVIRONMENT DIVISION . ST1344.2CONFIGURATION SECTION . ST1344.2SOURCE-COMPUTER . ST1344.2OBJECT-COMPUTER . ST1344.2INPUT-OUTPUT SECTION . ST1344.2FILE-CONTROL . ST1344.2SELECT PRINT-FILE ASSIGN TO ST1344.2"C0085" . ST1344.2SELECT SORTFILE-2D ASSIGN TO ST1344.2"C0039" . ST1344.2SELECT SORTIN-2D ASSIGN TO ST1344.2"C0001" . ST1344.2SELECT SORTOUT-2D ASSIGN TO ST1344.2"C0002" . ST1344.2I-O-CONTROL . ST1344.2SAME RECORD AREA FOR ST1344.2DATA DIVISION . ST1344.2FILE SECTION . ST1344.2FD PRINT-FILE. ST1344.2PICTURE X(120). ST1344.2PICTURE X(120). ST1344.2SD SORTFILE-2D ST1344.2DATA RECORD IS SORTFILE-REC. ST1344.2PICTURE X(60). ST1344.2PICTURE S9(8) COMPUTATIONAL. ST1344.2PICTURE X(12). ST1344.2FD SORTIN-2D ST1344.2LABEL RECORDS STANDARD ST1344.2VALUE OF ST1344.2IS ST1344.2DATA RECORD IS SORTIN-REC. ST1344.2PICTURE X(60). ST1344.2PICTURE S9(8) COMPUTATIONAL. ST1344.2PICTURE X(12). ST1344.2FD SORTOUT-2D ST1344.2LABEL RECORDS STANDARD ST1344.2VALUE OF ST1344.2IS ST1344.2DATA RECORD IS SORTOUT-REC. ST1344.2PICTURE X(60). ST1344.2PICTURE S9(8) COMPUTATIONAL. ST1344.2PICTURE X(12). ST1344.2WORKING-STORAGE SECTION . ST1344.2PICTURE S99999. ST1344.2PICTURE X(14) VALUE " (SPACES)" . ST1344.2PICTURE X(60) VALUE "A ST1344.2 " " . ST1344.2PICTURE X(12) VALUE "B " . ST1344.2PICTURE X(20). ST1344.2PICTURE X(20). ST1344.2PICTURE X(20). ST1344.2FILLER PICTURE X(48) VALUE ST1344.2"FILE= ,RECORD= /0,RECNO=000000,UPDT=00" . ST1344.2FILLER PICTURE X(46) VALUE ST1344.2",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000" . ST1344.2FILLER PICTURE X(26) VALUE ST1344.2",LFIL=000000,ORG= ,LBLR= " . ST1344.2FILLER PICTURE X(37) VALUE ST1344.2",RECKEY= " . ST1344.2FILLER PICTURE X(38) VALUE ST1344.2",ALTKEY1= " . ST1344.2FILLER PICTURE X(38) VALUE ST1344.2",ALTKEY2= " . ST1344.2FILLER PICTURE X(7) VALUE SPACE .ST1344.2OCCURS 10 TIMES. ST1344.2FILLER PIC X(5). ST1344.2PIC X(6). ST1344.2FILLER PIC X(8). ST1344.2PIC X(6). ST1344.2FILLER PIC X(1). ST1344.2PIC 9(1). ST1344.2FILLER PIC X(7). ST1344.2PIC 9(6). ST1344.2FILLER PIC X(6). ST1344.2PIC 9(2). ST1344.2FILLER PIC X(5). ST1344.2PIC 9(4). ST1344.2FILLER PIC X(5). ST1344.2PIC X(5). ST1344.2FILLER PIC X(7). ST1344.2PIC 9(6). ST1344.2FILLER PIC X(7). ST1344.2PIC X(2). ST1344.2FILLER PIC X(1). ST1344.2PIC 9(4). ST1344.2FILLER PIC X(6). ST1344.2PIC 9(6). ST1344.2FILLER PIC X(5). ST1344.2PIC X(2). ST1344.2FILLER PIC X(6). ST1344.2PIC X(1). ST1344.2FILLER PIC X(8). ST1344.2PIC X(29). ST1344.2FILLER PIC X(9). ST1344.2PIC X(29). ST1344.2FILLER PIC X(9). ST1344.2PIC X(29). ST1344.2FILLER PIC X(7). ST1344.2FILLER PIC X VALUE SPACE . ST1344.2PIC X(20) VALUE SPACE . ST1344.2FILLER PIC X VALUE SPACE . ST1344.2PIC X(5) VALUE SPACE . ST1344.2FILLER PIC X VALUE SPACE . ST1344.2FILLER PIC X(19) VALUE SPACE . ST1344.2PIC X VALUE SPACE . ST1344.2PIC 99 VALUE ZERO . ST1344.2FILLER PIC X(8) VALUE SPACE . ST1344.2PIC X(61). ST1344.2FILLER PIC X(30) VALUE SPACE . ST1344.2FILLER PIC X(17) VALUE ST1344.2" COMPUTED=" . ST1344.2PIC X(20) VALUE SPACE . ST1344.2REDEFINES COMPUTED-A ST1344.2PIC -9(9).9(9). ST1344.2REDEFINES COMPUTED-A PIC -.9(18). ST1344.2REDEFINES COMPUTED-A PIC -9(4).9(14). ST1344.2REDEFINES COMPUTED-A PIC -9(14).9(4). ST1344.2REDEFINES COMPUTED-A. ST1344.2PIC -9(18). ST1344.2FILLER PIC X. ST1344.2FILLER PIC X(50) VALUE SPACE . ST1344.2FILLER PIC X(30) VALUE SPACE . ST1344.2FILLER PIC X(17) VALUE " CORRECT =" . ST1344.2PIC X(20) VALUE SPACE . ST1344.2REDEFINES CORRECT-A PIC -9(9).9(9). ST1344.2REDEFINES CORRECT-A PIC -.9(18). ST1344.2REDEFINES CORRECT-A PIC -9(4).9(14). ST1344.2REDEFINES CORRECT-A PIC -9(14).9(4). ST1344.2REDEFINES CORRECT-A. ST1344.2PIC -9(18). ST1344.2FILLER PIC X. ST1344.2FILLER PIC X(2) VALUE SPACE . ST1344.2PIC X(48) VALUE SPACE . ST1344.2FILLER PIC IS X(99) VALUE IS " FEATURE PAST1344.2 "SS PARAGRAPH-NAME ST1344.2 " REMARKS" . ST1344.2FILLER PIC X(20) VALUE SPACE . ST1344.2FILLER PIC X VALUE SPACE . ST1344.2FILLER PIC X(6) VALUE "TESTED" . ST1344.2FILLER PIC X(15) VALUE SPACE . ST1344.2FILLER PIC X(4) VALUE "FAIL" . ST1344.2FILLER PIC X(94) VALUE SPACE . ST1344.2PIC 9(2) VALUE ZERO . ST1344.2PIC 99 VALUE ZERO . ST1344.2PIC 999 VALUE ZERO . ST1344.2PIC 999 VALUE ZERO . ST1344.2PIC 999 VALUE ZERO . ST1344.2PIC 999 VALUE ZERO . ST1344.2PIC 999 VALUE ZERO . ST1344.2PIC 999 VALUE ZERO . ST1344.2PIC X(120) VALUE SPACE . ST1344.2PIC 9(5) VALUE ZERO . ST1344.2PIC X(48) VALUE SPACES . ST1344.2FILLER PIC X(39) VALUE SPACES . ST1344.2FILLER PIC X(42) VALUE ST1344.2"OFFICIAL COBOL COMPILER VALIDATION SYSTEM" . ST1344.2FILLER PIC X(39) VALUE SPACES . ST1344.2FILLER PIC X(40) VALUE SPACE . ST1344.2FILLER PIC X(7) VALUE "CCVS85 " . ST1344.2FILLER PIC XXXX VALUE ST1344.2"4.2 " . ST1344.2FILLER PIC X(28) VALUE ST1344.2" COPY - NOT FOR DISTRIBUTION" . ST1344.2FILLER PIC X(41) VALUE SPACE . ST1344.2FILLER PIC X(15) VALUE ST1344.2"TEST RESULT OF " . ST1344.2PIC X(9). ST1344.2FILLER PIC X(4) VALUE ST1344.2" IN " . ST1344.2FILLER PIC X(12) VALUE ST1344.2" HIGH " . ST1344.2FILLER PIC X(22) VALUE ST1344.2" LEVEL VALIDATION FOR " . ST1344.2FILLER PIC X(58) VALUE ST1344.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .ST1344.2FILLER PIC X(34) VALUE ST1344.2" FOR OFFICIAL USE ONLY " . ST1344.2FILLER PIC X(58) VALUE ST1344.2"COBOL 85 VERSION 4.2, Apr 1993 SSVG " .ST1344.2FILLER PIC X(28) VALUE ST1344.2" COPYRIGHT 1985 " . ST1344.2FILLER PIC X(52) VALUE SPACE . ST1344.2FILLER PIC X(14) VALUE IS "END OF TEST- " . ST1344.2PIC X(9). ST1344.2FILLER PIC X(45) VALUE SPACES . ST1344.2FILLER PIC X(31) VALUE SPACE . ST1344.2FILLER PIC X(21) VALUE SPACE . ST1344.2PIC XXX VALUE SPACE . ST1344.2FILLER PIC X VALUE SPACE . ST1344.2PIC X(44) VALUE ST1344.2"ERRORS ENCOUNTERED" . ST1344.2FILLER PIC X(22) VALUE ST1344.2" FOR OFFICIAL USE ONLY" . ST1344.2FILLER PIC X(12) VALUE SPACE . ST1344.2FILLER PIC X(58) VALUE ST1344.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .ST1344.2FILLER PIC X(13) VALUE SPACE . ST1344.2FILLER PIC X(15) VALUE ST1344.2" COPYRIGHT 1985" . ST1344.2PIC XXX VALUE SPACE . ST1344.2FILLER PIC X(4) VALUE " OF " . ST1344.2PIC XXX VALUE SPACE . ST1344.2FILLER PIC X(40) VALUE ST1344.2" TESTS WERE EXECUTED SUCCESSFULLY" . ST1344.2FILLER PIC X(19) VALUE ST1344.2"*** INFORMATION ***" . ST1344.2FILLER PIC X(8) VALUE SPACE . ST1344.2PIC X(20). ST1344.2FILLER PIC X(5) VALUE SPACE . ST1344.2PIC X(20). ST1344.2PIC X(48). ST1344.2FILLER PIC IS X VALUE IS SPACE . ST1344.2FILLER PIC IS X(65) VALUE IS "************************ST1344.2 "*****************************************" . ST1344.2FILLER PIC IS X(54) VALUE IS "************************ST1344.2 "******************************" . ST1344.2PIC X(9) VALUE ST1344.2"ST134A" . ST1344.2PROCEDURE DIVISION . ST1344.2SECTION . ST1344.2OPEN OUTPUT PRINT-FILE. ST1344.2MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. ST1344.2MOVE SPACE TO TEST-RESULTS. ST1344.2PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. ST1344.2MOVE ZERO TO REC-SKL-SUB. ST1344.2PERFORM CCVS-INIT-FILE 9 TIMES. ST1344.2ADD 1 TO REC-SKL-SUB. ST1344.2MOVE FILE-RECORD-INFO-SKELETON ST1344.2TO FILE-RECORD-INFO (REC-SKL-SUB). ST1344.2GO TO CCVS1-EXIT. ST1344.2PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. ST1344.2EXIT PROGRAM . ST1344.2STOP RUN . ST1344.2MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. ST1344.2MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. ST1344.2MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. ST1344.2MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. ST1344.2MOVE "****TEST DELETED****" TO RE-MARK. ST1344.2IF REC-CT NOT EQUAL TO ZERO ST1344.2MOVE "." TO PARDOT-X ST1344.2MOVE REC-CT TO DOTVALUE. ST1344.2MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. ST1344.2IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE ST1344.2PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX ST1344.2ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. ST1344.2MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. ST1344.2MOVE SPACE TO CORRECT-X. ST1344.2IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. ST1344.2MOVE SPACE TO RE-MARK. ST1344.2MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. ST1344.2MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. ST1344.2MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. ST1344.2MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. ST1344.2MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. ST1344.2MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. ST1344.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. ST1344.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.ST1344.2MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. ST1344.2ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO ST1344.2ADD DELETE-COUNTER TO ERROR-HOLD. ST1344.2ADD PASS-COUNTER TO ERROR-HOLD. ST1344.2035000* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. ST1344.2 MOVE PASS-COUNTER TO CCVS-E-4-1. ST1344.2MOVE ERROR-HOLD TO CCVS-E-4-2. ST1344.2MOVE CCVS-E-4 TO CCVS-E-2-2. ST1344.2MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. ST1344.2MOVE "TEST(S) FAILED" TO ENDER-DESC. ST1344.2IF ERROR-COUNTER IS EQUAL TO ZERO ST1344.2MOVE "NO " TO ERROR-TOTAL ST1344.2ELSE ST1344.2MOVE ERROR-COUNTER TO ERROR-TOTAL. ST1344.2MOVE CCVS-E-2 TO DUMMY-RECORD. ST1344.2PERFORM WRITE-LINE. ST1344.2IF DELETE-COUNTER IS EQUAL TO ZERO ST1344.2MOVE "NO " TO ERROR-TOTAL ELSE ST1344.2MOVE DELETE-COUNTER TO ERROR-TOTAL. ST1344.2MOVE "TEST(S) DELETED " TO ENDER-DESC. ST1344.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. ST1344.2IF INSPECT-COUNTER EQUAL TO ZERO ST1344.2MOVE "NO " TO ERROR-TOTAL ST1344.2ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. ST1344.2MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. ST1344.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. ST1344.2MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. ST1344.2ADD 1 TO RECORD-COUNT. ST1344.2IF RECORD-COUNT GREATER 42 ST1344.2MOVE DUMMY-RECORD TO DUMMY-HOLD ST1344.2MOVE SPACE TO DUMMY-RECORD ST1344.2WRITE DUMMY-RECORD AFTER ADVANCING PAGE ST1344.2MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES ST1344.2MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES ST1344.2MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES ST1344.2MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES ST1344.2MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN ST1344.2MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN ST1344.2MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN ST1344.2MOVE DUMMY-HOLD TO DUMMY-RECORD ST1344.2MOVE ZERO TO RECORD-COUNT. ST1344.2PERFORM WRT-LN. ST1344.2WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. ST1344.2MOVE SPACE TO DUMMY-RECORD. ST1344.2PERFORM WRT-LN. ST1344.2IF COMPUTED-X NOT EQUAL TO SPACE ST1344.2GO TO FAIL-ROUTINE-WRITE. ST1344.2IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.ST1344.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. ST1344.2MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. ST1344.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. ST1344.2MOVE SPACES TO INF-ANSI-REFERENCE. ST1344.2GO TO FAIL-ROUTINE-EX. ST1344.2MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE ST1344.2MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. ST1344.2MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. ST1344.2MOVE SPACES TO COR-ANSI-REFERENCE. ST1344.2EXIT . ST1344.2IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. ST1344.2IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. ST1344.2MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. ST1344.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. ST1344.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. ST1344.2MOVE SPACES TO INF-ANSI-REFERENCE. ST1344.2EXIT . ST1344.2EXIT . ST1344.2SECTION . ST1344.2PERFORM CREATE-INPUT-FILE. ST1344.2SORT SORTFILE-2D ON ASCENDING ST1344.2INPUT PROCEDURE IS INPROC ST1344.2OUTPUT PROCEDURE IS OUTPROC. ST1344.2PERFORM SORT-TESTS. ST1344.2GO TO CLOSE-AND-STOP. ST1344.2SECTION . ST1344.2OPEN OUTPUT SORTIN-2D. ST1344.2MOVE -100 TO UTIL-CTR. ST1344.2MOVE UTIL-CTR TO SORTIN-KEY. ST1344.2MOVE "A" TO SORTIN-NON-KEY-1. ST1344.2MOVE "B" TO SORTIN-NON-KEY-2. ST1344.2WRITE SORTIN-REC. ST1344.2ADD 20 TO UTIL-CTR. ST1344.2IF UTIL-CTR LESS THAN +100 GO TO CREATE-LOOP. ST1344.2CLOSE SORTIN-2D. ST1344.2SECTION . ST1344.2OPEN INPUT SORTIN-2D. ST1344.2READ SORTIN-2D AT END GO TO INPROC-EXIT. ST1344.2MOVE SORTIN-REC TO SORTFILE-REC. ST1344.2RELEASE SORTFILE-REC. ST1344.2GO TO INPROC-LOOP. ST1344.2CLOSE SORTIN-2D. ST1344.2SECTION . ST1344.2OPEN OUTPUT SORTOUT-2D. ST1344.2RETURN SORTFILE-2D AT END GO TO OUTPROC-EXIT. ST1344.2MOVE SORTFILE-REC TO SORTOUT-REC. ST1344.2WRITE SORTOUT-REC. ST1344.2GO TO OUTPROC-LOOP. ST1344.2CLOSE SORTOUT-2D. ST1344.2SECTION . ST1344.2MOVE ZERO TO UTIL-CTR ST1344.2OPEN INPUT SORTOUT-2D. ST1344.2MOVE "SORT, SAME REC AREA" TO FEATURE. ST1344.2PERFORM PRINT-DETAIL-1. ST1344.2MOVE " COMP SORT KEY" TO FEATURE. ST1344.2MOVE "SORT-TEST-1" TO PAR-NAME. ST1344.2PERFORM READ-SORTOUT. ST1344.2IF SORTOUT-KEY NOT EQUAL TO -100 GO TO SORT-FAIL-1. ST1344.2IF SORTOUT-NON-KEY-1 NOT EQUAL TO LITERAL-A ST1344.2GO TO SORT-FAIL-1. ST1344.2IF SORTOUT-NON-KEY-2 EQUAL TO LITERAL-B ST1344.2PERFORM PASS-1 GO TO SORT-WRITE-1. ST1344.2MOVE -100 TO CORRECT-N. ST1344.2PERFORM BREAKDOWN-PARA. ST1344.2PERFORM PRINT-DETAIL-1. ST1344.2MOVE " COMP SORT KEY" TO FEATURE. ST1344.2MOVE "SORT-TEST-2" TO PAR-NAME. ST1344.2PERFORM READ-SORTOUT 5 TIMES. ST1344.2IF SORTOUT-KEY NOT EQUAL TO ZERO GO TO SORT-FAIL-2. ST1344.2IF SORTOUT-NON-KEY-1 NOT EQUAL TO LITERAL-A ST1344.2GO TO SORT-FAIL-2. ST1344.2IF SORTOUT-NON-KEY-2 EQUAL TO LITERAL-B ST1344.2PERFORM PASS-1 GO TO SORT-WRITE-2. ST1344.2MOVE ZERO TO CORRECT-N. ST1344.2PERFORM BREAKDOWN-PARA. ST1344.2PERFORM PRINT-DETAIL-1. ST1344.2MOVE " COMP SORT KEY" TO FEATURE. ST1344.2MOVE "SORT-TEST-3" TO PAR-NAME. ST1344.2PERFORM READ-SORTOUT 4 TIMES. ST1344.2IF SORTOUT-KEY NOT EQUAL TO +80 GO TO SORT-FAIL-3. ST1344.2IF SORTOUT-NON-KEY-1 NOT EQUAL TO LITERAL-A ST1344.2GO TO SORT-FAIL-3. ST1344.2IF SORTOUT-NON-KEY-2 EQUAL TO LITERAL-B ST1344.2PERFORM PASS-1 GO TO SORT-WRITE-3. ST1344.2MOVE +80 TO CORRECT-N. ST1344.2PERFORM BREAKDOWN-PARA. ST1344.2PERFORM PRINT-DETAIL-1. ST1344.2MOVE " COMP SORT KEY" TO FEATURE. ST1344.2MOVE "SORT-TEST-4" TO PAR-NAME. ST1344.2READ SORTOUT-2D AT END ST1344.2PERFORM PASS-1 GO TO SORT-WRITE-4. ST1344.2MOVE SPACE TO LITERALS. ST1344.2MOVE "END OF FILE NOT FOUND" TO RE-MARK. ST1344.2PERFORM PRINT-DETAIL-1. ST1344.2PERFORM BREAKDOWN-PARA. ST1344.2PERFORM PRINT-DETAIL-1. ST1344.2EXIT . ST1344.2SECTION . ST1344.2CLOSE SORTOUT-2D. ST1344.2GO TO CCVS-EXIT. ST1344.2MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. ST1344.2MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. ST1344.2MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. ST1344.2MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. ST1344.2MOVE "****TEST DELETED****" TO RE-MARK. ST1344.2IF REC-CT NOT EQUAL TO ZERO ST1344.2MOVE "." TO PARDOT-X ST1344.2MOVE REC-CT TO DOTVALUE. ST1344.2MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE-1. ST1344.2IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE-1 ST1344.2PERFORM FAIL-ROUTINE-1 THRU FAIL-ROUTINE-EX-1 ST1344.2ELSE PERFORM BAIL-OUT-1 THRU BAIL-OUT-EX-1. ST1344.2MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. ST1344.2MOVE SPACE TO CORRECT-X. ST1344.2IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. ST1344.2MOVE SPACE TO RE-MARK. ST1344.2ADD 1 TO RECORD-COUNT. ST1344.2IF RECORD-COUNT GREATER 50 ST1344.2MOVE DUMMY-RECORD TO DUMMY-HOLD ST1344.2MOVE SPACE TO DUMMY-RECORD ST1344.2WRITE DUMMY-RECORD AFTER ADVANCING PAGE ST1344.2MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN-1 ST1344.2MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN-1 2 TIMES ST1344.2MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN-1 ST1344.2MOVE DUMMY-HOLD TO DUMMY-RECORD ST1344.2MOVE ZERO TO RECORD-COUNT. ST1344.2PERFORM WRT-LN-1. ST1344.2WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. ST1344.2MOVE SPACE TO DUMMY-RECORD. ST1344.2PERFORM WRT-LN-1. ST1344.2IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-RTN-WRITE-1. ST1344.2IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-RTN-WRITE-1. ST1344.2MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. ST1344.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE-1 2 TIMES. ST1344.2GO TO FAIL-ROUTINE-EX-1. ST1344.2MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE-1 ST1344.2MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE-1 2 TIMES. ST1344.2EXIT . ST1344.2IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE-1. ST1344.2IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX-1. ST1344.2MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. ST1344.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE-1 2 TIMES. ST1344.2EXIT . ST1344.2MOVE SORTOUT-KEY TO COMPUTED-N. ST1344.2PERFORM FAIL-1. ST1344.2MOVE "KEY AREA" TO RE-MARK. ST1344.2PERFORM PRINT-DETAIL-1. ST1344.2MOVE SPACE TO FEATURE. ST1344.2MOVE SORTOUT-NON-KEY-1 TO COMPUTED-BREAKDOWN. ST1344.2MOVE FIRST-20 TO COMPUTED-A. ST1344.2MOVE LITERAL-A TO CORRECT-A. ST1344.2MOVE "A 60-CHARACTER NON-KEY AREA" TO RE-MARK. ST1344.2PERFORM PRINT-DETAIL-1. ST1344.2MOVE SECOND-20 TO COMPUTED-A. ST1344.2MOVE SP-ACE TO CORRECT-A. ST1344.2MOVE "IS HERE SHOWN AS THREE" TO RE-MARK. ST1344.2PERFORM PRINT-DETAIL-1. ST1344.2MOVE THIRD-20 TO COMPUTED-A. ST1344.2MOVE SP-ACE TO CORRECT-A. ST1344.2MOVE "20-CHARACTER FIELDS." TO RE-MARK. ST1344.2PERFORM PRINT-DETAIL-1. ST1344.2MOVE SORTOUT-NON-KEY-2 TO COMPUTED-A. ST1344.2MOVE LITERAL-B TO CORRECT-A. ST1344.2MOVE "12-CHARACTER NON-KEY AREA" TO RE-MARK. ST1344.2READ SORTOUT-2D AT END GO TO SORTOUT-ERROR. ST1344.2ADD 1 TO UTIL-CTR. ST1344.2MOVE "SORTOUT-ERROR" TO PAR-NAME. ST1344.2PERFORM FAIL-1. ST1344.2MOVE UTIL-CTR TO COMPUTED-N. ST1344.2MOVE 10 TO CORRECT-N. ST1344.2MOVE "EOF PREMATURELY FOUND" TO RE-MARK. ST1344.2PERFORM PRINT-DETAIL-1. ST1344.2GO TO CLOSE-AND-STOP-PARA. ST1344.2SECTION . ST1344.2GO TO CLOSE-FILES. ST1344.2quality 95%
¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.27Angebot
Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können
¤ *Eine klare Vorstellung vom Zielzustand
2026-03-28
