// JOB DMSCOMP,,16800,16800       COMPILE A DMS/90 RUN-UNIT             CMP00000
// DVC 20   // LFD PRNTR                                                CMP00010
// DVC 20   // LFD PRNTR2                                               CMP00020
// DVC 20   // LFD PRNTR3                                               CMP00030
// DVC 20   // LFD SYSLST                                               CMP00040
// WRTBIG 'JOB$        ','DAT$        ','TIM$        ','BEGIN       '   CMP00050
// DVC RES            // LBL 'DMS90 VSB WORK LIBRARY'   // LFD WORKLIB  CMP00060
// DVC RES        // LBL 'DMS90 VSB DATABASE' // LFD DBMFILE,,ACCEPT    CMP00070
// OPR 'PRE-PROCESS DML SOURCE PROGRAM...'                              CMP00080
// EXEC DMLP                                                            CMP00090
// PARAM OUT=INTRRUN/WORKLIB                                            CMP00100
/$                                                                      CMP00110
000100 IDENTIFICATION DIVISION.                                         CMP00120
000200 PROGRAM-ID. VSBRUN.                                              CMP00130
000300 AUTHOR. W KRANTZ.                                                CMP00140
000400 INSTALLATION. SOFTWARE DEVELOPMENT INTEGRITY                     CMP00150
000500               SPERRY UNIVAC                                      CMP00160
000600               P O BOX 500                                        CMP00170
000700               BLUE BELL, PA 19422.                               CMP00180
000800 DATE-WRITTEN. OCTOBER 11, 1974.                                  CMP00190
000900 REMARKS. MINIMUM RUN-UNIT FOR VSB (VERIFICATION OF SYSTEM BUILD) CMP00200
001000          SEQUENCE.                                               CMP00210
001100 ENVIRONMENT DIVISION.                                            CMP00220
001200 CONFIGURATION SECTION.                                           CMP00230
001300 SOURCE-COMPUTER. UNIVAC-9030.                                    CMP00240
001400 OBJECT-COMPUTER. UNIVAC-9030.                                    CMP00250
001500 SPECIAL-NAMES.                                                   CMP00260
001600     SYSLOG IS THE-CONSOLE                                        CMP00270
001700     SYSLST IS THE-PRINTER.                                       CMP00280
001800 DATA DIVISION.                                                   CMP00290
001900 SCHEMA SECTION.                                                  CMP00300
002000 INVOKE SUBSCHEMA VSBSUBSC OF VSBSCHEM.                           CMP00310
002100 WORKING-STORAGE SECTION.                                         CMP00320
002200 77  DBPAGE                      PICTURE S9(8) COMP SYNC.         CMP00330
002300 77  DBLINE                      PICTURE S9(8) COMP SYNC.         CMP00340
002400 77  INIT-DBKEY PICTURE S9(8) COMP SYNC VALUE -65345535.          CMP00350
002500* THIS VALUE WILL GIVE PAGE/LINE = -255,255/-255                  CMP00360
002600 77  ERRORS                      PICTURE 9999 VALUE ZEROS.        CMP00370
002700 77  DMS-STATUS-INDICATOR        PICTURE X VALUE '*'.             CMP00380
002800 77  EXPECTED-RECORD-NAME        PICTURE X(16) VALUE ALL '*'.     CMP00390
002900 77  EXPECTED                    PICTURE X(16) VALUE SPACES.      CMP00400
003000 77  FOUND                       PICTURE X(16) VALUE SPACES.      CMP00410
003100 77  EXPECTED-KEY PICTURE S9(8) COMP SYNC VALUE -65345535.        CMP00420
003200 77  FOUND-KEY PICTURE S9(8) COMP SYNC VALUE -65345535.           CMP00430
003300 01  KEY-EDIT-AREA.                                               CMP00440
003400     03 EDIT-PAGE                PICTURE +++,+++,++9.             CMP00450
003500     03 FILLER                   PICTURE X VALUE SPACE.           CMP00460
003600     03 EDIT-LINE                PICTURE +++9.                    CMP00470
003700 01  KEY-AND-CONTENT-SAVE-TABLE.                                  CMP00480
003800     03 SAVE-DBKEY OCCURS  7 TIMES PICTURE S9(8) COMP SYNC.       CMP00490
003900     03 SAVE-RECORD OCCURS  7 TIMES PICTURE X(8).                 CMP00500
004000 01  HEADING-LINE-1.                                              CMP00510
004100     03 FILLER                   PICTURE X(51) VALUE SPACES.      CMP00520
004200     03 FILLER                   PICTURE X(29)                    CMP00530
004300         VALUE 'D M S / 9 0   V S B   T E S T'.                   CMP00540
004400     03 FILLER                   PICTURE X(51) VALUE SPACES.      CMP00550
004500 01  HEADING-LINE-2.                                              CMP00560
004600     03 FILLER                   PICTURE X(12) VALUE SPACES.      CMP00570
004700     03 FILLER                   PICTURE X(8) VALUE 'FUNCTION'.   CMP00580
004800     03 FILLER                   PICTURE X VALUE SPACE.           CMP00590
004900     03 FILLER                   PICTURE X(6) VALUE 'ERROR-'.     CMP00600
005000     03 FILLER                   PICTURE X VALUE SPACE.           CMP00610
005100     03 FILLER                   PICTURE X(15)                    CMP00620
005200         VALUE 'DBKEY:         '.                                 CMP00630
005300     03 FILLER                   PICTURE X VALUE SPACE.           CMP00640
005400     03 FILLER               PIC X(16) VALUE 'RECORD-NAME     '.  CMP00650
005500     03 FILLER                   PICTURE X VALUE SPACE.           CMP00660
005600     03 FILLER               PIC X(16) VALUE 'AREA-NAME       '.  CMP00670
005700     03 FILLER                   PICTURE X VALUE SPACE.           CMP00680
005800     03 FILLER               PIC X(16) VALUE 'ERROR-SET       '.  CMP00690
005900     03 FILLER                   PICTURE X VALUE SPACE.           CMP00700
006000     03 FILLER               PIC X(16) VALUE 'ERROR-RECORD    '.  CMP00710
006100     03 FILLER                   PICTURE X VALUE SPACE.           CMP00720
006200     03 FILLER               PIC X(16) VALUE 'ERROR-AREA      '.  CMP00730
006300     03 FILLER                   PICTURE X(3) VALUE SPACES.       CMP00740
006400 01  HEADING-LINE-3.                                              CMP00750
006500     03 FILLER                   PICTURE X(12) VALUE SPACES.      CMP00760
006600     03 FILLER                   PICTURE X(8) VALUE SPACES.       CMP00770
006700     03 FILLER                   PICTURE X VALUE SPACE.           CMP00780
006800     03 FILLER                   PICTURE X(6) VALUE 'STATUS'.     CMP00790
006900     03 FILLER                   PICTURE X VALUE SPACE.           CMP00800
007000     03 FILLER                   PICTURE X(15)                    CMP00810
007100         VALUE '       PAGE LNE'.                                 CMP00820
007200     03 FILLER                   PICTURE X VALUE SPACE.           CMP00830
007300     03 FILLER                   PICTURE X(16) VALUE SPACES.      CMP00840
007400     03 FILLER                   PICTURE X VALUE SPACE.           CMP00850
007500     03 FILLER                   PICTURE X(16) VALUE SPACES.      CMP00860
007600     03 FILLER                   PICTURE X VALUE SPACE.           CMP00870
007700     03 FILLER                   PICTURE X(16) VALUE SPACES.      CMP00880
007800     03 FILLER                   PICTURE X VALUE SPACE.           CMP00890
007900     03 FILLER                   PICTURE X(16) VALUE SPACES.      CMP00900
008000     03 FILLER                   PICTURE X VALUE SPACE.           CMP00910
008100     03 FILLER                   PICTURE X(16) VALUE SPACES.      CMP00920
008200     03 FILLER                   PICTURE X(3) VALUE SPACES.       CMP00930
008300 01  STATUS-LINE.                                                 CMP00940
008400     03 FILLER                   PICTURE X(12) VALUE SPACES.      CMP00950
008500     03 SL-FUNCTION              PICTURE X(6) VALUE ALL '*'.      CMP00960
008600     03 FILLER                   PICTURE XX VALUE SPACES.         CMP00970
008700     03 FILLER                   PICTURE X VALUE SPACE.           CMP00980
008800     03 SL-ERROR-STATUS          PICTURE X(4).                    CMP00990
008900     03 FILLER                   PICTURE XX VALUE SPACES.         CMP01000
009000     03 FILLER                   PICTURE X VALUE SPACE.           CMP01010
009100     03 SL-DBKEY-PAGE            PICTURE +++,+++,++9.             CMP01020
009200     03 SL-DBKEY-LINE            PICTURE +++9.                    CMP01030
009300     03 FILLER                   PICTURE X VALUE SPACE.           CMP01040
009400     03 SL-RECORD-NAME           PICTURE X(16).                   CMP01050
009500     03 FILLER                   PICTURE X VALUE SPACE.           CMP01060
009600     03 SL-AREA-NAME             PICTURE X(16).                   CMP01070
009700     03 FILLER                   PICTURE X VALUE SPACE.           CMP01080
009800     03 SL-ERROR-SET             PICTURE X(16).                   CMP01090
009900     03 FILLER                   PICTURE X VALUE SPACE.           CMP01100
010000     03 SL-ERROR-RECORD          PICTURE X(16).                   CMP01110
010100     03 FILLER                   PICTURE X VALUE SPACE.           CMP01120
010200     03 SL-ERROR-AREA            PICTURE X(16).                   CMP01130
010300     03 FILLER                   PICTURE X(3) VALUE SPACES.       CMP01140
010400 01  COMPARISON-ERROR-LINE.                                       CMP01150
010500     03 CEL-MESSAGE              PICTURE X(78) VALUE ALL '*'.     CMP01160
010600     03 FILLER                   PICTURE X(10) VALUE 'EXPECTED: '.CMP01170
010700     03 CEL-EXPECTED-VALUE       PICTURE X(16).                   CMP01180
010800     03 FILLER                 PICTURE X(11) VALUE '    FOUND: '. CMP01190
010900     03 CEL-FOUND-VALUE          PICTURE X(16).                   CMP01200
011000 01  RESULT-LINE.                                                 CMP01210
011100     03 FILLER                   PICTURE X(16)                    CMP01220
011200         VALUE ' DMS/90 VSB TEST'.                                CMP01230
011300     03 FILLER                   PICTURE XXX VALUE SPACES.        CMP01240
011400     03 FILLER                   PICTURE X(7) VALUE 'ERRORS='.    CMP01250
011500     03 RL-ERRORS                PICTURE 9999.                    CMP01260
011600     03 FILLER                   PICTURE XXX VALUE SPACES.        CMP01270
011700     03 FILLER                   PICTURE X VALUE '.'.             CMP01280
011800     03 RL-RESULT                PICTURE XXXX.                    CMP01290
011900     03 FILLER                   PICTURE X VALUE '.'.             CMP01300
012000 PROCEDURE DIVISION.                                              CMP01310
012100 MAIN SECTION.                                                    CMP01320
012200 PRINT-HEADING.                                                   CMP01330
012300     DISPLAY ' ' UPON THE-PRINTER.                                CMP01340
012400     DISPLAY HEADING-LINE-1 UPON THE-PRINTER.                     CMP01350
012500     DISPLAY ' ' UPON THE-PRINTER.                                CMP01360
012600     DISPLAY HEADING-LINE-2 UPON THE-PRINTER.                     CMP01370
012700     DISPLAY HEADING-LINE-3 UPON THE-PRINTER.                     CMP01380
012800     DISPLAY ' ' UPON THE-PRINTER.                                CMP01390
012900     DISPLAY ' ' UPON THE-PRINTER.                                CMP01400
013000 TEST-010.                                                        CMP01410
013100     DISPLAY ' 010 START (OPEN)' UPON THE-PRINTER.                CMP01420
013200* THE FOLLOWING CARD IS BLANK ON PURPOSE                          CMP01430
013300                                                                  CMP01440
013400     PERFORM INIT-SYSTEM-ITEMS.                                   CMP01450
013500     OPEN ALL AREAS USAGE-MODE IS EXCLUSIVE UPDATE.               CMP01460
013600     MOVE 'OPEN  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP01470
013700     MOVE -1 TO EXPECTED-KEY.                                     CMP01480
013800     MOVE SPACES TO EXPECTED-RECORD-NAME.                         CMP01490
013900     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP01500
014000     DISPLAY ' 010 END' UPON THE-PRINTER.                         CMP01510
014100 TEST-020.                                                        CMP01520
014200     DISPLAY ' 020 START (STORE A-MINIMUM-RECORD)'                CMP01530
014300         UPON THE-PRINTER.                                        CMP01540
014400     MOVE '1' TO F.                                               CMP01550
014500     MOVE A-MINIMUM-RECORD TO SAVE-RECORD (1).                    CMP01560
014600     MOVE -1 TO DIRECT-DBK.                                       CMP01570
014700     PERFORM INIT-SYSTEM-ITEMS.                                   CMP01580
014800     STORE A-MINIMUM-RECORD RECORD.                               CMP01590
014900     MOVE 'STORE ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP01600
015000     MOVE 128001 TO EXPECTED-KEY.                                 CMP01610
015100     MOVE 'A-MINIMUM-RECORD' TO EXPECTED-RECORD-NAME.             CMP01620
015200     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP01630
015300     MOVE DBKEY TO SAVE-DBKEY (1).                                CMP01640
015400     MOVE '2' TO F.                                               CMP01650
015500     MOVE A-MINIMUM-RECORD TO SAVE-RECORD (2).                    CMP01660
015600     MOVE -1 TO DIRECT-DBK.                                       CMP01670
015700     PERFORM INIT-SYSTEM-ITEMS.                                   CMP01680
015800     STORE A-MINIMUM-RECORD RECORD.                               CMP01690
015900     MOVE 'STORE ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP01700
016000     MOVE 128002 TO EXPECTED-KEY.                                 CMP01710
016100     MOVE 'A-MINIMUM-RECORD' TO EXPECTED-RECORD-NAME.             CMP01720
016200     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP01730
016300     MOVE DBKEY TO SAVE-DBKEY (2).                                CMP01740
016400     DISPLAY ' 020 END' UPON THE-PRINTER.                         CMP01750
016500 TEST-030.                                                        CMP01760
016600     DISPLAY ' 030 START (STORE OWNR RECORD)'                     CMP01770
016700         UPON THE-PRINTER.                                        CMP01780
016800     MOVE 0 TO A-CALC-KEY-FIELD.                                  CMP01790
016900     MOVE OWNR TO SAVE-RECORD (3).                                CMP01800
017000     PERFORM INIT-SYSTEM-ITEMS.                                   CMP01810
017100     STORE OWNR RECORD.                                           CMP01820
017200     MOVE 'STORE ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP01830
017300     MOVE 128003 TO EXPECTED-KEY.                                 CMP01840
017400     MOVE 'OWNR' TO EXPECTED-RECORD-NAME.                         CMP01850
017500     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP01860
017600     MOVE DBKEY TO SAVE-DBKEY (3).                                CMP01870
017700     MOVE 9999 TO A-CALC-KEY-FIELD.                               CMP01880
017800     MOVE OWNR TO SAVE-RECORD (4).                                CMP01890
017900     PERFORM INIT-SYSTEM-ITEMS.                                   CMP01900
018000     STORE OWNR RECORD.                                           CMP01910
018100     MOVE 'STORE ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP01920
018200     MOVE 128004 TO EXPECTED-KEY.                                 CMP01930
018300     MOVE 'OWNR' TO EXPECTED-RECORD-NAME.                         CMP01940
018400     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP01950
018500     MOVE DBKEY TO SAVE-DBKEY (4).                                CMP01960
018600     DISPLAY ' 030 END' UPON THE-PRINTER.                         CMP01970
018700 TEST-040.                                                        CMP01980
018800     DISPLAY ' 040 START (STORE M RECORD)' UPON THE-PRINTER.      CMP01990
018900     MOVE 123 TO SORT-FIELD.                                      CMP02000
019000     MOVE M TO SAVE-RECORD (5).                                   CMP02010
019100     PERFORM INIT-SYSTEM-ITEMS.                                   CMP02020
019200     STORE M RECORD.                                              CMP02030
019300     MOVE 'STORE ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP02040
019400     MOVE 128005 TO EXPECTED-KEY.                                 CMP02050
019500     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP02060
019600     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP02070
019700     MOVE DBKEY TO SAVE-DBKEY (5).                                CMP02080
019800     MOVE 123 TO SORT-FIELD.                                      CMP02090
019900     MOVE M TO SAVE-RECORD (6).                                   CMP02100
020000     PERFORM INIT-SYSTEM-ITEMS.                                   CMP02110
020100     STORE M RECORD.                                              CMP02120
020200     MOVE 'STORE ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP02130
020300     MOVE 128006 TO EXPECTED-KEY.                                 CMP02140
020400     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP02150
020500     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP02160
020600     MOVE DBKEY TO SAVE-DBKEY (6).                                CMP02170
020700     MOVE 9999 TO SORT-FIELD.                                     CMP02180
020800     MOVE M TO SAVE-RECORD (7).                                   CMP02190
020900     PERFORM INIT-SYSTEM-ITEMS.                                   CMP02200
021000     STORE M RECORD.                                              CMP02210
021100     MOVE 'STORE ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP02220
021200     MOVE 128007 TO EXPECTED-KEY.                                 CMP02230
021300     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP02240
021400     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP02250
021500     MOVE DBKEY TO SAVE-DBKEY (7).                                CMP02260
021600     DISPLAY ' 040 END' UPON THE-PRINTER.                         CMP02270
021700 TEST-050.                                                        CMP02280
021800     DISPLAY ' 050 START (FIND (#1),GET)'                         CMP02290
021900         UPON THE-PRINTER.                                        CMP02300
022000     MOVE ALL '*' TO OWNR.                                        CMP02310
022100     MOVE OWNR TO EXPECTED.                                       CMP02320
022200     PERFORM INIT-SYSTEM-ITEMS.                                   CMP02330
022300     FIND OWNR RECORD USING SAVE-DBKEY (4).                       CMP02340
022400     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP02350
022500     MOVE OWNR TO FOUND.                                          CMP02360
022600     IF FOUND NOT = EXPECTED                                      CMP02370
022700         MOVE '*RECORD CONTENT SHOULD NOT HAVE CHANGED'           CMP02380
022800         TO CEL-MESSAGE                                           CMP02390
022900         PERFORM PRINT-COMP-ERROR-LINE.                           CMP02400
023000     MOVE SAVE-DBKEY (4) TO EXPECTED-KEY.                         CMP02410
023100     MOVE 'OWNR' TO EXPECTED-RECORD-NAME.                         CMP02420
023200     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP02430
023300     PERFORM INIT-SYSTEM-ITEMS.                                   CMP02440
023400     GET OWNR RECORD.                                             CMP02450
023500     MOVE 'GET   ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP02460
023600     MOVE SAVE-DBKEY (4) TO EXPECTED-KEY.                         CMP02470
023700     MOVE 'OWNR' TO EXPECTED-RECORD-NAME.                         CMP02480
023800     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP02490
023900     MOVE SAVE-RECORD (4) TO EXPECTED.                            CMP02500
024000     MOVE OWNR TO FOUND.                                          CMP02510
024100     IF FOUND NOT = EXPECTED                                      CMP02520
024200         MOVE '*RECORD CONTENT INCORRECT' TO CEL-MESSAGE          CMP02530
024300         PERFORM PRINT-COMP-ERROR-LINE.                           CMP02540
024400     DISPLAY ' 050 END' UPON THE-PRINTER.                         CMP02550
024500 TEST-060.                                                        CMP02560
024600     DISPLAY ' 060 START (FIND (#2),INSERT)'                      CMP02570
024700         UPON THE-PRINTER.                                        CMP02580
024800     PERFORM INIT-SYSTEM-ITEMS.                                   CMP02590
024900     FIND M RECORD USING SAVE-DBKEY (7).                          CMP02600
025000     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP02610
025100     MOVE SAVE-DBKEY (7) TO EXPECTED-KEY.                         CMP02620
025200     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP02630
025300     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP02640
025400     PERFORM INIT-SYSTEM-ITEMS.                                   CMP02650
025500     INSERT M RECORD INTO THE-RELATIONSHIP SET.                   CMP02660
025600     MOVE 'INSERT' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP02670
025700     MOVE SAVE-DBKEY (7) TO EXPECTED-KEY.                         CMP02680
025800     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP02690
025900     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP02700
026000     PERFORM INIT-SYSTEM-ITEMS.                                   CMP02710
026100     FIND M RECORD USING SAVE-DBKEY (5).                          CMP02720
026200     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP02730
026300     MOVE SAVE-DBKEY (5) TO EXPECTED-KEY.                         CMP02740
026400     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP02750
026500     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP02760
026600     PERFORM INIT-SYSTEM-ITEMS.                                   CMP02770
026700* NEXT LINE USES MINIMUM SYNTAX                                   CMP02780
026800     INSERT M INTO THE-RELATIONSHIP.                              CMP02790
026900     MOVE 'INSERT' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP02800
027000     MOVE SAVE-DBKEY (5) TO EXPECTED-KEY.                         CMP02810
027100     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP02820
027200     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP02830
027300     PERFORM INIT-SYSTEM-ITEMS.                                   CMP02840
027400     FIND M RECORD USING SAVE-DBKEY (6).                          CMP02850
027500     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP02860
027600     MOVE SAVE-DBKEY (6) TO EXPECTED-KEY.                         CMP02870
027700     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP02880
027800     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP02890
027900     PERFORM INIT-SYSTEM-ITEMS.                                   CMP02900
028000* NEXT LINE USES LESS THAN FULL SYNTAX                            CMP02910
028100     INSERT M RECORD INTO THE-RELATIONSHIP.                       CMP02920
028200     MOVE 'INSERT' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP02930
028300     MOVE SAVE-DBKEY (6) TO EXPECTED-KEY.                         CMP02940
028400     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP02950
028500     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP02960
028600     DISPLAY ' 060 END' UPON THE-PRINTER.                         CMP02970
028700 TEST-070.                                                        CMP02980
028800     DISPLAY ' 070 START (OBTAIN (#3,#4))'                        CMP02990
028900         UPON THE-PRINTER.                                        CMP03000
029000     MOVE ALL '*' TO M.                                           CMP03010
029100     MOVE M TO EXPECTED.                                          CMP03020
029200     PERFORM INIT-SYSTEM-ITEMS.                                   CMP03030
029300* NEXT LINE USES LESS THAN FULL SYNTAX (UNNAMED RECORD)           CMP03040
029400     OBTAIN LAST RECORD OF THE-MINIMUM-AREA AREA.                 CMP03050
029500     MOVE 'OBTAIN' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP03060
029600     MOVE SAVE-DBKEY (7) TO EXPECTED-KEY.                         CMP03070
029700     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP03080
029800     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP03090
029900     MOVE SAVE-RECORD (7) TO EXPECTED.                            CMP03100
030000     MOVE M TO FOUND.                                             CMP03110
030100     IF FOUND NOT = EXPECTED                                      CMP03120
030200         MOVE '*RECORD CONTENT INCORRECT' TO CEL-MESSAGE          CMP03130
030300         PERFORM PRINT-COMP-ERROR-LINE.                           CMP03140
030400     MOVE ALL '*' TO OWNR.                                        CMP03150
030500     PERFORM INIT-SYSTEM-ITEMS.                                   CMP03160
030600     OBTAIN OWNER RECORD OF THE-RELATIONSHIP SET.                 CMP03170
030700     MOVE 'OBTAIN' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP03180
030800     MOVE SAVE-DBKEY (4) TO EXPECTED-KEY.                         CMP03190
030900     MOVE 'OWNR' TO EXPECTED-RECORD-NAME.                         CMP03200
031000     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP03210
031100     MOVE SAVE-RECORD (4) TO EXPECTED.                            CMP03220
031200     MOVE OWNR TO FOUND                                           CMP03230
031300     IF FOUND NOT = EXPECTED                                      CMP03240
031400         MOVE '*RECORD CONTENT INCORRECT' TO CEL-MESSAGE          CMP03250
031500         PERFORM PRINT-COMP-ERROR-LINE.                           CMP03260
031600     MOVE ALL '*' TO M.                                           CMP03270
031700     PERFORM INIT-SYSTEM-ITEMS.                                   CMP03280
031800* NEXT LINE USES LESS THAN FULL SYNTAX (UNNAMED RECORD)           CMP03290
031900     OBTAIN FIRST RECORD OF THE-RELATIONSHIP SET.                 CMP03300
032000     MOVE 'OBTAIN' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP03310
032100     MOVE SAVE-DBKEY (5) TO EXPECTED-KEY.                         CMP03320
032200     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP03330
032300     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP03340
032400     MOVE SAVE-RECORD (5) TO EXPECTED.                            CMP03350
032500     MOVE M TO FOUND.                                             CMP03360
032600     IF FOUND NOT = EXPECTED                                      CMP03370
032700         MOVE '*RECORD CONTENT INCORRECT' TO CEL-MESSAGE          CMP03380
032800         PERFORM PRINT-COMP-ERROR-LINE.                           CMP03390
032900     DISPLAY ' 070 END' UPON THE-PRINTER.                         CMP03400
033000 TEST-080.                                                        CMP03410
033100     DISPLAY ' 080 START (FIND (#3);EXPLORE SET)'                 CMP03420
033200         UPON THE-PRINTER.                                        CMP03430
033300     PERFORM INIT-SYSTEM-ITEMS.                                   CMP03440
033400* NEXT LINE USES LESS THAN FULL SYNTAX (UNNAMED RECORD)           CMP03450
033500     FIND NEXT RECORD OF THE-RELATIONSHIP SET.                    CMP03460
033600     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP03470
033700     MOVE SAVE-DBKEY (6) TO EXPECTED-KEY.                         CMP03480
033800     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP03490
033900     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP03500
034000     PERFORM INIT-SYSTEM-ITEMS.                                   CMP03510
034100* NEXT LINE USES LESS THAN FULL SYNTAX                            CMP03520
034200     FIND NEXT OF THE-RELATIONSHIP SET.                           CMP03530
034300     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP03540
034400     MOVE SAVE-DBKEY (7) TO EXPECTED-KEY.                         CMP03550
034500     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP03560
034600     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP03570
034700     PERFORM INIT-SYSTEM-ITEMS.                                   CMP03580
034800* NEXT LINE USES MINIMUM SYNTAX                                   CMP03590
034900     FIND NEXT THE-RELATIONSHIP SET.                              CMP03600
035000     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP03610
035100     MOVE '0307' TO EXPECTED.                                     CMP03620
035200     MOVE ERROR-STATUS TO FOUND.                                  CMP03630
035300     IF FOUND NOT = EXPECTED                                      CMP03640
035400         MOVE '*ERROR-STATUS INCORRECT' TO CEL-MESSAGE            CMP03650
035500         PERFORM PRINT-COMP-ERROR-LINE.                           CMP03660
035600     MOVE SAVE-DBKEY (4) TO EXPECTED-KEY.                         CMP03670
035700     MOVE DBKEY TO FOUND-KEY.                                     CMP03680
035800     IF FOUND-KEY NOT = EXPECTED-KEY                              CMP03690
035900         MOVE '*DBKEY INCORRECT' TO CEL-MESSAGE                   CMP03700
036000         PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY.                  CMP03710
036100     MOVE 'OWNR' TO EXPECTED.                                     CMP03720
036200     MOVE RECORD-NAME TO FOUND.                                   CMP03730
036300     IF FOUND NOT = EXPECTED                                      CMP03740
036400         MOVE '*RECORD-NAME INCORRECT' TO CEL-MESSAGE             CMP03750
036500         PERFORM PRINT-COMP-ERROR-LINE.                           CMP03760
036600     MOVE 'THE-MINIMUM-AREA' TO EXPECTED.                         CMP03770
036700     MOVE AREA-NAME TO FOUND.                                     CMP03780
036800     IF FOUND NOT = EXPECTED                                      CMP03790
036900         MOVE '*AREA-NAME INCORRECT' TO CEL-MESSAGE               CMP03800
037000         PERFORM PRINT-COMP-ERROR-LINE.                           CMP03810
037100     MOVE SPACES TO EXPECTED.                                     CMP03820
037200     MOVE ERROR-SET TO FOUND.                                     CMP03830
037300     IF FOUND NOT = EXPECTED                                      CMP03840
037400         MOVE '*ERROR-SET NOT SPACES' TO CEL-MESSAGE              CMP03850
037500         PERFORM PRINT-COMP-ERROR-LINE.                           CMP03860
037600     MOVE SPACES TO EXPECTED.                                     CMP03870
037700     MOVE ERROR-RECORD TO FOUND.                                  CMP03880
037800     IF FOUND NOT = EXPECTED                                      CMP03890
037900         MOVE '*ERROR-RECORD NOT SPACES' TO CEL-MESSAGE           CMP03900
038000         PERFORM PRINT-COMP-ERROR-LINE.                           CMP03910
038100     MOVE SPACES TO EXPECTED.                                     CMP03920
038200     MOVE ERROR-AREA TO FOUND.                                    CMP03930
038300     IF FOUND NOT = EXPECTED                                      CMP03940
038400         MOVE '*ERROR-AREA NOT SPACES' TO CEL-MESSAGE             CMP03950
038500         PERFORM PRINT-COMP-ERROR-LINE.                           CMP03960
038600     DISPLAY ' 080 END' UPON THE-PRINTER.                         CMP03970
038700 TEST-090.                                                        CMP03980
038800     DISPLAY ' 090 START (FIND (#3);NAMED RECORD)'                CMP03990
038900         UPON THE-PRINTER.                                        CMP04000
039000     PERFORM INIT-SYSTEM-ITEMS.                                   CMP04010
039100     FIND PRIOR A-MINIMUM-RECORD RECORD OF THE-MINIMUM-AREA AREA. CMP04020
039200     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP04030
039300     MOVE SAVE-DBKEY (2) TO EXPECTED-KEY.                         CMP04040
039400     MOVE 'A-MINIMUM-RECORD' TO EXPECTED-RECORD-NAME.             CMP04050
039500     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP04060
039600     DISPLAY ' 090 END' UPON THE-PRINTER.                         CMP04070
039700 TEST-100.                                                        CMP04080
039800     DISPLAY ' 100 START (MOVE)' UPON THE-PRINTER.                CMP04090
039900     MOVE INIT-DBKEY TO FOUND-KEY.                                CMP04100
040000     MOVE CURRENCY STATUS FOR RUN-UNIT TO FOUND-KEY.              CMP04110
040100     MOVE 'MOVE  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP04120
040200     MOVE SAVE-DBKEY (2) TO EXPECTED-KEY.                         CMP04130
040300     IF FOUND-KEY NOT = EXPECTED-KEY                              CMP04140
040400         MOVE '*CURRENT OF RUN-UNIT INCORRECT' TO CEL-MESSAGE     CMP04150
040500         PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY.                  CMP04160
040600     MOVE INIT-DBKEY TO FOUND-KEY.                                CMP04170
040700     PERFORM INIT-SYSTEM-ITEMS.                                   CMP04180
040800* NEXT LINE USES LESS THAN FULL SYNTAX                            CMP04190
040900     MOVE CURRENCY STATUS A-MINIMUM-RECORD RECORD TO FOUND-KEY.   CMP04200
041000     MOVE 'MOVE  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP04210
041100     MOVE SAVE-DBKEY (2) TO EXPECTED-KEY.                         CMP04220
041200     IF FOUND-KEY NOT = EXPECTED-KEY                              CMP04230
041300         MOVE '*CURRENT OF RECORD INCORRECT' TO CEL-MESSAGE       CMP04240
041400         PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY.                  CMP04250
041500     MOVE '0000' TO EXPECTED.                                     CMP04260
041600     MOVE ERROR-STATUS TO FOUND.                                  CMP04270
041700     IF FOUND NOT = EXPECTED                                      CMP04280
041800         MOVE '*ERROR-STATUS INCORRECT' TO CEL-MESSAGE            CMP04290
041900         PERFORM PRINT-COMP-ERROR-LINE.                           CMP04300
042000     MOVE INIT-DBKEY TO EXPECTED-KEY.                             CMP04310
042100     MOVE DBKEY TO FOUND-KEY.                                     CMP04320
042200     IF FOUND-KEY NOT = EXPECTED-KEY                              CMP04330
042300         MOVE '*DBKEY CHANGED' TO CEL-MESSAGE                     CMP04340
042400         PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY.                  CMP04350
042500     MOVE ALL '*' TO EXPECTED.                                    CMP04360
042600     MOVE RECORD-NAME TO FOUND.                                   CMP04370
042700     IF FOUND NOT = EXPECTED                                      CMP04380
042800         MOVE '*RECORD-NAME CHANGED' TO CEL-MESSAGE               CMP04390
042900         PERFORM PRINT-COMP-ERROR-LINE.                           CMP04400
043000     MOVE ALL '*' TO EXPECTED.                                    CMP04410
043100     MOVE AREA-NAME TO FOUND.                                     CMP04420
043200     IF FOUND NOT = EXPECTED                                      CMP04430
043300         MOVE '*AREA-NAME CHANGED' TO CEL-MESSAGE                 CMP04440
043400         PERFORM PRINT-COMP-ERROR-LINE.                           CMP04450
043500     MOVE SPACES TO EXPECTED.                                     CMP04460
043600     MOVE ERROR-SET TO FOUND.                                     CMP04470
043700     IF FOUND NOT = EXPECTED                                      CMP04480
043800         MOVE '*ERROR-SET NOT SPACES' TO CEL-MESSAGE              CMP04490
043900         PERFORM PRINT-COMP-ERROR-LINE.                           CMP04500
044000     MOVE SPACES TO EXPECTED.                                     CMP04510
044100     MOVE ERROR-RECORD TO FOUND.                                  CMP04520
044200     IF FOUND NOT = EXPECTED                                      CMP04530
044300         MOVE '*ERROR-RECORD NOT SPACES' TO CEL-MESSAGE           CMP04540
044400         PERFORM PRINT-COMP-ERROR-LINE.                           CMP04550
044500     MOVE SPACES TO EXPECTED.                                     CMP04560
044600     MOVE ERROR-AREA TO FOUND.                                    CMP04570
044700     IF FOUND NOT = EXPECTED                                      CMP04580
044800         MOVE '*ERROR-AREA NOT SPACES' TO CEL-MESSAGE             CMP04590
044900         PERFORM PRINT-COMP-ERROR-LINE.                           CMP04600
045000     MOVE INIT-DBKEY TO EXPECTED-KEY.                             CMP04610
045100     MOVE INIT-DBKEY TO FOUND-KEY.                                CMP04620
045200     DISPLAY ' 100 END' UPON THE-PRINTER.                         CMP04630
045300 TEST-110.                                                        CMP04640
045400     DISPLAY ' 110 START (FIND (#5))' UPON THE-PRINTER.           CMP04650
045500     MOVE 123 TO SORT-FIELD.                                      CMP04660
045600     PERFORM INIT-SYSTEM-ITEMS.                                   CMP04670
045700     FIND M RECORD.                                               CMP04680
045800     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP04690
045900     MOVE SAVE-DBKEY (6) TO EXPECTED-KEY.                         CMP04700
046000     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP04710
046100     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP04720
046200     MOVE 123 TO SORT-FIELD.                                      CMP04730
046300     PERFORM INIT-SYSTEM-ITEMS.                                   CMP04740
046400     FIND NEXT DUPLICATE M RECORD.                                CMP04750
046500     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP04760
046600     MOVE SAVE-DBKEY (5) TO EXPECTED-KEY.                         CMP04770
046700     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP04780
046800     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP04790
046900     DISPLAY ' 110 END' UPON THE-PRINTER.                         CMP04800
047000 TEST-120.                                                        CMP04810
047100     DISPLAY ' 120 START (FIND (#2))' UPON THE-PRINTER.           CMP04820
047200     PERFORM INIT-SYSTEM-ITEMS.                                   CMP04830
047300     FIND CURRENT OF THE-RELATIONSHIP SET.                        CMP04840
047400     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP04850
047500     MOVE SAVE-DBKEY (5) TO EXPECTED-KEY.                         CMP04860
047600     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP04870
047700     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP04880
047800     DISPLAY ' 120 END' UPON THE-PRINTER.                         CMP04890
047900 TEST-130.                                                        CMP04900
048000     DISPLAY ' 130 START (FIND (#6))' UPON THE-PRINTER.           CMP04910
048100     MOVE 9999 TO SORT-FIELD.                                     CMP04920
048200     PERFORM INIT-SYSTEM-ITEMS.                                   CMP04930
048300     FIND M RECORD VIA CURRENT OF THE-RELATIONSHIP SET            CMP04940
048400         USING SORT-FIELD.                                        CMP04950
048500     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP04960
048600     MOVE SAVE-DBKEY (7) TO EXPECTED-KEY.                         CMP04970
048700     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP04980
048800     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP04990
048900     DISPLAY ' 130 END' UPON THE-PRINTER.                         CMP05000
049000 TEST-140.                                                        CMP05010
049100     DISPLAY ' 140 START (IF (#1))' UPON THE-PRINTER.             CMP05020
049200     PERFORM INIT-SYSTEM-ITEMS.                                   CMP05030
049300     FIND OWNR RECORD USING SAVE-DBKEY (3).                       CMP05040
049400     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP05050
049500     MOVE SAVE-DBKEY (3) TO EXPECTED-KEY.                         CMP05060
049600     MOVE 'OWNR' TO EXPECTED-RECORD-NAME.                         CMP05070
049700     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP05080
049800     PERFORM INIT-SYSTEM-ITEMS.                                   CMP05090
049900     IF THE-RELATIONSHIP SET EMPTY GO TO TEST-140-IF-TRUE.        CMP05100
050000     MOVE 'IF    ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP05110
050100     MOVE '*IF BRANCH NOT TAKEN FOR EMPTY SET' TO CEL-MESSAGE.    CMP05120
050200     PERFORM PRINT-COMP-ERROR-LINE.                               CMP05130
050300     GO TO TEST-140-EXIT.                                         CMP05140
050400 TEST-140-IF-TRUE.                                                CMP05150
050500     MOVE 'IF    ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP05160
050600     MOVE '0000' TO EXPECTED.                                     CMP05170
050700     MOVE ERROR-STATUS TO FOUND.                                  CMP05180
050800     IF FOUND NOT = EXPECTED                                      CMP05190
050900         MOVE '*ERROR-STATUS INCORRECT' TO CEL-MESSAGE            CMP05200
051000         PERFORM PRINT-COMP-ERROR-LINE.                           CMP05210
051100     MOVE INIT-DBKEY TO EXPECTED-KEY.                             CMP05220
051200     MOVE DBKEY TO FOUND-KEY.                                     CMP05230
051300     IF FOUND-KEY NOT = EXPECTED-KEY                              CMP05240
051400         MOVE '*DBKEY CHANGED' TO CEL-MESSAGE                     CMP05250
051500         PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY.                  CMP05260
051600     MOVE ALL '*' TO EXPECTED.                                    CMP05270
051700     MOVE RECORD-NAME TO FOUND.                                   CMP05280
051800     IF FOUND NOT = EXPECTED                                      CMP05290
051900         MOVE '*RECORD-NAME CHANGED' TO CEL-MESSAGE               CMP05300
052000         PERFORM PRINT-COMP-ERROR-LINE.                           CMP05310
052100     MOVE ALL '*' TO EXPECTED.                                    CMP05320
052200     MOVE AREA-NAME TO FOUND.                                     CMP05330
052300     IF FOUND NOT = EXPECTED                                      CMP05340
052400         MOVE '*AREA-NAME CHANGED' TO CEL-MESSAGE                 CMP05350
052500         PERFORM PRINT-COMP-ERROR-LINE.                           CMP05360
052600     MOVE SPACES TO EXPECTED.                                     CMP05370
052700     MOVE ERROR-SET TO FOUND.                                     CMP05380
052800     IF FOUND NOT = EXPECTED                                      CMP05390
052900         MOVE '*ERROR-SET INCORRECT' TO CEL-MESSAGE               CMP05400
053000         PERFORM PRINT-COMP-ERROR-LINE.                           CMP05410
053100     MOVE SPACES TO EXPECTED.                                     CMP05420
053200     MOVE ERROR-RECORD TO FOUND.                                  CMP05430
053300     IF FOUND NOT = EXPECTED                                      CMP05440
053400         MOVE '*ERROR-RECORD INCORRECT' TO CEL-MESSAGE            CMP05450
053500         PERFORM PRINT-COMP-ERROR-LINE.                           CMP05460
053600     MOVE SPACES TO EXPECTED.                                     CMP05470
053700     MOVE ERROR-AREA TO FOUND.                                    CMP05480
053800     IF FOUND NOT = EXPECTED                                      CMP05490
053900         MOVE '*ERROR-AREA INCORRECT' TO CEL-MESSAGE              CMP05500
054000         PERFORM PRINT-COMP-ERROR-LINE.                           CMP05510
054100 TEST-140-EXIT.                                                   CMP05520
054200     DISPLAY ' 140 END' UPON THE-PRINTER.                         CMP05530
054300 TEST-150.                                                        CMP05540
054400     DISPLAY ' 150 START (IF (#2))' UPON THE-PRINTER.             CMP05550
054500     PERFORM INIT-SYSTEM-ITEMS.                                   CMP05560
054600     FIND M RECORD USING SAVE-DBKEY (7).                          CMP05570
054700     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP05580
054800     MOVE SAVE-DBKEY (7) TO EXPECTED-KEY.                         CMP05590
054900     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP05600
055000     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP05610
055100     PERFORM INIT-SYSTEM-ITEMS.                                   CMP05620
055200     IF RECORD NOT MEMBER OF THE-RELATIONSHIP SET                 CMP05630
055300         GO TO TEST-150-IF-TRUE.                                  CMP05640
055400     MOVE 'IF    ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP05650
055500     MOVE '0000' TO EXPECTED.                                     CMP05660
055600     MOVE ERROR-STATUS TO FOUND.                                  CMP05670
055700     IF FOUND NOT = EXPECTED                                      CMP05680
055800         MOVE '*ERROR-STATUS INCORRECT' TO CEL-MESSAGE            CMP05690
055900         PERFORM PRINT-COMP-ERROR-LINE.                           CMP05700
056000     MOVE INIT-DBKEY TO EXPECTED-KEY.                             CMP05710
056100     MOVE DBKEY TO FOUND-KEY.                                     CMP05720
056200     IF FOUND-KEY NOT = EXPECTED-KEY                              CMP05730
056300         MOVE '*DBKEY CHANGED' TO CEL-MESSAGE                     CMP05740
056400         PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY.                  CMP05750
056500     MOVE ALL '*' TO EXPECTED.                                    CMP05760
056600     MOVE RECORD-NAME TO FOUND.                                   CMP05770
056700     IF FOUND NOT = EXPECTED                                      CMP05780
056800         MOVE '*RECORD-NAME CHANGED' TO CEL-MESSAGE               CMP05790
056900         PERFORM PRINT-COMP-ERROR-LINE.                           CMP05800
057000     MOVE ALL '*' TO EXPECTED.                                    CMP05810
057100     MOVE AREA-NAME TO FOUND.                                     CMP05820
057200     IF FOUND NOT = EXPECTED                                      CMP05830
057300         MOVE '*AREA-NAME CHANGED' TO CEL-MESSAGE                 CMP05840
057400         PERFORM PRINT-COMP-ERROR-LINE.                           CMP05850
057500     MOVE SPACES TO EXPECTED.                                     CMP05860
057600     MOVE ERROR-SET TO FOUND.                                     CMP05870
057700     IF FOUND NOT = EXPECTED                                      CMP05880
057800         MOVE '*ERROR-SET INCORRECT' TO CEL-MESSAGE               CMP05890
057900         PERFORM PRINT-COMP-ERROR-LINE.                           CMP05900
058000     MOVE SPACES TO EXPECTED.                                     CMP05910
058100     MOVE ERROR-RECORD TO FOUND.                                  CMP05920
058200     IF FOUND NOT = EXPECTED                                      CMP05930
058300         MOVE '*ERROR-RECORD INCORRECT' TO CEL-MESSAGE            CMP05940
058400         PERFORM PRINT-COMP-ERROR-LINE.                           CMP05950
058500     MOVE SPACES TO EXPECTED.                                     CMP05960
058600     MOVE ERROR-AREA TO FOUND.                                    CMP05970
058700     IF FOUND NOT = EXPECTED                                      CMP05980
058800         MOVE '*ERROR-AREA INCORRECT' TO CEL-MESSAGE              CMP05990
058900         PERFORM PRINT-COMP-ERROR-LINE.                           CMP06000
059000     GO TO TEST-150-EXIT.                                         CMP06010
059100 TEST-150-IF-TRUE.                                                CMP06020
059200     MOVE 'IF    ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP06030
059300     MOVE '*IF BRANCH TAKEN FOR OCCUPIED SET' TO CEL-MESSAGE      CMP06040
059400     PERFORM PRINT-COMP-ERROR-LINE.                               CMP06050
059500 TEST-150-EXIT.                                                   CMP06060
059600     DISPLAY ' 150 END' UPON THE-PRINTER.                         CMP06070
059700 TEST-160.                                                        CMP06080
059800     DISPLAY ' 160 START (REMOVE)' UPON THE-PRINTER.              CMP06090
059900     PERFORM INIT-SYSTEM-ITEMS.                                   CMP06100
060000     REMOVE M RECORD FROM THE-RELATIONSHIP SET.                   CMP06110
060100     MOVE 'REMOVE' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP06120
060200     MOVE SAVE-DBKEY (7) TO EXPECTED-KEY.                         CMP06130
060300     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP06140
060400     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP06150
060500     PERFORM INIT-SYSTEM-ITEMS.                                   CMP06160
060600* NEXT LINE USES MINIMUM SYNTAX                                   CMP06170
060700     FIND LAST M THE-RELATIONSHIP SET.                            CMP06180
060800     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP06190
060900     MOVE SAVE-DBKEY (6) TO EXPECTED-KEY.                         CMP06200
061000     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP06210
061100     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP06220
061200     DISPLAY ' 160 END' UPON THE-PRINTER.                         CMP06230
061300 TEST-170.                                                        CMP06240
061400     DISPLAY ' 170 START (MODIFY;CHANGE CONTENT,CALC KEY,SET KEY)'CMP06250
061500         UPON THE-PRINTER.                                        CMP06260
061600     PERFORM INIT-SYSTEM-ITEMS.                                   CMP06270
061700     OBTAIN M RECORD USING SAVE-DBKEY (6).                        CMP06280
061800     MOVE 'OBTAIN' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP06290
061900     MOVE SAVE-DBKEY (6) TO EXPECTED-KEY.                         CMP06300
062000     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP06310
062100     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP06320
062200     MOVE 122 TO SORT-FIELD.                                      CMP06330
062300     MOVE M TO SAVE-RECORD (6).                                   CMP06340
062400     PERFORM INIT-SYSTEM-ITEMS.                                   CMP06350
062500     MODIFY M RECORD.                                             CMP06360
062600     MOVE 'MODIFY' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP06370
062700     MOVE SAVE-DBKEY (6) TO EXPECTED-KEY.                         CMP06380
062800     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP06390
062900     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP06400
063000     MOVE ALL '*' TO M.                                           CMP06410
063100     MOVE 122 TO SORT-FIELD.                                      CMP06420
063200     PERFORM INIT-SYSTEM-ITEMS.                                   CMP06430
063300     OBTAIN M RECORD.                                             CMP06440
063400     MOVE 'OBTAIN' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP06450
063500     MOVE SAVE-DBKEY (6) TO EXPECTED-KEY.                         CMP06460
063600     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP06470
063700     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP06480
063800     MOVE SAVE-RECORD (6) TO EXPECTED.                            CMP06490
063900     MOVE M TO FOUND.                                             CMP06500
064000     IF FOUND NOT = EXPECTED                                      CMP06510
064100         MOVE '*RECORD CONTENT INCORRECT' TO CEL-MESSAGE          CMP06520
064200         PERFORM PRINT-COMP-ERROR-LINE.                           CMP06530
064300     MOVE ALL '*' TO M.                                           CMP06540
064400     MOVE 123 TO SORT-FIELD.                                      CMP06550
064500     PERFORM INIT-SYSTEM-ITEMS.                                   CMP06560
064600     OBTAIN M RECORD.                                             CMP06570
064700     MOVE 'OBTAIN' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP06580
064800     MOVE SAVE-DBKEY (5) TO EXPECTED-KEY.                         CMP06590
064900     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP06600
065000     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP06610
065100     MOVE SAVE-RECORD (5) TO EXPECTED.                            CMP06620
065200     MOVE M TO FOUND.                                             CMP06630
065300     IF FOUND NOT = EXPECTED                                      CMP06640
065400         MOVE '*RECORD CONTENT INCORRECT' TO CEL-MESSAGE          CMP06650
065500         PERFORM PRINT-COMP-ERROR-LINE.                           CMP06660
065600     PERFORM INIT-SYSTEM-ITEMS.                                   CMP06670
065700* NEXT LINE USES LESS THAN FULL SYNTAX                            CMP06680
065800     FIND FIRST RECORD THE-RELATIONSHIP SET.                      CMP06690
065900     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP06700
066000     MOVE SAVE-DBKEY (6) TO EXPECTED-KEY.                         CMP06710
066100     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP06720
066200     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP06730
066300     DISPLAY ' 170 END' UPON THE-PRINTER.                         CMP06740
066400 TEST-180.                                                        CMP06750
066500     DISPLAY ' 180 START (DELETE (SELECTIVE))' UPON THE-PRINTER.  CMP06760
066600     PERFORM INIT-SYSTEM-ITEMS.                                   CMP06770
066700     FIND OWNR RECORD USING SAVE-DBKEY (4).                       CMP06780
066800     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP06790
066900     MOVE SAVE-DBKEY (4) TO EXPECTED-KEY.                         CMP06800
067000     MOVE 'OWNR' TO EXPECTED-RECORD-NAME.                         CMP06810
067100     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP06820
067200     PERFORM INIT-SYSTEM-ITEMS.                                   CMP06830
067300     DELETE OWNR RECORD SELECTIVE.                                CMP06840
067400     MOVE 'DELETE' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP06850
067500     MOVE -1 TO EXPECTED-KEY.                                     CMP06860
067600     MOVE 'OWNR' TO EXPECTED-RECORD-NAME.                         CMP06870
067700     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP06880
067800     MOVE CURRENCY STATUS FOR RUN-UNIT TO FOUND-KEY.              CMP06890
067900     MOVE -1 TO EXPECTED-KEY.                                     CMP06900
068000     IF FOUND-KEY NOT = EXPECTED-KEY                              CMP06910
068100         MOVE '*CURRENT OF RUN-UNIT INCORRECT' TO CEL-MESSAGE     CMP06920
068200         PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY.                  CMP06930
068300     MOVE CURRENCY STATUS FOR OWNR RECORD TO FOUND-KEY.           CMP06940
068400     MOVE SAVE-DBKEY (4) TO EXPECTED-KEY.                         CMP06950
068500     IF FOUND-KEY NOT = EXPECTED-KEY                              CMP06960
068600         MOVE '*CURRENT OF OWNR RECORD INCORRECT' TO CEL-MESSAGE  CMP06970
068700         PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY.                  CMP06980
068800     MOVE CURRENCY STATUS FOR M RECORD TO FOUND-KEY.              CMP06990
068900     MOVE SAVE-DBKEY (6) TO EXPECTED-KEY.                         CMP07000
069000     IF FOUND-KEY NOT = EXPECTED-KEY                              CMP07010
069100         MOVE '*CURRENT OF M RECORD INCORRECT' TO CEL-MESSAGE     CMP07020
069200         PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY.                  CMP07030
069300     MOVE CURRENCY STATUS FOR THE-MINIMUM-AREA AREA TO FOUND-KEY. CMP07040
069400     MOVE SAVE-DBKEY (4) TO EXPECTED-KEY.                         CMP07050
069500     IF FOUND-KEY NOT = EXPECTED-KEY                              CMP07060
069600         MOVE '*CURRENT OF AREA INCORRECT' TO CEL-MESSAGE         CMP07070
069700         PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY.                  CMP07080
069800     MOVE CURRENCY STATUS FOR THE-RELATIONSHIP SET TO FOUND-KEY.  CMP07090
069900     MOVE SAVE-DBKEY (4) TO EXPECTED-KEY.                         CMP07100
070000     IF FOUND-KEY NOT = EXPECTED-KEY                              CMP07110
070100         MOVE '*CURRENT OF SET INCORRECT' TO CEL-MESSAGE          CMP07120
070200         PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY.                  CMP07130
070300     PERFORM INIT-SYSTEM-ITEMS.                                   CMP07140
070400     FIND OWNR RECORD USING SAVE-DBKEY (4).                       CMP07150
070500     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP07160
070600     MOVE '0326' TO EXPECTED.                                     CMP07170
070700     MOVE ERROR-STATUS TO FOUND.                                  CMP07180
070800     IF FOUND NOT = EXPECTED                                      CMP07190
070900         MOVE '*ERROR-STATUS INCORRECT' TO CEL-MESSAGE            CMP07200
071000         PERFORM PRINT-COMP-ERROR-LINE.                           CMP07210
071100     PERFORM INIT-SYSTEM-ITEMS.                                   CMP07220
071200     FIND M RECORD USING SAVE-DBKEY (5).                          CMP07230
071300     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP07240
071400     MOVE '0326' TO EXPECTED.                                     CMP07250
071500     MOVE ERROR-STATUS TO FOUND.                                  CMP07260
071600     IF FOUND NOT = EXPECTED                                      CMP07270
071700         MOVE '*ERROR-STATUS INCORRECT' TO CEL-MESSAGE            CMP07280
071800         PERFORM PRINT-COMP-ERROR-LINE.                           CMP07290
071900     PERFORM INIT-SYSTEM-ITEMS.                                   CMP07300
072000     FIND M RECORD USING SAVE-DBKEY (6).                          CMP07310
072100     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP07320
072200     MOVE '0326' TO EXPECTED.                                     CMP07330
072300     MOVE ERROR-STATUS TO FOUND.                                  CMP07340
072400     IF FOUND NOT = EXPECTED                                      CMP07350
072500         MOVE '*ERROR-STATUS INCORRECT' TO CEL-MESSAGE            CMP07360
072600         PERFORM PRINT-COMP-ERROR-LINE.                           CMP07370
072700     PERFORM INIT-SYSTEM-ITEMS.                                   CMP07380
072800     FIND M RECORD USING SAVE-DBKEY (7).                          CMP07390
072900     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP07400
073000     MOVE SAVE-DBKEY (7) TO EXPECTED-KEY.                         CMP07410
073100     MOVE 'M' TO EXPECTED-RECORD-NAME.                            CMP07420
073200     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP07430
073300     MOVE 123 TO SORT-FIELD.                                      CMP07440
073400     PERFORM INIT-SYSTEM-ITEMS.                                   CMP07450
073500     FIND M RECORD.                                               CMP07460
073600     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP07470
073700     MOVE '0326' TO EXPECTED.                                     CMP07480
073800     MOVE ERROR-STATUS TO FOUND.                                  CMP07490
073900     IF FOUND NOT = EXPECTED                                      CMP07500
074000         MOVE '*ERROR-STATUS INCORRECT' TO CEL-MESSAGE            CMP07510
074100         PERFORM PRINT-COMP-ERROR-LINE.                           CMP07520
074200     PERFORM INIT-SYSTEM-ITEMS.                                   CMP07530
074300     FIND FIRST M RECORD OF THE-MINIMUM-AREA AREA.                CMP07540
074400     MOVE 'FIND  ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP07550
074500     MOVE '0000' TO EXPECTED.                                     CMP07560
074600     MOVE ERROR-STATUS TO FOUND.                                  CMP07570
074700     IF FOUND NOT = EXPECTED                                      CMP07580
074800         MOVE '*ERROR-STATUS INCORRECT' TO CEL-MESSAGE            CMP07590
074900         PERFORM PRINT-COMP-ERROR-LINE.                           CMP07600
075000     DISPLAY ' 180 END' UPON THE-PRINTER.                         CMP07610
075100 TEST-190.                                                        CMP07620
075200     DISPLAY ' 190 START (CALL DMS-STATUS SECTION)'               CMP07630
075300         UPON THE-PRINTER.                                        CMP07640
075400     MOVE '*' TO DMS-STATUS-INDICATOR.                            CMP07650
075500     MOVE ZEROS TO ERROR-STATUS.                                  CMP07660
075600     PERFORM DMS-STATUS.                                          CMP07670
075700     MOVE SPACE TO EXPECTED.                                      CMP07680
075800     MOVE DMS-STATUS-INDICATOR TO FOUND.                          CMP07690
075900     IF FOUND NOT = EXPECTED                                      CMP07700
076000         MOVE '*DMS-STATUS SECTION MALFUNCTION' TO CEL-MESSAGE    CMP07710
076100         PERFORM PRINT-COMP-ERROR-LINE.                           CMP07720
076200     DISPLAY ' 190 END' UPON THE-PRINTER.                         CMP07730
076300 TEST-200.                                                        CMP07740
076400     DISPLAY ' 200 START (CLOSE)' UPON THE-PRINTER.               CMP07750
076500     PERFORM INIT-SYSTEM-ITEMS.                                   CMP07760
076600     CLOSE ALL AREAS.                                             CMP07770
076700     MOVE 'CLOSE ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE.     CMP07780
076800     MOVE -1 TO EXPECTED-KEY.                                     CMP07790
076900     MOVE SPACES TO EXPECTED-RECORD-NAME.                         CMP07800
077000     PERFORM EXPECT-SUCCESSFUL-FUNCTION.                          CMP07810
077100     DISPLAY ' 200 END' UPON THE-PRINTER.                         CMP07820
077200 TEST-210.                                                        CMP07830
077300     DISPLAY ' 210 START (REPORT RESULTS)' UPON THE-PRINTER.      CMP07840
077400     MOVE ERRORS TO RL-ERRORS.                                    CMP07850
077500     IF ERRORS = 0000                                             CMP07860
077600         MOVE 'PASS' TO RL-RESULT                                 CMP07870
077700         ELSE MOVE 'FAIL' TO RL-RESULT.                           CMP07880
077800     DISPLAY ' ' UPON THE-PRINTER.                                CMP07890
077900     DISPLAY ' ' UPON THE-PRINTER.                                CMP07900
078000     DISPLAY RESULT-LINE UPON THE-PRINTER.                        CMP07910
078100     DISPLAY RESULT-LINE UPON THE-CONSOLE.                        CMP07920
078200     DISPLAY ' ' UPON THE-PRINTER.                                CMP07930
078300     DISPLAY ' ' UPON THE-PRINTER.                                CMP07940
078400     DISPLAY ' 210 END' UPON THE-PRINTER.                         CMP07950
081300 TERMINATION.                                                     CMP07960
081400     STOP RUN.                                                    CMP07970
081500 PRINT-COMP-ERROR-LINE.                                           CMP07980
081600     ADD 0001 TO ERRORS.                                          CMP07990
081700     MOVE EXPECTED TO CEL-EXPECTED-VALUE.                         CMP08000
081800     MOVE FOUND TO CEL-FOUND-VALUE.                               CMP08010
081900     DISPLAY COMPARISON-ERROR-LINE UPON THE-PRINTER.              CMP08020
082000     MOVE ALL '*' TO CEL-MESSAGE.                                 CMP08030
082100     MOVE SPACES TO EXPECTED.                                     CMP08040
082200     MOVE SPACES TO FOUND.                                        CMP08050
082300     MOVE INIT-DBKEY TO EXPECTED-KEY.                             CMP08060
082400     MOVE INIT-DBKEY TO FOUND-KEY.                                CMP08070
082500 PRINT-COMP-ERROR-LINE-WITH-KEY.                                  CMP08080
082600     DIVIDE EXPECTED-KEY BY 256 GIVING DBPAGE REMAINDER DBLINE.   CMP08090
082700     MOVE DBPAGE TO EDIT-PAGE.                                    CMP08100
082800     MOVE DBLINE TO EDIT-LINE.                                    CMP08110
082900     MOVE KEY-EDIT-AREA TO EXPECTED.                              CMP08120
083000     DIVIDE FOUND-KEY    BY 256 GIVING DBPAGE REMAINDER DBLINE.   CMP08130
083100     MOVE DBPAGE TO EDIT-PAGE.                                    CMP08140
083200     MOVE DBLINE TO EDIT-LINE.                                    CMP08150
083300     MOVE KEY-EDIT-AREA TO FOUND.                                 CMP08160
083400     PERFORM PRINT-COMP-ERROR-LINE.                               CMP08170
083500 PRINT-STATUS-LINE.                                               CMP08180
083600     MOVE ERROR-STATUS TO SL-ERROR-STATUS.                        CMP08190
083700     DIVIDE DBKEY BY 256 GIVING DBPAGE REMAINDER DBLINE.          CMP08200
083800     MOVE DBPAGE TO SL-DBKEY-PAGE.                                CMP08210
083900     MOVE DBLINE TO SL-DBKEY-LINE.                                CMP08220
084000     MOVE RECORD-NAME TO SL-RECORD-NAME.                          CMP08230
084100     MOVE AREA-NAME TO SL-AREA-NAME.                              CMP08240
084200     MOVE ERROR-SET TO SL-ERROR-SET.                              CMP08250
084300     MOVE ERROR-RECORD TO SL-ERROR-RECORD.                        CMP08260
084400     MOVE ERROR-AREA TO SL-ERROR-AREA.                            CMP08270
084500     DISPLAY STATUS-LINE UPON THE-PRINTER.                        CMP08280
084600     MOVE ALL '*' TO SL-FUNCTION.                                 CMP08290
084700 INIT-SYSTEM-ITEMS.                                               CMP08300
084800     MOVE '****' TO ERROR-STATUS.                                 CMP08310
084900     MOVE INIT-DBKEY TO DBKEY.                                    CMP08320
085000     MOVE ALL '*' TO RECORD-NAME.                                 CMP08330
085100     MOVE ALL '*' TO AREA-NAME.                                   CMP08340
085200     MOVE ALL '*' TO ERROR-SET.                                   CMP08350
085300     MOVE ALL '*' TO ERROR-RECORD.                                CMP08360
085400     MOVE ALL '*' TO ERROR-AREA.                                  CMP08370
085500 EXPECT-SUCCESSFUL-FUNCTION.                                      CMP08380
085600     MOVE 'VSBRUN  ' TO EXPECTED.                                 CMP08390
085700     MOVE PROGRAM-NAME TO FOUND.                                  CMP08400
085800     IF FOUND NOT = EXPECTED                                      CMP08410
085900         MOVE '*PROGRAM-NAME INCORRECT' TO CEL-MESSAGE            CMP08420
086000         PERFORM PRINT-COMP-ERROR-LINE.                           CMP08430
086100     MOVE '0000' TO EXPECTED. MOVE ERROR-STATUS TO FOUND.         CMP08440
086200     IF FOUND NOT = EXPECTED                                      CMP08450
086300         MOVE '*ERROR-STATUS INCORRECT' TO CEL-MESSAGE            CMP08460
086400         PERFORM PRINT-COMP-ERROR-LINE.                           CMP08470
086500     MOVE DBKEY TO FOUND-KEY.                                     CMP08480
086600     IF FOUND-KEY NOT = EXPECTED-KEY                              CMP08490
086700         MOVE '*DBKEY INCORRECT' TO CEL-MESSAGE                   CMP08500
086800         PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY.                  CMP08510
086900     MOVE EXPECTED-RECORD-NAME TO EXPECTED.                       CMP08520
087000     MOVE RECORD-NAME TO FOUND.                                   CMP08530
087100     IF FOUND NOT = EXPECTED                                      CMP08540
087200         MOVE '*RECORD-NAME INCORRECT' TO CEL-MESSAGE             CMP08550
087300         PERFORM PRINT-COMP-ERROR-LINE.                           CMP08560
087400     MOVE 'THE-MINIMUM-AREA' TO EXPECTED.                         CMP08570
087500     MOVE AREA-NAME TO FOUND.                                     CMP08580
087600     IF FOUND NOT = EXPECTED                                      CMP08590
087700         MOVE '*AREA-NAME INCORRECT' TO CEL-MESSAGE               CMP08600
087800         PERFORM PRINT-COMP-ERROR-LINE.                           CMP08610
087900     MOVE SPACES TO EXPECTED.                                     CMP08620
088000     MOVE ERROR-SET TO FOUND.                                     CMP08630
088100     IF FOUND NOT = EXPECTED                                      CMP08640
088200         MOVE '*ERROR-SET NOT SPACES' TO CEL-MESSAGE              CMP08650
088300         PERFORM PRINT-COMP-ERROR-LINE.                           CMP08660
088400     MOVE SPACES TO EXPECTED.                                     CMP08670
088500     MOVE ERROR-RECORD TO FOUND.                                  CMP08680
088600     IF FOUND NOT = EXPECTED                                      CMP08690
088700         MOVE '*ERROR-RECORD NOT SPACES' TO CEL-MESSAGE           CMP08700
088800         PERFORM PRINT-COMP-ERROR-LINE.                           CMP08710
088900     MOVE SPACES TO EXPECTED.                                     CMP08720
089000     MOVE ERROR-AREA TO FOUND.                                    CMP08730
089100     IF FOUND NOT = EXPECTED                                      CMP08740
089200         MOVE '*ERROR-AREA NOT SPACES' TO CEL-MESSAGE             CMP08750
089300         PERFORM PRINT-COMP-ERROR-LINE.                           CMP08760
089400     MOVE ALL '*' TO EXPECTED-RECORD-NAME.                        CMP08770
089500     MOVE INIT-DBKEY TO EXPECTED-KEY.                             CMP08780
089600     MOVE SPACES TO EXPECTED.                                     CMP08790
089700     MOVE SPACES TO FOUND.                                        CMP08800
089800     MOVE INIT-DBKEY TO EXPECTED-KEY.                             CMP08810
089900     MOVE INIT-DBKEY TO FOUND-KEY.                                CMP08820
090000*                                                                 CMP08830
090100 DMS-SUCCESS SECTION.                                             CMP08840
090200 DMS-SUCCESS-PARAGRAPH.                                           CMP08850
090300     MOVE SPACE TO DMS-STATUS-INDICATOR.                          CMP08860
090400 DMS-SUCCESS-EXIT. EXIT.                                          CMP08870
090500*                                                                 CMP08880
090600 DMS-ABORT SECTION.                                               CMP08890
090700 DMS-ABORT-PARAGRAPH.                                             CMP08900
090800     DISPLAY 'DMS USER ABORT CODE ENTERED.' UPON THE-PRINTER.     CMP08910
090900     DISPLAY 'DMS USER ABORT CODE ENTERED.' UPON THE-CONSOLE.     CMP08920
091000 DMS-ABORT-EXIT. EXIT.                                            CMP08930
/*                                                                      CMP08940
// OPR 'COMPILE COBOL OUTPUT FROM DMLP...'                              CMP08950
// WORK1                                                                CMP08960
// WORK2                                                                CMP08970
// WORK3                                                                CMP08980
// EXEC COBOL                                                           CMP08990
// PARAM IN=INTRRUN/WORKLIB                                             CMP09000
// PARAM LST=(A,K,L,S)                                                  CMP09010
// PARAM OBJ=WORKLIB                                                    CMP09020
// OPR 'LINK DML PROGRAM...'                                            CMP09030
// WORK1                                                                CMP09040
// EXEC LNKEDT                                                          CMP09050
// PARAM OUT=WORKLIB                                                    CMP09060
/$                                                                      CMP09070
 LOADM VSBRUN                                                           CMP09080
 INCLUDE VSBRUN00,WORKLIB                                               CMP09090
 INCLUDE VSBSUBSC,WORKLIB                                               CMP09100
 INCLUDE XU7PAG                                                         CMP09110
* XU7PAG IS NOT REQUIRED IN THIS RUN, BUT IS SPECIFICALLY INCLUDED TO   CMP09120
*        MAKE SURE IT IS PRESENT IN THE RELEASED SYSTEM FOR THE USER    CMP09130
*        WHO IMPLEMENTS HIS OWN CALC ALGORITHM.                         CMP09140
/*                                                                      CMP09150
// WRTBIG 'JOB$        ','DAT$        ','TIM$        ','END         '   CMP09160
/&                                                                      CMP09170
