Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/ST/     Datei vom 4.1.2008 mit Größe 72 kB image not shown  

Quelle  st133a.cob   Sprache: Cobol

 
000100 IDENTIFICATION DIVISION.                                         ST1334.2
000200 PROGRAM-ID.                                                      ST1334.2
000300     ST133A.                                                      ST1334.2
000400****************************************************************  ST1334.2
000500*                                                              *  ST1334.2
000600*    VALIDATION FOR:-                                          *  ST1334.2
000700*                                                              *  ST1334.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".ST1334.2
000900*                                                              *  ST1334.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".ST1334.2
001100*                                                              *  ST1334.2
001200****************************************************************  ST1334.2
001300*                                                              *  ST1334.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  ST1334.2
001500*                                                              *  ST1334.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  ST1334.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  ST1334.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  ST1334.2
001900*                                                              *  ST1334.2
002000****************************************************************  ST1334.2
002100*                                                                 ST1334.2
002200*    ST133 DOES TWO SORTS ON THE SAME SET OF 80-CHARACTER RECORDS.ST1334.2
002300*    THESE RECORDS ARE SHOWN BELOW. THE FIRST SORT EMPLOYS THE    ST1334.2
002400*    COMBINATION INPUT PROCEDURE, GIVING. THE SECOND SORT EMPLOYS ST1334.2
002500*    USING, OUTPUT PROCEDURE. THE OUTPUT FILE FROM THE FIRST SORT ST1334.2
002600*    BECOMES THE INPUT FILE FOR THE SECOND SORT.                  ST1334.2
002700*                                                                 ST1334.2
002800*    THE RESULTS OF BOTH SORTS ARE REFLECTED IN THE INPUT AND     ST1334.2
002900*    OUTPUT FILES ASSOCIATED WITH THE SECOND SORT. BECAUSE OF     ST1334.2
003000*    THIS, THE CONTENTS OF BOTH FILES ARE SPOT-CHECKED IN THE     ST1334.2
003100*    OUTPUT PROCEDURE. TO DO THIS, IT IS NECESSARY TO REFER TO    ST1334.2
003200*    BOTH FILES IN THE OUTPUT PROCEDURE. IN ADDITION, BOTH FILES  ST1334.2
003300*    ARE REFERENCED IN THE MAINLINE BETWEEN THE SORTS.            ST1334.2
003400*      BEFORE SORTS        AFTER FIRST SORT    AFTER SECOND SORT  ST1334.2
003500*      NON-KEY KEY         NON-KEY KEY         NON-KEY KEY        ST1334.2
003600*      X(72)   S9(8)       X(72)   S9(8)       X(72)   S9(8)      ST1334.2
003700*                                                                 ST1334.2
003800*      A        00000000   A       +00000099   A       -00000199  ST1334.2
003900*      A       +00000001   A       +00000098   A       -00000198  ST1334.2
004000*      A       +00000002   A       +00000097   A       -00000197  ST1334.2
004100*        .         .         .         .         .         .      ST1334.2
004200*        .         .         .         .         .         .      ST1334.2
004300*        .         .         .         .         .         .      ST1334.2
004400*      A       +00000098   A       +00000001   A       -00000101  ST1334.2
004500*      A       +00000099   A        00000000   A       -00000100  ST1334.2
004600*      A       -00000100   A       -00000100   A        00000000  ST1334.2
004700*      A       -00000101   A       -00000101   A       +00000001  ST1334.2
004800*        .         .         .         .         .         .      ST1334.2
004900*        .         .         .         .         .         .      ST1334.2
005000*        .         .         .         .         .         .      ST1334.2
005100*      A       -00000199   A       -00000199   A       +00000099  ST1334.2
005200*    THE NON-KEY ITEMS ARE ALL JUSTIFIED RIGHT.                   ST1334.2
005300*                                                                 ST1334.2
005400*    THE SAME SORT AREA CLAUSE IS EXERCISED IN THIS PROGRAM.      ST1334.2
005500*                                                                 ST1334.2
005600 ENVIRONMENT DIVISION.                                            ST1334.2
005700 CONFIGURATION SECTION.                                           ST1334.2
005800 SOURCE-COMPUTER.                                                 ST1334.2
005900     Card0130.                                                    ST1334.2
006000 OBJECT-COMPUTER.                                                 ST1334.2
006100     Card0131.                                                    ST1334.2
006200 INPUT-OUTPUT SECTION.                                            ST1334.2
006300 FILE-CONTROL.                                                    ST1334.2
006400     SELECT PRINT-FILE ASSIGN TO                                  ST1334.2
006500     "C0085" .                                                    ST1334.2
006600     SELECT   FIRST-SORTFILE ASSIGN  TO                           ST1334.2
006700     "C0039" .                                                    ST1334.2
006800     SELECT   SECOND-SORTFILE ASSIGN TO                           ST1334.2
006900     "C0040" .                                                    ST1334.2
007000     SELECT   SORTIN-2C ASSIGN TO                                 ST1334.2
007100     "C0001" .                                                    ST1334.2
007200     SELECT   SORTOUT-2C ASSIGN TO                                ST1334.2
007300     "C0002" .                                                    ST1334.2
007400 I-O-CONTROL.                                                     ST1334.2
007500     SAME SORT AREA FOR FIRST-SORTFILE                            ST1334.2
007600                        SECOND-SORTFILE.                          ST1334.2
007700 DATA DIVISION.                                                   ST1334.2
007800 FILE SECTION.                                                    ST1334.2
007900 FD  PRINT-FILE.                                                  ST1334.2
008000 01  PRINT-REC PICTURE X(120).                                    ST1334.2
008100 01  DUMMY-RECORD PICTURE X(120).                                 ST1334.2
008200 FD  SORTIN-2C                                                    ST1334.2
008300     LABEL RECORDS STANDARD                                       ST1334.2
008400     VALUE OF                                                     ST1334.2
008500     Impl1                                                        ST1334.2
008600     IS                                                           ST1334.2
008700     4711                                                         ST1334.2
008800                                                                  ST1334.2
008900     DATA RECORD IS SORTIN-REC.                                   ST1334.2
009000 01  SORTIN-REC.                                                  ST1334.2
009100     02 SORTIN-NON-KEY  PICTURE X(72) JUSTIFIED RIGHT.            ST1334.2
009200     02 SORTIN-KEY      PICTURE S9(8) COMPUTATIONAL.              ST1334.2
009300 FD  SORTOUT-2C                                                   ST1334.2
009400     LABEL RECORDS STANDARD                                       ST1334.2
009500     VALUE OF                                                     ST1334.2
009600     Impl1                                                        ST1334.2
009700     IS                                                           ST1334.2
009800     4711                                                         ST1334.2
009900                                                                  ST1334.2
010000     DATA RECORD IS SORTOUT-REC.                                  ST1334.2
010100 01  SORTOUT-REC.                                                 ST1334.2
010200     02 SORTOUT-NON-KEY PICTURE X(72) JUSTIFIED RIGHT.            ST1334.2
010300     02 SORTOUT-KEY     PICTURE S9(8) COMPUTATIONAL.              ST1334.2
010400 SD  FIRST-SORTFILE                                               ST1334.2
010500     DATA RECORD IS FIRST-SORTFILE-REC.                           ST1334.2
010600 01  FIRST-SORTFILE-REC.                                          ST1334.2
010700     02 FIRST-NON-KEY   PICTURE X(72) JUSTIFIED RIGHT.            ST1334.2
010800     02 FIRST-KEY       PICTURE S9(8) USAGE IS COMPUTATIONAL.     ST1334.2
010900 SD  SECOND-SORTFILE.                                             ST1334.2
011000 01  SECOND-SORTFILE-REC.                                         ST1334.2
011100     02 SECOND-NON-KEY  PICTURE X(72) JUSTIFIED.                  ST1334.2
011200     02 SECOND-KEY      PICTURE S9(8) COMPUTATIONAL.              ST1334.2
011300 WORKING-STORAGE SECTION.                                         ST1334.2
011400 77  BREAKDOWN-SWITCH   PICTURE 9 VALUE ZERO.                     ST1334.2
011500 77  SP-ACE             PICTURE X(14) VALUE " (SPACES)".     ST1334.2
011600 77  UTIL-CTR           PICTURE S99999.                           ST1334.2
011700 77  JUSTIFIED-A        PICTURE X(72) VALUE " ST1334.2
011800-    " A".       ST1334.2
011900 01  COMPUTED-BREAKDOWN.                                          ST1334.2
012000     02 FIRST-20        PICTURE X(20).                            ST1334.2
012100     02 SECOND-20       PICTURE X(20).                            ST1334.2
012200     02 THIRD-20        PICTURE X(20).                            ST1334.2
012300     02 FOURTH-20       PICTURE X(20).                            ST1334.2
012400 01  FILE-RECORD-INFORMATION-REC.                                 ST1334.2
012500     03 FILE-RECORD-INFO-SKELETON.                                ST1334.2
012600        05 FILLER                 PICTURE X(48)       VALUE       ST1334.2
012700             "FILE= ,RECORD= /0,RECNO=000000,UPDT=00".  ST1334.2
012800        05 FILLER                 PICTURE X(46)       VALUE       ST1334.2
012900             ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000".    ST1334.2
013000        05 FILLER                 PICTURE X(26)       VALUE       ST1334.2
013100             ",LFIL=000000,ORG= ,LBLR= ".                        ST1334.2
013200        05 FILLER                 PICTURE X(37)       VALUE       ST1334.2
013300             ",RECKEY= ".             ST1334.2
013400        05 FILLER                 PICTURE X(38)       VALUE       ST1334.2
013500             ",ALTKEY1= ".            ST1334.2
013600        05 FILLER                 PICTURE X(38)       VALUE       ST1334.2
013700             ",ALTKEY2= ".            ST1334.2
013800        05 FILLER                 PICTURE X(7)        VALUE SPACE.ST1334.2
013900     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              ST1334.2
014000        05 FILE-RECORD-INFO-P1-120.                               ST1334.2
014100           07 FILLER              PIC X(5).                       ST1334.2
014200           07 XFILE-NAME           PIC X(6).                      ST1334.2
014300           07 FILLER              PIC X(8).                       ST1334.2
014400           07 XRECORD-NAME         PIC X(6).                      ST1334.2
014500           07 FILLER              PIC X(1).                       ST1334.2
014600           07 REELUNIT-NUMBER     PIC 9(1).                       ST1334.2
014700           07 FILLER              PIC X(7).                       ST1334.2
014800           07 XRECORD-NUMBER       PIC 9(6).                      ST1334.2
014900           07 FILLER              PIC X(6).                       ST1334.2
015000           07 UPDATE-NUMBER       PIC 9(2).                       ST1334.2
015100           07 FILLER              PIC X(5).                       ST1334.2
015200           07 ODO-NUMBER          PIC 9(4).                       ST1334.2
015300           07 FILLER              PIC X(5).                       ST1334.2
015400           07 XPROGRAM-NAME        PIC X(5).                      ST1334.2
015500           07 FILLER              PIC X(7).                       ST1334.2
015600           07 XRECORD-LENGTH       PIC 9(6).                      ST1334.2
015700           07 FILLER              PIC X(7).                       ST1334.2
015800           07 CHARS-OR-RECORDS    PIC X(2).                       ST1334.2
015900           07 FILLER              PIC X(1).                       ST1334.2
016000           07 XBLOCK-SIZE          PIC 9(4).                      ST1334.2
016100           07 FILLER              PIC X(6).                       ST1334.2
016200           07 RECORDS-IN-FILE     PIC 9(6).                       ST1334.2
016300           07 FILLER              PIC X(5).                       ST1334.2
016400           07 XFILE-ORGANIZATION   PIC X(2).                      ST1334.2
016500           07 FILLER              PIC X(6).                       ST1334.2
016600           07 XLABEL-TYPE          PIC X(1).                      ST1334.2
016700        05 FILE-RECORD-INFO-P121-240.                             ST1334.2
016800           07 FILLER              PIC X(8).                       ST1334.2
016900           07 XRECORD-KEY          PIC X(29).                     ST1334.2
017000           07 FILLER              PIC X(9).                       ST1334.2
017100           07 ALTERNATE-KEY1      PIC X(29).                      ST1334.2
017200           07 FILLER              PIC X(9).                       ST1334.2
017300           07 ALTERNATE-KEY2      PIC X(29).                      ST1334.2
017400           07 FILLER              PIC X(7).                       ST1334.2
017500 01  TEST-RESULTS.                                                ST1334.2
017600     02 FILLER                   PIC X      VALUE SPACE.          ST1334.2
017700     02 FEATURE                  PIC X(20)  VALUE SPACE.          ST1334.2
017800     02 FILLER                   PIC X      VALUE SPACE.          ST1334.2
017900     02 P-OR-F                   PIC X(5)   VALUE SPACE.          ST1334.2
018000     02 FILLER                   PIC X      VALUE SPACE.          ST1334.2
018100     02  PAR-NAME.                                                ST1334.2
018200       03 FILLER                 PIC X(19)  VALUE SPACE.          ST1334.2
018300       03  PARDOT-X              PIC X      VALUE SPACE.          ST1334.2
018400       03 DOTVALUE               PIC 99     VALUE ZERO.           ST1334.2
018500     02 FILLER                   PIC X(8)   VALUE SPACE.          ST1334.2
018600     02 RE-MARK                  PIC X(61).                       ST1334.2
018700 01  TEST-COMPUTED.                                               ST1334.2
018800     02 FILLER                   PIC X(30)  VALUE SPACE.          ST1334.2
018900     02 FILLER                   PIC X(17)  VALUE                 ST1334.2
019000            " COMPUTED=".                                   ST1334.2
019100     02 COMPUTED-X.                                               ST1334.2
019200     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          ST1334.2
019300     03 COMPUTED-N               REDEFINES COMPUTED-A             ST1334.2
019400                                 PIC -9(9).9(9).                  ST1334.2
019500     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         ST1334.2
019600     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     ST1334.2
019700     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     ST1334.2
019800     03       CM-18V0 REDEFINES COMPUTED-A.                       ST1334.2
019900         04 COMPUTED-18V0                    PIC -9(18).          ST1334.2
020000         04 FILLER                           PIC X.               ST1334.2
020100     03 FILLER PIC X(50) VALUE SPACE.                             ST1334.2
020200 01  TEST-CORRECT.                                                ST1334.2
020300     02 FILLER PIC X(30) VALUE SPACE.                             ST1334.2
020400     02 FILLER PIC X(17) VALUE " CORRECT =".                ST1334.2
020500     02 CORRECT-X.                                                ST1334.2
020600     03 CORRECT-A                  PIC X(20) VALUE SPACE.         ST1334.2
020700     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      ST1334.2
020800     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         ST1334.2
020900     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     ST1334.2
021000     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     ST1334.2
021100     03      CR-18V0 REDEFINES CORRECT-A.                         ST1334.2
021200         04 CORRECT-18V0                     PIC -9(18).          ST1334.2
021300         04 FILLER                           PIC X.               ST1334.2
021400     03 FILLER PIC X(2) VALUE SPACE.                              ST1334.2
021500     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     ST1334.2
021600 01  CCVS-C-1.                                                    ST1334.2
021700     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PAST1334.2
021800-    "SS PARAGRAPH-NAME ST1334.2
021900-    " REMARKS".                                            ST1334.2
022000     02 FILLER                     PIC X(20)    VALUE SPACE.      ST1334.2
022100 01  CCVS-C-2.                                                    ST1334.2
022200     02 FILLER                     PIC X        VALUE SPACE.      ST1334.2
022300     02 FILLER                     PIC X(6)     VALUE "TESTED".   ST1334.2
022400     02 FILLER                     PIC X(15)    VALUE SPACE.      ST1334.2
022500     02 FILLER                     PIC X(4)     VALUE "FAIL".     ST1334.2
022600     02 FILLER                     PIC X(94)    VALUE SPACE.      ST1334.2
022700 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       ST1334.2
022800 01  REC-CT                        PIC 99       VALUE ZERO.       ST1334.2
022900 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       ST1334.2
023000 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       ST1334.2
023100 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       ST1334.2
023200 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       ST1334.2
023300 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       ST1334.2
023400 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       ST1334.2
023500 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      ST1334.2
023600 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       ST1334.2
023700 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     ST1334.2
023800 01  CCVS-H-1.                                                    ST1334.2
023900     02  FILLER                    PIC X(39)    VALUE SPACES.     ST1334.2
024000     02  FILLER                    PIC X(42)    VALUE             ST1334.2
024100     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 ST1334.2
024200     02  FILLER                    PIC X(39)    VALUE SPACES.     ST1334.2
024300 01  CCVS-H-2A.                                                   ST1334.2
024400   02  FILLER                        PIC X(40)  VALUE SPACE.      ST1334.2
024500   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  ST1334.2
024600   02  FILLER                        PIC XXXX   VALUE             ST1334.2
024700     "4.2 ".                                                      ST1334.2
024800   02  FILLER                        PIC X(28)  VALUE             ST1334.2
024900            " COPY - NOT FOR DISTRIBUTION".                       ST1334.2
025000   02  FILLER                        PIC X(41)  VALUE SPACE.      ST1334.2
025100                                                                  ST1334.2
025200 01  CCVS-H-2B.                                                   ST1334.2
025300   02  FILLER                        PIC X(15)  VALUE             ST1334.2
025400            "TEST RESULT OF ".                                    ST1334.2
025500   02  TEST-ID                       PIC X(9).                    ST1334.2
025600   02  FILLER                        PIC X(4)   VALUE             ST1334.2
025700            " IN ".                                               ST1334.2
025800   02  FILLER                        PIC X(12)  VALUE             ST1334.2
025900     " HIGH ".                                              ST1334.2
026000   02  FILLER                        PIC X(22)  VALUE             ST1334.2
026100            " LEVEL VALIDATION FOR ".                             ST1334.2
026200   02  FILLER                        PIC X(58)  VALUE             ST1334.2
026300     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".ST1334.2
026400 01  CCVS-H-3.                                                    ST1334.2
026500     02  FILLER                      PIC X(34)  VALUE             ST1334.2
026600            " FOR OFFICIAL USE ONLY ".                         ST1334.2
026700     02  FILLER                      PIC X(58)  VALUE             ST1334.2
026800     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".ST1334.2
026900     02  FILLER                      PIC X(28)  VALUE             ST1334.2
027000            " COPYRIGHT 1985 ".                                ST1334.2
027100 01  CCVS-E-1.                                                    ST1334.2
027200     02 FILLER                       PIC X(52)  VALUE SPACE.      ST1334.2
027300     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              ST1334.2
027400     02 ID-AGAIN                     PIC X(9).                    ST1334.2
027500     02 FILLER                       PIC X(45)  VALUE SPACES.     ST1334.2
027600 01  CCVS-E-2.                                                    ST1334.2
027700     02  FILLER                      PIC X(31)  VALUE SPACE.      ST1334.2
027800     02  FILLER                      PIC X(21)  VALUE SPACE.      ST1334.2
027900     02 CCVS-E-2-2.                                               ST1334.2
028000         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      ST1334.2
028100         03 FILLER                   PIC X      VALUE SPACE.      ST1334.2
028200         03 ENDER-DESC               PIC X(44)  VALUE             ST1334.2
028300            "ERRORS ENCOUNTERED".                                 ST1334.2
028400 01  CCVS-E-3.                                                    ST1334.2
028500     02  FILLER                      PIC X(22)  VALUE             ST1334.2
028600            " FOR OFFICIAL USE ONLY".                             ST1334.2
028700     02  FILLER                      PIC X(12)  VALUE SPACE.      ST1334.2
028800     02  FILLER                      PIC X(58)  VALUE             ST1334.2
028900     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".ST1334.2
029000     02  FILLER                      PIC X(13)  VALUE SPACE.      ST1334.2
029100     02 FILLER                       PIC X(15)  VALUE             ST1334.2
029200             " COPYRIGHT 1985".                                   ST1334.2
029300 01  CCVS-E-4.                                                    ST1334.2
029400     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      ST1334.2
029500     02 FILLER                       PIC X(4)   VALUE " OF ".     ST1334.2
029600     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      ST1334.2
029700     02 FILLER                       PIC X(40)  VALUE             ST1334.2
029800      " TESTS WERE EXECUTED SUCCESSFULLY".                       ST1334.2
029900 01  XXINFO.                                                      ST1334.2
030000     02 FILLER                       PIC X(19)  VALUE             ST1334.2
030100            "*** INFORMATION ***".                                ST1334.2
030200     02 INFO-TEXT.                                                ST1334.2
030300       04 FILLER                     PIC X(8)   VALUE SPACE.      ST1334.2
030400       04 XXCOMPUTED                 PIC X(20).                   ST1334.2
030500       04 FILLER                     PIC X(5)   VALUE SPACE.      ST1334.2
030600       04 XXCORRECT                  PIC X(20).                   ST1334.2
030700     02 INF-ANSI-REFERENCE           PIC X(48).                   ST1334.2
030800 01  HYPHEN-LINE.                                                 ST1334.2
030900     02 FILLER  PIC IS X VALUE IS SPACE.                          ST1334.2
031000     02 FILLER  PIC IS X(65)    VALUE IS "************************ST1334.2
031100-    "*****************************************".                 ST1334.2
031200     02 FILLER  PIC IS X(54)    VALUE IS "************************ST1334.2
031300-    "******************************".                            ST1334.2
031400 01  CCVS-PGM-ID                     PIC X(9)   VALUE             ST1334.2
031500     "ST133A".                                                    ST1334.2
031600 PROCEDURE DIVISION.                                              ST1334.2
031700 CCVS1 SECTION.                                                   ST1334.2
031800 OPEN-FILES.                                                      ST1334.2
031900     OPEN     OUTPUT PRINT-FILE.                                  ST1334.2
032000     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   ST1334.2
032100     MOVE    SPACE TO TEST-RESULTS.                               ST1334.2
032200     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             ST1334.2
032300     GO TO CCVS1-EXIT.                                            ST1334.2
032400 CLOSE-FILES.                                                     ST1334.2
032500     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   ST1334.2
032600 TERMINATE-CCVS.                                                  ST1334.2
032700     EXIT PROGRAM.                                                ST1334.2
032800 TERMINATE-CALL.                                                  ST1334.2
032900     STOP     RUN.                                                ST1334.2
033000 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         ST1334.2
033100 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           ST1334.2
033200 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          ST1334.2
033300 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      ST1334.2
033400     MOVE "****TEST DELETED****" TO RE-MARK.                      ST1334.2
033500 PRINT-DETAIL.                                                    ST1334.2
033600     IF REC-CT NOT EQUAL TO ZERO                                  ST1334.2
033700             MOVE "." TO PARDOT-X                                 ST1334.2
033800             MOVE REC-CT TO DOTVALUE.                             ST1334.2
033900     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      ST1334.2
034000     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               ST1334.2
034100        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 ST1334.2
034200          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 ST1334.2
034300     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              ST1334.2
034400     MOVE SPACE TO CORRECT-X.                                     ST1334.2
034500     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         ST1334.2
034600     MOVE     SPACE TO RE-MARK.                                   ST1334.2
034700 HEAD-ROUTINE.                                                    ST1334.2
034800     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  ST1334.2
034900     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  ST1334.2
035000     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  ST1334.2
035100     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  ST1334.2
035200 COLUMN-NAMES-ROUTINE.                                            ST1334.2
035300     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           ST1334.2
035400     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1334.2
035500     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        ST1334.2
035600 END-ROUTINE.                                                     ST1334.2
035700     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.ST1334.2
035800 END-RTN-EXIT.                                                    ST1334.2
035900     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1334.2
036000 END-ROUTINE-1.                                                   ST1334.2
036100      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      ST1334.2
036200      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               ST1334.2
036300      ADD PASS-COUNTER TO ERROR-HOLD.                             ST1334.2
036400*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   ST1334.2
036500      MOVE PASS-COUNTER TO CCVS-E-4-1.                            ST1334.2
036600      MOVE ERROR-HOLD TO CCVS-E-4-2.                              ST1334.2
036700      MOVE CCVS-E-4 TO CCVS-E-2-2.                                ST1334.2
036800      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           ST1334.2
036900  END-ROUTINE-12.                                                 ST1334.2
037000      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        ST1334.2
037100     IF       ERROR-COUNTER IS EQUAL TO ZERO                      ST1334.2
037200         MOVE "NO " TO ERROR-TOTAL                                ST1334.2
037300         ELSE                                                     ST1334.2
037400         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       ST1334.2
037500     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           ST1334.2
037600     PERFORM WRITE-LINE.                                          ST1334.2
037700 END-ROUTINE-13.                                                  ST1334.2
037800     IF DELETE-COUNTER IS EQUAL TO ZERO                           ST1334.2
037900         MOVE "NO " TO ERROR-TOTAL  ELSE                          ST1334.2
038000         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      ST1334.2
038100     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   ST1334.2
038200     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           ST1334.2
038300      IF   INSPECT-COUNTER EQUAL TO ZERO                          ST1334.2
038400          MOVE "NO " TO ERROR-TOTAL                               ST1334.2
038500      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   ST1334.2
038600      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            ST1334.2
038700      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          ST1334.2
038800     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           ST1334.2
038900 WRITE-LINE.                                                      ST1334.2
039000     ADD 1 TO RECORD-COUNT.                                       ST1334.2
039100     IF RECORD-COUNT GREATER 42                                   ST1334.2
039200         MOVE DUMMY-RECORD TO DUMMY-HOLD                          ST1334.2
039300         MOVE SPACE TO DUMMY-RECORD                               ST1334.2
039400         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  ST1334.2
039500         MOVE CCVS-H-1  TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    ST1334.2
039600         MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    ST1334.2
039700         MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    ST1334.2
039800         MOVE CCVS-H-3  TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    ST1334.2
039900         MOVE CCVS-C-1  TO DUMMY-RECORD PERFORM WRT-LN            ST1334.2
040000         MOVE CCVS-C-2  TO DUMMY-RECORD PERFORM WRT-LN            ST1334.2
040100         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          ST1334.2
040200         MOVE DUMMY-HOLD TO DUMMY-RECORD                          ST1334.2
040300         MOVE ZERO TO RECORD-COUNT.                               ST1334.2
040400     PERFORM WRT-LN.                                              ST1334.2
040500 WRT-LN.                                                          ST1334.2
040600     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               ST1334.2
040700     MOVE SPACE TO DUMMY-RECORD.                                  ST1334.2
040800 BLANK-LINE-PRINT.                                                ST1334.2
040900     PERFORM WRT-LN.                                              ST1334.2
041000 FAIL-ROUTINE.                                                    ST1334.2
041100     IF     COMPUTED-X NOT EQUAL TO SPACE                         ST1334.2
041200            GO TO   FAIL-ROUTINE-WRITE.                           ST1334.2
041300     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.ST1334.2
041400     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 ST1334.2
041500     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   ST1334.2
041600     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1334.2
041700     MOVE   SPACES TO INF-ANSI-REFERENCE.                         ST1334.2
041800     GO TO  FAIL-ROUTINE-EX.                                      ST1334.2
041900 FAIL-ROUTINE-WRITE.                                              ST1334.2
042000     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         ST1334.2
042100     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 ST1334.2
042200     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. ST1334.2
042300     MOVE   SPACES TO COR-ANSI-REFERENCE.                         ST1334.2
042400 FAIL-ROUTINE-EX. EXIT.                                           ST1334.2
042500 BAIL-OUT.                                                        ST1334.2
042600     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   ST1334.2
042700     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           ST1334.2
042800 BAIL-OUT-WRITE.                                                  ST1334.2
042900     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  ST1334.2
043000     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 ST1334.2
043100     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1334.2
043200     MOVE   SPACES TO INF-ANSI-REFERENCE.                         ST1334.2
043300 BAIL-OUT-EX. EXIT.                                               ST1334.2
043400 CCVS1-EXIT.                                                      ST1334.2
043500     EXIT.                                                        ST1334.2
043600 MAINLINE SECTION.                                                ST1334.2
043700 FIRST-SORT-PARA.                                                 ST1334.2
043800     SORT     FIRST-SORTFILE  ON DESCENDING KEY                   ST1334.2
043900              FIRST-KEY                                           ST1334.2
044000              INPUT PROCEDURE INPROC                              ST1334.2
044100              GIVING SORTOUT-2C.                                  ST1334.2
044200     MOVE    "FIRST SORT DONE" TO FEATURE.                        ST1334.2
044300     PERFORM PRINT-DETAIL.                                        ST1334.2
044400 TAPECOPY-OPEN.                                                   ST1334.2
044500     OPEN     INPUT SORTOUT-2C.                                   ST1334.2
044600     OPEN     OUTPUT SORTIN-2C.                                   ST1334.2
044700 TAPECOPY-LOOP.                                                   ST1334.2
044800     READ     SORTOUT-2C AT END GO TO TAPECOPY-CLOSE.             ST1334.2
044900     MOVE     SORTOUT-REC TO SORTIN-REC.                          ST1334.2
045000     WRITE    SORTIN-REC.                                         ST1334.2
045100     GO       TO TAPECOPY-LOOP.                                   ST1334.2
045200 TAPECOPY-CLOSE.                                                  ST1334.2
045300     CLOSE    SORTIN-2C.                                          ST1334.2
045400     CLOSE    SORTOUT-2C.                                         ST1334.2
045500     MOVE    "TAPE COPY DONE" TO FEATURE.                         ST1334.2
045600     PERFORM PRINT-DETAIL.                                        ST1334.2
045700*        NOTE THIS TAPECOPY ROUTINE HAS NO EFFECT ON THE SORTS ---ST1334.2
045800*             ITS ONLY FUNCTION IS TO EXERCISE THE OPEN, CLOSE,   ST1334.2
045900*             READ, AND WRITE VERBS IN THE MAINLINE.              ST1334.2
046000 SECOND-SORT-PARA.                                                ST1334.2
046100     SORT     SECOND-SORTFILE ON ASCENDING KEY                    ST1334.2
046200              SECOND-KEY                                          ST1334.2
046300              USING SORTOUT-2C                                    ST1334.2
046400              OUTPUT PROCEDURE OUTPROC.                           ST1334.2
046500     MOVE    "SECOND SORT DONE" TO FEATURE.                       ST1334.2
046600     PERFORM PRINT-DETAIL.                                        ST1334.2
046700     GO TO    CCVS-EXIT.                                          ST1334.2
046800 INPROC SECTION.                                                  ST1334.2
046900 INPROC-INIT.                                                     ST1334.2
047000     MOVE     ZERO TO UTIL-CTR.                                   ST1334.2
047100 INPROC-LOOP.                                                     ST1334.2
047200     IF       UTIL-CTR LESS THAN 100                              ST1334.2
047300              MOVE UTIL-CTR TO FIRST-KEY                          ST1334.2
047400              ELSE                                                ST1334.2
047500              MULTIPLY UTIL-CTR BY -1 GIVING FIRST-KEY.           ST1334.2
047600     MOVE     "A" TO FIRST-NON-KEY.                               ST1334.2
047700     RELEASE  FIRST-SORTFILE-REC.                                 ST1334.2
047800     ADD      1 TO UTIL-CTR.                                      ST1334.2
047900     IF       UTIL-CTR LESS THAN 200 GO TO INPROC-LOOP.           ST1334.2
048000 INPROC-EXIT.                                                     ST1334.2
048100     EXIT.                                                        ST1334.2
048200 OUTPROC SECTION.                                                 ST1334.2
048300 SORT-INIT-1.                                                     ST1334.2
048400     MOVE     ZERO TO UTIL-CTR.                                   ST1334.2
048500 SORT-TEST-1.                                                     ST1334.2
048600     MOVE    "NUMERIC KEY CHECKS" TO FEATURE.                     ST1334.2
048700     MOVE     "SORT-TEST-1 " TO PAR-NAME.                         ST1334.2
048800     PERFORM  RETURN-SORTFILE.                                    ST1334.2
048900     IF       SECOND-KEY NOT EQUAL TO -199  GO TO SORT-FAIL-1.    ST1334.2
049000     IF       SECOND-NON-KEY EQUAL TO JUSTIFIED-A                 ST1334.2
049100              PERFORM PASS-1 GO TO SORT-WRITE-1.                  ST1334.2
049200 SORT-FAIL-1.                                                     ST1334.2
049300     PERFORM  FAIL-1.                                             ST1334.2
049400     MOVE     SECOND-KEY TO COMPUTED-N.                           ST1334.2
049500     MOVE     -199 TO CORRECT-N                                   ST1334.2
049600     MOVE     "KEY AREA" TO RE-MARK.                              ST1334.2
049700     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
049800     MOVE     SECOND-NON-KEY TO COMPUTED-BREAKDOWN.               ST1334.2
049900     PERFORM  NON-KEY-BREAKDOWN.                                  ST1334.2
050000 SORT-WRITE-1.                                                    ST1334.2
050100     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
050200 SORT-TEST-2.                                                     ST1334.2
050300     MOVE     "SORT-TEST-2" TO PAR-NAME.                          ST1334.2
050400     PERFORM  RETURN-SORTFILE.                                    ST1334.2
050500     IF       SECOND-KEY NOT EQUAL TO -198  GO TO SORT-FAIL-2.    ST1334.2
050600     IF       SECOND-NON-KEY EQUAL TO JUSTIFIED-A                 ST1334.2
050700              PERFORM PASS-1 GO TO SORT-WRITE-2.                  ST1334.2
050800 SORT-FAIL-2.                                                     ST1334.2
050900     PERFORM  FAIL-1.                                             ST1334.2
051000     MOVE     SECOND-KEY TO COMPUTED-N.                           ST1334.2
051100     MOVE     -198 TO CORRECT-N                                   ST1334.2
051200     MOVE     "KEY AREA" TO RE-MARK.                              ST1334.2
051300     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
051400     MOVE     SECOND-NON-KEY TO COMPUTED-BREAKDOWN.               ST1334.2
051500     PERFORM  NON-KEY-BREAKDOWN.                                  ST1334.2
051600 SORT-WRITE-2.                                                    ST1334.2
051700     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
051800 SORT-TEST-3.                                                     ST1334.2
051900     MOVE     "SORT-TEST-3" TO PAR-NAME.                          ST1334.2
052000     PERFORM  RETURN-SORTFILE 98 TIMES.                           ST1334.2
052100     IF       SECOND-KEY NOT EQUAL TO -100  GO TO SORT-FAIL-3.    ST1334.2
052200     IF       SECOND-NON-KEY EQUAL TO JUSTIFIED-A                 ST1334.2
052300              PERFORM PASS-1 GO TO SORT-WRITE-3.                  ST1334.2
052400 SORT-FAIL-3.                                                     ST1334.2
052500     PERFORM FAIL-1.                                              ST1334.2
052600     MOVE     SECOND-KEY TO COMPUTED-N.                           ST1334.2
052700     MOVE     -100 TO CORRECT-N.                                  ST1334.2
052800     MOVE     "KEY AREA" TO RE-MARK.                              ST1334.2
052900     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
053000     MOVE     SECOND-NON-KEY TO COMPUTED-BREAKDOWN.               ST1334.2
053100     PERFORM  NON-KEY-BREAKDOWN.                                  ST1334.2
053200 SORT-WRITE-3.                                                    ST1334.2
053300     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
053400 SORT-TEST-4.                                                     ST1334.2
053500     MOVE     "SORT-TEST-4" TO PAR-NAME.                          ST1334.2
053600     PERFORM  RETURN-SORTFILE.                                    ST1334.2
053700     IF       SECOND-KEY NOT EQUAL TO ZERO GO TO SORT-FAIL-4.     ST1334.2
053800     IF       SECOND-NON-KEY EQUAL TO JUSTIFIED-A                 ST1334.2
053900              PERFORM PASS-1 GO TO SORT-WRITE-4.                  ST1334.2
054000 SORT-FAIL-4.                                                     ST1334.2
054100     PERFORM  FAIL-1.                                             ST1334.2
054200     MOVE     SECOND-KEY TO COMPUTED-N.                           ST1334.2
054300     MOVE     ZERO TO CORRECT-N.                                  ST1334.2
054400     MOVE     "KEY AREA" TO RE-MARK.                              ST1334.2
054500     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
054600     MOVE     SECOND-NON-KEY TO COMPUTED-BREAKDOWN.               ST1334.2
054700     PERFORM  NON-KEY-BREAKDOWN.                                  ST1334.2
054800 SORT-WRITE-4.                                                    ST1334.2
054900     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
055000 SORT-TEST-5.                                                     ST1334.2
055100     MOVE     "SORT-TEST-5" TO PAR-NAME.                          ST1334.2
055200     PERFORM  RETURN-SORTFILE 99 TIMES.                           ST1334.2
055300     IF       SECOND-KEY NOT EQUAL TO 99 GO TO SORT-FAIL-5.       ST1334.2
055400     IF       SECOND-NON-KEY EQUAL TO JUSTIFIED-A                 ST1334.2
055500              PERFORM PASS-1 GO TO SORT-WRITE-5.                  ST1334.2
055600 SORT-FAIL-5.                                                     ST1334.2
055700     PERFORM  FAIL-1.                                             ST1334.2
055800     MOVE     SECOND-KEY TO COMPUTED-N.                           ST1334.2
055900     MOVE     +99  TO CORRECT-N                                   ST1334.2
056000     MOVE     "KEY AREA" TO RE-MARK.                              ST1334.2
056100     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
056200     MOVE     SECOND-NON-KEY TO COMPUTED-BREAKDOWN.               ST1334.2
056300     PERFORM  NON-KEY-BREAKDOWN.                                  ST1334.2
056400 SORT-WRITE-5.                                                    ST1334.2
056500     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
056600 SORT-TEST-6.                                                     ST1334.2
056700     MOVE     "SORT-TEST-6 " TO PAR-NAME.                         ST1334.2
056800     RETURN   SECOND-SORTFILE AT END                              ST1334.2
056900              PERFORM PASS-1 GO TO SORT-WRITE-6.                  ST1334.2
057000 SORT-FAIL-6.                                                     ST1334.2
057100     PERFORM  FAIL-1.                                             ST1334.2
057200     MOVE     UTIL-CTR TO COMPUTED-N.                             ST1334.2
057300     MOVE     201 TO CORRECT-N.                                   ST1334.2
057400     MOVE     "END OF FILE NOT FOUND" TO RE-MARK.                 ST1334.2
057500     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
057600     MOVE     SECOND-KEY TO COMPUTED-N.                           ST1334.2
057700     MOVE     "KEY AREA" TO RE-MARK.                              ST1334.2
057800     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
057900     MOVE     SECOND-NON-KEY TO COMPUTED-BREAKDOWN.               ST1334.2
058000     MOVE     1 TO BREAKDOWN-SWITCH.                              ST1334.2
058100     PERFORM  NON-KEY-BREAKDOWN.                                  ST1334.2
058200     MOVE     ZERO TO BREAKDOWN-SWITCH.                           ST1334.2
058300 SORT-WRITE-6.                                                    ST1334.2
058400     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
058500 SORT-EXIT-A.                                                     ST1334.2
058600     EXIT.                                                        ST1334.2
058700 SORT-INIT-B.                                                     ST1334.2
058800     MOVE     ZERO TO UTIL-CTR.                                   ST1334.2
058900     OPEN     INPUT SORTOUT-2C.                                   ST1334.2
059000 SORT-TEST-7.                                                     ST1334.2
059100     MOVE     "SORT-TEST-7 " TO PAR-NAME.                         ST1334.2
059200     PERFORM  READ-SORTOUT.                                       ST1334.2
059300     IF       SORTOUT-KEY NOT EQUAL TO +99   GO TO SORT-FAIL-7.   ST1334.2
059400     IF       SORTOUT-NON-KEY EQUAL TO JUSTIFIED-A                ST1334.2
059500              PERFORM PASS-1 GO TO SORT-WRITE-7.                  ST1334.2
059600 SORT-FAIL-7.                                                     ST1334.2
059700     PERFORM  FAIL-1.                                             ST1334.2
059800     MOVE     SORTOUT-KEY TO COMPUTED-N.                          ST1334.2
059900     MOVE     +99  TO CORRECT-N                                   ST1334.2
060000     MOVE     "KEY AREA" TO RE-MARK.                              ST1334.2
060100     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
060200     MOVE     SORTOUT-NON-KEY TO COMPUTED-BREAKDOWN.              ST1334.2
060300     PERFORM  NON-KEY-BREAKDOWN.                                  ST1334.2
060400 SORT-WRITE-7.                                                    ST1334.2
060500     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
060600 SORT-TEST-8.                                                     ST1334.2
060700     MOVE     "SORT-TEST-8 " TO PAR-NAME.                         ST1334.2
060800     PERFORM  READ-SORTOUT.                                       ST1334.2
060900     IF       SORTOUT-KEY NOT EQUAL TO +98   GO TO SORT-FAIL-8.   ST1334.2
061000     IF       SORTOUT-NON-KEY EQUAL TO JUSTIFIED-A                ST1334.2
061100              PERFORM PASS-1 GO TO SORT-WRITE-8.                  ST1334.2
061200 SORT-FAIL-8.                                                     ST1334.2
061300     PERFORM  FAIL-1.                                             ST1334.2
061400     MOVE     SORTOUT-KEY TO COMPUTED-N.                          ST1334.2
061500     MOVE     +98 TO CORRECT-N                                    ST1334.2
061600     MOVE     "KEY AREA" TO RE-MARK.                              ST1334.2
061700     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
061800     MOVE     SORTOUT-NON-KEY TO COMPUTED-BREAKDOWN.              ST1334.2
061900     PERFORM  NON-KEY-BREAKDOWN.                                  ST1334.2
062000 SORT-WRITE-8.                                                    ST1334.2
062100     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
062200 SORT-TEST-9.                                                     ST1334.2
062300     MOVE     "SORT-TEST-9 " TO PAR-NAME.                         ST1334.2
062400     PERFORM  READ-SORTOUT 98 TIMES.                              ST1334.2
062500     IF       SORTOUT-KEY NOT EQUAL TO ZERO  GO TO SORT-FAIL-9.   ST1334.2
062600     IF       SORTOUT-NON-KEY EQUAL TO JUSTIFIED-A                ST1334.2
062700              PERFORM PASS-1 GO TO SORT-WRITE-9.                  ST1334.2
062800 SORT-FAIL-9.                                                     ST1334.2
062900     PERFORM  FAIL-1.                                             ST1334.2
063000     MOVE     SORTOUT-KEY TO COMPUTED-N.                          ST1334.2
063100     MOVE     ZERO TO CORRECT-N                                   ST1334.2
063200     MOVE     "KEY AREA" TO RE-MARK.                              ST1334.2
063300     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
063400     MOVE     SORTOUT-NON-KEY TO COMPUTED-BREAKDOWN.              ST1334.2
063500     PERFORM  NON-KEY-BREAKDOWN.                                  ST1334.2
063600 SORT-WRITE-9.                                                    ST1334.2
063700     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
063800 SORT-TEST-10.                                                    ST1334.2
063900     MOVE     "SORT-TEST-10 " TO PAR-NAME.                        ST1334.2
064000     PERFORM  READ-SORTOUT.                                       ST1334.2
064100     IF       SORTOUT-KEY NOT EQUAL TO -100  GO TO SORT-FAIL-11.  ST1334.2
064200     IF       SORTOUT-NON-KEY EQUAL TO JUSTIFIED-A                ST1334.2
064300              PERFORM PASS-1 GO TO SORT-WRITE-10.                 ST1334.2
064400 SORT-FAIL-10.                                                    ST1334.2
064500     PERFORM  FAIL-1.                                             ST1334.2
064600     MOVE     SORTOUT-KEY TO COMPUTED-N.                          ST1334.2
064700     MOVE     -100 TO CORRECT-N                                   ST1334.2
064800     MOVE     "KEY AREA" TO RE-MARK.                              ST1334.2
064900     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
065000     MOVE     SORTOUT-NON-KEY TO COMPUTED-BREAKDOWN.              ST1334.2
065100     PERFORM  NON-KEY-BREAKDOWN.                                  ST1334.2
065200 SORT-WRITE-10.                                                   ST1334.2
065300     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
065400 SORT-TEST-11.                                                    ST1334.2
065500     MOVE     "SORT-TEST-11 " TO PAR-NAME.                        ST1334.2
065600     PERFORM  READ-SORTOUT 99 TIMES.                              ST1334.2
065700     IF       SORTOUT-KEY NOT EQUAL TO -199  GO TO SORT-FAIL-12.  ST1334.2
065800     IF       SORTOUT-NON-KEY EQUAL TO JUSTIFIED-A                ST1334.2
065900              PERFORM PASS-1 GO TO SORT-WRITE-11.                 ST1334.2
066000 SORT-FAIL-11.                                                    ST1334.2
066100     PERFORM  FAIL-1.                                             ST1334.2
066200     MOVE     SORTOUT-KEY TO COMPUTED-N.                          ST1334.2
066300     MOVE     -199 TO CORRECT-N                                   ST1334.2
066400     MOVE     "KEY AREA" TO RE-MARK.                              ST1334.2
066500     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
066600     MOVE     SORTOUT-NON-KEY TO COMPUTED-BREAKDOWN.              ST1334.2
066700     PERFORM  NON-KEY-BREAKDOWN.                                  ST1334.2
066800 SORT-WRITE-11.                                                   ST1334.2
066900     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
067000 SORT-TEST-12.                                                    ST1334.2
067100     MOVE     "SORT-TEST-12 " TO PAR-NAME.                        ST1334.2
067200     READ     SORTOUT-2C AT END                                   ST1334.2
067300              PERFORM PASS-1 GO TO SORT-WRITE-12.                 ST1334.2
067400 SORT-FAIL-12.                                                    ST1334.2
067500     PERFORM  FAIL-1.                                             ST1334.2
067600     MOVE     UTIL-CTR TO COMPUTED-N.                             ST1334.2
067700     MOVE     201 TO CORRECT-N.                                   ST1334.2
067800     MOVE     "END OF FILE NOT FOUND" TO RE-MARK.                 ST1334.2
067900     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
068000     MOVE     SORTOUT-KEY TO COMPUTED-N.                          ST1334.2
068100     MOVE     "KEY AREA" TO RE-MARK.                              ST1334.2
068200     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
068300     MOVE     SORTOUT-NON-KEY TO COMPUTED-BREAKDOWN.              ST1334.2
068400     MOVE     1 TO BREAKDOWN-SWITCH.                              ST1334.2
068500     PERFORM  NON-KEY-BREAKDOWN.                                  ST1334.2
068600     MOVE     ZERO TO BREAKDOWN-SWITCH.                           ST1334.2
068700 SORT-WRITE-12.                                                   ST1334.2
068800     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
068900 SORT-EXIT-B.                                                     ST1334.2
069000     EXIT.                                                        ST1334.2
069100 SORT-INIT-C.                                                     ST1334.2
069200     OPEN     INPUT SORTIN-2C.                                    ST1334.2
069300     MOVE     ZERO TO UTIL-CTR.                                   ST1334.2
069400 SORT-TEST-13.                                                    ST1334.2
069500     MOVE     "SORT-TEST-13 " TO PAR-NAME.                        ST1334.2
069600     PERFORM  READ-SORTIN.                                        ST1334.2
069700     IF       SORTIN-KEY NOT EQUAL TO +99    GO TO SORT-FAIL-13.  ST1334.2
069800     IF       SORTIN-NON-KEY EQUAL TO JUSTIFIED-A                 ST1334.2
069900              PERFORM PASS-1 GO TO SORT-WRITE-13.                 ST1334.2
070000 SORT-FAIL-13.                                                    ST1334.2
070100     PERFORM  FAIL-1.                                             ST1334.2
070200     MOVE     SORTIN-KEY TO COMPUTED-N.                           ST1334.2
070300     MOVE     +99  TO CORRECT-N                                   ST1334.2
070400     MOVE     "KEY AREA" TO RE-MARK.                              ST1334.2
070500     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
070600     MOVE     SORTIN-NON-KEY TO COMPUTED-BREAKDOWN.               ST1334.2
070700     PERFORM  NON-KEY-BREAKDOWN.                                  ST1334.2
070800 SORT-WRITE-13.                                                   ST1334.2
070900     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
071000 SORT-TEST-14.                                                    ST1334.2
071100     MOVE     "SORT-TEST-14 " TO PAR-NAME.                        ST1334.2
071200     PERFORM  READ-SORTIN.                                        ST1334.2
071300     IF       SORTIN-KEY NOT EQUAL TO +98 GO TO SORT-FAIL-14.     ST1334.2
071400     IF       SORTIN-NON-KEY EQUAL TO JUSTIFIED-A                 ST1334.2
071500              PERFORM PASS-1 GO TO SORT-WRITE-14.                 ST1334.2
071600 SORT-FAIL-14.                                                    ST1334.2
071700     PERFORM  FAIL-1.                                             ST1334.2
071800     MOVE     SORTIN-KEY TO COMPUTED-N.                           ST1334.2
071900     MOVE     +98  TO CORRECT-N                                   ST1334.2
072000     MOVE     "KEY AREA" TO RE-MARK.                              ST1334.2
072100     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
072200     MOVE     SORTIN-NON-KEY TO COMPUTED-BREAKDOWN.               ST1334.2
072300     PERFORM  NON-KEY-BREAKDOWN.                                  ST1334.2
072400 SORT-WRITE-14.                                                   ST1334.2
072500     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
072600 SORT-TEST-15.                                                    ST1334.2
072700     MOVE     "SORT-TEST-15 " TO PAR-NAME.                        ST1334.2
072800     PERFORM  READ-SORTIN 98 TIMES.                               ST1334.2
072900     IF       SORTIN-KEY NOT EQUAL TO ZERO  GO TO SORT-FAIL-15.   ST1334.2
073000     IF       SORTIN-NON-KEY EQUAL TO JUSTIFIED-A                 ST1334.2
073100              PERFORM PASS-1 GO TO SORT-WRITE-15.                 ST1334.2
073200 SORT-FAIL-15.                                                    ST1334.2
073300     PERFORM  FAIL-1.                                             ST1334.2
073400     MOVE     SORTIN-KEY TO COMPUTED-N.                           ST1334.2
073500     MOVE     ZERO TO CORRECT-N                                   ST1334.2
073600     MOVE     "KEY AREA" TO RE-MARK.                              ST1334.2
073700     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
073800     MOVE     SORTIN-NON-KEY TO COMPUTED-BREAKDOWN.               ST1334.2
073900     PERFORM  NON-KEY-BREAKDOWN.                                  ST1334.2
074000 SORT-WRITE-15.                                                   ST1334.2
074100     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
074200 SORT-TEST-16.                                                    ST1334.2
074300     MOVE     "SORT-TEST-16 " TO PAR-NAME.                        ST1334.2
074400     PERFORM  READ-SORTIN.                                        ST1334.2
074500     IF       SORTIN-KEY NOT EQUAL TO -100  GO TO SORT-FAIL-16.   ST1334.2
074600     IF       SORTIN-NON-KEY EQUAL TO JUSTIFIED-A                 ST1334.2
074700              PERFORM PASS-1 GO TO SORT-WRITE-16.                 ST1334.2
074800 SORT-FAIL-16.                                                    ST1334.2
074900     PERFORM  FAIL-1.                                             ST1334.2
075000     MOVE     SORTIN-KEY TO COMPUTED-N.                           ST1334.2
075100     MOVE     -100 TO CORRECT-N                                   ST1334.2
075200     MOVE     "KEY AREA" TO RE-MARK.                              ST1334.2
075300     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
075400     MOVE     SORTIN-NON-KEY TO COMPUTED-BREAKDOWN.               ST1334.2
075500     PERFORM  NON-KEY-BREAKDOWN.                                  ST1334.2
075600 SORT-WRITE-16.                                                   ST1334.2
075700     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
075800 SORT-TEST-17.                                                    ST1334.2
075900     MOVE     "SORT-TEST-17 " TO PAR-NAME.                        ST1334.2
076000     PERFORM  READ-SORTIN 99 TIMES.                               ST1334.2
076100     IF       SORTIN-KEY NOT EQUAL TO -199  GO TO SORT-FAIL-17.   ST1334.2
076200     IF       SORTIN-NON-KEY EQUAL TO JUSTIFIED-A                 ST1334.2
076300              PERFORM PASS-1 GO TO SORT-WRITE-17.                 ST1334.2
076400 SORT-FAIL-17.                                                    ST1334.2
076500     PERFORM  FAIL-1.                                             ST1334.2
076600     MOVE     SORTIN-KEY TO COMPUTED-N.                           ST1334.2
076700     MOVE     -199 TO CORRECT-N                                   ST1334.2
076800     MOVE     "KEY AREA" TO RE-MARK.                              ST1334.2
076900     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
077000     MOVE     SORTIN-NON-KEY TO COMPUTED-BREAKDOWN.               ST1334.2
077100     PERFORM  NON-KEY-BREAKDOWN.                                  ST1334.2
077200 SORT-WRITE-17.                                                   ST1334.2
077300     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
077400 SORT-TEST-18.                                                    ST1334.2
077500     MOVE     "SORT-TEST-18" TO PAR-NAME.                         ST1334.2
077600     READ     SORTIN-2C AT END                                    ST1334.2
077700              PERFORM PASS-1 GO TO SORT-WRITE-18.                 ST1334.2
077800 SORT-FAIL-18.                                                    ST1334.2
077900     PERFORM  FAIL-1.                                             ST1334.2
078000     MOVE     UTIL-CTR TO COMPUTED-N.                             ST1334.2
078100     MOVE     201 TO CORRECT-N.                                   ST1334.2
078200     MOVE     "END OF FILE NOT FOUND" TO RE-MARK.                 ST1334.2
078300     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
078400     MOVE     SORTIN-KEY TO COMPUTED-N.                           ST1334.2
078500     MOVE     "KEY AREA" TO RE-MARK.                              ST1334.2
078600     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
078700     MOVE     SORTIN-NON-KEY TO COMPUTED-BREAKDOWN.               ST1334.2
078800     MOVE     1 TO BREAKDOWN-SWITCH.                              ST1334.2
078900     PERFORM  NON-KEY-BREAKDOWN.                                  ST1334.2
079000     MOVE     ZERO TO BREAKDOWN-SWITCH.                           ST1334.2
079100 SORT-WRITE-18.                                                   ST1334.2
079200     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
079300 SORT-CLOSE-19.                                                   ST1334.2
079400     CLOSE    SORTIN-2C.                                          ST1334.2
079500     CLOSE    SORTOUT-2C.                                         ST1334.2
079600     GO       TO OUTPROC-EXIT.                                    ST1334.2
079700 NON-KEY-BREAKDOWN.                                               ST1334.2
079800     MOVE     FIRST-20 TO COMPUTED-A.                             ST1334.2
079900     IF       BREAKDOWN-SWITCH EQUAL TO ZERO                      ST1334.2
080000              MOVE SP-ACE TO CORRECT-A.                           ST1334.2
080100     MOVE     "FIRST 20 OF 72-CHAR FIELD" TO RE-MARK.             ST1334.2
080200     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
080300     MOVE     SECOND-20 TO COMPUTED-A.                            ST1334.2
080400     IF       BREAKDOWN-SWITCH EQUAL TO ZERO                      ST1334.2
080500              MOVE SP-ACE TO CORRECT-A.                           ST1334.2
080600     MOVE     "SECOND 20 OF 72-CHAR FIELD" TO RE-MARK.            ST1334.2
080700     PERFORM  PRINT-DETAIL-1.                                     ST1334.2
080800     MOVE     THIRD-20 TO COMPUTED-A.                             ST1334.2
080900     IF       BREAKDOWN-SWITCH EQUAL TO ZERO                      ST1334.2
--> --------------------

--> maximum size reached

--> --------------------

94%


¤ Dauer der Verarbeitung: 0.36 Sekunden  (vorverarbeitet)  ¤

*© Formatika GbR, Deutschland




Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.