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

Quelle  nc210a.cob   Sprache: Cobol

 
000100 IDENTIFICATION DIVISION.                                         NC2104.2
000200 PROGRAM-ID.                                                      NC2104.2
000300     NC210A.                                                      NC2104.2
000400****************************************************************  NC2104.2
000500*                                                              *  NC2104.2
000600*    VALIDATION FOR:-                                          *  NC2104.2
000700*                                                              *  NC2104.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC2104.2
000900*                                                              *  NC2104.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC2104.2
001100*                                                              *  NC2104.2
001200****************************************************************  NC2104.2
001300*                                                              *  NC2104.2
001400*    PROGRAM NC210A TESTS NESTED "IF" STATEMENTS, USING 63     *  NC2104.2
001500*    STATEMENTS AND 6 LEVELS OF NESTING IN ONE SENTENCE AND    *  NC2104.2
001600*    22 LEVELS OF NESTING IN A SECOND TEST.                    *  NC2104.2
001700*                                                              *  NC2104.2
001800*     X-CARDS USED ARE :-                                      *  NC2104.2
001900*                                                              *  NC2104.2
002000*      X-55  - SYSTEM PRINTER NAME.                            *  NC2104.2
002100*      X-82  - SOURCE COMPUTER NAME.                           *  NC2104.2
002200*      X-83  - OBJECT COMPUTER NAME.                           *  NC2104.2
002300*                                                              *  NC2104.2
002400****************************************************************  NC2104.2
002500 ENVIRONMENT DIVISION.                                            NC2104.2
002600 CONFIGURATION SECTION.                                           NC2104.2
002700 SOURCE-COMPUTER.                                                 NC2104.2
002800     Card0130.                                                    NC2104.2
002900 OBJECT-COMPUTER.                                                 NC2104.2
003000     Card0131.                                                    NC2104.2
003100 INPUT-OUTPUT SECTION.                                            NC2104.2
003200 FILE-CONTROL.                                                    NC2104.2
003300     SELECT PRINT-FILE ASSIGN TO                                  NC2104.2
003400     "C0085" .                                                    NC2104.2
003500 DATA DIVISION.                                                   NC2104.2
003600 FILE SECTION.                                                    NC2104.2
003700 FD  PRINT-FILE.                                                  NC2104.2
003800 01  PRINT-REC PICTURE X(120).                                    NC2104.2
003900 01  DUMMY-RECORD PICTURE X(120).                                 NC2104.2
004000 WORKING-STORAGE SECTION.                                         NC2104.2
004100 77  ACCUM-DATANAME PIC 99  VALUE ZERO.                           NC2104.2
004200 77  DATANAME-A  PIC 9 VALUE 0.                                   NC2104.2
004300 77  DATANAME-B  PIC 9 VALUE 0.                                   NC2104.2
004400 77  DATANAME-C  PIC 9 VALUE 0.                                   NC2104.2
004500 77  DATANAME-D  PIC 9 VALUE 0.                                   NC2104.2
004600 77  DATANAME-E  PIC 9 VALUE 0.                                   NC2104.2
004700 77  DATANAME-F  PIC 9 VALUE 0.                                   NC2104.2
004800 77  SUB-SCRIPT     PIC 99  VALUE 01.                             NC2104.2
004900 01  DATA-NAMES.                                                  NC2104.2
005000     02  ONE-A PIC 9 VALUE 0.                                     NC2104.2
005100     02  ONE-B PIC 9 VALUE 0.                                     NC2104.2
005200     02  ONE-C PIC 9 VALUE 0.                                     NC2104.2
005300     02  ONE-D PIC 9 VALUE 0.                                     NC2104.2
005400     02  ONE-E PIC 9 VALUE 0.                                     NC2104.2
005500     02  ONE-F PIC 9 VALUE 0.                                     NC2104.2
005600 01  ONE-X REDEFINES DATA-NAMES  PIC 9(6).                        NC2104.2
005700 01  BUILT-TABLE.                                                 NC2104.2
005800     02  A-POS                   PIC XX.                          NC2104.2
005900     02  B-POS                   PIC XX.                          NC2104.2
006000     02  C-POS                   PIC XX.                          NC2104.2
006100     02  D-POS                   PIC XXX.                         NC2104.2
006200     02  E-POS                   PIC XXX.                         NC2104.2
006300     02  F-POS                   PIC XXX.                         NC2104.2
006400 01  PARAGRAPH-NAME.                                              NC2104.2
006500     02  FILLER                  PIC X(11) VALUE "IF-TEST-GF-".   NC2104.2
006600     02  PAR-NUMBER              PIC 99  VALUE 00.                NC2104.2
006700 01  COMPARISON-TABLE.                                            NC2104.2
006800     02  FILLER PIC X(15) VALUE "A1B1C1D01E01F01".                NC2104.2
006900     02  FILLER PIC X(15) VALUE "A1B1C1D01E01F02".                NC2104.2
007000     02  FILLER PIC X(15) VALUE "A1B1C1D01E02F03".                NC2104.2
007100     02  FILLER PIC X(15) VALUE "A1B1C1D01E02F04".                NC2104.2
007200     02  FILLER PIC X(15) VALUE "A1B1C1D02E03F05".                NC2104.2
007300     02  FILLER PIC X(15) VALUE "A1B1C1D02E03F06".                NC2104.2
007400     02  FILLER PIC X(15) VALUE "A1B1C1D02E04F07".                NC2104.2
007500     02  FILLER PIC X(15) VALUE "A1B1C1D02E04F08".                NC2104.2
007600     02  FILLER PIC X(15) VALUE "A1B1C2D03E05F09".                NC2104.2
007700     02  FILLER PIC X(15) VALUE "A1B1C2D03E05F10".                NC2104.2
007800     02  FILLER PIC X(15) VALUE "A1B1C2D03E06F11".                NC2104.2
007900     02  FILLER PIC X(15) VALUE "A1B1C2D03E06F12".                NC2104.2
008000     02  FILLER PIC X(15) VALUE "A1B1C2D04E07F13".                NC2104.2
008100     02  FILLER PIC X(15) VALUE "A1B1C2D04E07F14".                NC2104.2
008200     02  FILLER PIC X(15) VALUE "A1B1C2D04E08F15".                NC2104.2
008300     02  FILLER PIC X(15) VALUE "A1B1C2D04E08F16".                NC2104.2
008400     02  FILLER PIC X(15) VALUE "A1B2C3D05E09F17".                NC2104.2
008500     02  FILLER PIC X(15) VALUE "A1B2C3D05E09F18".                NC2104.2
008600     02  FILLER PIC X(15) VALUE "A1B2C3D05E10F19".                NC2104.2
008700     02  FILLER PIC X(15) VALUE "A1B2C3D05E10F20".                NC2104.2
008800     02  FILLER PIC X(15) VALUE "A1B2C3D06E11F21".                NC2104.2
008900     02  FILLER PIC X(15) VALUE "A1B2C3D06E11F22".                NC2104.2
009000     02  FILLER PIC X(15) VALUE "A1B2C3D06E12F23".                NC2104.2
009100     02  FILLER PIC X(15) VALUE "A1B2C3D06E12F24".                NC2104.2
009200     02  FILLER PIC X(15) VALUE "A1B2C4D07E13F25".                NC2104.2
009300     02  FILLER PIC X(15) VALUE "A1B2C4D07E13F26".                NC2104.2
009400     02  FILLER PIC X(15) VALUE "A1B2C4D07E14F27".                NC2104.2
009500     02  FILLER PIC X(15) VALUE "A1B2C4D07E14F28".                NC2104.2
009600     02  FILLER PIC X(15) VALUE "A1B2C4D08E15F29".                NC2104.2
009700     02  FILLER PIC X(15) VALUE "A1B2C4D08E15F30".                NC2104.2
009800     02  FILLER PIC X(15) VALUE "A1B2C4D08E16F31".                NC2104.2
009900     02  FILLER PIC X(15) VALUE "A1B2C4D08E16F32".                NC2104.2
010000     02  FILLER PIC X(15) VALUE "A2B3C5D09E17F33".                NC2104.2
010100     02  FILLER PIC X(15) VALUE "A2B3C5D09E17F34".                NC2104.2
010200     02  FILLER PIC X(15) VALUE "A2B3C5D09E18F35".                NC2104.2
010300     02  FILLER PIC X(15) VALUE "A2B3C5D09E18F36".                NC2104.2
010400     02  FILLER PIC X(15) VALUE "A2B3C5D10E19F37".                NC2104.2
010500     02  FILLER PIC X(15) VALUE "A2B3C5D10E19F38".                NC2104.2
010600     02  FILLER PIC X(15) VALUE "A2B3C5D10E20F39".                NC2104.2
010700     02  FILLER PIC X(15) VALUE "A2B3C5D10E20F40".                NC2104.2
010800     02  FILLER PIC X(15) VALUE "A2B3C6D11E21F41".                NC2104.2
010900     02  FILLER PIC X(15) VALUE "A2B3C6D11E21F42".                NC2104.2
011000     02  FILLER PIC X(15) VALUE "A2B3C6D11E22F43".                NC2104.2
011100     02  FILLER PIC X(15) VALUE "A2B3C6D11E22F44".                NC2104.2
011200     02  FILLER PIC X(15) VALUE "A2B3C6D12E23F45".                NC2104.2
011300     02  FILLER PIC X(15) VALUE "A2B3C6D12E23F46".                NC2104.2
011400     02  FILLER PIC X(15) VALUE "A2B3C6D12E24F47".                NC2104.2
011500     02  FILLER PIC X(15) VALUE "A2B3C6D12E24F48".                NC2104.2
011600     02  FILLER PIC X(15) VALUE "A2B4C7D13E25F49".                NC2104.2
011700     02  FILLER PIC X(15) VALUE "A2B4C7D13E25F50".                NC2104.2
011800     02  FILLER PIC X(15) VALUE "A2B4C7D13E26F51".                NC2104.2
011900     02  FILLER PIC X(15) VALUE "A2B4C7D13E26F52".                NC2104.2
012000     02  FILLER PIC X(15) VALUE "A2B4C7D14E27F53".                NC2104.2
012100     02  FILLER PIC X(15) VALUE "A2B4C7D14E27F54".                NC2104.2
012200     02  FILLER PIC X(15) VALUE "A2B4C7D14E28F55".                NC2104.2
012300     02  FILLER PIC X(15) VALUE "A2B4C7D14E28F56".                NC2104.2
012400     02  FILLER PIC X(15) VALUE "A2B4C8D15E29F57".                NC2104.2
012500     02  FILLER PIC X(15) VALUE "A2B4C8D15E29F58".                NC2104.2
012600     02  FILLER PIC X(15) VALUE "A2B4C8D15E30F59".                NC2104.2
012700     02  FILLER PIC X(15) VALUE "A2B4C8D15E30F60".                NC2104.2
012800     02  FILLER PIC X(15) VALUE "A2B4C8D16E31F61".                NC2104.2
012900     02  FILLER PIC X(15) VALUE "A2B4C8D16E31F62".                NC2104.2
013000     02  FILLER PIC X(15) VALUE "A2B4C8D16E32F63".                NC2104.2
013100     02  FILLER PIC X(15) VALUE "A2B4C8D16E32F64".                NC2104.2
013200 01  COMP-TBL REDEFINES COMPARISON-TABLE.                         NC2104.2
013300     02  CORRECT-ENTRY OCCURS 64 TIMES PIC X(15).                 NC2104.2
013400 01  T-F  PIC X(5) VALUE "FALSE".                                 NC2104.2
013500 01  CHECK-PARA.                                                  NC2104.2
013600     02  FILLER  PIC X(21) VALUE "VALUE OF DATANAME AT ".         NC2104.2
013700     02  CHECK-VALU  PIC 99.                                      NC2104.2
013800     02  FILLER  PIC X(4) VALUE SPACES.                           NC2104.2
013900 01  TEST-RESULTS.                                                NC2104.2
014000     02 FILLER                   PIC X      VALUE SPACE.          NC2104.2
014100     02 FEATURE                  PIC X(20)  VALUE SPACE.          NC2104.2
014200     02 FILLER                   PIC X      VALUE SPACE.          NC2104.2
014300     02 P-OR-F                   PIC X(5)   VALUE SPACE.          NC2104.2
014400     02 FILLER                   PIC X      VALUE SPACE.          NC2104.2
014500     02  PAR-NAME.                                                NC2104.2
014600       03 FILLER                 PIC X(19)  VALUE SPACE.          NC2104.2
014700       03  PARDOT-X              PIC X      VALUE SPACE.          NC2104.2
014800       03 DOTVALUE               PIC 99     VALUE ZERO.           NC2104.2
014900     02 FILLER                   PIC X(8)   VALUE SPACE.          NC2104.2
015000     02 RE-MARK                  PIC X(61).                       NC2104.2
015100 01  TEST-COMPUTED.                                               NC2104.2
015200     02 FILLER                   PIC X(30)  VALUE SPACE.          NC2104.2
015300     02 FILLER                   PIC X(17)  VALUE                 NC2104.2
015400            " COMPUTED=".                                   NC2104.2
015500     02 COMPUTED-X.                                               NC2104.2
015600     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          NC2104.2
015700     03 COMPUTED-N               REDEFINES COMPUTED-A             NC2104.2
015800                                 PIC -9(9).9(9).                  NC2104.2
015900     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         NC2104.2
016000     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     NC2104.2
016100     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     NC2104.2
016200     03       CM-18V0 REDEFINES COMPUTED-A.                       NC2104.2
016300         04 COMPUTED-18V0                    PIC -9(18).          NC2104.2
016400         04 FILLER                           PIC X.               NC2104.2
016500     03 FILLER PIC X(50) VALUE SPACE.                             NC2104.2
016600 01  TEST-CORRECT.                                                NC2104.2
016700     02 FILLER PIC X(30) VALUE SPACE.                             NC2104.2
016800     02 FILLER PIC X(17) VALUE " CORRECT =".                NC2104.2
016900     02 CORRECT-X.                                                NC2104.2
017000     03 CORRECT-A                  PIC X(20) VALUE SPACE.         NC2104.2
017100     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      NC2104.2
017200     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         NC2104.2
017300     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     NC2104.2
017400     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     NC2104.2
017500     03      CR-18V0 REDEFINES CORRECT-A.                         NC2104.2
017600         04 CORRECT-18V0                     PIC -9(18).          NC2104.2
017700         04 FILLER                           PIC X.               NC2104.2
017800     03 FILLER PIC X(2) VALUE SPACE.                              NC2104.2
017900     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     NC2104.2
018000 01  CCVS-C-1.                                                    NC2104.2
018100     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PANC2104.2
018200-    "SS PARAGRAPH-NAME NC2104.2
018300-    " REMARKS".                                            NC2104.2
018400     02 FILLER                     PIC X(20)    VALUE SPACE.      NC2104.2
018500 01  CCVS-C-2.                                                    NC2104.2
018600     02 FILLER                     PIC X        VALUE SPACE.      NC2104.2
018700     02 FILLER                     PIC X(6)     VALUE "TESTED".   NC2104.2
018800     02 FILLER                     PIC X(15)    VALUE SPACE.      NC2104.2
018900     02 FILLER                     PIC X(4)     VALUE "FAIL".     NC2104.2
019000     02 FILLER                     PIC X(94)    VALUE SPACE.      NC2104.2
019100 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       NC2104.2
019200 01  REC-CT                        PIC 99       VALUE ZERO.       NC2104.2
019300 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       NC2104.2
019400 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       NC2104.2
019500 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       NC2104.2
019600 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       NC2104.2
019700 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       NC2104.2
019800 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       NC2104.2
019900 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      NC2104.2
020000 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       NC2104.2
020100 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     NC2104.2
020200 01  CCVS-H-1.                                                    NC2104.2
020300     02  FILLER                    PIC X(39)    VALUE SPACES.     NC2104.2
020400     02  FILLER                    PIC X(42)    VALUE             NC2104.2
020500     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 NC2104.2
020600     02  FILLER                    PIC X(39)    VALUE SPACES.     NC2104.2
020700 01  CCVS-H-2A.                                                   NC2104.2
020800   02  FILLER                        PIC X(40)  VALUE SPACE.      NC2104.2
020900   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  NC2104.2
021000   02  FILLER                        PIC XXXX   VALUE             NC2104.2
021100     "4.2 ".                                                      NC2104.2
021200   02  FILLER                        PIC X(28)  VALUE             NC2104.2
021300            " COPY - NOT FOR DISTRIBUTION".                       NC2104.2
021400   02  FILLER                        PIC X(41)  VALUE SPACE.      NC2104.2
021500                                                                  NC2104.2
021600 01  CCVS-H-2B.                                                   NC2104.2
021700   02  FILLER                        PIC X(15)  VALUE             NC2104.2
021800            "TEST RESULT OF ".                                    NC2104.2
021900   02  TEST-ID                       PIC X(9).                    NC2104.2
022000   02  FILLER                        PIC X(4)   VALUE             NC2104.2
022100            " IN ".                                               NC2104.2
022200   02  FILLER                        PIC X(12)  VALUE             NC2104.2
022300     " HIGH ".                                              NC2104.2
022400   02  FILLER                        PIC X(22)  VALUE             NC2104.2
022500            " LEVEL VALIDATION FOR ".                             NC2104.2
022600   02  FILLER                        PIC X(58)  VALUE             NC2104.2
022700     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2104.2
022800 01  CCVS-H-3.                                                    NC2104.2
022900     02  FILLER                      PIC X(34)  VALUE             NC2104.2
023000            " FOR OFFICIAL USE ONLY ".                         NC2104.2
023100     02  FILLER                      PIC X(58)  VALUE             NC2104.2
023200     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2104.2
023300     02  FILLER                      PIC X(28)  VALUE             NC2104.2
023400            " COPYRIGHT 1985 ".                                NC2104.2
023500 01  CCVS-E-1.                                                    NC2104.2
023600     02 FILLER                       PIC X(52)  VALUE SPACE.      NC2104.2
023700     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              NC2104.2
023800     02 ID-AGAIN                     PIC X(9).                    NC2104.2
023900     02 FILLER                       PIC X(45)  VALUE SPACES.     NC2104.2
024000 01  CCVS-E-2.                                                    NC2104.2
024100     02  FILLER                      PIC X(31)  VALUE SPACE.      NC2104.2
024200     02  FILLER                      PIC X(21)  VALUE SPACE.      NC2104.2
024300     02 CCVS-E-2-2.                                               NC2104.2
024400         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      NC2104.2
024500         03 FILLER                   PIC X      VALUE SPACE.      NC2104.2
024600         03 ENDER-DESC               PIC X(44)  VALUE             NC2104.2
024700            "ERRORS ENCOUNTERED".                                 NC2104.2
024800 01  CCVS-E-3.                                                    NC2104.2
024900     02  FILLER                      PIC X(22)  VALUE             NC2104.2
025000            " FOR OFFICIAL USE ONLY".                             NC2104.2
025100     02  FILLER                      PIC X(12)  VALUE SPACE.      NC2104.2
025200     02  FILLER                      PIC X(58)  VALUE             NC2104.2
025300     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2104.2
025400     02  FILLER                      PIC X(13)  VALUE SPACE.      NC2104.2
025500     02 FILLER                       PIC X(15)  VALUE             NC2104.2
025600             " COPYRIGHT 1985".                                   NC2104.2
025700 01  CCVS-E-4.                                                    NC2104.2
025800     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      NC2104.2
025900     02 FILLER                       PIC X(4)   VALUE " OF ".     NC2104.2
026000     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      NC2104.2
026100     02 FILLER                       PIC X(40)  VALUE             NC2104.2
026200      " TESTS WERE EXECUTED SUCCESSFULLY".                       NC2104.2
026300 01  XXINFO.                                                      NC2104.2
026400     02 FILLER                       PIC X(19)  VALUE             NC2104.2
026500            "*** INFORMATION ***".                                NC2104.2
026600     02 INFO-TEXT.                                                NC2104.2
026700       04 FILLER                     PIC X(8)   VALUE SPACE.      NC2104.2
026800       04 XXCOMPUTED                 PIC X(20).                   NC2104.2
026900       04 FILLER                     PIC X(5)   VALUE SPACE.      NC2104.2
027000       04 XXCORRECT                  PIC X(20).                   NC2104.2
027100     02 INF-ANSI-REFERENCE           PIC X(48).                   NC2104.2
027200 01  HYPHEN-LINE.                                                 NC2104.2
027300     02 FILLER  PIC IS X VALUE IS SPACE.                          NC2104.2
027400     02 FILLER  PIC IS X(65)    VALUE IS "************************NC2104.2
027500-    "*****************************************".                 NC2104.2
027600     02 FILLER  PIC IS X(54)    VALUE IS "************************NC2104.2
027700-    "******************************".                            NC2104.2
027800 01  CCVS-PGM-ID                     PIC X(9)   VALUE             NC2104.2
027900     "NC210A".                                                    NC2104.2
028000 PROCEDURE DIVISION.                                              NC2104.2
028100 CCVS1 SECTION.                                                   NC2104.2
028200 OPEN-FILES.                                                      NC2104.2
028300     OPEN     OUTPUT PRINT-FILE.                                  NC2104.2
028400     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   NC2104.2
028500     MOVE    SPACE TO TEST-RESULTS.                               NC2104.2
028600     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             NC2104.2
028700     GO TO CCVS1-EXIT.                                            NC2104.2
028800 CLOSE-FILES.                                                     NC2104.2
028900     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   NC2104.2
029000 TERMINATE-CCVS.                                                  NC2104.2
029100     STOP     RUN.                                                NC2104.2
029200 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         NC2104.2
029300 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           NC2104.2
029400 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          NC2104.2
029500 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      NC2104.2
029600     MOVE "****TEST DELETED****" TO RE-MARK.                      NC2104.2
029700 PRINT-DETAIL.                                                    NC2104.2
029800     IF REC-CT NOT EQUAL TO ZERO                                  NC2104.2
029900             MOVE "." TO PARDOT-X                                 NC2104.2
030000             MOVE REC-CT TO DOTVALUE.                             NC2104.2
030100     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      NC2104.2
030200     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               NC2104.2
030300        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 NC2104.2
030400          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 NC2104.2
030500     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              NC2104.2
030600     MOVE SPACE TO CORRECT-X.                                     NC2104.2
030700     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         NC2104.2
030800     MOVE     SPACE TO RE-MARK.                                   NC2104.2
030900 HEAD-ROUTINE.                                                    NC2104.2
031000     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC2104.2
031100     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC2104.2
031200     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC2104.2
031300     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC2104.2
031400 COLUMN-NAMES-ROUTINE.                                            NC2104.2
031500     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC2104.2
031600     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2104.2
031700     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        NC2104.2
031800 END-ROUTINE.                                                     NC2104.2
031900     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2104.2
032000 END-RTN-EXIT.                                                    NC2104.2
032100     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2104.2
032200 END-ROUTINE-1.                                                   NC2104.2
032300      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      NC2104.2
032400      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               NC2104.2
032500      ADD PASS-COUNTER TO ERROR-HOLD.                             NC2104.2
032600*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC2104.2
032700      MOVE PASS-COUNTER TO CCVS-E-4-1.                            NC2104.2
032800      MOVE ERROR-HOLD TO CCVS-E-4-2.                              NC2104.2
032900      MOVE CCVS-E-4 TO CCVS-E-2-2.                                NC2104.2
033000      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           NC2104.2
033100  END-ROUTINE-12.                                                 NC2104.2
033200      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        NC2104.2
033300     IF       ERROR-COUNTER IS EQUAL TO ZERO                      NC2104.2
033400         MOVE "NO " TO ERROR-TOTAL                                NC2104.2
033500         ELSE                                                     NC2104.2
033600         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       NC2104.2
033700     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           NC2104.2
033800     PERFORM WRITE-LINE.                                          NC2104.2
033900 END-ROUTINE-13.                                                  NC2104.2
034000     IF DELETE-COUNTER IS EQUAL TO ZERO                           NC2104.2
034100         MOVE "NO " TO ERROR-TOTAL  ELSE                          NC2104.2
034200         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      NC2104.2
034300     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   NC2104.2
034400     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC2104.2
034500      IF   INSPECT-COUNTER EQUAL TO ZERO                          NC2104.2
034600          MOVE "NO " TO ERROR-TOTAL                               NC2104.2
034700      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   NC2104.2
034800      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            NC2104.2
034900      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          NC2104.2
035000     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC2104.2
035100 WRITE-LINE.                                                      NC2104.2
035200     ADD 1 TO RECORD-COUNT.                                       NC2104.2
035300     IF RECORD-COUNT GREATER 50                                   NC2104.2
035400         MOVE DUMMY-RECORD TO DUMMY-HOLD                          NC2104.2
035500         MOVE SPACE TO DUMMY-RECORD                               NC2104.2
035600         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  NC2104.2
035700         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN             NC2104.2
035800         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES     NC2104.2
035900         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          NC2104.2
036000         MOVE DUMMY-HOLD TO DUMMY-RECORD                          NC2104.2
036100         MOVE ZERO TO RECORD-COUNT.                               NC2104.2
036200     PERFORM WRT-LN.                                              NC2104.2
036300 WRT-LN.                                                          NC2104.2
036400     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               NC2104.2
036500     MOVE SPACE TO DUMMY-RECORD.                                  NC2104.2
036600 BLANK-LINE-PRINT.                                                NC2104.2
036700     PERFORM WRT-LN.                                              NC2104.2
036800 FAIL-ROUTINE.                                                    NC2104.2
036900     IF   COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. NC2104.2
037000     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC2104.2
037100     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC2104.2
037200     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   NC2104.2
037300     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2104.2
037400     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC2104.2
037500     GO TO  FAIL-ROUTINE-EX.                                      NC2104.2
037600 FAIL-ROUTINE-WRITE.                                              NC2104.2
037700     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         NC2104.2
037800     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 NC2104.2
037900     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2104.2
038000     MOVE   SPACES TO COR-ANSI-REFERENCE.                         NC2104.2
038100 FAIL-ROUTINE-EX. EXIT.                                           NC2104.2
038200 BAIL-OUT.                                                        NC2104.2
038300     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   NC2104.2
038400     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           NC2104.2
038500 BAIL-OUT-WRITE.                                                  NC2104.2
038600     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  NC2104.2
038700     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC2104.2
038800     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2104.2
038900     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC2104.2
039000 BAIL-OUT-EX. EXIT.                                               NC2104.2
039100 CCVS1-EXIT.                                                      NC2104.2
039200     EXIT.                                                        NC2104.2
039300 SECT-NC210A-001 SECTION.                                         NC2104.2
039400 IF-INIT-GF-X.                                                    NC2104.2
039500     MOVE   "VI-89 6.15.4 GR1(C)" TO ANSI-REFERENCE.              NC2104.2
039600 IF-TEST-GF-X.                                                    NC2104.2
039700     IF DATANAME-A EQUAL TO ONE-A                                 NC2104.2
039800         MOVE "A1" TO A-POS                                       NC2104.2
039900         IF DATANAME-B EQUAL TO ONE-B                             NC2104.2
040000             MOVE "B1" TO B-POS                                   NC2104.2
040100             IF DATANAME-C EQUAL TO ONE-C                         NC2104.2
040200                 MOVE "C1" TO C-POS                               NC2104.2
040300                 IF DATANAME-D EQUAL TO ONE-D                     NC2104.2
040400                     MOVE "D01" TO D-POS                          NC2104.2
040500                     IF DATANAME-E EQUAL TO ONE-E                 NC2104.2
040600                         MOVE "E01" TO E-POS                      NC2104.2
040700                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
040800                             MOVE "F01" TO F-POS                  NC2104.2
040900                           ELSE                                   NC2104.2
041000                             MOVE "F02" TO F-POS                  NC2104.2
041100                       ELSE                                       NC2104.2
041200                         MOVE "E02" TO E-POS                      NC2104.2
041300                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
041400                             MOVE "F03" TO F-POS                  NC2104.2
041500                           ELSE                                   NC2104.2
041600                             MOVE "F04" TO F-POS                  NC2104.2
041700                   ELSE                                           NC2104.2
041800                     MOVE "D02" TO D-POS                          NC2104.2
041900                     IF DATANAME-E EQUAL TO ONE-E                 NC2104.2
042000                         MOVE "E03" TO E-POS                      NC2104.2
042100                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
042200                             MOVE "F05" TO F-POS                  NC2104.2
042300                           ELSE                                   NC2104.2
042400                             MOVE "F06" TO F-POS                  NC2104.2
042500                       ELSE                                       NC2104.2
042600                         MOVE "E04" TO E-POS                      NC2104.2
042700                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
042800                             MOVE "F07" TO F-POS                  NC2104.2
042900                           ELSE                                   NC2104.2
043000                             MOVE "F08" TO F-POS                  NC2104.2
043100               ELSE                                               NC2104.2
043200                 MOVE "C2" TO C-POS                               NC2104.2
043300                 IF DATANAME-D EQUAL TO ONE-D                     NC2104.2
043400                     MOVE "D03" TO D-POS                          NC2104.2
043500                     IF DATANAME-E EQUAL TO ONE-E                 NC2104.2
043600                         MOVE "E05" TO E-POS                      NC2104.2
043700                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
043800                             MOVE "F09" TO F-POS                  NC2104.2
043900                           ELSE                                   NC2104.2
044000                             MOVE "F10" TO F-POS                  NC2104.2
044100                       ELSE                                       NC2104.2
044200                         MOVE "E06" TO E-POS                      NC2104.2
044300                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
044400                             MOVE "F11" TO F-POS                  NC2104.2
044500                           ELSE                                   NC2104.2
044600                             MOVE "F12" TO F-POS                  NC2104.2
044700                   ELSE                                           NC2104.2
044800                     MOVE "D04" TO D-POS                          NC2104.2
044900                     IF DATANAME-E EQUAL TO ONE-E                 NC2104.2
045000                         MOVE "E07" TO E-POS                      NC2104.2
045100                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
045200                             MOVE "F13" TO F-POS                  NC2104.2
045300                           ELSE                                   NC2104.2
045400                             MOVE "F14" TO F-POS                  NC2104.2
045500                       ELSE                                       NC2104.2
045600                         MOVE "E08" TO E-POS                      NC2104.2
045700                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
045800                             MOVE "F15" TO F-POS                  NC2104.2
045900                           ELSE                                   NC2104.2
046000                             MOVE "F16" TO F-POS                  NC2104.2
046100           ELSE                                                   NC2104.2
046200             MOVE "B2" TO B-POS                                   NC2104.2
046300             IF DATANAME-C EQUAL TO ONE-C                         NC2104.2
046400                 MOVE "C3" TO C-POS                               NC2104.2
046500                 IF DATANAME-D EQUAL TO ONE-D                     NC2104.2
046600                     MOVE "D05" TO D-POS                          NC2104.2
046700                     IF DATANAME-E EQUAL TO ONE-E                 NC2104.2
046800                         MOVE "E09" TO E-POS                      NC2104.2
046900                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
047000                             MOVE "F17" TO F-POS                  NC2104.2
047100                           ELSE                                   NC2104.2
047200                             MOVE "F18" TO F-POS                  NC2104.2
047300                       ELSE                                       NC2104.2
047400                         MOVE "E10" TO E-POS                      NC2104.2
047500                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
047600                             MOVE "F19" TO F-POS                  NC2104.2
047700                           ELSE                                   NC2104.2
047800                             MOVE "F20" TO F-POS                  NC2104.2
047900                   ELSE                                           NC2104.2
048000                     MOVE "D06" TO D-POS                          NC2104.2
048100                     IF DATANAME-E EQUAL TO ONE-E                 NC2104.2
048200                         MOVE "E11" TO E-POS                      NC2104.2
048300                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
048400                             MOVE "F21" TO F-POS                  NC2104.2
048500                           ELSE                                   NC2104.2
048600                             MOVE "F22" TO F-POS                  NC2104.2
048700                       ELSE                                       NC2104.2
048800                         MOVE "E12" TO E-POS                      NC2104.2
048900                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
049000                             MOVE "F23" TO F-POS                  NC2104.2
049100                           ELSE                                   NC2104.2
049200                             MOVE "F24" TO F-POS                  NC2104.2
049300               ELSE                                               NC2104.2
049400                 MOVE "C4" TO C-POS                               NC2104.2
049500                 IF DATANAME-D EQUAL TO ONE-D                     NC2104.2
049600                     MOVE "D07" TO D-POS                          NC2104.2
049700                     IF DATANAME-E EQUAL TO ONE-E                 NC2104.2
049800                         MOVE "E13" TO E-POS                      NC2104.2
049900                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
050000                             MOVE "F25" TO F-POS                  NC2104.2
050100                           ELSE                                   NC2104.2
050200                             MOVE "F26" TO F-POS                  NC2104.2
050300                       ELSE                                       NC2104.2
050400                         MOVE "E14" TO E-POS                      NC2104.2
050500                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
050600                             MOVE "F27" TO F-POS                  NC2104.2
050700                           ELSE                                   NC2104.2
050800                             MOVE "F28" TO F-POS                  NC2104.2
050900                   ELSE                                           NC2104.2
051000                     MOVE "D08" TO D-POS                          NC2104.2
051100                     IF DATANAME-E EQUAL TO ONE-E                 NC2104.2
051200                         MOVE "E15" TO E-POS                      NC2104.2
051300                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
051400                             MOVE "F29" TO F-POS                  NC2104.2
051500                           ELSE                                   NC2104.2
051600                             MOVE "F30" TO F-POS                  NC2104.2
051700                       ELSE                                       NC2104.2
051800                         MOVE "E16" TO E-POS                      NC2104.2
051900                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
052000                             MOVE "F31" TO F-POS                  NC2104.2
052100                           ELSE                                   NC2104.2
052200                             MOVE "F32" TO F-POS                  NC2104.2
052300       ELSE                                                       NC2104.2
052400         MOVE "A2" TO A-POS                                       NC2104.2
052500         IF DATANAME-B EQUAL TO ONE-B                             NC2104.2
052600             MOVE "B3" TO B-POS                                   NC2104.2
052700             IF DATANAME-C EQUAL TO ONE-C                         NC2104.2
052800                 MOVE "C5" TO C-POS                               NC2104.2
052900                 IF DATANAME-D EQUAL TO ONE-D                     NC2104.2
053000                     MOVE "D09" TO D-POS                          NC2104.2
053100                     IF DATANAME-E EQUAL TO ONE-E                 NC2104.2
053200                         MOVE "E17" TO E-POS                      NC2104.2
053300                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
053400                             MOVE "F33" TO F-POS                  NC2104.2
053500                           ELSE                                   NC2104.2
053600                             MOVE "F34" TO F-POS                  NC2104.2
053700                       ELSE                                       NC2104.2
053800                         MOVE "E18" TO E-POS                      NC2104.2
053900                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
054000                             MOVE "F35" TO F-POS                  NC2104.2
054100                           ELSE                                   NC2104.2
054200                             MOVE "F36" TO F-POS                  NC2104.2
054300                   ELSE                                           NC2104.2
054400                     MOVE "D10" TO D-POS                          NC2104.2
054500                     IF DATANAME-E EQUAL TO ONE-E                 NC2104.2
054600                         MOVE "E19" TO E-POS                      NC2104.2
054700                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
054800                             MOVE "F37" TO F-POS                  NC2104.2
054900                           ELSE                                   NC2104.2
055000                             MOVE "F38" TO F-POS                  NC2104.2
055100                       ELSE                                       NC2104.2
055200                         MOVE "E20" TO E-POS                      NC2104.2
055300                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
055400                             MOVE "F39" TO F-POS                  NC2104.2
055500                           ELSE                                   NC2104.2
055600                             MOVE "F40" TO F-POS                  NC2104.2
055700               ELSE                                               NC2104.2
055800                 MOVE "C6" TO C-POS                               NC2104.2
055900                 IF DATANAME-D EQUAL TO ONE-D                     NC2104.2
056000                     MOVE "D11" TO D-POS                          NC2104.2
056100                     IF DATANAME-E EQUAL TO ONE-E                 NC2104.2
056200                         MOVE "E21" TO E-POS                      NC2104.2
056300                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
056400                             MOVE "F41" TO F-POS                  NC2104.2
056500                           ELSE                                   NC2104.2
056600                             MOVE "F42" TO F-POS                  NC2104.2
056700                       ELSE                                       NC2104.2
056800                         MOVE "E22" TO E-POS                      NC2104.2
056900                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
057000                             MOVE "F43" TO F-POS                  NC2104.2
057100                           ELSE                                   NC2104.2
057200                             MOVE "F44" TO F-POS                  NC2104.2
057300                   ELSE                                           NC2104.2
057400                     MOVE "D12" TO D-POS                          NC2104.2
057500                     IF DATANAME-E EQUAL TO ONE-E                 NC2104.2
057600                         MOVE "E23" TO E-POS                      NC2104.2
057700                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
057800                             MOVE "F45" TO F-POS                  NC2104.2
057900                           ELSE                                   NC2104.2
058000                             MOVE "F46" TO F-POS                  NC2104.2
058100                       ELSE                                       NC2104.2
058200                         MOVE "E24" TO E-POS                      NC2104.2
058300                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
058400                             MOVE "F47" TO F-POS                  NC2104.2
058500                           ELSE                                   NC2104.2
058600                             MOVE "F48" TO F-POS                  NC2104.2
058700           ELSE                                                   NC2104.2
058800             MOVE "B4" TO B-POS                                   NC2104.2
058900             IF DATANAME-C EQUAL TO ONE-C                         NC2104.2
059000                 MOVE "C7" TO C-POS                               NC2104.2
059100                 IF DATANAME-D EQUAL TO ONE-D                     NC2104.2
059200                     MOVE "D13" TO D-POS                          NC2104.2
059300                     IF DATANAME-E EQUAL TO ONE-E                 NC2104.2
059400                         MOVE "E25" TO E-POS                      NC2104.2
059500                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
059600                             MOVE "F49" TO F-POS                  NC2104.2
059700                           ELSE                                   NC2104.2
059800                             MOVE "F50" TO F-POS                  NC2104.2
059900                       ELSE                                       NC2104.2
060000                         MOVE "E26" TO E-POS                      NC2104.2
060100                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
060200                             MOVE "F51" TO F-POS                  NC2104.2
060300                           ELSE                                   NC2104.2
060400                             MOVE "F52" TO F-POS                  NC2104.2
060500                   ELSE                                           NC2104.2
060600                     MOVE "D14" TO D-POS                          NC2104.2
060700                     IF DATANAME-E EQUAL TO ONE-E                 NC2104.2
060800                         MOVE "E27" TO E-POS                      NC2104.2
060900                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
061000                             MOVE "F53" TO F-POS                  NC2104.2
061100                           ELSE                                   NC2104.2
061200                             MOVE "F54" TO F-POS                  NC2104.2
061300                       ELSE                                       NC2104.2
061400                         MOVE "E28" TO E-POS                      NC2104.2
061500                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
061600                             MOVE "F55" TO F-POS                  NC2104.2
061700                           ELSE                                   NC2104.2
061800                             MOVE "F56" TO F-POS                  NC2104.2
061900               ELSE                                               NC2104.2
062000                 MOVE "C8" TO C-POS                               NC2104.2
062100                 IF DATANAME-D EQUAL TO ONE-D                     NC2104.2
062200                     MOVE "D15" TO D-POS                          NC2104.2
062300                     IF DATANAME-E EQUAL TO ONE-E                 NC2104.2
062400                         MOVE "E29" TO E-POS                      NC2104.2
062500                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
062600                             MOVE "F57" TO F-POS                  NC2104.2
062700                           ELSE                                   NC2104.2
062800                             MOVE "F58" TO F-POS                  NC2104.2
062900                       ELSE                                       NC2104.2
063000                         MOVE "E30" TO E-POS                      NC2104.2
063100                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
063200                             MOVE "F59" TO F-POS                  NC2104.2
063300                           ELSE                                   NC2104.2
063400                             MOVE "F60" TO F-POS                  NC2104.2
063500                   ELSE                                           NC2104.2
063600                     MOVE "D16" TO D-POS                          NC2104.2
063700                     IF DATANAME-E EQUAL TO ONE-E                 NC2104.2
063800                         MOVE "E31" TO E-POS                      NC2104.2
063900                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
064000                             MOVE "F61" TO F-POS                  NC2104.2
064100                           ELSE                                   NC2104.2
064200                             MOVE "F62" TO F-POS                  NC2104.2
064300                       ELSE                                       NC2104.2
064400                         MOVE "E32" TO E-POS                      NC2104.2
064500                         IF DATANAME-F EQUAL TO ONE-F             NC2104.2
064600                             MOVE "F63" TO F-POS                  NC2104.2
064700                           ELSE                                   NC2104.2
064800                             MOVE "F64" TO F-POS.                 NC2104.2
064900     IF BUILT-TABLE EQUAL TO CORRECT-ENTRY (SUB-SCRIPT)           NC2104.2
065000         PERFORM PASS                                             NC2104.2
065100         GO TO IF-WRITE-GF-X.                                     NC2104.2
065200     GO TO IF-FAIL-GF-X.                                          NC2104.2
065300 IF-DELETE-GF-X.                                                  NC2104.2
065400     MOVE 63 TO PAR-NUMBER.                                       NC2104.2
065500     PERFORM DE-LETE.                                             NC2104.2
065600     ADD 63 TO DELETE-COUNTER.                                    NC2104.2
065700     GO TO IF-WRITE-GF-X.                                         NC2104.2
065800 IF-FAIL-GF-X.                                                    NC2104.2
065900     MOVE BUILT-TABLE TO COMPUTED-A.                              NC2104.2
066000     MOVE CORRECT-ENTRY (SUB-SCRIPT) TO CORRECT-A.                NC2104.2
066100     PERFORM FAIL.                                                NC2104.2
066200 IF-WRITE-GF-X.                                                   NC2104.2
066300     ADD 1 TO PAR-NUMBER.                                         NC2104.2
066400     MOVE PARAGRAPH-NAME TO PAR-NAME.                             NC2104.2
066500     PERFORM PRINT-DETAIL.                                        NC2104.2
066600     IF PAR-NUMBER EQUAL TO 64 GO TO IF-INIT-GF-Y.                NC2104.2
066700     ADD 1 TO  SUB-SCRIPT.                                        NC2104.2
066800     MOVE SPACES TO BUILT-TABLE.                                  NC2104.2
066900     ADD 1 TO ONE-X.                                              NC2104.2
067000     IF ONE-F EQUAL TO 2 ADD 8 TO ONE-X.                          NC2104.2
067100     IF ONE-E EQUAL TO 2 ADD 80 TO ONE-X.                         NC2104.2
067200     IF ONE-D EQUAL TO 2 ADD 800 TO ONE-X.                        NC2104.2
067300     IF ONE-C EQUAL TO 2 ADD 8000 TO ONE-X.                       NC2104.2
067400     IF ONE-B EQUAL TO 2 ADD 80000 TO ONE-X.                      NC2104.2
067500     GO TO IF-INIT-GF-X.                                          NC2104.2
067600*                                                                 NC2104.2
067700 IF-INIT-GF-Y.                                                    NC2104.2
067800     MOVE   "VI-89 6.15.4 GR1(C)" TO ANSI-REFERENCE.              NC2104.2
067900     ADD 1 TO PAR-NUMBER.                                         NC2104.2
068000     MOVE 22 TO ACCUM-DATANAME.                                   NC2104.2
068100 IF-TEST-GF-Y.                                                    NC2104.2
068200     MOVE "FALSE" TO T-F.                                         NC2104.2
068300     IF ACCUM-DATANAME NOT EQUAL TO 1                             NC2104.2
068400     IF ACCUM-DATANAME NOT EQUAL TO 2                             NC2104.2
068500     IF ACCUM-DATANAME NOT EQUAL TO 3                             NC2104.2
068600     IF ACCUM-DATANAME NOT EQUAL TO 4                             NC2104.2
068700     IF ACCUM-DATANAME NOT EQUAL TO 5                             NC2104.2
068800     IF ACCUM-DATANAME NOT EQUAL TO 6                             NC2104.2
068900     IF ACCUM-DATANAME NOT EQUAL TO 7                             NC2104.2
069000     IF ACCUM-DATANAME NOT EQUAL TO 8                             NC2104.2
069100     IF ACCUM-DATANAME NOT EQUAL TO 9                             NC2104.2
069200     IF ACCUM-DATANAME NOT EQUAL TO 10                            NC2104.2
069300     IF ACCUM-DATANAME NOT EQUAL TO 11                            NC2104.2
069400     IF ACCUM-DATANAME NOT EQUAL TO 12                            NC2104.2
069500     IF ACCUM-DATANAME NOT EQUAL TO 13                            NC2104.2
069600     IF ACCUM-DATANAME NOT EQUAL TO 14                            NC2104.2
069700     IF ACCUM-DATANAME NOT EQUAL TO 15                            NC2104.2
069800     IF ACCUM-DATANAME NOT EQUAL TO 16                            NC2104.2
069900     IF ACCUM-DATANAME NOT EQUAL TO 17                            NC2104.2
070000     IF ACCUM-DATANAME NOT EQUAL TO 18                            NC2104.2
070100     IF ACCUM-DATANAME NOT EQUAL TO 19                            NC2104.2
070200     IF ACCUM-DATANAME NOT EQUAL TO 20                            NC2104.2
070300     IF ACCUM-DATANAME NOT EQUAL TO 21                            NC2104.2
070400         MOVE "TRUE" TO T-F.                                      NC2104.2
070500     IF ACCUM-DATANAME EQUAL TO 22 AND T-F EQUAL TO "TRUE"        NC2104.2
070600         PERFORM PASS                                             NC2104.2
070700         PERFORM IF-WRITE-GF-Y                                    NC2104.2
070800         SUBTRACT 1 FROM ACCUM-DATANAME                           NC2104.2
070900         GO TO IF-TEST-GF-Y.                                      NC2104.2
071000     IF ACCUM-DATANAME LESS THAN 22 AND T-F EQUAL TO "FALSE"      NC2104.2
071100         PERFORM PASS                                             NC2104.2
071200         GO TO IF-WRITE-GF-Y                                      NC2104.2
071300     ELSE  GO TO IF-FAIL-GF-Y.                                    NC2104.2
071400 IF-DELETE-GF-Y.                                                  NC2104.2
071500     ADD 21 TO PAR-NUMBER.                                        NC2104.2
071600     PERFORM DE-LETE.                                             NC2104.2
071700     ADD 21 TO DELETE-COUNTER.                                    NC2104.2
071800     MOVE 1 TO ACCUM-DATANAME.                                    NC2104.2
071900     GO TO IF-WRITE-GF-Y.                                         NC2104.2
072000 IF-FAIL-GF-Y.                                                    NC2104.2
072100     MOVE "*****" TO COMPUTED-A  CORRECT-A.                       NC2104.2
072200     MOVE ACCUM-DATANAME TO CHECK-VALU.                           NC2104.2
072300     MOVE CHECK-PARA TO RE-MARK.                                  NC2104.2
072400     PERFORM FAIL.                                                NC2104.2
072500 IF-WRITE-GF-Y.                                                   NC2104.2
072600     MOVE PARAGRAPH-NAME TO PAR-NAME.                             NC2104.2
072700     ADD 1 TO PAR-NUMBER.                                         NC2104.2
072800     PERFORM PRINT-DETAIL.                                        NC2104.2
072900     IF ACCUM-DATANAME EQUAL TO 1 GO TO TEST-EXIT.                NC2104.2
073000     SUBTRACT 1 FROM ACCUM-DATANAME.                              NC2104.2
073100 IF-RETURN-GF-Y.                                                  NC2104.2
073200     GO TO IF-TEST-GF-Y.                                          NC2104.2
073300 TEST-EXIT.                                                       NC2104.2
073400     EXIT.                                                        NC2104.2
073500 CCVS-EXIT SECTION.                                               NC2104.2
073600 CCVS-999999.                                                     NC2104.2
073700     GO TO CLOSE-FILES.                                           NC2104.2

95%


¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.24Angebot  Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können  ¤

*Eine klare Vorstellung vom Zielzustand




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.