Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/PVS/TRS/   (Columbo Version 0.7©)  Datei vom 28.9.2014 mit Größe 1 kB image not shown  

Quellcode-Bibliothek sq213a.cob   Sprache: Cobol

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

93%


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