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

Quellverzeichnis  obsq3a.cob   Interaktion und
PortierbarkeitCobol

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

96%


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

*Eine klare Vorstellung vom Zielzustand




Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

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

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.