Quellcodebibliothek nc216a.cob Sprache: Cobol

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

--> maximum size reached

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

quality92%

¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.30Angebot 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.