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

Quelle  nc126a.cob   Sprache: Cobol

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

--> maximum size reached

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

93%


¤ Dauer der Verarbeitung: 0.35 Sekunden  (vorverarbeitet)  ¤

*© Formatika GbR, Deutschland




Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.