Quelle sq126a.cob Sprache: Cobol

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

quality93%

¤ Dauer der Verarbeitung: 0.31 Sekunden (vorverarbeitet) ¤

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.