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


Quellcode-Bibliothek

© Kompilation durch diese Firma

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

Datei: sq101m.cob   Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         SQ1014.2
000200 PROGRAM-ID.                                                      SQ1014.2
000300     SQ101M.                                                      SQ1014.2
000400****************************************************************  SQ1014.2
000500*                                                              *  SQ1014.2
000600*    VALIDATION FOR:-                                          *  SQ1014.2
000700*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".SQ1014.2
000800*    USING CCVS85 VERSION 1.0 ISSUED IN JANUARY 1986.          *  SQ1014.2
000900*                             REVISED 1986, AUGUST             *  SQ1014.2
001000*                                                              *  SQ1014.2
001100*    CREATION DATE     /     VALIDATION DATE                   *  SQ1014.2
001200*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".SQ1014.2
001300*                                                              *  SQ1014.2
001400****************************************************************  SQ1014.2
001500*                                                              *  SQ1014.2
001600*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  SQ1014.2
001700*                                                              *  SQ1014.2
001800*            X-55   SYSTEM PRINTER                             *  SQ1014.2
001900*            X-82   SOURCE-COMPUTER                            *  SQ1014.2
002000*            X-83   OBJECT-COMPUTER.                           *  SQ1014.2
002100*                                                              *  SQ1014.2
002200****************************************************************  SQ1014.2
002300*                                                              *  SQ1014.2
002400*    SQ101M TESTS THE LEVEL 1 FACILITIES FOR CONTROL OF THE    *  SQ1014.2
002500*    POSITION OF LINES ON A PRINTED PAGE.  THE PRINCIPAL       *  SQ1014.2
002600*    FACILITY IS THE ADVANCING PHRASE OF THE WRITE STATEMENT   *  SQ1014.2
002700*    WHEN THE ASSOCIATED PHYSICAL FILE IS DESIGNATED AS A      *  SQ1014.2
002800*    PRINTER.  THE FROM PHRASE OF THE WRITE STATEMENT IS ALSO  *  SQ1014.2
002900*    TESTED.                                                   *  SQ1014.2
003000*                                                              *  SQ1014.2
003100*    ALL POSSIBLE LEVEL 1 COMBINATIONS OF THE FORMAT OF THE    *  SQ1014.2
003200*    ADVANCING PHRASE ARE TESTED WITH AND WITHOUT THE FROM     *  SQ1014.2
003300*    PHRASE.  THE VALUES USED FOR INTEGER INCLUDE ONE-DIGIT    *  SQ1014.2
003400*    AND TWO-DIGIT UNSIGNED NUMERIC LITERALS, EIGHTEEN DIGIT   *  SQ1014.2
003500*    NUMERIC LITERALS WITH LEADING ZEROS, AND THE FIGURATIVE   *  SQ1014.2
003600*    CONSTANT ZERO.  DATA ITEMS USED AS IDENTIFIER-2 INCLUDE   *  SQ1014.2
003700*    LEVEL 77, LEVEL 01, AND SUBORDINATE ELEMENTARY ITEMS.  A  *  SQ1014.2
003800*    SIMILAR RANGE OF TYPES, BUT INCLUDING GROUP ITEMS, IS     *  SQ1014.2
003900*    USED FOR IDENTIFIER-2.                                    *  SQ1014.2
004000*                                                              *  SQ1014.2
004100*    IN ADDITION TO THE ABOVE TESTS, A TEST IS MADE TO ENSURE  *  SQ1014.2
004200*    THAT CHARACTERS DESIGNATED TO BE PRINTED IN COLUMN 1 DO   *  SQ1014.2
004300*    NOT ACT AS CARRIAGE CONTROL CHARACTERS.                   *  SQ1014.2
004400*                                                              *  SQ1014.2
004500*    BECAUSE OF THE NATURE OF THESE TESTS A "PASS" OR "FAIL"   *  SQ1014.2
004600*    CANNOT BE DETERMINED WITHIN THE PROGRAM.  THE PRINTED     *  SQ1014.2
004700*    OUTPUT MUST BE EXAMINED TO DETERMINE WHETHER EACH TEST    *  SQ1014.2
004800*    HAS BEEN PASSED OR FAILED.                                *  SQ1014.2
004900*                                                              *  SQ1014.2
005000****************************************************************  SQ1014.2
005100*                                                                 SQ1014.2
005200*                                                                 SQ1014.2
005300 ENVIRONMENT DIVISION.                                            SQ1014.2
005400 CONFIGURATION SECTION.                                           SQ1014.2
005500 SOURCE-COMPUTER.                                                 SQ1014.2
005600     Card0130.                                                    SQ1014.2
005700 OBJECT-COMPUTER.                                                 SQ1014.2
005800     Card0131.                                                    SQ1014.2
005900*                                                                 SQ1014.2
006000 INPUT-OUTPUT SECTION.                                            SQ1014.2
006100 FILE-CONTROL.                                                    SQ1014.2
006200     SELECT PRINT-FILE ASSIGN TO                                  SQ1014.2
006300     "C0085" .                                                    SQ1014.2
006400*                                                                 SQ1014.2
006500     SELECT RAW-DATA   ASSIGN TO                                  SQ1014.2
006600     "C0098"                                                      SQ1014.2
006700           ORGANIZATION IS INDEXED                                SQ1014.2
006800           ACCESS MODE  IS RANDOM                                 SQ1014.2
006900           RECORD KEY   IS RAW-DATA-KEY.                          SQ1014.2
007000                                                                  SQ1014.2
007100*                                                                 SQ1014.2
007200 DATA DIVISION.                                                   SQ1014.2
007300 FILE SECTION.                                                    SQ1014.2
007400 FD  PRINT-FILE                                                   SQ1014.2
007500     LABEL RECORDS                                                SQ1014.2
007600     Card0132                                                     SQ1014.2
007700     DATA RECORD IS PRINT-REC DUMMY-RECORD                        SQ1014.2
007800               .                                                  SQ1014.2
007900 01  PRINT-REC    PICTURE X(120).                                 SQ1014.2
008000 01  DUMMY-RECORD PICTURE X(120).                                 SQ1014.2
008100                                                                  SQ1014.2
008200 FD  RAW-DATA.                                                    SQ1014.2
008300 01  RAW-DATA-SATZ.                                               SQ1014.2
008400     05  RAW-DATA-KEY        PIC X(6).                            SQ1014.2
008500     05  C-DATE              PIC 9(6).                            SQ1014.2
008600     05  C-TIME              PIC 9(8).                            SQ1014.2
008700     05  NO-OF-TESTS         PIC 99.                              SQ1014.2
008800     05  C-OK                PIC 999.                             SQ1014.2
008900     05  C-ALL               PIC 999.                             SQ1014.2
009000     05  C-FAIL              PIC 999.                             SQ1014.2
009100     05  C-DELETED           PIC 999.                             SQ1014.2
009200     05  C-INSPECT           PIC 999.                             SQ1014.2
009300     05  C-NOTE              PIC X(13).                           SQ1014.2
009400     05  C-INDENT            PIC X.                               SQ1014.2
009500     05  C-ABORT             PIC X(8).                            SQ1014.2
009600*                                                                 SQ1014.2
009700*                                                                 SQ1014.2
009800 WORKING-STORAGE SECTION.                                         SQ1014.2
009900*                                                                 SQ1014.2
010000***************************************************************   SQ1014.2
010100*                                                             *   SQ1014.2
010200*    WORKING-STORAGE DATA ITEMS SPECIFIC TO THIS TEST SUITE   *   SQ1014.2
010300*                                                             *   SQ1014.2
010400***************************************************************   SQ1014.2
010500*                                                                 SQ1014.2
010600 77  QU-OTE             PIC X   VALUE QUOTE.                      SQ1014.2
010700 77  IDENTIFIER-2       PIC 99       VALUE 0.                     SQ1014.2
010800 77  LONG-ZERO          PIC 9(18)    VALUE 0.                     SQ1014.2
010900 77  LONG-ONE           PIC 9(18)    VALUE 1.                     SQ1014.2
011000 01  IDENT-2-S99        PIC S99.                                  SQ1014.2
011100 01  IDENT-2-C99        PIC 99  COMP.                             SQ1014.2
011200*                                                                 SQ1014.2
011300 01  ONE                PIC 9        VALUE 1.                     SQ1014.2
011400*                                                                 SQ1014.2
011500 01  SPACING-VALUES-1.                                            SQ1014.2
011600     02 TWO               PIC 9      VALUE 2.                     SQ1014.2
011700     02 SPACING-VALUES-2.                                         SQ1014.2
011800        03 THREE            PIC 9    VALUE 3.                     SQ1014.2
011900        03 SPACING-VALUES-3.                                      SQ1014.2
012000           04 FOUR            PIC 9  VALUE 4.                     SQ1014.2
012100*                                                                 SQ1014.2
012200 01  CHAR-LINE.                                                   SQ1014.2
012300     03  LIN-CH   PIC X.                                          SQ1014.2
012400     03  FILLER   PIC X.                                          SQ1014.2
012500     03  LIN-SER  PIC 999.                                        SQ1014.2
012600     03  FILLER   PIC X(115).                                     SQ1014.2
012700*                                                                 SQ1014.2
012800 77  SEVENTY-SEVEN     PIC X(120)   VALUE " THIS WAS WRITTEN FROMSQ1014.2
012900-    " A 77 LEVEL ENTRY. IT SHOULD BE 2 LINES BELOW AND 1 LINE ABSQ1014.2
013000-    "OVE THE BRACKETING WRT-TEST LINES.".                        SQ1014.2
013100*                                                                 SQ1014.2
013200 77  SEVENTY-SEVEN-2    PIC X(120)   VALUE "THIS LINE WAS WRITTEN SQ1014.2
013300-    "FROM A 77 LEVEL ENTRY. IT SHOULD BE 7 LINES BELOW AND 1 LINSQ1014.2
013400-    "E ABOVE THE BRACKETING WRT-TEST LINES.".                    SQ1014.2
013500*                                                                 SQ1014.2
013600 01  OH-ONE             PIC X(120)   VALUE "THIS LINE WAS WRITTEN SQ1014.2
013700-    "FROM AN 01 LEVEL ENTRY. IT SHOULD BE 1 LINE BELOW AND 5 LINESQ1014.2
013800-    "S ABOVE THE BRACKETING WRT-TEST LINES.".                    SQ1014.2
013900*                                                                 SQ1014.2
014000 01  LEVEL-1.                                                     SQ1014.2
014100     03 OH-THREE        PIC X(120)   VALUE "THIS LINE WAS WRITTEN SQ1014.2
014200-       "FROM AN 03 LEVEL ENTRY. IT SHOULD BE 1 LINE BELOW AND 6 LSQ1014.2
014300-       "INES ABOVE THE BRACKETING WRT-TEST LINES.".              SQ1014.2
014400*                                                                 SQ1014.2
014500 01  TEST-LINE-1.                                                 SQ1014.2
014600     02 FILLER          PIC X(20)  VALUE SPACE.                   SQ1014.2
014700     02 FILLER          PIC X(20)  VALUE "THIS LINE SHOULD BE ".  SQ1014.2
014800     02 LINES-BELOW-1   PIC XX.                                   SQ1014.2
014900     02 FILLER          PIC X(17)  VALUE " LINES BELOW AND ".     SQ1014.2
015000     02 LINES-ABOVE-1   PIC XX.                                   SQ1014.2
015100     02 FILLER          PIC X(59)  VALUE                          SQ1014.2
015200                  " LINES ABOVE THE BRACKETING WRT-TEST LINES".   SQ1014.2
015300*                                                                 SQ1014.2
015400 01  LEVEL-ONE.                                                   SQ1014.2
015500     02 LEVEL-TWO.                                                SQ1014.2
015600        03 TEST-LINE-2.                                           SQ1014.2
015700           04 FILLER          PIC X(20)   VALUE SPACE.            SQ1014.2
015800           04 FILLER          PIC X(20)   VALUE "THIS LINE SHOULD SQ1014.2
015900-             "BE ".                                              SQ1014.2
016000           04 LINES-BELOW-2   PIC XX.                             SQ1014.2
016100           04 FILLER          PIC X(17) VALUE " LINES BELOW AND ".SQ1014.2
016200           04 LINES-ABOVE-2   PIC XX.                             SQ1014.2
016300           04 FILLER          PIC X(59)   VALUE                   SQ1014.2
016400                  " LINES ABOVE THE BRACKETING WRT-TEST LINES".   SQ1014.2
016500*                                                                 SQ1014.2
016600 01  OVERPRINTED-LINE.                                            SQ1014.2
016700     02 FILLER            PIC X(20)  VALUE SPACE.                 SQ1014.2
016800     02 FILLER            PIC X(9)   VALUE "WRT-TEST-".           SQ1014.2
016900     02 OVERPRINTED-TEST  PIC XX.                                 SQ1014.2
017000     02 FILLER            PIC X(89)  VALUE "/ THIS LINE SHOULD BE SQ1014.2
017100-       "OVERPRINTED. AAAAAAA".                                   SQ1014.2
017200 01  OVERPRINT-LINE.                                              SQ1014.2
017300     02 FILLER            PIC X(68)  VALUE SPACE.                 SQ1014.2
017400     02 FILLER            PIC X(17)  VALUE "BBBBBBB WRT-TEST-".   SQ1014.2
017500     02 OVERPRINT-TEST    PIC XX.                                 SQ1014.2
017600     02 FILLER            PIC X(33)  VALUE                        SQ1014.2
017700            "/ THIS LINE SHOULD OVERPRINT".                       SQ1014.2
017800 01  LAST-LINE.                                                   SQ1014.2
017900     02 FILLER            PIC X(20)  VALUE SPACE.                 SQ1014.2
018000     02 FILLER            PIC X(100) VALUE "THIS LINE SHOULD BE 1 SQ1014.2
018100-       "LINE BELOW THE WRT-TEST LINE AND ALSO BE THE LAST LINE ONSQ1014.2
018200-       " THIS PAGE".                                             SQ1014.2
018300*                                                                 SQ1014.2
018400 01  NEW-PAGE-LINE.                                               SQ1014.2
018500     02 FILLER            PIC X(20)  VALUE SPACE.                 SQ1014.2
018600     02 FILLER            PIC X(100) VALUE "THIS LINE SHOULD APPEASQ1014.2
018700-       "R AT THE TOP OF A NEW PAGE".                             SQ1014.2
018800 01  NEXT-LINE.                                                   SQ1014.2
018900     02 FILLER            PIC X(20)  VALUE SPACE.                 SQ1014.2
019000     02 FILLER            PIC X(100) VALUE "A WRT-TEST LINE SHOULDSQ1014.2
019100-       " FOLLOW IMMEDIATELY ON THE NEXT LINE".                   SQ1014.2
019200*                                                                 SQ1014.2
019300 01  NOTE-1.                                                      SQ1014.2
019400     02 FILLER          PIC X(40)    VALUE "BECAUSE OF THE NATURE SQ1014.2
019500-    "OF THESE TESTS A ".                                         SQ1014.2
019600     02 FILLER          PIC X        VALUE QUOTE.                 SQ1014.2
019700     02 FILLER          PIC X(4)     VALUE "PASS".                SQ1014.2
019800     02 FILLER          PIC X        VALUE QUOTE.                 SQ1014.2
019900     02 FILLER          PIC X(4)     VALUE " OR ".                SQ1014.2
020000     02 FILLER          PIC X        VALUE QUOTE.                 SQ1014.2
020100     02 FILLER          PIC X(4)     VALUE "FAIL".                SQ1014.2
020200     02 FILLER          PIC X        VALUE QUOTE.                 SQ1014.2
020300     02 FILLER          PIC X(64)    VALUE " CANNOT BE DETERMINED SQ1014.2
020400-    "WITHIN THE PROGRAM. THE USER MUST VISUALLY".                SQ1014.2
020500 01  NOTE-2             PIC X(120)   VALUE "CHECK THE POSITION OF SQ1014.2
020600-    "EACH LINE TO DETERMINE THE ACCURACY OF THE VARIOUS WRITE OPTSQ1014.2
020700-    "IONS. NOTE THAT SOME OVERPRINTING".                        SQ1014.2
020800 01  NOTE-3             PIC X(120)   VALUE "SHOULD OCCUR, AND IN ESQ1014.2
020900-    "VERY CASE THE OVERPRINTED LINE WILL READ---".               SQ1014.2
021000 01  NOTE-4.                                                      SQ1014.2
021100     02 FILLER          PIC X(20)    VALUE SPACE.                 SQ1014.2
021200     02 FILLER          PIC X(100)   VALUE "WRT-TEST-XX/ THIS LINESQ1014.2
021300-    " SHOULD BE OVERPRINTED. AAAAAAA".                           SQ1014.2
021400 01  NOTE-5             PIC X(120)   VALUE "---AND THE LINE WHICH SQ1014.2
021500-    "OVERPRINTS SHOULD READ---".                                 SQ1014.2
021600 01  NOTE-6.                                                      SQ1014.2
021700     02 FILLER          PIC X(68)    VALUE SPACE.                 SQ1014.2
021800     02 FILLER          PIC X(52)    VALUE "BBBBBBB WRT-TEST-XX/ TSQ1014.2
021900-    "HIS LINE SHOULD OVERPRINT".                                 SQ1014.2
022000 01  NOTE-7             PIC X(120)   VALUE "ONLY FIVE OF THE LETTESQ1014.2
022100-    "RS A AND B SHOULD BE JUMBLED TOGETHER; THE REST SHOULD BE RESQ1014.2
022200-    "ADABLE. IF ANY OTHER LINE IS".                             SQ1014.2
022300*                                                                 SQ1014.2
022400 01  NOTE-8             PIC X(120)   VALUE                        SQ1014.2
022500         "INVOLVED IN OVERPRINTING, AN ERROR HAS OCCURRED".       SQ1014.2
022600*                                                                 SQ1014.2
022700***************************************************************   SQ1014.2
022800*                                                             *   SQ1014.2
022900*    WORKING-STORAGE DATA ITEMS USED BY THE CCVS              *   SQ1014.2
023000*                                                             *   SQ1014.2
023100***************************************************************   SQ1014.2
023200*                                                                 SQ1014.2
023300 01  REC-SKEL-SUB   PIC 99.                                       SQ1014.2
023400*                                                                 SQ1014.2
023500 01  FILE-RECORD-INFORMATION-REC.                                 SQ1014.2
023600     03 FILE-RECORD-INFO-SKELETON.                                SQ1014.2
023700        05 FILLER                 PICTURE X(48)       VALUE       SQ1014.2
023800             "FILE= ,RECORD= /0,RECNO=000000,UPDT=00".  SQ1014.2
023900        05 FILLER                 PICTURE X(46)       VALUE       SQ1014.2
024000             ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000".    SQ1014.2
024100        05 FILLER                 PICTURE X(26)       VALUE       SQ1014.2
024200             ",LFIL=000000,ORG= ,LBLR= ".                        SQ1014.2
024300        05 FILLER                 PICTURE X(37)       VALUE       SQ1014.2
024400             ",RECKEY= ".             SQ1014.2
024500        05 FILLER                 PICTURE X(38)       VALUE       SQ1014.2
024600             ",ALTKEY1= ".            SQ1014.2
024700        05 FILLER                 PICTURE X(38)       VALUE       SQ1014.2
024800             ",ALTKEY2= ".            SQ1014.2
024900        05 FILLER                 PICTURE X(7)        VALUE SPACE.SQ1014.2
025000     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              SQ1014.2
025100        05 FILE-RECORD-INFO-P1-120.                               SQ1014.2
025200           07 FILLER              PIC X(5).                       SQ1014.2
025300           07 XFILE-NAME          PIC X(6).                       SQ1014.2
025400           07 FILLER              PIC X(8).                       SQ1014.2
025500           07 XRECORD-NAME        PIC X(6).                       SQ1014.2
025600           07 FILLER              PIC X(1).                       SQ1014.2
025700           07 REELUNIT-NUMBER     PIC 9(1).                       SQ1014.2
025800           07 FILLER              PIC X(7).                       SQ1014.2
025900           07 XRECORD-NUMBER      PIC 9(6).                       SQ1014.2
026000           07 FILLER              PIC X(6).                       SQ1014.2
026100           07 UPDATE-NUMBER       PIC 9(2).                       SQ1014.2
026200           07 FILLER              PIC X(5).                       SQ1014.2
026300           07 ODO-NUMBER          PIC 9(4).                       SQ1014.2
026400           07 FILLER              PIC X(5).                       SQ1014.2
026500           07 XPROGRAM-NAME       PIC X(5).                       SQ1014.2
026600           07 FILLER              PIC X(7).                       SQ1014.2
026700           07 XRECORD-LENGTH      PIC 9(6).                       SQ1014.2
026800           07 FILLER              PIC X(7).                       SQ1014.2
026900           07 CHARS-OR-RECORDS    PIC X(2).                       SQ1014.2
027000           07 FILLER              PIC X(1).                       SQ1014.2
027100           07 XBLOCK-SIZE         PIC 9(4).                       SQ1014.2
027200           07 FILLER              PIC X(6).                       SQ1014.2
027300           07 RECORDS-IN-FILE     PIC 9(6).                       SQ1014.2
027400           07 FILLER              PIC X(5).                       SQ1014.2
027500           07 XFILE-ORGANIZATION  PIC X(2).                       SQ1014.2
027600           07 FILLER              PIC X(6).                       SQ1014.2
027700           07 XLABEL-TYPE         PIC X(1).                       SQ1014.2
027800        05 FILE-RECORD-INFO-P121-240.                             SQ1014.2
027900           07 FILLER              PIC X(8).                       SQ1014.2
028000           07 XRECORD-KEY         PIC X(29).                      SQ1014.2
028100           07 FILLER              PIC X(9).                       SQ1014.2
028200           07 ALTERNATE-KEY1      PIC X(29).                      SQ1014.2
028300           07 FILLER              PIC X(9).                       SQ1014.2
028400           07 ALTERNATE-KEY2      PIC X(29).                      SQ1014.2
028500           07 FILLER              PIC X(7).                       SQ1014.2
028600*                                                                 SQ1014.2
028700 01  TEST-RESULTS.                                                SQ1014.2
028800     02 FILLER              PIC X      VALUE SPACE.               SQ1014.2
028900     02 FEATURE             PIC X(24)  VALUE SPACE.               SQ1014.2
029000     02 FILLER              PIC X      VALUE SPACE.               SQ1014.2
029100     02 P-OR-F              PIC X(5)   VALUE SPACE.               SQ1014.2
029200     02 FILLER              PIC X      VALUE SPACE.               SQ1014.2
029300     02  PAR-NAME.                                                SQ1014.2
029400       03 FILLER              PIC X(14)  VALUE SPACE.             SQ1014.2
029500       03 PARDOT-X            PIC X      VALUE SPACE.             SQ1014.2
029600       03 DOTVALUE            PIC 99     VALUE ZERO.              SQ1014.2
029700     02 FILLER              PIC X(9)   VALUE SPACE.               SQ1014.2
029800     02 RE-MARK             PIC X(61).                            SQ1014.2
029900 01  TEST-COMPUTED.                                               SQ1014.2
030000   02 FILLER  PIC X(30)  VALUE SPACE.                             SQ1014.2
030100   02 FILLER  PIC X(17)  VALUE " COMPUTED =".                SQ1014.2
030200   02 COMPUTED-X.                                                 SQ1014.2
030300     03 COMPUTED-A    PIC X(20)  VALUE SPACE.                     SQ1014.2
030400     03 COMPUTED-N    REDEFINES COMPUTED-A PIC -9(9).9(9).        SQ1014.2
030500     03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18).           SQ1014.2
030600     03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14).       SQ1014.2
030700     03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4).       SQ1014.2
030800     03       CM-18V0 REDEFINES COMPUTED-A.                       SQ1014.2
030900        04 COMPUTED-18V0                   PIC -9(18).            SQ1014.2
031000        04 FILLER                          PIC X.                 SQ1014.2
031100     03 FILLER PIC X(50) VALUE SPACE.                             SQ1014.2
031200 01  TEST-CORRECT.                                                SQ1014.2
031300     02 FILLER PIC X(30) VALUE SPACE.                             SQ1014.2
031400     02 FILLER PIC X(17) VALUE " CORRECT =".                SQ1014.2
031500     02 CORRECT-X.                                                SQ1014.2
031600     03 CORRECT-A                  PIC X(20) VALUE SPACE.         SQ1014.2
031700     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      SQ1014.2
031800     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         SQ1014.2
031900     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     SQ1014.2
032000     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     SQ1014.2
032100     03      CR-18V0 REDEFINES CORRECT-A.                         SQ1014.2
032200         04 CORRECT-18V0                     PIC -9(18).          SQ1014.2
032300         04 FILLER                           PIC X.               SQ1014.2
032400     03 FILLER PIC X(2) VALUE SPACE.                              SQ1014.2
032500     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     SQ1014.2
032600 01  CCVS-C-1.                                                    SQ1014.2
032700     02 FILLER  PIC IS X(4)     VALUE SPACE.                      SQ1014.2
032800     02 FILLER  PIC IS X(98)    VALUE IS "FEATURE PASQ1014.2
032900-    "SS PARAGRAPH-NAME SQ1014.2
033000-    " REMARKS".                                            SQ1014.2
033100     02 FILLER           PIC X(17)    VALUE SPACE.                SQ1014.2
033200 01  CCVS-C-2.                                                    SQ1014.2
033300     02 FILLER           PIC XXXX     VALUE SPACE.                SQ1014.2
033400     02 FILLER           PIC X(6)     VALUE "TESTED".             SQ1014.2
033500     02 FILLER           PIC X(16)    VALUE SPACE.                SQ1014.2
033600     02 FILLER           PIC X(4)     VALUE "FAIL".               SQ1014.2
033700     02 FILLER           PIC X(90)    VALUE SPACE.                SQ1014.2
033800 01  REC-SKL-SUB       PIC 9(2)     VALUE ZERO.                   SQ1014.2
033900 01  REC-CT            PIC 99       VALUE ZERO.                   SQ1014.2
034000 01  DELETE-COUNTER    PIC 999      VALUE ZERO.                   SQ1014.2
034100 01  ERROR-COUNTER     PIC 999      VALUE ZERO.                   SQ1014.2
034200 01  INSPECT-COUNTER   PIC 999      VALUE ZERO.                   SQ1014.2
034300 01  PASS-COUNTER      PIC 999      VALUE ZERO.                   SQ1014.2
034400 01  TOTAL-ERROR       PIC 999      VALUE ZERO.                   SQ1014.2
034500 01  ERROR-HOLD        PIC 999      VALUE ZERO.                   SQ1014.2
034600 01  DUMMY-HOLD        PIC X(120)   VALUE SPACE.                  SQ1014.2
034700 01  RECORD-COUNT      PIC 9(5)     VALUE ZERO.                   SQ1014.2
034800 01  ANSI-REFERENCE    PIC X(48)    VALUE SPACES.                 SQ1014.2
034900 01  CCVS-H-1.                                                    SQ1014.2
035000     02  FILLER          PIC X(39)    VALUE SPACES.               SQ1014.2
035100     02  FILLER          PIC X(42)    VALUE                       SQ1014.2
035200     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 SQ1014.2
035300     02  FILLER          PIC X(39)    VALUE SPACES.               SQ1014.2
035400 01  CCVS-H-2A.                                                   SQ1014.2
035500   02  FILLER            PIC X(40)  VALUE SPACE.                  SQ1014.2
035600   02  FILLER            PIC X(7)   VALUE "CCVS85 ".              SQ1014.2
035700   02  FILLER            PIC XXXX   VALUE                         SQ1014.2
035800     "4.2 ".                                                      SQ1014.2
035900   02  FILLER            PIC X(28)  VALUE                         SQ1014.2
036000            " COPY - NOT FOR DISTRIBUTION".                       SQ1014.2
036100   02  FILLER            PIC X(41)  VALUE SPACE.                  SQ1014.2
036200*                                                                 SQ1014.2
036300 01  CCVS-H-2B.                                                   SQ1014.2
036400   02  FILLER            PIC X(15)  VALUE "TEST RESULT OF ".      SQ1014.2
036500   02  TEST-ID           PIC X(9).                                SQ1014.2
036600   02  FILLER            PIC X(4)   VALUE " IN ".                 SQ1014.2
036700   02  FILLER            PIC X(12)  VALUE                         SQ1014.2
036800     " HIGH ".                                              SQ1014.2
036900   02  FILLER            PIC X(22)  VALUE                         SQ1014.2
037000            " LEVEL VALIDATION FOR ".                             SQ1014.2
037100   02  FILLER            PIC X(58)  VALUE                         SQ1014.2
037200     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ1014.2
037300 01  CCVS-H-3.                                                    SQ1014.2
037400     02  FILLER          PIC X(34)  VALUE                         SQ1014.2
037500            " FOR OFFICIAL USE ONLY ".                         SQ1014.2
037600     02  FILLER          PIC X(58)  VALUE                         SQ1014.2
037700     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SQ1014.2
037800     02  FILLER          PIC X(28)  VALUE                         SQ1014.2
037900            " COPYRIGHT 1985,1986 ".                           SQ1014.2
038000 01  CCVS-E-1.                                                    SQ1014.2
038100     02 FILLER           PIC X(52)  VALUE SPACE.                  SQ1014.2
038200     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              SQ1014.2
038300     02 ID-AGAIN         PIC X(9).                                SQ1014.2
038400     02 FILLER           PIC X(45)  VALUE SPACES.                 SQ1014.2
038500 01  CCVS-E-2.                                                    SQ1014.2
038600     02  FILLER          PIC X(31)  VALUE SPACE.                  SQ1014.2
038700     02  FILLER          PIC X(21)  VALUE SPACE.                  SQ1014.2
038800     02  CCVS-E-2-2.                                              SQ1014.2
038900         03 ERROR-TOTAL    PIC XXX    VALUE SPACE.                SQ1014.2
039000         03 FILLER         PIC X      VALUE SPACE.                SQ1014.2
039100         03 ENDER-DESC     PIC X(44)  VALUE                       SQ1014.2
039200            "ERRORS ENCOUNTERED".                                 SQ1014.2
039300 01  CCVS-E-3.                                                    SQ1014.2
039400     02  FILLER          PIC X(22)  VALUE                         SQ1014.2
039500            " FOR OFFICIAL USE ONLY".                             SQ1014.2
039600     02  FILLER          PIC X(12)  VALUE SPACE.                  SQ1014.2
039700     02  FILLER          PIC X(58)  VALUE                         SQ1014.2
039800     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SQ1014.2
039900     02  FILLER          PIC X(8)   VALUE SPACE.                  SQ1014.2
040000     02  FILLER          PIC X(20)  VALUE                         SQ1014.2
040100             " COPYRIGHT 1985,1986".                              SQ1014.2
040200 01  CCVS-E-4.                                                    SQ1014.2
040300     02 CCVS-E-4-1       PIC XXX    VALUE SPACE.                  SQ1014.2
040400     02 FILLER           PIC X(4)   VALUE " OF ".                 SQ1014.2
040500     02 CCVS-E-4-2       PIC XXX    VALUE SPACE.                  SQ1014.2
040600     02 FILLER           PIC X(40)  VALUE                         SQ1014.2
040700      " TESTS WERE EXECUTED SUCCESSFULLY".                       SQ1014.2
040800 01  XXINFO.                                                      SQ1014.2
040900     02 FILLER           PIC X(19)  VALUE "*** INFORMATION ***".  SQ1014.2
041000     02 INFO-TEXT.                                                SQ1014.2
041100       04 FILLER             PIC X(8)   VALUE SPACE.              SQ1014.2
041200       04 XXCOMPUTED         PIC X(20).                           SQ1014.2
041300       04 FILLER             PIC X(5)   VALUE SPACE.              SQ1014.2
041400       04 XXCORRECT          PIC X(20).                           SQ1014.2
041500     02 INF-ANSI-REFERENCE PIC X(48).                             SQ1014.2
041600 01  HYPHEN-LINE.                                                 SQ1014.2
041700     02 FILLER  PIC IS X VALUE IS SPACE.                          SQ1014.2
041800     02 FILLER  PIC IS X(65)    VALUE IS "************************SQ1014.2
041900-    "*****************************************".                 SQ1014.2
042000     02 FILLER  PIC IS X(54)    VALUE IS "************************SQ1014.2
042100-    "******************************".                            SQ1014.2
042200 01  CCVS-PGM-ID  PIC X(9)   VALUE                                SQ1014.2
042300     "SQ101M".                                                    SQ1014.2
042400 PROCEDURE DIVISION.                                              SQ1014.2
042500 CCVS1 SECTION.                                                   SQ1014.2
042600 OPEN-FILES.                                                      SQ1014.2
042700     OPEN    I-O RAW-DATA.                                        SQ1014.2
042800     MOVE    CCVS-PGM-ID TO RAW-DATA-KEY.                         SQ1014.2
042900     READ    RAW-DATA INVALID KEY GO TO END-E-1.                  SQ1014.2
043000     MOVE   "ABORTED "   TO C-ABORT.                              SQ1014.2
043100     ADD     1           TO C-NO-OF-TESTS.                        SQ1014.2
043200     ACCEPT  C-DATE      FROM DATE.                               SQ1014.2
043300     ACCEPT  C-TIME      FROM TIME.                               SQ1014.2
043400     REWRITE RAW-DATA-SATZ INVALID KEY CONTINUE.                  SQ1014.2
043500 END-E-1.                                                         SQ1014.2
043600     CLOSE   RAW-DATA.                                            SQ1014.2
043700     OPEN    OUTPUT PRINT-FILE.                                   SQ1014.2
043800     MOVE    CCVS-PGM-ID TO TEST-ID.                              SQ1014.2
043900     MOVE    CCVS-PGM-ID TO ID-AGAIN.                             SQ1014.2
044000     MOVE    SPACE TO TEST-RESULTS.                               SQ1014.2
044100     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.              SQ1014.2
044200     MOVE    ZERO TO REC-SKEL-SUB.                                SQ1014.2
044300     PERFORM CCVS-INIT-FILE 10 TIMES.                             SQ1014.2
044400     GO TO CCVS1-EXIT.                                            SQ1014.2
044500*                                                                 SQ1014.2
044600 CCVS-INIT-FILE.                                                  SQ1014.2
044700     ADD     1 TO REC-SKL-SUB.                                    SQ1014.2
044800     MOVE    FILE-RECORD-INFO-SKELETON TO                         SQ1014.2
044900                  FILE-RECORD-INFO (REC-SKL-SUB).                 SQ1014.2
045000*                                                                 SQ1014.2
045100 CLOSE-FILES.                                                     SQ1014.2
045200     PERFORM END-ROUTINE THRU END-ROUTINE-13.                     SQ1014.2
045300     CLOSE   PRINT-FILE.                                          SQ1014.2
045400     OPEN    I-O RAW-DATA.                                        SQ1014.2
045500     MOVE    CCVS-PGM-ID TO RAW-DATA-KEY.                         SQ1014.2
045600     READ    RAW-DATA INVALID KEY GO TO END-E-2.                  SQ1014.2
045700     MOVE   "OK. " TO C-ABORT.                                SQ1014.2
045800     MOVE    PASS-COUNTER  TO C-OK.                               SQ1014.2
045900     MOVE    ERROR-HOLD    TO C-ALL.                              SQ1014.2
046000     MOVE    ERROR-COUNTER TO C-FAIL.                             SQ1014.2
046100     MOVE    DELETE-CNT    TO C-DELETED.                          SQ1014.2
046200     MOVE    INSPECT-COUNTER TO C-INSPECT.                        SQ1014.2
046300     REWRITE RAW-DATA-SATZ INVALID KEY CONTINUE.                  SQ1014.2
046400 END-E-2.                                                         SQ1014.2
046500     CLOSE   RAW-DATA.                                            SQ1014.2
046600 TERMINATE-CCVS.                                                  SQ1014.2
046700     EXIT    PROGRAM.                                             SQ1014.2
046800     STOP    RUN.                                                 SQ1014.2
046900*                                                                 SQ1014.2
047000 INSPT.                                                           SQ1014.2
047100     MOVE   "INSPT" TO P-OR-F.                                    SQ1014.2
047200     ADD     1 TO INSPECT-COUNTER.                                SQ1014.2
047300*                                                                 SQ1014.2
047400 PASS.                                                            SQ1014.2
047500     MOVE   "PASS " TO P-OR-F.                                    SQ1014.2
047600     ADD     1 TO PASS-COUNTER.                                   SQ1014.2
047700*                                                                 SQ1014.2
047800 FAIL.                                                            SQ1014.2
047900     MOVE   "FAIL*" TO P-OR-F.                                    SQ1014.2
048000     ADD     1 TO ERROR-COUNTER.                                  SQ1014.2
048100*                                                                 SQ1014.2
048200 DE-LETE.                                                         SQ1014.2
048300     MOVE   "****TEST DELETED****" TO RE-MARK.                    SQ1014.2
048400     MOVE   "*****" TO P-OR-F.                                    SQ1014.2
048500     ADD     1 TO DELETE-COUNTER.                                 SQ1014.2
048600     PERFORM PRINT-DETAIL.                                        SQ1014.2
048700*                                                                 SQ1014.2
048800 PRINT-DETAIL.                                                    SQ1014.2
048900     IF REC-CT NOT EQUAL TO ZERO                                  SQ1014.2
049000         MOVE   "." TO PARDOT-X                                   SQ1014.2
049100         MOVE    REC-CT TO DOTVALUE.                              SQ1014.2
049200     MOVE    TEST-RESULTS TO PRINT-REC.                           SQ1014.2
049300     PERFORM WRITE-LINE.                                          SQ1014.2
049400     IF P-OR-F EQUAL TO "FAIL*"                                   SQ1014.2
049500         PERFORM WRITE-LINE                                       SQ1014.2
049600         PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                SQ1014.2
049700     ELSE                                                         SQ1014.2
049800         PERFORM BAIL-OUT THRU BAIL-OUT-EX.                       SQ1014.2
049900     MOVE    SPACE TO P-OR-F.                                     SQ1014.2
050000     MOVE    SPACE TO COMPUTED-X.                                 SQ1014.2
050100     MOVE    SPACE TO CORRECT-X.                                  SQ1014.2
050200     IF REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.             SQ1014.2
050300     MOVE    SPACE TO RE-MARK.                                    SQ1014.2
050400*                                                                 SQ1014.2
050500 HEAD-ROUTINE.                                                    SQ1014.2
050600     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  SQ1014.2
050700     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  SQ1014.2
050800     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  SQ1014.2
050900     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  SQ1014.2
051000 COLUMN-NAMES-ROUTINE.                                            SQ1014.2
051100     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SQ1014.2
051200     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   SQ1014.2
051300     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        SQ1014.2
051400 END-ROUTINE.                                                     SQ1014.2
051500     MOVE    HYPHEN-LINE TO DUMMY-RECORD.                         SQ1014.2
051600     PERFORM WRITE-LINE 5 TIMES.                                  SQ1014.2
051700 END-RTN-EXIT.                                                    SQ1014.2
051800     MOVE    CCVS-E-1 TO DUMMY-RECORD.                            SQ1014.2
051900     PERFORM WRITE-LINE 2 TIMES.                                  SQ1014.2
052000*                                                                 SQ1014.2
052100 END-ROUTINE-1.                                                   SQ1014.2
052200     ADD     ERROR-COUNTER   TO ERROR-HOLD                        SQ1014.2
052300     ADD     INSPECT-COUNTER TO ERROR-HOLD.                       SQ1014.2
052400     ADD     DELETE-COUNTER  TO ERROR-HOLD.                       SQ1014.2
052500     ADD     PASS-COUNTER    TO ERROR-HOLD.                       SQ1014.2
052600     MOVE    PASS-COUNTER    TO CCVS-E-4-1.                       SQ1014.2
052700     MOVE    ERROR-HOLD      TO CCVS-E-4-2.                       SQ1014.2
052800     MOVE    CCVS-E-4        TO CCVS-E-2-2.                       SQ1014.2
052900     MOVE    CCVS-E-2        TO DUMMY-RECORD                      SQ1014.2
053000     PERFORM WRITE-LINE.                                          SQ1014.2
053100     MOVE   "TEST(S) FAILED" TO ENDER-DESC.                       SQ1014.2
053200     IF ERROR-COUNTER IS EQUAL TO ZERO                            SQ1014.2
053300         MOVE   "NO " TO ERROR-TOTAL                              SQ1014.2
053400     ELSE                                                         SQ1014.2
053500         MOVE    ERROR-COUNTER TO ERROR-TOTAL.                    SQ1014.2
053600     MOVE    CCVS-E-2 TO DUMMY-RECORD.                            SQ1014.2
053700     PERFORM WRITE-LINE.                                          SQ1014.2
053800 END-ROUTINE-13.                                                  SQ1014.2
053900     IF DELETE-COUNTER IS EQUAL TO ZERO                           SQ1014.2
054000         MOVE   "NO " TO ERROR-TOTAL                              SQ1014.2
054100     ELSE                                                         SQ1014.2
054200         MOVE    DELETE-COUNTER TO ERROR-TOTAL.                   SQ1014.2
054300     MOVE   "TEST(S) DELETED " TO ENDER-DESC.                 SQ1014.2
054400     MOVE    CCVS-E-2 TO DUMMY-RECORD.                            SQ1014.2
054500     PERFORM WRITE-LINE.                                          SQ1014.2
054600     IF INSPECT-COUNTER EQUAL TO ZERO                             SQ1014.2
054700         MOVE   "NO " TO ERROR-TOTAL                              SQ1014.2
054800     ELSE                                                         SQ1014.2
054900         MOVE    INSPECT-COUNTER TO ERROR-TOTAL.                  SQ1014.2
055000     MOVE   "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.           SQ1014.2
055100     MOVE    CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.        SQ1014.2
055200     MOVE    CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.        SQ1014.2
055300*                                                                 SQ1014.2
055400 WRITE-LINE.                                                      SQ1014.2
055500     ADD     1 TO RECORD-COUNT.                                   SQ1014.2
055600     IF RECORD-COUNT GREATER 50                                   SQ1014.2
055700         MOVE  DUMMY-RECORD TO DUMMY-HOLD                         SQ1014.2
055800         MOVE  SPACE TO DUMMY-RECORD                              SQ1014.2
055900         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  SQ1014.2
056000         MOVE  CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN            SQ1014.2
056100         MOVE  CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    SQ1014.2
056200         MOVE  HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN         SQ1014.2
056300         MOVE  DUMMY-HOLD TO DUMMY-RECORD                         SQ1014.2
056400         MOVE  ZERO TO RECORD-COUNT.                              SQ1014.2
056500     PERFORM WRT-LN.                                              SQ1014.2
056600*                                                                 SQ1014.2
056700 WRT-LN.                                                          SQ1014.2
056800     WRITE   DUMMY-RECORD AFTER ADVANCING 1 LINES.                SQ1014.2
056900     MOVE    SPACE TO DUMMY-RECORD.                               SQ1014.2
057000 BLANK-LINE-PRINT.                                                SQ1014.2
057100     PERFORM WRT-LN.                                              SQ1014.2
057200 FAIL-ROUTINE.                                                    SQ1014.2
057300     IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.   SQ1014.2
057400     IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.    SQ1014.2
057500     MOVE    ANSI-REFERENCE TO INF-ANSI-REFERENCE.                SQ1014.2
057600     MOVE   "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.  SQ1014.2
057700     MOVE    XXINFO TO DUMMY-RECORD.                              SQ1014.2
057800     PERFORM WRITE-LINE 2 TIMES.                                  SQ1014.2
057900     MOVE    SPACES TO INF-ANSI-REFERENCE.                        SQ1014.2
058000     GO TO   FAIL-ROUTINE-EX.                                     SQ1014.2
058100 FAIL-ROUTINE-WRITE.                                              SQ1014.2
058200     MOVE    TEST-COMPUTED  TO PRINT-REC                          SQ1014.2
058300     PERFORM WRITE-LINE                                           SQ1014.2
058400     MOVE    ANSI-REFERENCE TO COR-ANSI-REFERENCE.                SQ1014.2
058500     MOVE    TEST-CORRECT   TO PRINT-REC                          SQ1014.2
058600     PERFORM WRITE-LINE 2 TIMES.                                  SQ1014.2
058700     MOVE    SPACES         TO COR-ANSI-REFERENCE.                SQ1014.2
058800 FAIL-ROUTINE-EX.                                                 SQ1014.2
058900     EXIT.                                                        SQ1014.2
059000 BAIL-OUT.                                                        SQ1014.2
059100     IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.       SQ1014.2
059200     IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.               SQ1014.2
059300 BAIL-OUT-WRITE.                                                  SQ1014.2
059400     MOVE    CORRECT-A      TO XXCORRECT.                         SQ1014.2
059500     MOVE    COMPUTED-A     TO XXCOMPUTED.                        SQ1014.2
059600     MOVE    ANSI-REFERENCE TO INF-ANSI-REFERENCE.                SQ1014.2
059700     MOVE    XXINFO TO DUMMY-RECORD.                              SQ1014.2
059800     PERFORM WRITE-LINE 2 TIMES.                                  SQ1014.2
059900     MOVE    SPACES TO INF-ANSI-REFERENCE.                        SQ1014.2
060000 BAIL-OUT-EX.                                                     SQ1014.2
060100     EXIT.                                                        SQ1014.2
060200 CCVS1-EXIT.                                                      SQ1014.2
060300     EXIT.                                                        SQ1014.2
060400*                                                                 SQ1014.2
060500****************************************************************  SQ1014.2
060600*                                                              *  SQ1014.2
060700*    THIS POINT MARKS THE END OF THE CCVS MONITOR ROUTINES AND *  SQ1014.2
060800*    THE START OF THE TESTS OF SPECIFIC COBOL FEATURES.        *  SQ1014.2
060900*                                                              *  SQ1014.2
061000****************************************************************  SQ1014.2
061100*                                                                 SQ1014.2
061200 SECT-SQ101-0001 SECTION.                                         SQ1014.2
061300 WRT-PREAMBLE.                                                    SQ1014.2
061400     MOVE NOTE-1 TO PRINT-REC.                                    SQ1014.2
061500     WRITE PRINT-REC AFTER ADVANCING 1 LINE.                      SQ1014.2
061600     MOVE NOTE-2 TO PRINT-REC.                                    SQ1014.2
061700     WRITE PRINT-REC AFTER ADVANCING 1 LINE.                      SQ1014.2
061800     MOVE NOTE-3 TO PRINT-REC.                                    SQ1014.2
061900     WRITE PRINT-REC AFTER ADVANCING 1 LINE.                      SQ1014.2
062000     MOVE NOTE-4 TO PRINT-REC.                                    SQ1014.2
062100     WRITE PRINT-REC AFTER ADVANCING 1 LINE.                      SQ1014.2
062200     MOVE NOTE-5 TO PRINT-REC.                                    SQ1014.2
062300     WRITE PRINT-REC AFTER ADVANCING 1 LINE.                      SQ1014.2
062400     MOVE NOTE-6 TO PRINT-REC.                                    SQ1014.2
062500     WRITE PRINT-REC AFTER ADVANCING 1 LINE.                      SQ1014.2
062600     MOVE NOTE-7 TO PRINT-REC.                                    SQ1014.2
062700     WRITE PRINT-REC AFTER ADVANCING 1 LINE.                      SQ1014.2
062800     MOVE NOTE-8 TO PRINT-REC.                                    SQ1014.2
062900     WRITE PRINT-REC AFTER ADVANCING 1 LINE.                      SQ1014.2
063000     MOVE SPACE TO DUMMY-RECORD.                                  SQ1014.2
063100     PERFORM BLANK-LINE-PRINT.                                    SQ1014.2
063200*                                                                 SQ1014.2
063300****************************************************************  SQ1014.2
063400*                                                              *  SQ1014.2
063500*    THE STANDARD PAGE HEADING OF THE MONITOR OUTPUT AND THE   *  SQ1014.2
063600*    PREAMBLE DESCRIBING MONTORING REQUIREMENTS WILL HAVE USED *  SQ1014.2
063700*    24 LINES ON THE FIRST PAGE OF PRINTED OUTPUT.  THE TESTS  *  SQ1014.2
063800*    ARE ARRANGED WHEREVER POSSIBLE SO THAT THE BLANK LINES    *  SQ1014.2
063900*    WHICH MUST BE COUNTED DO NOT INCLUDE A BOUNDARY BETWEEN   *  SQ1014.2
064000*    TWO PAGES.                                                *  SQ1014.2
064100*                                                              *  SQ1014.2
064200*    IT IS ASSUMED THAT A PHYSICAL PAGE CAN SHOW AT LEAST 60   *  SQ1014.2
064300*    PRINTED LINES.  THERE ARE THUS AT LEAST 36 LINES LEFT ON  *  SQ1014.2
064400*    THIS FIRST PAGE.                                          *  SQ1014.2
064500*                                                              *  SQ1014.2
064600****************************************************************  SQ1014.2
064700*                                                                 SQ1014.2
064800 WRT-INIT-GF-01.                                                  SQ1014.2
064900*                                                                 SQ1014.2
065000*    THIS TEST ADVANCES THE PRINT POSITION 8 LINES                SQ1014.2
065100*                                                                 SQ1014.2
065200     MOVE   "WRT BEFORE ADV INT LINES" TO FEATURE.                SQ1014.2
065300     MOVE   "WRT-TEST-GF-01" TO PAR-NAME.                         SQ1014.2
065400     GO TO   WRT-TEST-GF-01.                                      SQ1014.2
065500 WRT-DELETE-GF-01.                                                SQ1014.2
065600     PERFORM DE-LETE.                                             SQ1014.2
065700     GO TO   WRT-END-GF-01.                                       SQ1014.2
065800 WRT-TEST-GF-01.                                                  SQ1014.2
065900     PERFORM INSPT.                                               SQ1014.2
066000     PERFORM WRITE-TEST-LINE.                                     SQ1014.2
066100     MOVE "1" TO LINES-BELOW-1.                                   SQ1014.2
066200     MOVE "8" TO LINES-ABOVE-1.                                   SQ1014.2
066300     MOVE TEST-LINE-1 TO PRINT-REC.                               SQ1014.2
066400     WRITE PRINT-REC BEFORE ADVANCING 7 LINES.                    SQ1014.2
066500 WRT-END-GF-01.                                                   SQ1014.2
066600*                                                                 SQ1014.2
066700 WRT-INIT-GF-02.                                                  SQ1014.2
066800*                                                                 SQ1014.2
066900*    THIS TEST ADVANCES THE PRINT POSITION 7 LINES                SQ1014.2
067000*                                                                 SQ1014.2
067100     MOVE   "WRT BEFORE ADV INT LINE" TO FEATURE.                 SQ1014.2
067200     MOVE   "WRT-TEST-GF-02" TO PAR-NAME.                         SQ1014.2
067300     GO TO   WRT-TEST-GF-02.                                      SQ1014.2
067400 WRT-DELETE-GF-02.                                                SQ1014.2
067500     PERFORM DE-LETE.                                             SQ1014.2
067600     GO TO   WRT-END-GF-02.                                       SQ1014.2
067700 WRT-TEST-GF-02.                                                  SQ1014.2
067800     PERFORM INSPT.                                               SQ1014.2
067900     PERFORM WRITE-TEST-LINE.                                     SQ1014.2
068000     MOVE "1" TO LINES-BELOW-1.                                   SQ1014.2
068100     MOVE "7" TO LINES-ABOVE-1.                                   SQ1014.2
068200     MOVE TEST-LINE-1 TO DUMMY-RECORD.                            SQ1014.2
068300     WRITE DUMMY-RECORD BEFORE ADVANCING 6 LINE.                  SQ1014.2
068400 WRT-END-GF-02.                                                   SQ1014.2
068500*                                                                 SQ1014.2
068600 WRT-INIT-GF-03.                                                  SQ1014.2
068700*                                                                 SQ1014.2
068800*    THIS TEST ADVANCES THE PRINT POSITION 6 LINES                SQ1014.2
068900*                                                                 SQ1014.2
069000     MOVE   "WRT BEFORE INTEGER LINES" TO FEATURE.                SQ1014.2
069100     MOVE   "WRT-TEST-GF-03" TO PAR-NAME.                         SQ1014.2
069200     GO TO   WRT-TEST-GF-03.                                      SQ1014.2
069300 WRT-DELETE-GF-03.                                                SQ1014.2
069400     PERFORM DE-LETE.                                             SQ1014.2
069500     GO TO   WRT-END-GF-03.                                       SQ1014.2
069600 WRT-TEST-GF-03.                                                  SQ1014.2
069700     PERFORM INSPT.                                               SQ1014.2
069800     PERFORM WRITE-TEST-LINE.                                     SQ1014.2
069900     MOVE   "1" TO LINES-BELOW-2.                                 SQ1014.2
070000     MOVE   "6" TO LINES-ABOVE-2.                                 SQ1014.2
070100     MOVE    TEST-LINE-2 TO PRINT-REC.                            SQ1014.2
070200     WRITE   PRINT-REC BEFORE 5 LINES.                            SQ1014.2
070300 WRT-END-GF-03.                                                   SQ1014.2
070400*                                                                 SQ1014.2
070500 WRT-INIT-GF-04.                                                  SQ1014.2
070600*                                                                 SQ1014.2
070700*    THIS TEST ADVANCES THE PRINT POSITION 5 LINES                SQ1014.2
070800*                                                                 SQ1014.2
070900     MOVE   "WRT BEFORE INTEGER LINE" TO FEATURE.                 SQ1014.2
071000     MOVE   "WRT-TEST-GF-04" TO PAR-NAME.                         SQ1014.2
071100     GO TO   WRT-TEST-GF-04.                                      SQ1014.2
071200 WRT-DELETE-GF-04.                                                SQ1014.2
071300     PERFORM DE-LETE.                                             SQ1014.2
071400     GO TO   WRT-END-GF-04.                                       SQ1014.2
071500 WRT-TEST-GF-04.                                                  SQ1014.2
071600     PERFORM INSPT.                                               SQ1014.2
071700     PERFORM WRITE-TEST-LINE.                                     SQ1014.2
071800     MOVE "1" TO LINES-BELOW-2.                                   SQ1014.2
071900     MOVE "5" TO LINES-ABOVE-2.                                   SQ1014.2
072000     MOVE TEST-LINE-2 TO DUMMY-RECORD.                            SQ1014.2
072100     WRITE DUMMY-RECORD BEFORE 4 LINE.                            SQ1014.2
072200 WRT-END-GF-04.                                                   SQ1014.2
072300*                                                                 SQ1014.2
072400 WRT-INIT-GF-05.                                                  SQ1014.2
072500*                                                                 SQ1014.2
072600*    THIS TEST ADVANCES THE PRINT POSITION 5 LINES                SQ1014.2
072700*                                                                 SQ1014.2
072800     MOVE   "WRT AFTER ADV INT LINES" TO FEATURE.                 SQ1014.2
072900     MOVE   "WRT-TEST-GF-05" TO PAR-NAME.                         SQ1014.2
073000     GO TO   WRT-TEST-GF-05.                                      SQ1014.2
073100 WRT-DELETE-GF-05.                                                SQ1014.2
073200     PERFORM DE-LETE.                                             SQ1014.2
073300     GO TO   WRT-END-GF-05.                                       SQ1014.2
073400 WRT-TEST-GF-05.                                                  SQ1014.2
073500     PERFORM INSPT.                                               SQ1014.2
073600     PERFORM WRITE-TEST-LINE.                                     SQ1014.2
073700     MOVE "4" TO LINES-BELOW-1.                                   SQ1014.2
073800     MOVE "1" TO LINES-ABOVE-1.                                   SQ1014.2
073900     MOVE TEST-LINE-1 TO PRINT-REC.                               SQ1014.2
074000     WRITE PRINT-REC AFTER ADVANCING 3 LINES.                     SQ1014.2
074100 WRT-END-GF-05.                                                   SQ1014.2
074200*                                                                 SQ1014.2
074300 WRT-INIT-GF-06.                                                  SQ1014.2
074400*                                                                 SQ1014.2
074500*    THE NEXT TEST IN NORMAL SEQUENCE WOULD COME VERY NEAR TO     SQ1014.2
074600*    OVERFLOWING THE CURRENT PAGE, SO THE FIRST OF THE TESTS OF   SQ1014.2
074700*    ADVANCING PAGE IS INSERTED HERE.  IT SHOULD LEAVE LINE 2     SQ1014.2
074800*    ON THE NEW PAGE AS THE CURRENT LINE, SO THAT THE FIRST       SQ1014.2
074900*    WRT-TEST LINE ON THE NEW PAGE IS THE THIRD PRINTABLE LINE.   SQ1014.2
075000*                                                                 SQ1014.2
075100     MOVE   "WRT BEFORE ADV PAGE" TO FEATURE.                     SQ1014.2
075200     MOVE   "WRT-TEST-GF-06" TO PAR-NAME.                         SQ1014.2
075300     GO TO   WRT-TEST-GF-06.                                      SQ1014.2
075400 WRT-DELETE-GF-06.                                                SQ1014.2
075500     PERFORM DE-LETE.                                             SQ1014.2
075600     GO TO   WRT-END-GF-06.                                       SQ1014.2
075700 WRT-TEST-GF-06.                                                  SQ1014.2
075800     PERFORM INSPT.                                               SQ1014.2
075900     PERFORM WRITE-TEST-LINE.                                     SQ1014.2
076000     MOVE    LAST-LINE TO PRINT-REC.                              SQ1014.2
076100     WRITE   PRINT-REC BEFORE ADVANCING PAGE.                     SQ1014.2
076200     MOVE    NEW-PAGE-LINE TO PRINT-REC.                          SQ1014.2
076300     WRITE   PRINT-REC BEFORE ADVANCING 1 LINE.                   SQ1014.2
076400     MOVE    NEXT-LINE TO PRINT-REC.                              SQ1014.2
076500     WRITE   PRINT-REC BEFORE ADVANCING 0 LINE.                   SQ1014.2
076600 WRT-END-GF-06.                                                   SQ1014.2
076700*                                                                 SQ1014.2
076800 WRT-INIT-GF-07.                                                  SQ1014.2
076900*                                                                 SQ1014.2
077000*    THIS TEST ADVANCES THE PRINT POSITION 4 LINES TO LINE 6      SQ1014.2
077100*                                                                 SQ1014.2
077200     MOVE   "WRT AFTER ADV INT LINE" TO FEATURE.                  SQ1014.2
077300     MOVE   "WRT-TEST-GF-07" TO PAR-NAME.                         SQ1014.2
077400     GO TO   WRT-TEST-GF-07.                                      SQ1014.2
077500 WRT-DELETE-GF-07.                                                SQ1014.2
077600     PERFORM DE-LETE.                                             SQ1014.2
077700     GO TO   WRT-END-GF-07.                                       SQ1014.2
077800 WRT-TEST-GF-07.                                                  SQ1014.2
077900     PERFORM INSPT.                                               SQ1014.2
078000     PERFORM WRITE-TEST-LINE.                                     SQ1014.2
078100     MOVE   "3" TO LINES-BELOW-1.                                 SQ1014.2
078200     MOVE   "1" TO LINES-ABOVE-1.                                 SQ1014.2
078300     MOVE    TEST-LINE-1 TO DUMMY-RECORD.                         SQ1014.2
078400     WRITE   DUMMY-RECORD AFTER ADVANCING 2 LINES.                SQ1014.2
078500 WRT-END-GF-07.                                                   SQ1014.2
078600*                                                                 SQ1014.2
078700 WRT-INIT-GF-08.                                                  SQ1014.2
078800*                                                                 SQ1014.2
078900*    THIS TEST IS IN TWO PARTS.  IT PRINTS ON THE LINE BELOW      SQ1014.2
079000*    THE MARKER LINE, THEN OVERPRINTS THAT LINE, ADVANCING ZERO   SQ1014.2
079100*    LINES AFTER PRINTING.                                        SQ1014.2
079200*    TOTAL PAPER ADVANCE IS TWO LINES, TO LINE 8.                 SQ1014.2
079300*                                                                 SQ1014.2
079400     MOVE   "WRT AFTER INT LINE/S" TO FEATURE.                    SQ1014.2
079500     MOVE   "WRT-TEST-GF-08" TO PAR-NAME.                         SQ1014.2
079600     GO TO   WRT-TEST-GF-08.                                      SQ1014.2
079700 WRT-DELETE-GF-08.                                                SQ1014.2
079800     PERFORM DE-LETE.                                             SQ1014.2
079900     GO TO   WRT-END-GF-08.                                       SQ1014.2
080000 WRT-TEST-GF-08.                                                  SQ1014.2
080100     PERFORM INSPT.                                               SQ1014.2
080200     PERFORM WRITE-TEST-LINE.                                     SQ1014.2
080300     MOVE   "08" TO OVERPRINTED-TEST.                             SQ1014.2
080400     MOVE    OVERPRINTED-LINE TO PRINT-REC.                       SQ1014.2
080500     WRITE   PRINT-REC AFTER 1 LINES.                             SQ1014.2
080600     MOVE   "08" TO OVERPRINT-TEST.                               SQ1014.2
080700     MOVE    OVERPRINT-LINE TO PRINT-REC.                         SQ1014.2
080800     WRITE   PRINT-REC AFTER 0 LINE.                              SQ1014.2
080900 WRT-END-GF-08.                                                   SQ1014.2
--> --------------------

--> maximum size reached

--> --------------------

¤ Dauer der Verarbeitung: 0.32 Sekunden  (vorverarbeitet)  ¤





Download des
Quellennavigators
Download des
sprechenden Kalenders

in der Quellcodebibliothek suchen




Haftungshinweis

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


Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.


Bot Zugriff



                                                                                                                                                                                                                                                                                                                                                                                                     


Neuigkeiten

     Aktuelles
     Motto des Tages

Software

     Produkte
     Quellcodebibliothek

Aktivitäten

     Artikel über Sicherheit
     Anleitung zur Aktivierung von SSL

Muße

     Gedichte
     Musik
     Bilder

Jenseits des Üblichen ....
    

Besucherstatistik

Besucherstatistik