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 49 kB image not shown  

Quelle  st108a.cob   Sprache: Cobol

 
000100 IDENTIFICATION DIVISION.                                         ST1084.2
000200 PROGRAM-ID.                                                      ST1084.2
000300     ST108A.                                                      ST1084.2
000400****************************************************************  ST1084.2
000500*                                                              *  ST1084.2
000600*    VALIDATION FOR:-                                          *  ST1084.2
000700*                                                              *  ST1084.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".ST1084.2
000900*                                                              *  ST1084.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".ST1084.2
001100*                                                              *  ST1084.2
001200****************************************************************  ST1084.2
001300*                                                              *  ST1084.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  ST1084.2
001500*                                                              *  ST1084.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  ST1084.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  ST1084.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  ST1084.2
001900*                                                              *  ST1084.2
002000****************************************************************  ST1084.2
002100*    ST108 IS A COMPLETELY SELF-CONTAINED PROGRAM.  THE INPUT     ST1084.2
002200*    PROCEDURE BUILDS THE EIGHT-RECORD FILE SHOWN BELOW. THE      ST1084.2
002300*    OUTPUT PROCEDURE CHECKS THE SORTED FILE AND GENERATES THE    ST1084.2
002400*    REPORT.                                                      ST1084.2
002500*    SORT    SORT    SORT    SORT    SORT   SORT     SORT    SORT ST1084.2
002600*    KEY-1   KEY-2   KEY-3   KEY-4   KEY-5  KEY-6    KEY-7   KEY-8ST1084.2
002700*    S9(6)   A(5)    SV9(16) X(10)   A(20)  X(10)    999     S99  ST1084.2
002800*    USAGE   JUST            JUST                            USAGEST1084.2
002900*    COMP    RIGHT           RIGHT                           COMP ST1084.2
003000*                                                                 ST1084.2
003100*    +123456     BBB -.1234   BBBBBB A      AAAAAAAA 501     +99  ST1084.2
003200*    -054321       X -.1234   BBBBBB A      AAAAAAAA 501     +99  ST1084.2
003300*    -054321     BBB +.6      BBBBBB A      AAAAAAAA 501     +99  ST1084.2
003400*    -054321     BBB -.1234        X A      AAAAAAAA 501     +99  ST1084.2
003500*    -054321     BBB -.1234   BBBBBB Z      AAAAAAAA 501     +99  ST1084.2
003600*    -054321     BBB -.1234   BBBBBB A      Z        501     +99  ST1084.2
003700*    -054321     BBB -.1234   BBBBBB A      AAAAAAAA 418     +99  ST1084.2
003800*    -054321     BBB -.1234   BBBBBB A      AAAAAAAA 501     -14  ST1084.2
003900*                                                                 ST1084.2
004000*    THIS PROGRAM CHECKS THE COMPILER"S ABILITY TO HANDLE EIGHT   ST1084.2
004100*    ASCENDING KEYS IN ONE FILE.                                  ST1084.2
004200                                                                  ST1084.2
004300 ENVIRONMENT DIVISION.                                            ST1084.2
004400 CONFIGURATION SECTION.                                           ST1084.2
004500 SOURCE-COMPUTER.                                                 ST1084.2
004600     Card0130.                                                    ST1084.2
004700 OBJECT-COMPUTER.                                                 ST1084.2
004800     Card0131.                                                    ST1084.2
004900 INPUT-OUTPUT SECTION.                                            ST1084.2
005000 FILE-CONTROL.                                                    ST1084.2
005100     SELECT PRINT-FILE ASSIGN TO                                  ST1084.2
005200     "C0085" .                                                    ST1084.2
005300     SELECT   SORTFILE-1H ASSIGN TO                               ST1084.2
005400     "C0039" .                                                    ST1084.2
005500 DATA DIVISION.                                                   ST1084.2
005600 FILE SECTION.                                                    ST1084.2
005700 FD  PRINT-FILE.                                                  ST1084.2
005800 01  PRINT-REC PICTURE X(120).                                    ST1084.2
005900 01  DUMMY-RECORD PICTURE X(120).                                 ST1084.2
006000 SD  SORTFILE-1H                                                  ST1084.2
006100     DATA RECORD IS SORTFILE-REC.                                 ST1084.2
006200 01  SORTFILE-REC.                                                ST1084.2
006300     02 SORTKEY-8       PICTURE S99 COMPUTATIONAL.                ST1084.2
006400     02 SORTKEY-1       PICTURE S9(6) COMPUTATIONAL.              ST1084.2
006500     02 SORTKEY-7       PICTURE 999.                              ST1084.2
006600     02 SORTKEY-3       PICTURE SV9(16).                          ST1084.2
006700     02 FILLER          PICTURE XX.                               ST1084.2
006800     02 SORTKEY-4       PICTURE X(10) JUSTIFIED RIGHT.            ST1084.2
006900     02 SORTKEY-6       PICTURE X(10).                            ST1084.2
007000     02 SORTKEY-2       PICTURE A(05) JUSTIFIED RIGHT.            ST1084.2
007100     02 SORTKEY-5       PICTURE A(20).                            ST1084.2
007200     02 FILLER          PICTURE XXX.                              ST1084.2
007300 WORKING-STORAGE SECTION.                                         ST1084.2
007400 77  UTIL-CTR           PICTURE S99999.                           ST1084.2
007500 77  SPAC-E             PICTURE X VALUE " ".                      ST1084.2
007600 01  TEST-RESULTS.                                                ST1084.2
007700     02 FILLER                   PIC X      VALUE SPACE.          ST1084.2
007800     02 FEATURE                  PIC X(20)  VALUE SPACE.          ST1084.2
007900     02 FILLER                   PIC X      VALUE SPACE.          ST1084.2
008000     02 P-OR-F                   PIC X(5)   VALUE SPACE.          ST1084.2
008100     02 FILLER                   PIC X      VALUE SPACE.          ST1084.2
008200     02  PAR-NAME.                                                ST1084.2
008300       03 FILLER                 PIC X(19)  VALUE SPACE.          ST1084.2
008400       03  PARDOT-X              PIC X      VALUE SPACE.          ST1084.2
008500       03 DOTVALUE               PIC 99     VALUE ZERO.           ST1084.2
008600     02 FILLER                   PIC X(8)   VALUE SPACE.          ST1084.2
008700     02 RE-MARK                  PIC X(61).                       ST1084.2
008800 01  TEST-COMPUTED.                                               ST1084.2
008900     02 FILLER                   PIC X(30)  VALUE SPACE.          ST1084.2
009000     02 FILLER                   PIC X(17)  VALUE                 ST1084.2
009100            " COMPUTED=".                                   ST1084.2
009200     02 COMPUTED-X.                                               ST1084.2
009300     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          ST1084.2
009400     03 COMPUTED-N               REDEFINES COMPUTED-A             ST1084.2
009500                                 PIC -9(9).9(9).                  ST1084.2
009600     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         ST1084.2
009700     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     ST1084.2
009800     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     ST1084.2
009900     03       CM-18V0 REDEFINES COMPUTED-A.                       ST1084.2
010000         04 COMPUTED-18V0                    PIC -9(18).          ST1084.2
010100         04 FILLER                           PIC X.               ST1084.2
010200     03 FILLER PIC X(50) VALUE SPACE.                             ST1084.2
010300 01  TEST-CORRECT.                                                ST1084.2
010400     02 FILLER PIC X(30) VALUE SPACE.                             ST1084.2
010500     02 FILLER PIC X(17) VALUE " CORRECT =".                ST1084.2
010600     02 CORRECT-X.                                                ST1084.2
010700     03 CORRECT-A                  PIC X(20) VALUE SPACE.         ST1084.2
010800     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      ST1084.2
010900     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         ST1084.2
011000     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     ST1084.2
011100     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     ST1084.2
011200     03      CR-18V0 REDEFINES CORRECT-A.                         ST1084.2
011300         04 CORRECT-18V0                     PIC -9(18).          ST1084.2
011400         04 FILLER                           PIC X.               ST1084.2
011500     03 FILLER PIC X(2) VALUE SPACE.                              ST1084.2
011600     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     ST1084.2
011700 01  CCVS-C-1.                                                    ST1084.2
011800     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PAST1084.2
011900-    "SS PARAGRAPH-NAME ST1084.2
012000-    " REMARKS".                                            ST1084.2
012100     02 FILLER                     PIC X(20)    VALUE SPACE.      ST1084.2
012200 01  CCVS-C-2.                                                    ST1084.2
012300     02 FILLER                     PIC X        VALUE SPACE.      ST1084.2
012400     02 FILLER                     PIC X(6)     VALUE "TESTED".   ST1084.2
012500     02 FILLER                     PIC X(15)    VALUE SPACE.      ST1084.2
012600     02 FILLER                     PIC X(4)     VALUE "FAIL".     ST1084.2
012700     02 FILLER                     PIC X(94)    VALUE SPACE.      ST1084.2
012800 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       ST1084.2
012900 01  REC-CT                        PIC 99       VALUE ZERO.       ST1084.2
013000 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       ST1084.2
013100 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       ST1084.2
013200 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       ST1084.2
013300 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       ST1084.2
013400 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       ST1084.2
013500 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       ST1084.2
013600 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      ST1084.2
013700 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       ST1084.2
013800 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     ST1084.2
013900 01  CCVS-H-1.                                                    ST1084.2
014000     02  FILLER                    PIC X(39)    VALUE SPACES.     ST1084.2
014100     02  FILLER                    PIC X(42)    VALUE             ST1084.2
014200     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 ST1084.2
014300     02  FILLER                    PIC X(39)    VALUE SPACES.     ST1084.2
014400 01  CCVS-H-2A.                                                   ST1084.2
014500   02  FILLER                        PIC X(40)  VALUE SPACE.      ST1084.2
014600   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  ST1084.2
014700   02  FILLER                        PIC XXXX   VALUE             ST1084.2
014800     "4.2 ".                                                      ST1084.2
014900   02  FILLER                        PIC X(28)  VALUE             ST1084.2
015000            " COPY - NOT FOR DISTRIBUTION".                       ST1084.2
015100   02  FILLER                        PIC X(41)  VALUE SPACE.      ST1084.2
015200                                                                  ST1084.2
015300 01  CCVS-H-2B.                                                   ST1084.2
015400   02  FILLER                        PIC X(15)  VALUE             ST1084.2
015500            "TEST RESULT OF ".                                    ST1084.2
015600   02  TEST-ID                       PIC X(9).                    ST1084.2
015700   02  FILLER                        PIC X(4)   VALUE             ST1084.2
015800            " IN ".                                               ST1084.2
015900   02  FILLER                        PIC X(12)  VALUE             ST1084.2
016000     " HIGH ".                                              ST1084.2
016100   02  FILLER                        PIC X(22)  VALUE             ST1084.2
016200            " LEVEL VALIDATION FOR ".                             ST1084.2
016300   02  FILLER                        PIC X(58)  VALUE             ST1084.2
016400     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".ST1084.2
016500 01  CCVS-H-3.                                                    ST1084.2
016600     02  FILLER                      PIC X(34)  VALUE             ST1084.2
016700            " FOR OFFICIAL USE ONLY ".                         ST1084.2
016800     02  FILLER                      PIC X(58)  VALUE             ST1084.2
016900     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".ST1084.2
017000     02  FILLER                      PIC X(28)  VALUE             ST1084.2
017100            " COPYRIGHT 1985 ".                                ST1084.2
017200 01  CCVS-E-1.                                                    ST1084.2
017300     02 FILLER                       PIC X(52)  VALUE SPACE.      ST1084.2
017400     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              ST1084.2
017500     02 ID-AGAIN                     PIC X(9).                    ST1084.2
017600     02 FILLER                       PIC X(45)  VALUE SPACES.     ST1084.2
017700 01  CCVS-E-2.                                                    ST1084.2
017800     02  FILLER                      PIC X(31)  VALUE SPACE.      ST1084.2
017900     02  FILLER                      PIC X(21)  VALUE SPACE.      ST1084.2
018000     02 CCVS-E-2-2.                                               ST1084.2
018100         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      ST1084.2
018200         03 FILLER                   PIC X      VALUE SPACE.      ST1084.2
018300         03 ENDER-DESC               PIC X(44)  VALUE             ST1084.2
018400            "ERRORS ENCOUNTERED".                                 ST1084.2
018500 01  CCVS-E-3.                                                    ST1084.2
018600     02  FILLER                      PIC X(22)  VALUE             ST1084.2
018700            " FOR OFFICIAL USE ONLY".                             ST1084.2
018800     02  FILLER                      PIC X(12)  VALUE SPACE.      ST1084.2
018900     02  FILLER                      PIC X(58)  VALUE             ST1084.2
019000     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".ST1084.2
019100     02  FILLER                      PIC X(13)  VALUE SPACE.      ST1084.2
019200     02 FILLER                       PIC X(15)  VALUE             ST1084.2
019300             " COPYRIGHT 1985".                                   ST1084.2
019400 01  CCVS-E-4.                                                    ST1084.2
019500     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      ST1084.2
019600     02 FILLER                       PIC X(4)   VALUE " OF ".     ST1084.2
019700     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      ST1084.2
019800     02 FILLER                       PIC X(40)  VALUE             ST1084.2
019900      " TESTS WERE EXECUTED SUCCESSFULLY".                       ST1084.2
020000 01  XXINFO.                                                      ST1084.2
020100     02 FILLER                       PIC X(19)  VALUE             ST1084.2
020200            "*** INFORMATION ***".                                ST1084.2
020300     02 INFO-TEXT.                                                ST1084.2
020400       04 FILLER                     PIC X(8)   VALUE SPACE.      ST1084.2
020500       04 XXCOMPUTED                 PIC X(20).                   ST1084.2
020600       04 FILLER                     PIC X(5)   VALUE SPACE.      ST1084.2
020700       04 XXCORRECT                  PIC X(20).                   ST1084.2
020800     02 INF-ANSI-REFERENCE           PIC X(48).                   ST1084.2
020900 01  HYPHEN-LINE.                                                 ST1084.2
021000     02 FILLER  PIC IS X VALUE IS SPACE.                          ST1084.2
021100     02 FILLER  PIC IS X(65)    VALUE IS "************************ST1084.2
021200-    "*****************************************".                 ST1084.2
021300     02 FILLER  PIC IS X(54)    VALUE IS "************************ST1084.2
021400-    "******************************".                            ST1084.2
021500 01  CCVS-PGM-ID                     PIC X(9)   VALUE             ST1084.2
021600     "ST108A".                                                    ST1084.2
021700 PROCEDURE DIVISION.                                              ST1084.2
021800 SORT-PARA SECTION.                                               ST1084.2
021900 SORT-PARAGRAPH.                                                  ST1084.2
022000     SORT     SORTFILE-1H ON                                      ST1084.2
022100              ASCENDING KEY SORTKEY-1                             ST1084.2
022200              ASCENDING SORTKEY-2                                 ST1084.2
022300              ASCENDING SORTKEY-3                                 ST1084.2
022400              ASCENDING SORTKEY-4                                 ST1084.2
022500              ASCENDING SORTKEY-5                                 ST1084.2
022600              ASCENDING SORTKEY-6                                 ST1084.2
022700              ASCENDING SORTKEY-7                                 ST1084.2
022800              ASCENDING SORTKEY-8                                 ST1084.2
022900              INPUT PROCEDURE INPROC                              ST1084.2
023000              OUTPUT PROCEDURE OUTPROC THRU OUTPROC-EXIT.         ST1084.2
023100     STOP     RUN.                                                ST1084.2
023200 INPROC SECTION.                                                  ST1084.2
023300 BUILD-FILE.                                                      ST1084.2
023400     PERFORM  BUILD-RECORD.                                       ST1084.2
023500     MOVE     +123456             TO SORTKEY-1.                   ST1084.2
023600     PERFORM  RELEASE-RECORD.                                     ST1084.2
023700     PERFORM  BUILD-RECORD.                                       ST1084.2
023800     MOVE     "X"                 TO SORTKEY-2.                   ST1084.2
023900     PERFORM  RELEASE-RECORD.                                     ST1084.2
024000     PERFORM  BUILD-RECORD.                                       ST1084.2
024100     MOVE     +.6                 TO SORTKEY-3.                   ST1084.2
024200     PERFORM  RELEASE-RECORD.                                     ST1084.2
024300     PERFORM  BUILD-RECORD.                                       ST1084.2
024400     MOVE     "X"                 TO SORTKEY-4.                   ST1084.2
024500     PERFORM  RELEASE-RECORD.                                     ST1084.2
024600     PERFORM  BUILD-RECORD.                                       ST1084.2
024700     MOVE     "Z"                 TO SORTKEY-5.                   ST1084.2
024800     PERFORM  RELEASE-RECORD.                                     ST1084.2
024900     PERFORM  BUILD-RECORD.                                       ST1084.2
025000     MOVE     "Z"                 TO SORTKEY-6.                   ST1084.2
025100     PERFORM  RELEASE-RECORD.                                     ST1084.2
025200     PERFORM  BUILD-RECORD.                                       ST1084.2
025300     MOVE     +418                TO SORTKEY-7.                   ST1084.2
025400     PERFORM  RELEASE-RECORD.                                     ST1084.2
025500     PERFORM  BUILD-RECORD.                                       ST1084.2
025600     MOVE     -14                 TO SORTKEY-8.                   ST1084.2
025700     PERFORM  RELEASE-RECORD.                                     ST1084.2
025800     GO       TO BUILD-EXIT.                                      ST1084.2
025900 BUILD-RECORD.                                                    ST1084.2
026000     MOVE     -054321             TO SORTKEY-1.                   ST1084.2
026100     MOVE     "BBB"               TO SORTKEY-2.                   ST1084.2
026200     MOVE     -.1234567890123456  TO SORTKEY-3.                   ST1084.2
026300     MOVE     "BBBBBB"            TO SORTKEY-4.                   ST1084.2
026400     MOVE     "A"                 TO SORTKEY-5.                   ST1084.2
026500     MOVE     "AAAAAAAA"          TO SORTKEY-6.                   ST1084.2
026600     MOVE     -501                TO SORTKEY-7.                   ST1084.2
026700*       NOTE THIS ITEM IS INTENTIONALLY MOVED TO AN UNSIGNED      ST1084.2
026800*             FIELD.                                              ST1084.2
026900     MOVE     +99                 TO SORTKEY-8.                   ST1084.2
027000 RELEASE-RECORD.                                                  ST1084.2
027100     RELEASE  SORTFILE-REC.                                       ST1084.2
027200 BUILD-EXIT.                                                      ST1084.2
027300     EXIT.                                                        ST1084.2
027400 OUTPROC SECTION.                                                 ST1084.2
027500 OPEN-FILES.                                                      ST1084.2
027600     OPEN     OUTPUT PRINT-FILE.                                  ST1084.2
027700     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   ST1084.2
027800     MOVE    SPACE TO TEST-RESULTS.                               ST1084.2
027900     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             ST1084.2
028000     IF       SPAC-E IS LESS THAN "B"                             ST1084.2
028100              GO TO SPACE-IS-LESS-THAN-B.                         ST1084.2
028200 B-IS-LESS-THAN-SPACE SECTION.                                    ST1084.2
028300 SORT-INIT-A.                                                     ST1084.2
028400     MOVE     "SORT - 8 ASC. KEYS" TO FEATURE.                    ST1084.2
028500*        NOTE THE RECORDS SHOULD BE SORTED INTO THE FOLLOWING     ST1084.2
028600*             ORDER --- 8 7 6 5 4 3 1 2 --- THAT IS,              ST1084.2
028700*             THE 8TH RECORD SORTS UP TO THE 1ST POSITION,        ST1084.2
028800*             THE 7TH RECORD SORTS UP TO THE 2ND POSITION, ETC.   ST1084.2
028900 SORT-TEST-1.                                                     ST1084.2
029000     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
029100     IF       SORTKEY-7 EQUAL TO 418                              ST1084.2
029200              PERFORM PASS GO TO SORT-WRITE-1.                    ST1084.2
029300 SORT-FAIL-1.                                                     ST1084.2
029400     PERFORM  FAIL.                                               ST1084.2
029500     MOVE     SORTKEY-7 TO COMPUTED-N.                            ST1084.2
029600     MOVE     418 TO CORRECT-N.                                   ST1084.2
029700 SORT-WRITE-1.                                                    ST1084.2
029800     MOVE     "SORT-TEST-1 " TO PAR-NAME.                         ST1084.2
029900     PERFORM  PRINT-DETAIL.                                       ST1084.2
030000 SORT-TEST-2.                                                     ST1084.2
030100     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
030200     IF       SORTKEY-8 EQUAL TO -14                              ST1084.2
030300              PERFORM PASS GO TO SORT-WRITE-2.                    ST1084.2
030400 SORT-FAIL-2.                                                     ST1084.2
030500     PERFORM  FAIL.                                               ST1084.2
030600     MOVE     SORTKEY-8 TO COMPUTED-N.                            ST1084.2
030700     MOVE     -14 TO CORRECT-N.                                   ST1084.2
030800 SORT-WRITE-2.                                                    ST1084.2
030900     MOVE     "SORT-TEST-2 " TO PAR-NAME.                         ST1084.2
031000     PERFORM  PRINT-DETAIL.                                       ST1084.2
031100 SORT-TEST-3.                                                     ST1084.2
031200     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
031300     IF       SORTKEY-6 EQUAL TO "Z "                     ST1084.2
031400              PERFORM PASS GO TO SORT-WRITE-3.                    ST1084.2
031500 SORT-FAIL-3.                                                     ST1084.2
031600     PERFORM  FAIL.                                               ST1084.2
031700     MOVE     SORTKEY-6 TO COMPUTED-A.                            ST1084.2
031800     MOVE     "Z "           TO CORRECT-A.                ST1084.2
031900 SORT-WRITE-3.                                                    ST1084.2
032000     MOVE     "SORT-TEST-3 " TO PAR-NAME.                         ST1084.2
032100     PERFORM  PRINT-DETAIL.                                       ST1084.2
032200 SORT-TEST-4.                                                     ST1084.2
032300     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
032400     IF       SORTKEY-5 EQUAL TO "Z "           ST1084.2
032500              PERFORM PASS GO TO SORT-WRITE-4.                    ST1084.2
032600 SORT-FAIL-4.                                                     ST1084.2
032700     PERFORM  FAIL.                                               ST1084.2
032800     MOVE     SORTKEY-5 TO COMPUTED-A.                            ST1084.2
032900     MOVE     "Z " TO CORRECT-A.                ST1084.2
033000 SORT-WRITE-4.                                                    ST1084.2
033100     MOVE     "SORT-TEST-4 " TO PAR-NAME.                         ST1084.2
033200     PERFORM  PRINT-DETAIL.                                       ST1084.2
033300 SORT-TEST-5.                                                     ST1084.2
033400     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
033500     IF       SORTKEY-4 EQUAL TO " X"                     ST1084.2
033600              PERFORM PASS GO TO SORT-WRITE-5.                    ST1084.2
033700 SORT-FAIL-5.                                                     ST1084.2
033800     PERFORM  FAIL.                                               ST1084.2
033900     MOVE     SORTKEY-4 TO COMPUTED-A.                            ST1084.2
034000     MOVE     " X"           TO CORRECT-A.                ST1084.2
034100 SORT-WRITE-5.                                                    ST1084.2
034200     MOVE     "SORT-TEST-5 " TO PAR-NAME.                         ST1084.2
034300     PERFORM  PRINT-DETAIL.                                       ST1084.2
034400 SORT-TEST-6.                                                     ST1084.2
034500     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
034600     IF       SORTKEY-3 EQUAL TO +.6000000000000000               ST1084.2
034700              PERFORM PASS GO TO SORT-WRITE-6.                    ST1084.2
034800 SORT-FAIL-6.                                                     ST1084.2
034900     PERFORM  FAIL.                                               ST1084.2
035000     MOVE     SORTKEY-3 TO COMPUTED-0V18.                         ST1084.2
035100     MOVE     +.6000000000000000     TO CORRECT-0V18.             ST1084.2
035200 SORT-WRITE-6.                                                    ST1084.2
035300     MOVE     "SORT-TEST-6 " TO PAR-NAME.                         ST1084.2
035400     PERFORM  PRINT-DETAIL.                                       ST1084.2
035500 SORT-TEST-7.                                                     ST1084.2
035600     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
035700     IF       SORTKEY-2 EQUAL TO " X"                          ST1084.2
035800              PERFORM PASS GO TO SORT-WRITE-7.                    ST1084.2
035900 SORT-FAIL-7.                                                     ST1084.2
036000     PERFORM  FAIL.                                               ST1084.2
036100     MOVE     SORTKEY-2 TO COMPUTED-A.                            ST1084.2
036200     MOVE     " X" TO CORRECT-A.                               ST1084.2
036300 SORT-WRITE-7.                                                    ST1084.2
036400     MOVE     "SORT-TEST-7 " TO PAR-NAME.                         ST1084.2
036500     PERFORM  PRINT-DETAIL.                                       ST1084.2
036600 SORT-TEST-8.                                                     ST1084.2
036700     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
036800     IF       SORTKEY-1 EQUAL TO +123456                          ST1084.2
036900              PERFORM PASS GO TO SORT-WRITE-8.                    ST1084.2
037000 SORT-FAIL-8.                                                     ST1084.2
037100     PERFORM  FAIL.                                               ST1084.2
037200     MOVE     SORTKEY-1 TO COMPUTED-N.                            ST1084.2
037300     MOVE     +123456 TO CORRECT-N.                               ST1084.2
037400 SORT-WRITE-8.                                                    ST1084.2
037500     MOVE     "SORT-TEST-8 " TO PAR-NAME.                         ST1084.2
037600     PERFORM  PRINT-DETAIL.                                       ST1084.2
037700 SORT-REMARK-A.                                                   ST1084.2
037800     MOVE     SPACE TO FEATURE.                                   ST1084.2
037900     MOVE     "THE COLLATING SEQUENCE" TO RE-MARK.                ST1084.2
038000     PERFORM  PRINT-DETAIL.                                       ST1084.2
038100     MOVE     "RENDERS TESTS 9 THRU 16" TO RE-MARK.               ST1084.2
038200     PERFORM  PRINT-DETAIL.                                       ST1084.2
038300     MOVE     "UNNECESSARY." TO RE-MARK.                          ST1084.2
038400     PERFORM  PRINT-DETAIL.                                       ST1084.2
038500     MOVE     "SORT - 8 ASC. KEYS" TO FEATURE.                    ST1084.2
038600     GO       TO CONTINUE-TESTING.                                ST1084.2
038700 SPACE-IS-LESS-THAN-B SECTION.                                    ST1084.2
038800 SORT-REMARK-B.                                                   ST1084.2
038900     MOVE     "THE COLLATING SEQUENCE" TO RE-MARK.                ST1084.2
039000     PERFORM  PRINT-DETAIL.                                       ST1084.2
039100     MOVE     "RENDERS TESTS 1 THRU 8" TO RE-MARK.                ST1084.2
039200     PERFORM  PRINT-DETAIL.                                       ST1084.2
039300     MOVE     "UNNECESSARY." TO RE-MARK.                          ST1084.2
039400     PERFORM  PRINT-DETAIL.                                       ST1084.2
039500     MOVE     "SORT - 8 ASC. KEYS" TO FEATURE.                    ST1084.2
039600*        NOTE THE RECORDS SHOULD BE SORTED INTO THE FOLLOWING     ST1084.2
039700*             ORDER --- 8 1 7 2 6 5 3 4 --- THAT IS,              ST1084.2
039800*             THE 1ST RECORD IS SORTED DOWN TO THE 8TH POSITION,  ST1084.2
039900*             THE 2ND RECORD SORTS UP TO THE 1ST POSITION, ETC.   ST1084.2
040000 SORT-TEST-9.                                                     ST1084.2
040100     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
040200     IF       SORTKEY-2 EQUAL TO " X"                          ST1084.2
040300              PERFORM PASS GO TO SORT-WRITE-9.                    ST1084.2
040400 SORT-FAIL-9.                                                     ST1084.2
040500     PERFORM  FAIL.                                               ST1084.2
040600     MOVE     SORTKEY-2 TO COMPUTED-A.                            ST1084.2
040700     MOVE     " X" TO CORRECT-A.                               ST1084.2
040800 SORT-WRITE-9.                                                    ST1084.2
040900     MOVE     "SORT-TEST-9 " TO PAR-NAME.                         ST1084.2
041000     PERFORM  PRINT-DETAIL.                                       ST1084.2
041100 SORT-TEST-10.                                                    ST1084.2
041200     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
041300     IF       SORTKEY-4 EQUAL TO " X"                     ST1084.2
041400              PERFORM PASS GO TO SORT-WRITE-10.                   ST1084.2
041500 SORT-FAIL-10.                                                    ST1084.2
041600     PERFORM  FAIL.                                               ST1084.2
041700     MOVE     SORTKEY-4 TO COMPUTED-A.                            ST1084.2
041800     MOVE     " X" TO CORRECT-A.                          ST1084.2
041900 SORT-WRITE-10.                                                   ST1084.2
042000     MOVE     "SORT-TEST-10" TO PAR-NAME.                         ST1084.2
042100     PERFORM  PRINT-DETAIL.                                       ST1084.2
042200 SORT-TEST-11.                                                    ST1084.2
042300     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
042400     IF       SORTKEY-7 EQUAL TO 418                              ST1084.2
042500              PERFORM PASS GO TO SORT-WRITE-11.                   ST1084.2
042600 SORT-FAIL-11.                                                    ST1084.2
042700     PERFORM  FAIL.                                               ST1084.2
042800     MOVE     SORTKEY-7 TO COMPUTED-N                             ST1084.2
042900     MOVE     418 TO CORRECT-N.                                   ST1084.2
043000 SORT-WRITE-11.                                                   ST1084.2
043100     MOVE     "SORT-TEST-11" TO PAR-NAME.                         ST1084.2
043200     PERFORM  PRINT-DETAIL.                                       ST1084.2
043300 SORT-TEST-12.                                                    ST1084.2
043400     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
043500     IF       SORTKEY-8 EQUAL TO -14                              ST1084.2
043600              PERFORM PASS GO TO SORT-WRITE-12.                   ST1084.2
043700 SORT-FAIL-12.                                                    ST1084.2
043800     PERFORM  FAIL.                                               ST1084.2
043900     MOVE     SORTKEY-8 TO COMPUTED-N.                            ST1084.2
044000     MOVE     -14 TO CORRECT-N.                                   ST1084.2
044100 SORT-WRITE-12.                                                   ST1084.2
044200     MOVE     "SORT-TEST-12" TO PAR-NAME.                         ST1084.2
044300     PERFORM  PRINT-DETAIL.                                       ST1084.2
044400 SORT-TEST-13.                                                    ST1084.2
044500     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
044600     IF       SORTKEY-6 EQUAL TO "Z "                     ST1084.2
044700              PERFORM PASS GO TO SORT-WRITE-13.                   ST1084.2
044800 SORT-FAIL-13.                                                    ST1084.2
044900     PERFORM  FAIL.                                               ST1084.2
045000     MOVE     SORTKEY-6 TO COMPUTED-A.                            ST1084.2
045100     MOVE     "Z "           TO CORRECT-A.                ST1084.2
045200 SORT-WRITE-13.                                                   ST1084.2
045300     MOVE     "SORT-TEST-13" TO PAR-NAME.                         ST1084.2
045400     PERFORM  PRINT-DETAIL.                                       ST1084.2
045500 SORT-TEST-14.                                                    ST1084.2
045600     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
045700     IF       SORTKEY-5 EQUAL TO "Z "           ST1084.2
045800              PERFORM PASS GO TO SORT-WRITE-14.                   ST1084.2
045900 SORT-FAIL-14.                                                    ST1084.2
046000     PERFORM  FAIL.                                               ST1084.2
046100     MOVE     SORTKEY-5 TO COMPUTED-A.                            ST1084.2
046200     MOVE     "Z " TO CORRECT-A.                ST1084.2
046300 SORT-WRITE-14.                                                   ST1084.2
046400     MOVE     "SORT-TEST-14" TO PAR-NAME.                         ST1084.2
046500     PERFORM  PRINT-DETAIL.                                       ST1084.2
046600 SORT-TEST-15.                                                    ST1084.2
046700     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
046800     IF       SORTKEY-3 EQUAL TO +.6000000000000000               ST1084.2
046900              PERFORM PASS GO TO SORT-WRITE-15.                   ST1084.2
047000 SORT-FAIL-15.                                                    ST1084.2
047100     PERFORM  FAIL.                                               ST1084.2
047200     MOVE     SORTKEY-3 TO COMPUTED-0V18.                         ST1084.2
047300     MOVE     +.6000000000000000     TO CORRECT-0V18.             ST1084.2
047400 SORT-WRITE-15.                                                   ST1084.2
047500     MOVE     "SORT-TEST-15" TO PAR-NAME.                         ST1084.2
047600     PERFORM  PRINT-DETAIL.                                       ST1084.2
047700 SORT-TEST-16.                                                    ST1084.2
047800     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
047900     IF       SORTKEY-1 EQUAL TO +123456                          ST1084.2
048000              PERFORM PASS GO TO SORT-WRITE-16.                   ST1084.2
048100 SORT-FAIL-16.                                                    ST1084.2
048200     PERFORM  FAIL.                                               ST1084.2
048300     MOVE     SORTKEY-1 TO COMPUTED-N.                            ST1084.2
048400     MOVE     +123456 TO CORRECT-N.                               ST1084.2
048500 SORT-WRITE-16.                                                   ST1084.2
048600     MOVE     "SORT-TEST-16" TO PAR-NAME.                         ST1084.2
048700     PERFORM  PRINT-DETAIL.                                       ST1084.2
048800 CONTINUE-TESTING SECTION.                                        ST1084.2
048900 SORT-TEST-17.                                                    ST1084.2
049000     RETURN   SORTFILE-1H AT END                                  ST1084.2
049100              PERFORM PASS GO TO SORT-WRITE-17.                   ST1084.2
049200 SORT-FAIL-17.                                                    ST1084.2
049300     MOVE     "END OF FILE NOT FOUND" TO RE-MARK.                 ST1084.2
049400     PERFORM  FAIL.                                               ST1084.2
049500 SORT-WRITE-17.                                                   ST1084.2
049600     MOVE     "SORT-TEST-17" TO PAR-NAME.                         ST1084.2
049700     PERFORM  PRINT-DETAIL.                                       ST1084.2
049800     GO       TO OUTPROC-EXIT.                                    ST1084.2
049900 RETURN-ERROR.                                                    ST1084.2
050000     MOVE     "RETURN-ERROR" TO PAR-NAME.                         ST1084.2
050100     PERFORM  FAIL.                                               ST1084.2
050200     MOVE     "EOF PREMATURELY FOUND" TO RE-MARK.                 ST1084.2
050300     PERFORM  PRINT-DETAIL.                                       ST1084.2
050400     GO TO CCVS1-EXIT.                                            ST1084.2
050500 CLOSE-FILES.                                                     ST1084.2
050600     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   ST1084.2
050700 TERMINATE-CCVS.                                                  ST1084.2
050800     EXIT PROGRAM.                                                ST1084.2
050900 TERMINATE-CALL.                                                  ST1084.2
051000     STOP     RUN.                                                ST1084.2
051100 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         ST1084.2
051200 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           ST1084.2
051300 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          ST1084.2
051400 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      ST1084.2
051500     MOVE "****TEST DELETED****" TO RE-MARK.                      ST1084.2
051600 PRINT-DETAIL.                                                    ST1084.2
051700     IF REC-CT NOT EQUAL TO ZERO                                  ST1084.2
051800             MOVE "." TO PARDOT-X                                 ST1084.2
051900             MOVE REC-CT TO DOTVALUE.                             ST1084.2
052000     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      ST1084.2
052100     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               ST1084.2
052200        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 ST1084.2
052300          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 ST1084.2
052400     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              ST1084.2
052500     MOVE SPACE TO CORRECT-X.                                     ST1084.2
052600     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         ST1084.2
052700     MOVE     SPACE TO RE-MARK.                                   ST1084.2
052800 HEAD-ROUTINE.                                                    ST1084.2
052900     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  ST1084.2
053000     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  ST1084.2
053100     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  ST1084.2
053200     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  ST1084.2
053300 COLUMN-NAMES-ROUTINE.                                            ST1084.2
053400     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           ST1084.2
053500     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1084.2
053600     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        ST1084.2
053700 END-ROUTINE.                                                     ST1084.2
053800     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.ST1084.2
053900 END-RTN-EXIT.                                                    ST1084.2
054000     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1084.2
054100 END-ROUTINE-1.                                                   ST1084.2
054200      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      ST1084.2
054300      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               ST1084.2
054400      ADD PASS-COUNTER TO ERROR-HOLD.                             ST1084.2
054500*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   ST1084.2
054600      MOVE PASS-COUNTER TO CCVS-E-4-1.                            ST1084.2
054700      MOVE ERROR-HOLD TO CCVS-E-4-2.                              ST1084.2
054800      MOVE CCVS-E-4 TO CCVS-E-2-2.                                ST1084.2
054900      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           ST1084.2
055000  END-ROUTINE-12.                                                 ST1084.2
055100      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        ST1084.2
055200     IF       ERROR-COUNTER IS EQUAL TO ZERO                      ST1084.2
055300         MOVE "NO " TO ERROR-TOTAL                                ST1084.2
055400         ELSE                                                     ST1084.2
055500         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       ST1084.2
055600     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           ST1084.2
055700     PERFORM WRITE-LINE.                                          ST1084.2
055800 END-ROUTINE-13.                                                  ST1084.2
055900     IF DELETE-COUNTER IS EQUAL TO ZERO                           ST1084.2
056000         MOVE "NO " TO ERROR-TOTAL  ELSE                          ST1084.2
056100         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      ST1084.2
056200     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   ST1084.2
056300     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           ST1084.2
056400      IF   INSPECT-COUNTER EQUAL TO ZERO                          ST1084.2
056500          MOVE "NO " TO ERROR-TOTAL                               ST1084.2
056600      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   ST1084.2
056700      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            ST1084.2
056800      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          ST1084.2
056900     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           ST1084.2
057000 WRITE-LINE.                                                      ST1084.2
057100     ADD 1 TO RECORD-COUNT.                                       ST1084.2
057200     IF RECORD-COUNT GREATER 42                                   ST1084.2
057300         MOVE DUMMY-RECORD TO DUMMY-HOLD                          ST1084.2
057400         MOVE SPACE TO DUMMY-RECORD                               ST1084.2
057500         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  ST1084.2
057600         MOVE CCVS-H-1  TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    ST1084.2
057700         MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    ST1084.2
057800         MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    ST1084.2
057900         MOVE CCVS-H-3  TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    ST1084.2
058000         MOVE CCVS-C-1  TO DUMMY-RECORD PERFORM WRT-LN            ST1084.2
058100         MOVE CCVS-C-2  TO DUMMY-RECORD PERFORM WRT-LN            ST1084.2
058200         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          ST1084.2
058300         MOVE DUMMY-HOLD TO DUMMY-RECORD                          ST1084.2
058400         MOVE ZERO TO RECORD-COUNT.                               ST1084.2
058500     PERFORM WRT-LN.                                              ST1084.2
058600 WRT-LN.                                                          ST1084.2
058700     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               ST1084.2
058800     MOVE SPACE TO DUMMY-RECORD.                                  ST1084.2
058900 BLANK-LINE-PRINT.                                                ST1084.2
059000     PERFORM WRT-LN.                                              ST1084.2
059100 FAIL-ROUTINE.                                                    ST1084.2
059200     IF     COMPUTED-X NOT EQUAL TO SPACE                         ST1084.2
059300            GO TO   FAIL-ROUTINE-WRITE.                           ST1084.2
059400     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.ST1084.2
059500     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 ST1084.2
059600     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   ST1084.2
059700     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1084.2
059800     MOVE   SPACES TO INF-ANSI-REFERENCE.                         ST1084.2
059900     GO TO  FAIL-ROUTINE-EX.                                      ST1084.2
060000 FAIL-ROUTINE-WRITE.                                              ST1084.2
060100     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         ST1084.2
060200     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 ST1084.2
060300     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. ST1084.2
060400     MOVE   SPACES TO COR-ANSI-REFERENCE.                         ST1084.2
060500 FAIL-ROUTINE-EX. EXIT.                                           ST1084.2
060600 BAIL-OUT.                                                        ST1084.2
060700     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   ST1084.2
060800     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           ST1084.2
060900 BAIL-OUT-WRITE.                                                  ST1084.2
061000     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  ST1084.2
061100     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 ST1084.2
061200     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1084.2
061300     MOVE   SPACES TO INF-ANSI-REFERENCE.                         ST1084.2
061400 BAIL-OUT-EX. EXIT.                                               ST1084.2
061500 CCVS1-EXIT.                                                      ST1084.2
061600     EXIT.                                                        ST1084.2
061700 OUTPROC-EXIT SECTION.                                            ST1084.2
061800 EXIT-ONLY.                                                       ST1084.2
061900     PERFORM  CLOSE-FILES.                                        ST1084.2

97%


¤ Dauer der Verarbeitung: 0.30 Sekunden  ¤

*© 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.