SSL rl101a.cob   Interaktion und
PortierbarkeitCobol

000100 IDENTIFICATION DIVISION.                                         RL1014.2
000200 PROGRAM-ID.                                                      RL1014.2
000300     RL101A.                                                      RL1014.2
000400****************************************************************  RL1014.2
000500*                                                              *  RL1014.2
000600*    VALIDATION FOR:-                                          *  RL1014.2
000700*                                                              *  RL1014.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".RL1014.2
000900*                                                              *  RL1014.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".RL1014.2
001100*                                                              *  RL1014.2
001200****************************************************************  RL1014.2
001300*                                                              *  RL1014.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  RL1014.2
001500*                                                              *  RL1014.2
001600*            X-21   IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR   *  RL1014.2
001700*                    RELATIVE  I-O DATA FILE                   *  RL1014.2
001800*            X-55   SYSTEM PRINTER                             *  RL1014.2
001900*            X-69   ADDITIONAL VALUE OF CLAUSES                *  RL1014.2
002000*            X-74   VALUE OF IMPLEMENTOR-NAME                  *  RL1014.2
002100*            X-75   OBJECT OF VALUE OF CLAUSE                  *  RL1014.2
002200*            X-82   SOURCE-COMPUTER                            *  RL1014.2
002300*            X-83   OBJECT-COMPUTER.                           *  RL1014.2
002400*                                                              *  RL1014.2
002500****************************************************************  RL1014.2
002600*   RL111A                                                     *  RL1014.2
000500*                                                              *  RL1014.2
000600*    VALIDATION FOR:-                                          *  RL1014.2
000700*                                                              *  RL1014.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".RL1014.2
000900*                                                              *  RL1014.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".RL1014.2
001100*                                                              *  RL1014.2
001200****************************************************************  RL1014.2
001300*                                                              *  RL1014.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  RL1014.2
001500*                                                              *  RL1014.2
001600*            X-21   IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR   *  RL1014.2
001700*                    RELATIVE  I-O DATA FILE                   *  RL1014.2
001800*            X-55   SYSTEM PRINTER                             *  RL1014.2
001900*            X-69   ADDITIONAL VALUE OF CLAUSES                *  RL1014.2
002000*            X-74   VALUE OF IMPLEMENTOR-NAME                  *  RL1014.2
002100*            X-75   OBJECT OF VALUE OF CLAUSE                  *  RL1014.2
002200*            X-82   SOURCE-COMPUTER                            *  RL1014.2
002300*            X-83   OBJECT-COMPUTER.                           *  RL1014.2
002400*                                                              *  RL1014.2
002500****************************************************************  RL1014.2
002600*   RL111A                                                     *  RL1014.2
002700****************************************************************  RL1014.2
002800*                                                              *  RL1014.2
002900*     THIS PROGRAM WILL TEST THE NEW SYNTACTICAL CONSTRUCTS    *  RL1014.2
003000*     AND SEMENTIC ACTIONS ASSOCIATED WITH THE FOLLOWING       *  RL1014.2
003100*     CLAUSES:                                                 *  RL1014.2
003200*          - ACCESS                                            *  RL1014.2
003300*          - READ                                              *  RL1014.2
003400*          - WRITE                                             *  RL1014.2
003500*          - REWRITE                                           *  RL1014.2
003600*                                                              *  RL1014.2
003700*     1) THE PROGRAM WILL CREATE A RELATIVE I-O FILE           *  RL1014.2
003800*     2) THEN IT WILL UPDATE SELECTIVE RECORDS OF THE FILE     *  RL1014.2
003900*     3) THE FILE STATUS CONTENTS ARE CAPTURED AND TESTED FOR  *  RL1014.2
004000*        ACCURACY FOR EACH "OPEN", "CLOSE", "READ" AND         *  RL1014.2
004100*        "REWRITE" STATEMENT USED.                             *  RL1014.2
004200*     4) THE "READ", "WRITE" AND "REWRITE" STATEMENT WILL BE   *  RL1014.2
004300*        USED WITH THE APPROPRIATE "AT END", "NOT AT END",     *  RL1014.2
004400*        "INVALID KEY" AND "NOT INVALID KEY" PHRASES.          *  RL1014.2
004500*                                                              *  RL1014.2
000500*                                                              *  RL1014.2
000600*    VALIDATION FOR:-                                          *  RL1014.2
000700*                                                              *  RL1014.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".RL1014.2
000900*                                                              *  RL1014.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".RL1014.2
001100*                                                              *  RL1014.2
001200****************************************************************  RL1014.2
001300*                                                              *  RL1014.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  RL1014.2
001500*                                                              *  RL1014.2
001600*            X-21   IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR   *  RL1014.2
001700*                    RELATIVE  I-O DATA FILE                   *  RL1014.2
001800*            X-55   SYSTEM PRINTER                             *  RL1014.2
001900*            X-69   ADDITIONAL VALUE OF CLAUSES                *  RL1014.2
002000*            X-74   VALUE OF IMPLEMENTOR-NAME                  *  RL1014.2
002100*            X-75   OBJECT OF VALUE OF CLAUSE                  *  RL1014.2
002200*            X-82   SOURCE-COMPUTER                            *  RL1014.2
002300*            X-83   OBJECT-COMPUTER.                           *  RL1014.2
002400*                                                              *  RL1014.2
002500****************************************************************  RL1014.2
002600*   RL111A                                                     *  RL1014.2
002700****************************************************************  RL1014.2
002800*                                                              *  RL1014.2
002900*     THIS PROGRAM WILL TEST THE NEW SYNTACTICAL CONSTRUCTS    *  RL1014.2
003000*     AND SEMENTIC ACTIONS ASSOCIATED WITH THE FOLLOWING       *  RL1014.2
003100*     CLAUSES:                                                 *  RL1014.2
003200*          - ACCESS                                            *  RL1014.2
003300*          - READ                                              *  RL1014.2
003400*          - WRITE                                             *  RL1014.2
003500*          - REWRITE                                           *  RL1014.2
003600*                                                              *  RL1014.2
003700*     1) THE PROGRAM WILL CREATE A RELATIVE I-O FILE           *  RL1014.2
003800*     2) THEN IT WILL UPDATE SELECTIVE RECORDS OF THE FILE     *  RL1014.2
003900*     3) THE FILE STATUS CONTENTS ARE CAPTURED AND TESTED FOR  *  RL1014.2
004000*        ACCURACY FOR EACH "OPEN", "CLOSE", "READ" AND         *  RL1014.2
004100*        "REWRITE" STATEMENT USED.                             *  RL1014.2
004200*     4) THE "READ", "WRITE" AND "REWRITE" STATEMENT WILL BE   *  RL1014.2
004300*        USED WITH THE APPROPRIATE "AT END", "NOT AT END",     *  RL1014.2
004400*        "INVALID KEY" AND "NOT INVALID KEY" PHRASES.          *  RL1014.2
004500*                                                              *  RL1014.2
002700****************************************************************  RL1014.2
002800*                                                              *  RL1014.2
002900*     THIS PROGRAM WILL TEST THE NEW SYNTACTICAL CONSTRUCTS    *  RL1014.2
003000*     AND SEMENTIC ACTIONS ASSOCIATED WITH THE FOLLOWING       *  RL1014.2
003100*     CLAUSES:                                                 *  RL1014.2
003200*          - ACCESS                                            *  RL1014.2
003300*          - READ                                              *  RL1014.2
003400*          - WRITE                                             *  RL1014.2
003500*          - REWRITE                                           *  RL1014.2
003600*                                                              *  RL1014.2
003700*     1) THE PROGRAM WILL CREATE A RELATIVE I-O FILE           *  RL1014.2
003800*     2) THEN IT WILL UPDATE SELECTIVE RECORDS OF THE FILE     *  RL1014.2
003900*     3) THE FILE STATUS CONTENTS ARE CAPTURED AND TESTED FOR  *  RL1014.2
004000*        ACCURACY FOR EACH "OPEN", "CLOSE", "READ" AND         *  RL1014.2
004100*        "REWRITE" STATEMENT USED.                             *  RL1014.2
004200*     4) THE "READ", "WRITE" AND "REWRITE" STATEMENT WILL BE   *  RL1014.2
004300*        USED WITH THE APPROPRIATE "AT END", "NOT AT END",     *  RL1014.2
004400*        "INVALID KEY" AND "NOT INVALID KEY" PHRASES.          *  RL1014.2
004500*                                                              *  RL1014.2
000500*                                                              *  RL1014.2
000600*    VALIDATION FOR:-                                          *  RL1014.2
000700*                                                              *  RL1014.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".RL1014.2
000900*                                                              *  RL1014.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".RL1014.2
001100*                                                              *  RL1014.2
001200****************************************************************  RL1014.2
001300*                                                              *  RL1014.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  RL1014.2
001500*                                                              *  RL1014.2
001600*            X-21   IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR   *  RL1014.2
001700*                    RELATIVE  I-O DATA FILE                   *  RL1014.2
001800*            X-55   SYSTEM PRINTER                             *  RL1014.2
001900*            X-69   ADDITIONAL VALUE OF CLAUSES                *  RL1014.2
002000*            X-74   VALUE OF IMPLEMENTOR-NAME                  *  RL1014.2
002100*            X-75   OBJECT OF VALUE OF CLAUSE                  *  RL1014.2
002200*            X-82   SOURCE-COMPUTER                            *  RL1014.2
002300*            X-83   OBJECT-COMPUTER.                           *  RL1014.2
002400*                                                              *  RL1014.2
002500****************************************************************  RL1014.2
002600*   RL111A                                                     *  RL1014.2
002700****************************************************************  RL1014.2
002800*                                                              *  RL1014.2
002900*     THIS PROGRAM WILL TEST THE NEW SYNTACTICAL CONSTRUCTS    *  RL1014.2
003000*     AND SEMENTIC ACTIONS ASSOCIATED WITH THE FOLLOWING       *  RL1014.2
003100*     CLAUSES:                                                 *  RL1014.2
003200*          - ACCESS                                            *  RL1014.2
003300*          - READ                                              *  RL1014.2
003400*          - WRITE                                             *  RL1014.2
003500*          - REWRITE                                           *  RL1014.2
003600*                                                              *  RL1014.2
003700*     1) THE PROGRAM WILL CREATE A RELATIVE I-O FILE           *  RL1014.2
003800*     2) THEN IT WILL UPDATE SELECTIVE RECORDS OF THE FILE     *  RL1014.2
003900*     3) THE FILE STATUS CONTENTS ARE CAPTURED AND TESTED FOR  *  RL1014.2
004000*        ACCURACY FOR EACH "OPEN", "CLOSE", "READ" AND         *  RL1014.2
004100*        "REWRITE" STATEMENT USED.                             *  RL1014.2
004200*     4) THE "READ", "WRITE" AND "REWRITE" STATEMENT WILL BE   *  RL1014.2
004300*        USED WITH THE APPROPRIATE "AT END", "NOT AT END",     *  RL1014.2
004400*        "INVALID KEY" AND "NOT INVALID KEY" PHRASES.          *  RL1014.2
004500*                                                              *  RL1014.2
000500*                                                              *  RL1014.2
000600*    VALIDATION FOR:-                                          *  RL1014.2
000700*                                                              *  RL1014.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".RL1014.2
000900*                                                              *  RL1014.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".RL1014.2
001100*                                                              *  RL1014.2
001200****************************************************************  RL1014.2
001300*                                                              *  RL1014.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  RL1014.2
001500*                                                              *  RL1014.2
001600*            X-21   IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR   *  RL1014.2
001700*                    RELATIVE  I-O DATA FILE                   *  RL1014.2
001800*            X-55   SYSTEM PRINTER                             *  RL1014.2
001900*            X-69   ADDITIONAL VALUE OF CLAUSES                *  RL1014.2
002000*            X-74   VALUE OF IMPLEMENTOR-NAME                  *  RL1014.2
002100*            X-75   OBJECT OF VALUE OF CLAUSE                  *  RL1014.2
002200*            X-82   SOURCE-COMPUTER                            *  RL1014.2
002300*            X-83   OBJECT-COMPUTER.                           *  RL1014.2
002400*                                                              *  RL1014.2
002500****************************************************************  RL1014.2
002600*   RL111A                                                     *  RL1014.2
002700****************************************************************  RL1014.2
002800*                                                              *  RL1014.2
002900*     THIS PROGRAM WILL TEST THE NEW SYNTACTICAL CONSTRUCTS    *  RL1014.2
003000*     AND SEMENTIC ACTIONS ASSOCIATED WITH THE FOLLOWING       *  RL1014.2
003100*     CLAUSES:                                                 *  RL1014.2
003200*          - ACCESS                                            *  RL1014.2
003300*          - READ                                              *  RL1014.2
003400*          - WRITE                                             *  RL1014.2
003500*          - REWRITE                                           *  RL1014.2
003600*                                                              *  RL1014.2
003700*     1) THE PROGRAM WILL CREATE A RELATIVE I-O FILE           *  RL1014.2
003800*     2) THEN IT WILL UPDATE SELECTIVE RECORDS OF THE FILE     *  RL1014.2
003900*     3) THE FILE STATUS CONTENTS ARE CAPTURED AND TESTED FOR  *  RL1014.2
004000*        ACCURACY FOR EACH "OPEN", "CLOSE", "READ" AND         *  RL1014.2
004100*        "REWRITE" STATEMENT USED.                             *  RL1014.2
004200*     4) THE "READ", "WRITE" AND "REWRITE" STATEMENT WILL BE   *  RL1014.2
004300*        USED WITH THE APPROPRIATE "AT END", "NOT AT END",     *  RL1014.2
004400*        "INVALID KEY" AND "NOT INVALID KEY" PHRASES.          *  RL1014.2
004500*                                                              *  RL1014.2
000500*                                                              *  RL1014.2
000600*    VALIDATION FOR:-                                          *  RL1014.2
000700*                                                              *  RL1014.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".RL1014.2
000900*                                                              *  RL1014.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".RL1014.2
001100*                                                              *  RL1014.2
001200****************************************************************  RL1014.2
001300*                                                              *  RL1014.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  RL1014.2
001500*                                                              *  RL1014.2
001600*            X-21   IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR   *  RL1014.2
001700*                    RELATIVE  I-O DATA FILE                   *  RL1014.2
001800*            X-55   SYSTEM PRINTER                             *  RL1014.2
001900*            X-69   ADDITIONAL VALUE OF CLAUSES                *  RL1014.2
002000*            X-74   VALUE OF IMPLEMENTOR-NAME                  *  RL1014.2
002100*            X-75   OBJECT OF VALUE OF CLAUSE                  *  RL1014.2
002200*            X-82   SOURCE-COMPUTER                            *  RL1014.2
002300*            X-83   OBJECT-COMPUTER.                           *  RL1014.2
002400*                                                              *  RL1014.2
002500****************************************************************  RL1014.2
002600*   RL111A                                                     *  RL1014.2
002700****************************************************************  RL1014.2
002800*                                                              *  RL1014.2
002900*     THIS PROGRAM WILL TEST THE NEW SYNTACTICAL CONSTRUCTS    *  RL1014.2
003000*     AND SEMENTIC ACTIONS ASSOCIATED WITH THE FOLLOWING       *  RL1014.2
003100*     CLAUSES:                                                 *  RL1014.2
003200*          - ACCESS                                            *  RL1014.2
003300*          - READ                                              *  RL1014.2
003400*          - WRITE                                             *  RL1014.2
003500*          - REWRITE                                           *  RL1014.2
003600*                                                              *  RL1014.2
003700*     1) THE PROGRAM WILL CREATE A RELATIVE I-O FILE           *  RL1014.2
003800*     2) THEN IT WILL UPDATE SELECTIVE RECORDS OF THE FILE     *  RL1014.2
003900*     3) THE FILE STATUS CONTENTS ARE CAPTURED AND TESTED FOR  *  RL1014.2
004000*        ACCURACY FOR EACH "OPEN", "CLOSE", "READ" AND         *  RL1014.2
004100*        "REWRITE" STATEMENT USED.                             *  RL1014.2
004200*     4) THE "READ", "WRITE" AND "REWRITE" STATEMENT WILL BE   *  RL1014.2
004300*        USED WITH THE APPROPRIATE "AT END", "NOT AT END",     *  RL1014.2
004400*        "INVALID KEY" AND "NOT INVALID KEY" PHRASES.          *  RL1014.2
004500*                                                              *  RL1014.2
000500*                                                              *  RL1014.2
000600*    VALIDATION FOR:-                                          *  RL1014.2
000700*                                                              *  RL1014.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".RL1014.2
000900*                                                              *  RL1014.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".RL1014.2
001100*                                                              *  RL1014.2
001200****************************************************************  RL1014.2
001300*                                                              *  RL1014.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  RL1014.2
001500*                                                              *  RL1014.2
001600*            X-21   IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR   *  RL1014.2
001700*                    RELATIVE  I-O DATA FILE                   *  RL1014.2
001800*            X-55   SYSTEM PRINTER                             *  RL1014.2
001900*            X-69   ADDITIONAL VALUE OF CLAUSES                *  RL1014.2
002000*            X-74   VALUE OF IMPLEMENTOR-NAME                  *  RL1014.2
002100*            X-75   OBJECT OF VALUE OF CLAUSE                  *  RL1014.2
002200*            X-82   SOURCE-COMPUTER                            *  RL1014.2
002300*            X-83   OBJECT-COMPUTER.                           *  RL1014.2
002400*                                                              *  RL1014.2
002500****************************************************************  RL1014.2
002600*   RL111A                                                     *  RL1014.2
002700****************************************************************  RL1014.2
002800*                                                              *  RL1014.2
002900*     THIS PROGRAM WILL TEST THE NEW SYNTACTICAL CONSTRUCTS    *  RL1014.2
003000*     AND SEMENTIC ACTIONS ASSOCIATED WITH THE FOLLOWING       *  RL1014.2
003100*     CLAUSES:                                                 *  RL1014.2
003200*          - ACCESS                                            *  RL1014.2
003300*          - READ                                              *  RL1014.2
003400*          - WRITE                                             *  RL1014.2
003500*          - REWRITE                                           *  RL1014.2
003600*                                                              *  RL1014.2
003700*     1) THE PROGRAM WILL CREATE A RELATIVE I-O FILE           *  RL1014.2
003800*     2) THEN IT WILL UPDATE SELECTIVE RECORDS OF THE FILE     *  RL1014.2
003900*     3) THE FILE STATUS CONTENTS ARE CAPTURED AND TESTED FOR  *  RL1014.2
004000*        ACCURACY FOR EACH "OPEN", "CLOSE", "READ" AND         *  RL1014.2
004100*        "REWRITE" STATEMENT USED.                             *  RL1014.2
004200*     4) THE "READ", "WRITE" AND "REWRITE" STATEMENT WILL BE   *  RL1014.2
004300*        USED WITH THE APPROPRIATE "AT END", "NOT AT END",     *  RL1014.2
004400*        "INVALID KEY" AND "NOT INVALID KEY" PHRASES.          *  RL1014.2
004500*                                                              *  RL1014.2
004600****************************************************************  RL1014.2
004700 ENVIRONMENT DIVISION.                                            RL1014.2
004800 CONFIGURATION SECTION.                                           RL1014.2
004900 SOURCE-COMPUTER.                                                 RL1014.2
005000     Card0130.                                                    RL1014.2
005100 OBJECT-COMPUTER.                                                 RL1014.2
005200     Card0131.                                                    RL1014.2
005300 INPUT-OUTPUT SECTION.                                            RL1014.2
005400 FILE-CONTROL.                                                    RL1014.2
005500     SELECT PRINT-FILE ASSIGN TO                                  RL1014.2
005600     "C0085" .                                                    RL1014.2
005700     SELECT   RL-FS2 ASSIGN TO                                    RL1014.2
005800     XXXXP021                                                     RL1014.2
005900             ORGANIZATION IS RELATIVE                             RL1014.2
006000             ACCESS       IS SEQUENTIAL                           RL1014.2
006100             STATUS          RL-FS2-STATUS.                       RL1014.2
006200 DATA DIVISION.                                                   RL1014.2
006300 FILE SECTION.                                                    RL1014.2
006400 FD  PRINT-FILE.                                                  RL1014.2
006500 01  PRINT-REC PICTURE X(120).                                    RL1014.2
006600 01  DUMMY-RECORD PICTURE X(120).                                 RL1014.2
006700 FD  RL-FS2                                                       RL1014.2
006800     LABEL RECORDS STANDARD                                       RL1014.2
006900     VALUE OF                                                     RL1014.2
007000     Impl1                                                        RL1014.2
007100     IS                                                           RL1014.2
007200     4711                                                         RL1014.2
007300                                                                  RL1014.2
007400     BLOCK CONTAINS 1 RECORDS                                     RL1014.2
007500     RECORD CONTAINS 120 CHARACTERS.                              RL1014.2
007600 01  RL-FS2R1-F-G-120.                                            RL1014.2
007700     02 FILLER PIC X(120).                                        RL1014.2
007800 WORKING-STORAGE SECTION.                                         RL1014.2
007900 01  RL-FS2-STATUS         PIC XX.                                RL1014.2
008000 01  WRK-CS-09V00 PIC S9(9) USAGE COMP VALUE ZERO.                RL1014.2
008100 01  FILE-RECORD-INFORMATION-REC.                                 RL1014.2
008200     03 FILE-RECORD-INFO-SKELETON.                                RL1014.2
008300        05 FILLER                 PICTURE X(48)       VALUE       RL1014.2
008400             "FILE= ,RECORD= /0,RECNO=000000,UPDT=00".  RL1014.2
008500        05 FILLER                 PICTURE X(46)       VALUE       RL1014.2
008600             ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000".    RL1014.2
008700        05 FILLER                 PICTURE X(26)       VALUE       RL1014.2
008800             ",LFIL=000000,ORG= ,LBLR= ".                        RL1014.2
008900        05 FILLER                 PICTURE X(37)       VALUE       RL1014.2
009000             ",RECKEY= ".             RL1014.2
009100        05 FILLER                 PICTURE X(38)       VALUE       RL1014.2
009200             ",ALTKEY1= ".            RL1014.2
009300        05 FILLER                 PICTURE X(38)       VALUE       RL1014.2
009400             ",ALTKEY2= ".            RL1014.2
009500        05 FILLER                 PICTURE X(7)        VALUE SPACE.RL1014.2
009600     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              RL1014.2
009700        05 FILE-RECORD-INFO-P1-120.                               RL1014.2
009800           07 FILLER              PIC X(5).                       RL1014.2
009900           07 XFILE-NAME           PIC X(6).                      RL1014.2
010000           07 FILLER              PIC X(8).                       RL1014.2
010100           07 XRECORD-NAME         PIC X(6).                      RL1014.2
010200           07 FILLER              PIC X(1).                       RL1014.2
010300           07 REELUNIT-NUMBER     PIC 9(1).                       RL1014.2
010400           07 FILLER              PIC X(7).                       RL1014.2
010500           07 XRECORD-NUMBER       PIC 9(6).                      RL1014.2
010600           07 FILLER              PIC X(6).                       RL1014.2
010700           07 UPDATE-NUMBER       PIC 9(2).                       RL1014.2
010800           07 FILLER              PIC X(5).                       RL1014.2
010900           07 ODO-NUMBER          PIC 9(4).                       RL1014.2
011000           07 FILLER              PIC X(5).                       RL1014.2
011100           07 XPROGRAM-NAME        PIC X(5).                      RL1014.2
011200           07 FILLER              PIC X(7).                       RL1014.2
011300           07 XRECORD-LENGTH       PIC 9(6).                      RL1014.2
011400           07 FILLER              PIC X(7).                       RL1014.2
011500           07 CHARS-OR-RECORDS    PIC X(2).                       RL1014.2
011600           07 FILLER              PIC X(1).                       RL1014.2
011700           07 XBLOCK-SIZE          PIC 9(4).                      RL1014.2
011800           07 FILLER              PIC X(6).                       RL1014.2
011900           07 RECORDS-IN-FILE     PIC 9(6).                       RL1014.2
012000           07 FILLER              PIC X(5).                       RL1014.2
012100           07 XFILE-ORGANIZATION   PIC X(2).                      RL1014.2
012200           07 FILLER              PIC X(6).                       RL1014.2
012300           07 XLABEL-TYPE          PIC X(1).                      RL1014.2
012400        05 FILE-RECORD-INFO-P121-240.                             RL1014.2
012500           07 FILLER              PIC X(8).                       RL1014.2
012600           07 XRECORD-KEY          PIC X(29).                     RL1014.2
012700           07 FILLER              PIC X(9).                       RL1014.2
012800           07 ALTERNATE-KEY1      PIC X(29).                      RL1014.2
012900           07 FILLER              PIC X(9).                       RL1014.2
013000           07 ALTERNATE-KEY2      PIC X(29).                      RL1014.2
013100           07 FILLER              PIC X(7).                       RL1014.2
013200 01  TEST-RESULTS.                                                RL1014.2
013300     02 FILLER                   PIC X      VALUE SPACE.          RL1014.2
013400     02 FEATURE                  PIC X(20)  VALUE SPACE.          RL1014.2
013500     02 FILLER                   PIC X      VALUE SPACE.          RL1014.2
013600     02 P-OR-F                   PIC X(5)   VALUE SPACE.          RL1014.2
013700     02 FILLER                   PIC X      VALUE SPACE.          RL1014.2
013800     02  PAR-NAME.                                                RL1014.2
013900       03 FILLER                 PIC X(19)  VALUE SPACE.          RL1014.2
014000       03  PARDOT-X              PIC X      VALUE SPACE.          RL1014.2
014100       03 DOTVALUE               PIC 99     VALUE ZERO.           RL1014.2
014200     02 FILLER                   PIC X(8)   VALUE SPACE.          RL1014.2
014300     02 RE-MARK                  PIC X(61).                       RL1014.2
014400 01  TEST-COMPUTED.                                               RL1014.2
014500     02 FILLER                   PIC X(30)  VALUE SPACE.          RL1014.2
014600     02 FILLER                   PIC X(17)  VALUE                 RL1014.2
014700            " COMPUTED=".                                   RL1014.2
014800     02 COMPUTED-X.                                               RL1014.2
014900     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          RL1014.2
015000     03 COMPUTED-N               REDEFINES COMPUTED-A             RL1014.2
015100                                 PIC -9(9).9(9).                  RL1014.2
015200     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         RL1014.2
015300     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     RL1014.2
015400     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     RL1014.2
015500     03       CM-18V0 REDEFINES COMPUTED-A.                       RL1014.2
015600         04 COMPUTED-18V0                    PIC -9(18).          RL1014.2
015700         04 FILLER                           PIC X.               RL1014.2
015800     03 FILLER PIC X(50) VALUE SPACE.                             RL1014.2
015900 01  TEST-CORRECT.                                                RL1014.2
016000     02 FILLER PIC X(30) VALUE SPACE.                             RL1014.2
016100     02 FILLER PIC X(17) VALUE " CORRECT =".                RL1014.2
016200     02 CORRECT-X.                                                RL1014.2
016300     03 CORRECT-A                  PIC X(20) VALUE SPACE.         RL1014.2
016400     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      RL1014.2
016500     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         RL1014.2
016600     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     RL1014.2
016700     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     RL1014.2
016800     03      CR-18V0 REDEFINES CORRECT-A.                         RL1014.2
016900         04 CORRECT-18V0                     PIC -9(18).          RL1014.2
017000         04 FILLER                           PIC X.               RL1014.2
017100     03 FILLER PIC X(2) VALUE SPACE.                              RL1014.2
017200     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     RL1014.2
017300 01  CCVS-C-1.                                                    RL1014.2
017400     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PARL1014.2
017500-    "SS PARAGRAPH-NAME RL1014.2
017600-    " REMARKS".                                            RL1014.2
017700     02 FILLER                     PIC X(20)    VALUE SPACE.      RL1014.2
017800 01  CCVS-C-2.                                                    RL1014.2
017900     02 FILLER                     PIC X        VALUE SPACE.      RL1014.2
018000     02 FILLER                     PIC X(6)     VALUE "TESTED".   RL1014.2
018100     02 FILLER                     PIC X(15)    VALUE SPACE.      RL1014.2
018200     02 FILLER                     PIC X(4)     VALUE "FAIL".     RL1014.2
018300     02 FILLER                     PIC X(94)    VALUE SPACE.      RL1014.2
018400 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       RL1014.2
018500 01  REC-CT                        PIC 99       VALUE ZERO.       RL1014.2
018600 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       RL1014.2
018700 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       RL1014.2
018800 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       RL1014.2
018900 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       RL1014.2
019000 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       RL1014.2
019100 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       RL1014.2
019200 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      RL1014.2
019300 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       RL1014.2
019400 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     RL1014.2
019500 01  CCVS-H-1.                                                    RL1014.2
019600     02  FILLER                    PIC X(39)    VALUE SPACES.     RL1014.2
019700     02  FILLER                    PIC X(42)    VALUE             RL1014.2
019800     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 RL1014.2
019900     02  FILLER                    PIC X(39)    VALUE SPACES.     RL1014.2
020000 01  CCVS-H-2A.                                                   RL1014.2
020100   02  FILLER                        PIC X(40)  VALUE SPACE.      RL1014.2
020200   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  RL1014.2
020300   02  FILLER                        PIC XXXX   VALUE             RL1014.2
020400     "4.2 ".                                                      RL1014.2
020500   02  FILLER                        PIC X(28)  VALUE             RL1014.2
020600            " COPY - NOT FOR DISTRIBUTION".                       RL1014.2
020700   02  FILLER                        PIC X(41)  VALUE SPACE.      RL1014.2
020800                                                                  RL1014.2
020900 01  CCVS-H-2B.                                                   RL1014.2
021000   02  FILLER                        PIC X(15)  VALUE             RL1014.2
021100            "TEST RESULT OF ".                                    RL1014.2
021200   02  TEST-ID                       PIC X(9).                    RL1014.2
021300   02  FILLER                        PIC X(4)   VALUE             RL1014.2
021400            " IN ".                                               RL1014.2
021500   02  FILLER                        PIC X(12)  VALUE             RL1014.2
021600     " HIGH ".                                              RL1014.2
021700   02  FILLER                        PIC X(22)  VALUE             RL1014.2
021800            " LEVEL VALIDATION FOR ".                             RL1014.2
021900   02  FILLER                        PIC X(58)  VALUE             RL1014.2
022000     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL1014.2
022100 01  CCVS-H-3.                                                    RL1014.2
022200     02  FILLER                      PIC X(34)  VALUE             RL1014.2
022300            " FOR OFFICIAL USE ONLY ".                         RL1014.2
022400     02  FILLER                      PIC X(58)  VALUE             RL1014.2
022500     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL1014.2
022600     02  FILLER                      PIC X(28)  VALUE             RL1014.2
022700            " COPYRIGHT 1985 ".                                RL1014.2
022800 01  CCVS-E-1.                                                    RL1014.2
022900     02 FILLER                       PIC X(52)  VALUE SPACE.      RL1014.2
023000     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              RL1014.2
023100     02 ID-AGAIN                     PIC X(9).                    RL1014.2
023200     02 FILLER                       PIC X(45)  VALUE SPACES.     RL1014.2
023300 01  CCVS-E-2.                                                    RL1014.2
023400     02  FILLER                      PIC X(31)  VALUE SPACE.      RL1014.2
023500     02  FILLER                      PIC X(21)  VALUE SPACE.      RL1014.2
023600     02 CCVS-E-2-2.                                               RL1014.2
023700         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      RL1014.2
023800         03 FILLER                   PIC X      VALUE SPACE.      RL1014.2
023900         03 ENDER-DESC               PIC X(44)  VALUE             RL1014.2
024000            "ERRORS ENCOUNTERED".                                 RL1014.2
024100 01  CCVS-E-3.                                                    RL1014.2
024200     02  FILLER                      PIC X(22)  VALUE             RL1014.2
024300            " FOR OFFICIAL USE ONLY".                             RL1014.2
024400     02  FILLER                      PIC X(12)  VALUE SPACE.      RL1014.2
024500     02  FILLER                      PIC X(58)  VALUE             RL1014.2
024600     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL1014.2
024700     02  FILLER                      PIC X(13)  VALUE SPACE.      RL1014.2
024800     02 FILLER                       PIC X(15)  VALUE             RL1014.2
024900             " COPYRIGHT 1985".                                   RL1014.2
025000 01  CCVS-E-4.                                                    RL1014.2
025100     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      RL1014.2
025200     02 FILLER                       PIC X(4)   VALUE " OF ".     RL1014.2
025300     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      RL1014.2
025400     02 FILLER                       PIC X(40)  VALUE             RL1014.2
025500      " TESTS WERE EXECUTED SUCCESSFULLY".                       RL1014.2
025600 01  XXINFO.                                                      RL1014.2
025700     02 FILLER                       PIC X(19)  VALUE             RL1014.2
025800            "*** INFORMATION ***".                                RL1014.2
025900     02 INFO-TEXT.                                                RL1014.2
026000       04 FILLER                     PIC X(8)   VALUE SPACE.      RL1014.2
026100       04 XXCOMPUTED                 PIC X(20).                   RL1014.2
026200       04 FILLER                     PIC X(5)   VALUE SPACE.      RL1014.2
026300       04 XXCORRECT                  PIC X(20).                   RL1014.2
026400     02 INF-ANSI-REFERENCE           PIC X(48).                   RL1014.2
026500 01  HYPHEN-LINE.                                                 RL1014.2
026600     02 FILLER  PIC IS X VALUE IS SPACE.                          RL1014.2
026700     02 FILLER  PIC IS X(65)    VALUE IS "************************RL1014.2
026800-    "*****************************************".                 RL1014.2
026900     02 FILLER  PIC IS X(54)    VALUE IS "************************RL1014.2
027000-    "******************************".                            RL1014.2
027100 01  CCVS-PGM-ID                     PIC X(9)   VALUE             RL1014.2
027200     "RL101A".                                                    RL1014.2
027300 PROCEDURE DIVISION.                                              RL1014.2
027400 CCVS1 SECTION.                                                   RL1014.2
027500 OPEN-FILES.                                                      RL1014.2
027600     OPEN    OUTPUT PRINT-FILE.                                   RL1014.2
027700     MOVE  CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.  RL1014.2
027800     MOVE    SPACES TO TEST-RESULTS.                              RL1014.2
027900     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.              RL1014.2
028000     MOVE    ZERO TO REC-SKL-SUB.                                 RL1014.2
028100     PERFORM CCVS-INIT-FILE 9 TIMES.                              RL1014.2
028200 CCVS-INIT-FILE.                                                  RL1014.2
028300     ADD     1 TO REC-SKL-SUB.                                    RL1014.2
028400     MOVE    FILE-RECORD-INFO-SKELETON                            RL1014.2
028500          TO FILE-RECORD-INFO (REC-SKL-SUB).                      RL1014.2
028600 CCVS-INIT-EXIT.                                                  RL1014.2
028700     GO TO CCVS1-EXIT.                                            RL1014.2
028800 CLOSE-FILES.                                                     RL1014.2
028900     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   RL1014.2
029000 TERMINATE-CCVS.                                                  RL1014.2
029100     EXIT PROGRAM.                                                RL1014.2
029200 TERMINATE-CALL.                                                  RL1014.2
029300     STOP     RUN.                                                RL1014.2
029400 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         RL1014.2
029500 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           RL1014.2
029600 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          RL1014.2
029700 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      RL1014.2
029800     MOVE "****TEST DELETED****" TO RE-MARK.                      RL1014.2
029900 PRINT-DETAIL.                                                    RL1014.2
030000     IF REC-CT NOT EQUAL TO ZERO                                  RL1014.2
030100             MOVE "." TO PARDOT-X                                 RL1014.2
030200             MOVE REC-CT TO DOTVALUE.                             RL1014.2
030300     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      RL1014.2
030400     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               RL1014.2
030500        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 RL1014.2
030600          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 RL1014.2
030700     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              RL1014.2
030800     MOVE SPACE TO CORRECT-X.                                     RL1014.2
030900     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         RL1014.2
031000     MOVE     SPACE TO RE-MARK.                                   RL1014.2
031100 HEAD-ROUTINE.                                                    RL1014.2
031200     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  RL1014.2
031300     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  RL1014.2
031400     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  RL1014.2
031500     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  RL1014.2
031600 COLUMN-NAMES-ROUTINE.                                            RL1014.2
031700     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           RL1014.2
031800     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL1014.2
031900     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        RL1014.2
032000 END-ROUTINE.                                                     RL1014.2
032100     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.RL1014.2
032200 END-RTN-EXIT.                                                    RL1014.2
032300     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL1014.2
032400 END-ROUTINE-1.                                                   RL1014.2
032500      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      RL1014.2
032600      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               RL1014.2
032700      ADD PASS-COUNTER TO ERROR-HOLD.                             RL1014.2
032800*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   RL1014.2
032900      MOVE PASS-COUNTER TO CCVS-E-4-1.                            RL1014.2
033000      MOVE ERROR-HOLD TO CCVS-E-4-2.                              RL1014.2
033100      MOVE CCVS-E-4 TO CCVS-E-2-2.                                RL1014.2
033200      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           RL1014.2
033300  END-ROUTINE-12.                                                 RL1014.2
033400      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        RL1014.2
033500     IF       ERROR-COUNTER IS EQUAL TO ZERO                      RL1014.2
033600         MOVE "NO " TO ERROR-TOTAL                                RL1014.2
033700         ELSE                                                     RL1014.2
033800         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       RL1014.2
033900     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           RL1014.2
034000     PERFORM WRITE-LINE.                                          RL1014.2
034100 END-ROUTINE-13.                                                  RL1014.2
034200     IF DELETE-COUNTER IS EQUAL TO ZERO                           RL1014.2
034300         MOVE "NO " TO ERROR-TOTAL  ELSE                          RL1014.2
034400         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      RL1014.2
034500     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   RL1014.2
034600     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           RL1014.2
034700      IF   INSPECT-COUNTER EQUAL TO ZERO                          RL1014.2
034800          MOVE "NO " TO ERROR-TOTAL                               RL1014.2
034900      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   RL1014.2
035000      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            RL1014.2
035100      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          RL1014.2
035200     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           RL1014.2
035300 WRITE-LINE.                                                      RL1014.2
035400     ADD 1 TO RECORD-COUNT.                                       RL1014.2
035500     IF RECORD-COUNT GREATER 50                                   RL1014.2
035600         MOVE DUMMY-RECORD TO DUMMY-HOLD                          RL1014.2
035700         MOVE SPACE TO DUMMY-RECORD                               RL1014.2
035800         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  RL1014.2
035900         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN             RL1014.2
036000         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES     RL1014.2
036100         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          RL1014.2
036200         MOVE DUMMY-HOLD TO DUMMY-RECORD                          RL1014.2
036300         MOVE ZERO TO RECORD-COUNT.                               RL1014.2
036400     PERFORM WRT-LN.                                              RL1014.2
036500 WRT-LN.                                                          RL1014.2
036600     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               RL1014.2
036700     MOVE SPACE TO DUMMY-RECORD.                                  RL1014.2
036800 BLANK-LINE-PRINT.                                                RL1014.2
036900     PERFORM WRT-LN.                                              RL1014.2
037000 FAIL-ROUTINE.                                                    RL1014.2
037100     IF     COMPUTED-X NOT EQUAL TO SPACE                         RL1014.2
037200            GO TO   FAIL-ROUTINE-WRITE.                           RL1014.2
037300     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.RL1014.2
037400     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 RL1014.2
037500     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   RL1014.2
037600     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL1014.2
037700     MOVE   SPACES TO INF-ANSI-REFERENCE.                         RL1014.2
037800     GO TO  FAIL-ROUTINE-EX.                                      RL1014.2
037900 FAIL-ROUTINE-WRITE.                                              RL1014.2
038000     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         RL1014.2
038100     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 RL1014.2
038200     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. RL1014.2
038300     MOVE   SPACES TO COR-ANSI-REFERENCE.                         RL1014.2
038400 FAIL-ROUTINE-EX. EXIT.                                           RL1014.2
038500 BAIL-OUT.                                                        RL1014.2
038600     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   RL1014.2
038700     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           RL1014.2
038800 BAIL-OUT-WRITE.                                                  RL1014.2
038900     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  RL1014.2
039000     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 RL1014.2
039100     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL1014.2
039200     MOVE   SPACES TO INF-ANSI-REFERENCE.                         RL1014.2
039300 BAIL-OUT-EX. EXIT.                                               RL1014.2
039400 CCVS1-EXIT.                                                      RL1014.2
039500     EXIT.                                                        RL1014.2
039600 SECT-RL101-001 SECTION.                                          RL1014.2
039700 REL-INIT-001.                                                    RL1014.2
039800     MOVE     "FILE CREATE RL-FS2" TO FEATURE.                    RL1014.2
039900     OPEN     OUTPUT    RL-FS2.                                   RL1014.2
040000     MOVE     "RL-FS2" TO XFILE-NAME (1).                         RL1014.2
040100     MOVE     "R1-F-G" TO XRECORD-NAME (1).                       RL1014.2
040200     MOVE CCVS-PGM-ID  TO XPROGRAM-NAME (1).                      RL1014.2
040300     MOVE     000120   TO XRECORD-LENGTH (1).                     RL1014.2
040400     MOVE     "RC"     TO CHARS-OR-RECORDS (1).                   RL1014.2
040500     MOVE     0001     TO XBLOCK-SIZE (1).                        RL1014.2
040600     MOVE     000500   TO RECORDS-IN-FILE (1).                    RL1014.2
040700     MOVE     "RL"     TO XFILE-ORGANIZATION (1).                 RL1014.2
040800     MOVE     "S"      TO XLABEL-TYPE (1).                        RL1014.2
040900     MOVE     000001   TO XRECORD-NUMBER (1).                     RL1014.2
041000 REL-TEST-001.                                                    RL1014.2
041100     MOVE     FILE-RECORD-INFO-P1-120 (1) TO RL-FS2R1-F-G-120.    RL1014.2
041200     WRITE    RL-FS2R1-F-G-120                                    RL1014.2
041300              INVALID KEY GO TO REL-FAIL-001.                     RL1014.2
041400     IF      XRECORD-NUMBER (1) EQUAL TO 500                      RL1014.2
041500             GO TO REL-WRITE-001.                                 RL1014.2
041600     ADD      000001 TO XRECORD-NUMBER (1).                       RL1014.2
041700     GO       TO REL-TEST-001.                                    RL1014.2
041800 REL-DELETE-001.                                                  RL1014.2
041900     PERFORM   DE-LETE.                                           RL1014.2
042000     GO TO REL-WRITE-001.                                         RL1014.2
042100 REL-FAIL-001.                                                    RL1014.2
042200     PERFORM   FAIL.                                              RL1014.2
042300     MOVE    "BOUNDARY VIOLATION"  TO RE-MARK.                    RL1014.2
042400 REL-WRITE-001.                                                   RL1014.2
042500     MOVE     "REL-TEST-001" TO   PAR-NAME                        RL1014.2
042600     MOVE     "FILE CREATED, LFILE "  TO COMPUTED-A.              RL1014.2
042700     MOVE    XRECORD-NUMBER (1) TO CORRECT-18V0.                  RL1014.2
042800     PERFORM  PRINT-DETAIL.                                       RL1014.2
042900     CLOSE    RL-FS2.                                             RL1014.2
043000 REL-INIT-002.                                                    RL1014.2
043100     OPEN     INPUT     RL-FS2.                                   RL1014.2
043200     MOVE     ZERO      TO WRK-CS-09V00.                          RL1014.2
043300 REL-TEST-002.                                                    RL1014.2
043400     READ     RL-FS2                                              RL1014.2
043500              AT END GO TO REL-TEST-002-1.                        RL1014.2
043600     MOVE     RL-FS2R1-F-G-120 TO FILE-RECORD-INFO-P1-120 (1).    RL1014.2
043700     ADD      1 TO WRK-CS-09V00.                                  RL1014.2
043800     IF       WRK-CS-09V00 GREATER 500                            RL1014.2
043900             MOVE "MORE THAN 500 RECORDS" TO RE-MARK              RL1014.2
044000              GO TO REL-TEST-002-1.                               RL1014.2
044100     GO       TO REL-TEST-002.                                    RL1014.2
044200 REL-DELETE-002.                                                  RL1014.2
044300 REL-TEST-002-1.                                                  RL1014.2
044400     IF       XRECORD-NUMBER (1) NOT EQUAL TO 500                 RL1014.2
044500              PERFORM FAIL                                        RL1014.2
044600              ELSE                                                RL1014.2
044700              PERFORM PASS.                                       RL1014.2
044800     GO       TO REL-WRITE-002.                                   RL1014.2
044900 REL-WRITE-002.                                                   RL1014.2
045000     MOVE     "REL-TEST-002" TO PAR-NAME.                         RL1014.2
045100     MOVE     "FILE VERIFIED, LFILE" TO COMPUTED-A.               RL1014.2
045200     MOVE    XRECORD-NUMBER (1) TO CORRECT-18V0.                  RL1014.2
045300     PERFORM  PRINT-DETAIL.                                       RL1014.2
045400     CLOSE   RL-FS2.                                              RL1014.2
045500 CCVS-EXIT SECTION.                                               RL1014.2
045600 CCVS-999999.                                                     RL1014.2
045700     GO TO CLOSE-FILES.                                           RL1014.2