Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
products/Sources   (Lyx Textverarbeitung ©)  Datei vom mit Größe 0 B image not shown  

Quelle  sq217a.cob   Sprache: Cobol

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

92%


¤ Dauer der Verarbeitung: 0.22 Sekunden  (vorverarbeitet)  ¤

*© Formatika GbR, Deutschland




Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

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

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.