Anforderungen  |   Konzepte  |   Entwurf  |   Entwicklung  |   Qualitätssicherung  |   Lebenszyklus  |   Steuerung
 
 
 
 


Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: ic205a.cob   Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         RL1104.2
000200 PROGRAM-ID.                                                      RL1104.2
000300     RL110A.                                                      RL1104.2
000400****************************************************************  RL1104.2
000500*                                                              *  RL1104.2
000600*    VALIDATION FOR:-                                          *  RL1104.2
000700*                                                              *  RL1104.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".RL1104.2
000900*                                                              *  RL1104.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".RL1104.2
001100*                                                              *  RL1104.2
001200****************************************************************  RL1104.2
001300*GENERAL:    THIS PROGRAM IS THE THIRD OF A SERIES.  THE FUNCTION RL1104.2
001400*            OF THIS PROGRAM IS TO PROCESS THE FILE SEQUENTIALLY  RL1104.2
001500*            (ACCESS MODE IS SEQUENTIAL). THE FILE USED IS THAT   RL1104.2
001600*            RESULTING FROM RL109A.                               RL1104.2
001700*                                                                 RL1104.2
001800*            FIRST, THE FILE IS VERIFIED FOR ACCURACY OF ITS 500  RL1104.2
001900*            RECORDS.  SECONDLY, RECORDS OF THER FILE ARE         RL1104.2
002000*            SELECTIVELY DELETED AND THIRDLY THE ACCURACY OF EACH RL1104.2
002100*            RECORD IN THE FILE IS AGAIN VERIFIED.                RL1104.2
002200*                                                                 RL1104.2
002300*            X-CARD PARAMETERS WHICH MUST BE SUPPLIED FOR THIS    RL1104.2
002400*            PROGRAM ARE:                                         RL1104.2
002500*                                                                 RL1104.2
002600*                                                                 RL1104.2
002700*                 X-21   IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR RL1104.2
002800*                         RELATIVE  I-O DATA FILE                 RL1104.2
002900*                 X-55   SYSTEM PRINTER                           RL1104.2
003000*                 X-69   ADDITIONAL VALUE OF CLAUSES              RL1104.2
003100*                 X-74   VALUE OF IMPLEMENTOR-NAME                RL1104.2
003200*                 X-75   OBJECT OF VALUE OF CLAUSE                RL1104.2
003300*                 X-82   SOURCE-COMPUTER                          RL1104.2
003400*                 X-83   OBJECT-COMPUTER.                         RL1104.2
003500*                                                                 RL1104.2
003600***************************************************               RL1104.2
003700 ENVIRONMENT DIVISION.                                            RL1104.2
003800 CONFIGURATION SECTION.                                           RL1104.2
003900 SOURCE-COMPUTER.                                                 RL1104.2
004000     Card0130.                                                    RL1104.2
004100 OBJECT-COMPUTER.                                                 RL1104.2
004200     Card0131.                                                    RL1104.2
004300 INPUT-OUTPUT SECTION.                                            RL1104.2
004400 FILE-CONTROL.                                                    RL1104.2
004500     SELECT PRINT-FILE ASSIGN TO                                  RL1104.2
004600     "C0085" .                                                    RL1104.2
004700     SELECT   RL-FS1 ASSIGN TO                                    RL1104.2
004800     "C0097"                                                      RL1104.2
004900              ORGANIZATION IS RELATIVE                            RL1104.2
005000              ACCESS  MODE IS SEQUENTIAL                          RL1104.2
005100              RELATIVE KEY IS RL-FS1-KEY.                         RL1104.2
005200 DATA DIVISION.                                                   RL1104.2
005300 FILE SECTION.                                                    RL1104.2
005400 FD  PRINT-FILE.                                                  RL1104.2
005500 01  PRINT-REC PICTURE X(120).                                    RL1104.2
005600 01  DUMMY-RECORD PICTURE X(120).                                 RL1104.2
005700 FD  RL-FS1                                                       RL1104.2
005800     LABEL RECORDS STANDARD                                       RL1104.2
005900     VALUE OF                                                     RL1104.2
006000     Impl1                                                        RL1104.2
006100     IS                                                           RL1104.2
006200     4711                                                         RL1104.2
006300                                                                  RL1104.2
006400     BLOCK CONTAINS 01 RECORDS                                    RL1104.2
006500     RECORD CONTAINS 120.                                         RL1104.2
006600 01  RL-FS1R1-F-G-120.                                            RL1104.2
006700     02 RL-WRK-120 PIC X(120).                                    RL1104.2
006800 WORKING-STORAGE SECTION.                                         RL1104.2
006900 01  RL-FS1-KEY        PIC 9(08) USAGE COMP VALUE ZERO.           RL1104.2
007000 01  WRK-CS-09V00-006 PIC S9(09) USAGE COMP VALUE ZERO.           RL1104.2
007100 01  WRK-CS-09V00-007 PIC S9(09) USAGE COMP VALUE ZERO.           RL1104.2
007200 01  WRK-CS-09V00-008 PIC S9(09) USAGE COMP VALUE ZERO.           RL1104.2
007300 01  WRK-CS-09V00-009 PIC S9(09) USAGE COMP VALUE ZERO.           RL1104.2
007400 01  WRK-CS-09V00-010 PIC S9(09) USAGE COMP VALUE ZERO.           RL1104.2
007500 01  WRK-CS-09V00-011 PIC S9(09) USAGE COMP VALUE ZERO.           RL1104.2
007600 01  I-O-ERROR-RL-FS1 PIC X(3) VALUE "NO ".                       RL1104.2
007700 01  FILE-RECORD-INFORMATION-REC.                                 RL1104.2
007800     03 FILE-RECORD-INFO-SKELETON.                                RL1104.2
007900        05 FILLER                 PICTURE X(48)       VALUE       RL1104.2
008000             "FILE= ,RECORD= /0,RECNO=000000,UPDT=00".  RL1104.2
008100        05 FILLER                 PICTURE X(46)       VALUE       RL1104.2
008200             ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000".    RL1104.2
008300        05 FILLER                 PICTURE X(26)       VALUE       RL1104.2
008400             ",LFIL=000000,ORG= ,LBLR= ".                        RL1104.2
008500        05 FILLER                 PICTURE X(37)       VALUE       RL1104.2
008600             ",RECKEY= ".             RL1104.2
008700        05 FILLER                 PICTURE X(38)       VALUE       RL1104.2
008800             ",ALTKEY1= ".            RL1104.2
008900        05 FILLER                 PICTURE X(38)       VALUE       RL1104.2
009000             ",ALTKEY2= ".            RL1104.2
009100        05 FILLER                 PICTURE X(7)        VALUE SPACE.RL1104.2
009200     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              RL1104.2
009300        05 FILE-RECORD-INFO-P1-120.                               RL1104.2
009400           07 FILLER              PIC X(5).                       RL1104.2
009500           07 XFILE-NAME           PIC X(6).                      RL1104.2
009600           07 FILLER              PIC X(8).                       RL1104.2
009700           07 XRECORD-NAME         PIC X(6).                      RL1104.2
009800           07 FILLER              PIC X(1).                       RL1104.2
009900           07 REELUNIT-NUMBER     PIC 9(1).                       RL1104.2
010000           07 FILLER              PIC X(7).                       RL1104.2
010100           07 XRECORD-NUMBER       PIC 9(6).                      RL1104.2
010200           07 FILLER              PIC X(6).                       RL1104.2
010300           07 UPDATE-NUMBER       PIC 9(2).                       RL1104.2
010400           07 FILLER              PIC X(5).                       RL1104.2
010500           07 ODO-NUMBER          PIC 9(4).                       RL1104.2
010600           07 FILLER              PIC X(5).                       RL1104.2
010700           07 XPROGRAM-NAME        PIC X(5).                      RL1104.2
010800           07 FILLER              PIC X(7).                       RL1104.2
010900           07 XRECORD-LENGTH       PIC 9(6).                      RL1104.2
011000           07 FILLER              PIC X(7).                       RL1104.2
011100           07 CHARS-OR-RECORDS    PIC X(2).                       RL1104.2
011200           07 FILLER              PIC X(1).                       RL1104.2
011300           07 XBLOCK-SIZE          PIC 9(4).                      RL1104.2
011400           07 FILLER              PIC X(6).                       RL1104.2
011500           07 RECORDS-IN-FILE     PIC 9(6).                       RL1104.2
011600           07 FILLER              PIC X(5).                       RL1104.2
011700           07 XFILE-ORGANIZATION   PIC X(2).                      RL1104.2
011800           07 FILLER              PIC X(6).                       RL1104.2
011900           07 XLABEL-TYPE          PIC X(1).                      RL1104.2
012000        05 FILE-RECORD-INFO-P121-240.                             RL1104.2
012100           07 FILLER              PIC X(8).                       RL1104.2
012200           07 XRECORD-KEY          PIC X(29).                     RL1104.2
012300           07 FILLER              PIC X(9).                       RL1104.2
012400           07 ALTERNATE-KEY1      PIC X(29).                      RL1104.2
012500           07 FILLER              PIC X(9).                       RL1104.2
012600           07 ALTERNATE-KEY2      PIC X(29).                      RL1104.2
012700           07 FILLER              PIC X(7).                       RL1104.2
012800 01  TEST-RESULTS.                                                RL1104.2
012900     02 FILLER                   PIC X      VALUE SPACE.          RL1104.2
013000     02 FEATURE                  PIC X(20)  VALUE SPACE.          RL1104.2
013100     02 FILLER                   PIC X      VALUE SPACE.          RL1104.2
013200     02 P-OR-F                   PIC X(5)   VALUE SPACE.          RL1104.2
013300     02 FILLER                   PIC X      VALUE SPACE.          RL1104.2
013400     02  PAR-NAME.                                                RL1104.2
013500       03 FILLER                 PIC X(19)  VALUE SPACE.          RL1104.2
013600       03  PARDOT-X              PIC X      VALUE SPACE.          RL1104.2
013700       03 DOTVALUE               PIC 99     VALUE ZERO.           RL1104.2
013800     02 FILLER                   PIC X(8)   VALUE SPACE.          RL1104.2
013900     02 RE-MARK                  PIC X(61).                       RL1104.2
014000 01  TEST-COMPUTED.                                               RL1104.2
014100     02 FILLER                   PIC X(30)  VALUE SPACE.          RL1104.2
014200     02 FILLER                   PIC X(17)  VALUE                 RL1104.2
014300            " COMPUTED=".                                   RL1104.2
014400     02 COMPUTED-X.                                               RL1104.2
014500     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          RL1104.2
014600     03 COMPUTED-N               REDEFINES COMPUTED-A             RL1104.2
014700                                 PIC -9(9).9(9).                  RL1104.2
014800     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         RL1104.2
014900     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     RL1104.2
015000     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     RL1104.2
015100     03       CM-18V0 REDEFINES COMPUTED-A.                       RL1104.2
015200         04 COMPUTED-18V0                    PIC -9(18).          RL1104.2
015300         04 FILLER                           PIC X.               RL1104.2
015400     03 FILLER PIC X(50) VALUE SPACE.                             RL1104.2
015500 01  TEST-CORRECT.                                                RL1104.2
015600     02 FILLER PIC X(30) VALUE SPACE.                             RL1104.2
015700     02 FILLER PIC X(17) VALUE " CORRECT =".                RL1104.2
015800     02 CORRECT-X.                                                RL1104.2
015900     03 CORRECT-A                  PIC X(20) VALUE SPACE.         RL1104.2
016000     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      RL1104.2
016100     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         RL1104.2
016200     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     RL1104.2
016300     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     RL1104.2
016400     03      CR-18V0 REDEFINES CORRECT-A.                         RL1104.2
016500         04 CORRECT-18V0                     PIC -9(18).          RL1104.2
016600         04 FILLER                           PIC X.               RL1104.2
016700     03 FILLER PIC X(2) VALUE SPACE.                              RL1104.2
016800     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     RL1104.2
016900 01  CCVS-C-1.                                                    RL1104.2
017000     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PARL1104.2
017100-    "SS PARAGRAPH-NAME RL1104.2
017200-    " REMARKS".                                            RL1104.2
017300     02 FILLER                     PIC X(20)    VALUE SPACE.      RL1104.2
017400 01  CCVS-C-2.                                                    RL1104.2
017500     02 FILLER                     PIC X        VALUE SPACE.      RL1104.2
017600     02 FILLER                     PIC X(6)     VALUE "TESTED".   RL1104.2
017700     02 FILLER                     PIC X(15)    VALUE SPACE.      RL1104.2
017800     02 FILLER                     PIC X(4)     VALUE "FAIL".     RL1104.2
017900     02 FILLER                     PIC X(94)    VALUE SPACE.      RL1104.2
018000 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       RL1104.2
018100 01  REC-CT                        PIC 99       VALUE ZERO.       RL1104.2
018200 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       RL1104.2
018300 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       RL1104.2
018400 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       RL1104.2
018500 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       RL1104.2
018600 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       RL1104.2
018700 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       RL1104.2
018800 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      RL1104.2
018900 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       RL1104.2
019000 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     RL1104.2
019100 01  CCVS-H-1.                                                    RL1104.2
019200     02  FILLER                    PIC X(39)    VALUE SPACES.     RL1104.2
019300     02  FILLER                    PIC X(42)    VALUE             RL1104.2
019400     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 RL1104.2
019500     02  FILLER                    PIC X(39)    VALUE SPACES.     RL1104.2
019600 01  CCVS-H-2A.                                                   RL1104.2
019700   02  FILLER                        PIC X(40)  VALUE SPACE.      RL1104.2
019800   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  RL1104.2
019900   02  FILLER                        PIC XXXX   VALUE             RL1104.2
020000     "4.2 ".                                                      RL1104.2
020100   02  FILLER                        PIC X(28)  VALUE             RL1104.2
020200            " COPY - NOT FOR DISTRIBUTION".                       RL1104.2
020300   02  FILLER                        PIC X(41)  VALUE SPACE.      RL1104.2
020400                                                                  RL1104.2
020500 01  CCVS-H-2B.                                                   RL1104.2
020600   02  FILLER                        PIC X(15)  VALUE             RL1104.2
020700            "TEST RESULT OF ".                                    RL1104.2
020800   02  TEST-ID                       PIC X(9).                    RL1104.2
020900   02  FILLER                        PIC X(4)   VALUE             RL1104.2
021000            " IN ".                                               RL1104.2
021100   02  FILLER                        PIC X(12)  VALUE             RL1104.2
021200     " HIGH ".                                              RL1104.2
021300   02  FILLER                        PIC X(22)  VALUE             RL1104.2
021400            " LEVEL VALIDATION FOR ".                             RL1104.2
021500   02  FILLER                        PIC X(58)  VALUE             RL1104.2
021600     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL1104.2
021700 01  CCVS-H-3.                                                    RL1104.2
021800     02  FILLER                      PIC X(34)  VALUE             RL1104.2
021900            " FOR OFFICIAL USE ONLY ".                         RL1104.2
022000     02  FILLER                      PIC X(58)  VALUE             RL1104.2
022100     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL1104.2
022200     02  FILLER                      PIC X(28)  VALUE             RL1104.2
022300            " COPYRIGHT 1985 ".                                RL1104.2
022400 01  CCVS-E-1.                                                    RL1104.2
022500     02 FILLER                       PIC X(52)  VALUE SPACE.      RL1104.2
022600     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              RL1104.2
022700     02 ID-AGAIN                     PIC X(9).                    RL1104.2
022800     02 FILLER                       PIC X(45)  VALUE SPACES.     RL1104.2
022900 01  CCVS-E-2.                                                    RL1104.2
023000     02  FILLER                      PIC X(31)  VALUE SPACE.      RL1104.2
023100     02  FILLER                      PIC X(21)  VALUE SPACE.      RL1104.2
023200     02 CCVS-E-2-2.                                               RL1104.2
023300         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      RL1104.2
023400         03 FILLER                   PIC X      VALUE SPACE.      RL1104.2
023500         03 ENDER-DESC               PIC X(44)  VALUE             RL1104.2
023600            "ERRORS ENCOUNTERED".                                 RL1104.2
023700 01  CCVS-E-3.                                                    RL1104.2
023800     02  FILLER                      PIC X(22)  VALUE             RL1104.2
023900            " FOR OFFICIAL USE ONLY".                             RL1104.2
024000     02  FILLER                      PIC X(12)  VALUE SPACE.      RL1104.2
024100     02  FILLER                      PIC X(58)  VALUE             RL1104.2
024200     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL1104.2
024300     02  FILLER                      PIC X(13)  VALUE SPACE.      RL1104.2
024400     02 FILLER                       PIC X(15)  VALUE             RL1104.2
024500             " COPYRIGHT 1985".                                   RL1104.2
024600 01  CCVS-E-4.                                                    RL1104.2
024700     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      RL1104.2
024800     02 FILLER                       PIC X(4)   VALUE " OF ".     RL1104.2
024900     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      RL1104.2
025000     02 FILLER                       PIC X(40)  VALUE             RL1104.2
025100      " TESTS WERE EXECUTED SUCCESSFULLY".                       RL1104.2
025200 01  XXINFO.                                                      RL1104.2
025300     02 FILLER                       PIC X(19)  VALUE             RL1104.2
025400            "*** INFORMATION ***".                                RL1104.2
025500     02 INFO-TEXT.                                                RL1104.2
025600       04 FILLER                     PIC X(8)   VALUE SPACE.      RL1104.2
025700       04 XXCOMPUTED                 PIC X(20).                   RL1104.2
025800       04 FILLER                     PIC X(5)   VALUE SPACE.      RL1104.2
025900       04 XXCORRECT                  PIC X(20).                   RL1104.2
026000     02 INF-ANSI-REFERENCE           PIC X(48).                   RL1104.2
026100 01  HYPHEN-LINE.                                                 RL1104.2
026200     02 FILLER  PIC IS X VALUE IS SPACE.                          RL1104.2
026300     02 FILLER  PIC IS X(65)    VALUE IS "************************RL1104.2
026400-    "*****************************************".                 RL1104.2
026500     02 FILLER  PIC IS X(54)    VALUE IS "************************RL1104.2
026600-    "******************************".                            RL1104.2
026700 01  CCVS-PGM-ID                     PIC X(9)   VALUE             RL1104.2
026800     "RL110A".                                                    RL1104.2
026900 PROCEDURE DIVISION.                                              RL1104.2
027000 CCVS1 SECTION.                                                   RL1104.2
027100 OPEN-FILES.                                                      RL1104.2
027200     OPEN    OUTPUT PRINT-FILE.                                   RL1104.2
027300     MOVE  CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.  RL1104.2
027400     MOVE    SPACE TO TEST-RESULTS.                               RL1104.2
027500     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.              RL1104.2
027600     MOVE    ZERO TO REC-SKL-SUB.                                 RL1104.2
027700     PERFORM CCVS-INIT-FILE 9 TIMES.                              RL1104.2
027800 CCVS-INIT-FILE.                                                  RL1104.2
027900     ADD     1 TO REC-SKL-SUB.                                    RL1104.2
028000     MOVE    FILE-RECORD-INFO-SKELETON                            RL1104.2
028100          TO FILE-RECORD-INFO (REC-SKL-SUB).                      RL1104.2
028200 CCVS-INIT-EXIT.                                                  RL1104.2
028300     GO TO CCVS1-EXIT.                                            RL1104.2
028400 CLOSE-FILES.                                                     RL1104.2
028500     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   RL1104.2
028600 TERMINATE-CCVS.                                                  RL1104.2
028700     EXIT PROGRAM.                                                RL1104.2
028800 TERMINATE-CALL.                                                  RL1104.2
028900     STOP     RUN.                                                RL1104.2
029000 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         RL1104.2
029100 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           RL1104.2
029200 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          RL1104.2
029300 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      RL1104.2
029400     MOVE "****TEST DELETED****" TO RE-MARK.                      RL1104.2
029500 PRINT-DETAIL.                                                    RL1104.2
029600     IF REC-CT NOT EQUAL TO ZERO                                  RL1104.2
029700             MOVE "." TO PARDOT-X                                 RL1104.2
029800             MOVE REC-CT TO DOTVALUE.                             RL1104.2
029900     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      RL1104.2
030000     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               RL1104.2
030100        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 RL1104.2
030200          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 RL1104.2
030300     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              RL1104.2
030400     MOVE SPACE TO CORRECT-X.                                     RL1104.2
030500     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         RL1104.2
030600     MOVE     SPACE TO RE-MARK.                                   RL1104.2
030700 HEAD-ROUTINE.                                                    RL1104.2
030800     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  RL1104.2
030900     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  RL1104.2
031000     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  RL1104.2
031100     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  RL1104.2
031200 COLUMN-NAMES-ROUTINE.                                            RL1104.2
031300     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           RL1104.2
031400     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL1104.2
031500     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        RL1104.2
031600 END-ROUTINE.                                                     RL1104.2
031700     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.RL1104.2
031800 END-RTN-EXIT.                                                    RL1104.2
031900     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL1104.2
032000 END-ROUTINE-1.                                                   RL1104.2
032100      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      RL1104.2
032200      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               RL1104.2
032300      ADD PASS-COUNTER TO ERROR-HOLD.                             RL1104.2
032400*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   RL1104.2
032500      MOVE PASS-COUNTER TO CCVS-E-4-1.                            RL1104.2
032600      MOVE ERROR-HOLD TO CCVS-E-4-2.                              RL1104.2
032700      MOVE CCVS-E-4 TO CCVS-E-2-2.                                RL1104.2
032800      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           RL1104.2
032900  END-ROUTINE-12.                                                 RL1104.2
033000      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        RL1104.2
033100     IF       ERROR-COUNTER IS EQUAL TO ZERO                      RL1104.2
033200         MOVE "NO " TO ERROR-TOTAL                                RL1104.2
033300         ELSE                                                     RL1104.2
033400         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       RL1104.2
033500     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           RL1104.2
033600     PERFORM WRITE-LINE.                                          RL1104.2
033700 END-ROUTINE-13.                                                  RL1104.2
033800     IF DELETE-COUNTER IS EQUAL TO ZERO                           RL1104.2
033900         MOVE "NO " TO ERROR-TOTAL  ELSE                          RL1104.2
034000         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      RL1104.2
034100     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   RL1104.2
034200     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           RL1104.2
034300      IF   INSPECT-COUNTER EQUAL TO ZERO                          RL1104.2
034400          MOVE "NO " TO ERROR-TOTAL                               RL1104.2
034500      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   RL1104.2
034600      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            RL1104.2
034700      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          RL1104.2
034800     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           RL1104.2
034900 WRITE-LINE.                                                      RL1104.2
035000     ADD 1 TO RECORD-COUNT.                                       RL1104.2
035100     IF RECORD-COUNT GREATER 50                                   RL1104.2
035200         MOVE DUMMY-RECORD TO DUMMY-HOLD                          RL1104.2
035300         MOVE SPACE TO DUMMY-RECORD                               RL1104.2
035400         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  RL1104.2
035500         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN             RL1104.2
035600         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES     RL1104.2
035700         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          RL1104.2
035800         MOVE DUMMY-HOLD TO DUMMY-RECORD                          RL1104.2
035900         MOVE ZERO TO RECORD-COUNT.                               RL1104.2
036000     PERFORM WRT-LN.                                              RL1104.2
036100 WRT-LN.                                                          RL1104.2
036200     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               RL1104.2
036300     MOVE SPACE TO DUMMY-RECORD.                                  RL1104.2
036400 BLANK-LINE-PRINT.                                                RL1104.2
036500     PERFORM WRT-LN.                                              RL1104.2
036600 FAIL-ROUTINE.                                                    RL1104.2
036700     IF   COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. RL1104.2
036800     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.RL1104.2
036900     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 RL1104.2
037000     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   RL1104.2
037100     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL1104.2
037200     MOVE   SPACES TO INF-ANSI-REFERENCE.                         RL1104.2
037300     GO TO  FAIL-ROUTINE-EX.                                      RL1104.2
037400 FAIL-ROUTINE-WRITE.                                              RL1104.2
037500     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         RL1104.2
037600     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 RL1104.2
037700     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. RL1104.2
037800     MOVE   SPACES TO COR-ANSI-REFERENCE.                         RL1104.2
037900 FAIL-ROUTINE-EX. EXIT.                                           RL1104.2
038000 BAIL-OUT.                                                        RL1104.2
038100     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   RL1104.2
038200     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           RL1104.2
038300 BAIL-OUT-WRITE.                                                  RL1104.2
038400     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  RL1104.2
038500     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 RL1104.2
038600     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL1104.2
038700     MOVE   SPACES TO INF-ANSI-REFERENCE.                         RL1104.2
038800 BAIL-OUT-EX. EXIT.                                               RL1104.2
038900 CCVS1-EXIT.                                                      RL1104.2
039000     EXIT.                                                        RL1104.2
039100 SECT-RL110A-001 SECTION.                                         RL1104.2
039200 REL-INIT-006.                                                    RL1104.2
039300     MOVE  99 TO RL-FS1-KEY.                                      RL1104.2
039400*    THIS FILE "RL-FS1" IS ACCESSED SEQUENTIALLY AND HAS          RL1104.2
039500*    ASSOCIATED WITH IT A RELATIVE KEY WHICH AT ALL TIMES SHOULD  RL1104.2
039600*    CONTAIN THE NUMBER OF THE RECORD PREVIOUSLY READ.            RL1104.2
039700     OPEN INPUT RL-FS1.                                           RL1104.2
039800     MOVE   "REL-TEST-006" TO   PAR-NAME.                         RL1104.2
039900     MOVE   "VII-26 4.5.4" TO ANSI-REFERENCE.                     RL1104.2
040000     MOVE    ZERO TO             WRK-CS-09V00-006.                RL1104.2
040100     MOVE    ZERO TO             WRK-CS-09V00-007.                RL1104.2
040200     MOVE    ZERO TO             WRK-CS-09V00-008.                RL1104.2
040300     MOVE    ZERO TO             WRK-CS-09V00-009.                RL1104.2
040400     MOVE    ZERO TO             WRK-CS-09V00-010.                RL1104.2
040500     MOVE    ZERO TO             WRK-CS-09V00-011.                RL1104.2
040600     MOVE    SPACE TO  FILE-RECORD-INFO-P1-120 (1).               RL1104.2
040700     MOVE    RL-FS1-KEY TO WRK-CS-09V00-011.                      RL1104.2
040800     MOVE    01 TO REC-CT.                                        RL1104.2
040900     MOVE   "READ SEQUENTIAL"  TO FEATURE.                        RL1104.2
041000 REL-TEST-006-R.                                                  RL1104.2
041100     ADD     1 TO WRK-CS-09V00-006.                               RL1104.2
041200     READ    RL-FS1                                               RL1104.2
041300                END GO TO REL-TEST-006-3                          RL1104.2
041400         NOT AT END GO TO REL-TEST-006-A                          RL1104.2
041500     END-READ.                                                    RL1104.2
041600 REL-TEST-006-A.                                                  RL1104.2
041700     MOVE     RL-FS1R1-F-G-120    TO FILE-RECORD-INFO-P1-120 (1). RL1104.2
041800     IF       UPDATE-NUMBER (1) EQUAL TO 00                       RL1104.2
041900             ADD 1 TO WRK-CS-09V00-007                            RL1104.2
042000             GO TO   REL-TEST-006-2.                              RL1104.2
042100     IF      UPDATE-NUMBER (1) EQUAL TO 01                        RL1104.2
042200             ADD 1 TO WRK-CS-09V00-008                            RL1104.2
042300             GO TO   REL-TEST-006-2.                              RL1104.2
042400     ADD     1 TO WRK-CS-09V00-009.                               RL1104.2
042500 REL-TEST-006-2.                                                  RL1104.2
042600     IF      RL-FS1-KEY NOT EQUAL TO XRECORD-NUMBER (1)           RL1104.2
042700             ADD 1 TO  WRK-CS-09V00-010.                          RL1104.2
042800     IF      WRK-CS-09V00-006  GREATER 501                        RL1104.2
042900             GO TO   REL-TEST-006-3.                              RL1104.2
043000     GO TO   REL-TEST-006-R.                                      RL1104.2
043100 REL-TEST-006-3.                                                  RL1104.2
043200     IF      WRK-CS-09V00-006 NOT EQUAL TO 501                    RL1104.2
043300             MOVE "INCORRECT RECORD COUNT"  TO RE-MARK            RL1104.2
043400             MOVE  WRK-CS-09V00-006 TO COMPUTED-18V0              RL1104.2
043500             MOVE  501  TO             CORRECT-18V0               RL1104.2
043600             PERFORM FAIL                                         RL1104.2
043700     ELSE                                                         RL1104.2
043800             PERFORM PASS.                                        RL1104.2
043900     PERFORM PRINT-DETAIL.                                        RL1104.2
044000*    .01                                                          RL1104.2
044100     ADD     1 TO REC-CT.                                         RL1104.2
044200     IF      WRK-CS-09V00-007 EQUAL TO 400                        RL1104.2
044300             PERFORM PASS                                         RL1104.2
044400     ELSE                                                         RL1104.2
044500             MOVE "NON-UPDATED RECORDS" TO COMPUTED-A             RL1104.2
044600             MOVE  WRK-CS-09V00-007 TO CORRECT-18V0               RL1104.2
044700             MOVE "SHOULD BE 400" TO RE-MARK                      RL1104.2
044800             PERFORM FAIL.                                        RL1104.2
044900     PERFORM PRINT-DETAIL.                                        RL1104.2
045000     ADD     1 TO REC-CT.                                         RL1104.2
045100*    .02                                                          RL1104.2
045200     IF      WRK-CS-09V00-008 EQUAL TO 100                        RL1104.2
045300             PERFORM PASS                                         RL1104.2
045400     ELSE                                                         RL1104.2
045500             MOVE WRK-CS-09V00-008 TO COMPUTED-18V0               RL1104.2
045600             MOVE 100             TO  CORRECT-18V0                RL1104.2
045700             MOVE "UPDATED RECORDS" TO RE-MARK                    RL1104.2
045800             PERFORM FAIL.                                        RL1104.2
045900     PERFORM PRINT-DETAIL.                                        RL1104.2
046000     ADD     1 TO REC-CT.                                         RL1104.2
046100*    .03                                                          RL1104.2
046200     IF      WRK-CS-09V00-009 EQUAL TO ZERO                       RL1104.2
046300             PERFORM PASS                                         RL1104.2
046400     ELSE                                                         RL1104.2
046500             MOVE WRK-CS-09V00-009 TO COMPUTED-18V0               RL1104.2
046600             MOVE  ZERO            TO CORRECT-18V0                RL1104.2
046700             MOVE "BAD-UPDATES" TO RE-MARK                        RL1104.2
046800             PERFORM FAIL.                                        RL1104.2
046900     PERFORM PRINT-DETAIL.                                        RL1104.2
047000     ADD     01 TO REC-CT.                                        RL1104.2
047100*    .04                                                          RL1104.2
047200     IF      WRK-CS-09V00-010 EQUAL TO ZERO                       RL1104.2
047300             PERFORM PASS                                         RL1104.2
047400     ELSE                                                         RL1104.2
047500             MOVE WRK-CS-09V00-010 TO COMPUTED-18V0               RL1104.2
047600             MOVE ZERO             TO CORRECT-18V0                RL1104.2
047700             MOVE "KEY VS RECORD" TO RE-MARK                      RL1104.2
047800             PERFORM FAIL.                                        RL1104.2
047900     PERFORM PRINT-DETAIL.                                        RL1104.2
048000     ADD     01 TO REC-CT.                                        RL1104.2
048100*    .05                                                          RL1104.2
048200     MOVE    WRK-CS-09V00-011 TO RL-FS1-KEY.                      RL1104.2
048300     MOVE  RL-FS1-KEY TO COMPUTED-18V0.                           RL1104.2
048400     MOVE    "INFORMATION" TO CORRECT-A.                          RL1104.2
048500     MOVE    "STATUS AFTER OPEN" TO RE-MARK.                      RL1104.2
048600     PERFORM PRINT-DETAIL.                                        RL1104.2
048700     ADD     01 TO REC-CT.                                        RL1104.2
048800*    .06                                                          RL1104.2
048900     CLOSE    RL-FS1.                                             RL1104.2
049000 REL-INIT-007.                                                    RL1104.2
049100     MOVE   "REL-TEST-007" TO PAR-NAME                            RL1104.2
049200     MOVE   "VII-26 4.5.4" TO ANSI-REFERENCE.                     RL1104.2
049300     OPEN    I-O RL-FS1.                                          RL1104.2
049400     MOVE    ZERO TO WRK-CS-09V00-006                             RL1104.2
049500     MOVE    ZERO TO WRK-CS-09V00-007                             RL1104.2
049600     MOVE    ZERO TO WRK-CS-09V00-008                             RL1104.2
049700     MOVE    ZERO TO WRK-CS-09V00-009                             RL1104.2
049800     MOVE    ZERO TO WRK-CS-09V00-010                             RL1104.2
049900     MOVE    ZERO TO WRK-CS-09V00-011                             RL1104.2
050000     MOVE    01 TO REC-CT.                                        RL1104.2
050100     MOVE    SPACE TO  FILE-RECORD-INFO-P1-120 (1).               RL1104.2
050200     MOVE   "DELETE"  TO FEATURE.                                 RL1104.2
050300 REL-TEST-007-R.                                                  RL1104.2
050400     ADD     1 TO WRK-CS-09V00-006                                RL1104.2
050500     ADD     1 TO WRK-CS-09V00-007.                               RL1104.2
050600     READ    RL-FS1                                               RL1104.2
050700             AT END                                               RL1104.2
050800             MOVE "AT END PATH TAKEN " TO RE-MARK                 RL1104.2
050900             GO TO  REL-TEST-007-3                                RL1104.2
051000         NOT AT END                                               RL1104.2
051100             GO TO  REL-TEST-007-A                                RL1104.2
051200     END-READ.                                                    RL1104.2
051300 REL-TEST-007-A.                                                  RL1104.2
051400     MOVE    RL-FS1R1-F-G-120 TO FILE-RECORD-INFO-P1-120 (1).     RL1104.2
051500     IF      WRK-CS-09V00-007  EQUAL TO 4                         RL1104.2
051600             GO TO REL-TEST-007-2.                                RL1104.2
051700     IF      WRK-CS-09V00-006 GREATER 501                         RL1104.2
051800             MOVE  "AT END NOT TAKEN"  TO RE-MARK                 RL1104.2
051900             GO TO REL-TEST-007-3.                                RL1104.2
052000     GO TO   REL-TEST-007-R.                                      RL1104.2
052100 REL-TEST-007-2.                                                  RL1104.2
052200     MOVE   "VII-19 4.3.4" TO ANSI-REFERENCE.                     RL1104.2
052300     MOVE    CCVS-PGM-ID   TO XPROGRAM-NAME (1).                  RL1104.2
052400     MOVE    99 TO UPDATE-NUMBER (1).                             RL1104.2
052500     MOVE    FILE-RECORD-INFO-P1-120 (1) TO RL-FS1R1-F-G-120.     RL1104.2
052600     DELETE  RL-FS1                                               RL1104.2
052700     END-DELETE.                                                  RL1104.2
052800 REL-TEST-007-2-A.                                                RL1104.2
052900     MOVE    ZERO TO  WRK-CS-09V00-007.                           RL1104.2
053000     ADD     1 TO  WRK-CS-09V00-008.                              RL1104.2
053100     GO TO   REL-TEST-007-R.                                      RL1104.2
053200 REL-TEST-007-3.                                                  RL1104.2
053300     IF      WRK-CS-09V00-006 NOT EQUAL TO 501                    RL1104.2
053400             MOVE WRK-CS-09V00-006 TO COMPUTED-18V0               RL1104.2
053500             MOVE              501 TO CORRECT-18V0                RL1104.2
053600             PERFORM FAIL                                         RL1104.2
053700             ELSE                                                 RL1104.2
053800             PERFORM PASS.                                        RL1104.2
053900     PERFORM PRINT-DETAIL.                                        RL1104.2
054000     ADD     01 TO REC-CT.                                        RL1104.2
054100     CLOSE   RL-FS1.                                              RL1104.2
054200 REL-INIT-008.                                                    RL1104.2
054300     MOVE   "REL-TEST-008" TO PAR-NAME.                           RL1104.2
054400     MOVE   "VII-26 4.5.4" TO ANSI-REFERENCE.                     RL1104.2
054500     MOVE    ZERO TO   WRK-CS-09V00-006                           RL1104.2
054600     MOVE    ZERO TO   WRK-CS-09V00-007                           RL1104.2
054700     MOVE    ZERO TO   WRK-CS-09V00-008                           RL1104.2
054800     MOVE    ZERO TO   WRK-CS-09V00-009                           RL1104.2
054900     MOVE    ZERO TO   WRK-CS-09V00-010                           RL1104.2
055000     MOVE    ZERO TO   WRK-CS-09V00-011                           RL1104.2
055100     MOVE    01 TO REC-CT.                                        RL1104.2
055200     MOVE    SPACE  TO  FILE-RECORD-INFO-P1-120 (1).              RL1104.2
055300     MOVE    ZERO TO RL-FS1-KEY.                                  RL1104.2
055400     OPEN    INPUT  RL-FS1.                                       RL1104.2
055500     MOVE   "READ UPDATED FILE"  TO FEATURE.                      RL1104.2
055600 REL-TEST-008-R.                                                  RL1104.2
055700     ADD     1 TO WRK-CS-09V00-006.                               RL1104.2
055800     ADD     1 TO WRK-CS-09V00-007.                               RL1104.2
055900     ADD     1 TO WRK-CS-09V00-008.                               RL1104.2
056000     READ    RL-FS1                                               RL1104.2
056100             AT END  GO TO REL-TEST-008-3                         RL1104.2
056200         NOT AT END  GO TO REL-TEST-008-A                         RL1104.2
056300     END-READ.                                                    RL1104.2
056400 REL-TEST-008-A.                                                  RL1104.2
056500     MOVE    RL-FS1R1-F-G-120 TO FILE-RECORD-INFO-P1-120 (1).     RL1104.2
056600     IF      UPDATE-NUMBER (1) EQUAL TO 99                        RL1104.2
056700             ADD  1 TO WRK-CS-09V00-009.                          RL1104.2
056800     IF      WRK-CS-09V00-007  EQUAL TO 4                         RL1104.2
056900             MOVE 01 TO WRK-CS-09V00-007                          RL1104.2
057000             ADD 1 TO WRK-CS-09V00-008.                           RL1104.2
057100     IF      RL-FS1-KEY EQUAL TO  XRECORD-NUMBER (1)              RL1104.2
057200             ADD 1 TO  WRK-CS-09V00-010.                          RL1104.2
057300     IF      XRECORD-NUMBER (1) EQUAL TO  WRK-CS-09V00-008        RL1104.2
057400             ADD 1 TO  WRK-CS-09V00-011.                          RL1104.2
057500     IF      WRK-CS-09V00-006 GREATER  501                        RL1104.2
057600             GO TO REL-TEST-008-3.                                RL1104.2
057700     GO TO   REL-TEST-008-R.                                      RL1104.2
057800 REL-TEST-008-3.                                                  RL1104.2
057900     IF      WRK-CS-09V00-006 NOT EQUAL TO 376                    RL1104.2
058000             MOVE "INCORRECT RECORD COUNT"  TO RE-MARK            RL1104.2
058100             MOVE WRK-CS-09V00-006 TO COMPUTED-18V0               RL1104.2
058200             MOVE 376 TO CORRECT-18V0                             RL1104.2
058300             PERFORM  FAIL                                        RL1104.2
058400     ELSE                                                         RL1104.2
058500             PERFORM  PASS.                                       RL1104.2
058600     PERFORM PRINT-DETAIL.                                        RL1104.2
058700     ADD     01 TO REC-CT.                                        RL1104.2
058800*    .01                                                          RL1104.2
058900     IF      WRK-CS-09V00-009 NOT EQUAL TO ZERO                   RL1104.2
059000             MOVE WRK-CS-09V00-009 TO COMPUTED-18V0               RL1104.2
059100             MOVE   ZERO TO CORRECT-18V0                          RL1104.2
059200             MOVE "DELETED RECORDS" TO RE-MARK                    RL1104.2
059300             PERFORM FAIL                                         RL1104.2
059400     ELSE                                                         RL1104.2
059500             PERFORM PASS.                                        RL1104.2
059600     PERFORM PRINT-DETAIL.                                        RL1104.2
059700     ADD     01  TO  REC-CT.                                      RL1104.2
059800*    .02                                                          RL1104.2
059900     IF      WRK-CS-09V00-010 NOT EQUAL TO 375                    RL1104.2
060000             MOVE "KEY MISMATCH" TO RE-MARK                       RL1104.2
060100             MOVE 375 TO CORRECT-18V0                             RL1104.2
060200             MOVE WRK-CS-09V00-010 TO COMPUTED-18V0               RL1104.2
060300             PERFORM FAIL                                         RL1104.2
060400     ELSE                                                         RL1104.2
060500             PERFORM PASS.                                        RL1104.2
060600     PERFORM PRINT-DETAIL.                                        RL1104.2
060700     ADD     01 TO REC-CT.                                        RL1104.2
060800*    .03                                                          RL1104.2
060900     IF      WRK-CS-09V00-011  NOT EQUAL TO 375                   RL1104.2
061000             MOVE   375  TO CORRECT-18V0                          RL1104.2
061100             MOVE  "INCORRECT RECORD FOUND"  TO RE-MARK           RL1104.2
061200             MOVE   WRK-CS-09V00-011 TO COMPUTED-18V0             RL1104.2
061300             PERFORM   FAIL                                       RL1104.2
061400     ELSE                                                         RL1104.2
061500             PERFORM  PASS.                                       RL1104.2
061600     PERFORM PRINT-DETAIL.                                        RL1104.2
061700     ADD     01 TO REC-CT.                                        RL1104.2
061800*04                                                               RL1104.2
061900     CLOSE   RL-FS1.                                              RL1104.2
062000 CCVS-EXIT SECTION.                                               RL1104.2
062100 CCVS-999999.                                                     RL1104.2
062200     GO TO CLOSE-FILES.                                           RL1104.2

¤ Dauer der Verarbeitung: 0.21 Sekunden  (vorverarbeitet)  ¤





Download des
Quellennavigators
Download des
sprechenden Kalenders

in der Quellcodebibliothek suchen




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.


Bot Zugriff



                                                                                                                                                                                                                                                                                                                                                                                                     


Neuigkeiten

     Aktuelles
     Motto des Tages

Software

     Produkte
     Quellcodebibliothek

Aktivitäten

     Artikel über Sicherheit
     Anleitung zur Aktivierung von SSL

Muße

     Gedichte
     Musik
     Bilder

Jenseits des Üblichen ....
    

Besucherstatistik

Besucherstatistik