Untersuchungsergebnis Download des Quelle Quellennavigators zur Elbe Produktseite wechseln
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/IX/     Datei vom 4.1.2008 mit Größe 85 kB image not shown  

SSL ix109a.cob   Interaktion und
PortierbarkeitCobol

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

--> maximum size reached

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

95%


¤ Dauer der Verarbeitung: 0.30 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.