*DECK DCUTL700
00001  IDENTIFICATION DIVISION.                                         12/02/78
00002 ******************************************************************DCUTL700
00003 *                                                                    LV002
00004 *      THIS MODULE IS PART OF THE DA UTLIITY                      DCUTL700
00005 *          IT DISPLAYS SYSTEM PARAMETERS                          DCUTL700
00006 *                                                                 DCUTL700
00007 ******************************************************************DCUTL700
       PROGRAM-ID.   UTL700.
00009  ENVIRONMENT DIVISION.                                            DCUTL700
00010  CONFIGURATION SECTION.                                           DCUTL700
00011  SOURCE-COMPUTER. IBM-370.                                        DCUTL700
00012  OBJECT-COMPUTER. IBM-370.                                        DCUTL700
00013  INPUT-OUTPUT SECTION.                                            DCUTL700
00014  FILE-CONTROL.                                                    DCUTL700
           SELECT MAST3 ASSIGN TO "MAST3" 
               ORGANIZATION IS RELATIVE 
               ACCESS MODE IS RANDOM
               RELATIVE KEY IS CONTROL-NOM-KEY
               USE "PRUF=YES".
           SELECT SYSPRINT ASSIGN TO "OUTPUT".
00026  DATA DIVISION.                                                   DCUTL700
00027  FILE SECTION.                                                    DCUTL700
*CALL MAST3FD 
*CALL SYSPRTFD
  
       COMMON-STORAGE SECTION.
  
       77 RETURN-CODE   PICTURE 99. 
  
  
       01 WKPRINT-UTL.
*CALL WKPRINT 
               10 ERROR-LINE REDEFINES STD-REPORT-REC.
                   15 FILLER       PICTURE X(20). 
                   15 ERROR-POS1   PICTURE X(6).
                   15 ERROR-POS2   PICTURE X(60). 
                   15 FILLER       PICTURE X(46). 
  
       01  UC-BACKUP-R                   PICTURE X(533).
       01  UC-RENAME1                  PICTURE X(72). 
       01  UC-RENAME2                  PICTURE X(11). 
       01  UC-STDS                         PICTURE X. 
       01  UC-OPTIONS                   PIC X(92).
       01  UC-INIT                     PICTURE X(216).
*CALL MAST1LK 
*CALL ENTSAVE 
*CALL COPYWORK
       01 UTL-TABLE-DISP. 
               10 DISP-LINK   PICTURE X(77).
*CALL WRKSTG77
00033  77  TX-SUB              PICTURE 99 COMP.                         DCUTL700
00034  77  OPT-SUB              PICTURE 99 COMP.                        DCUTL700
00035  77  OPT-SUB-LIMIT              PICTURE 99 COMP.                  DCUTL700
00036  77  MAX-POS              PICTURE 99 COMP VALUE 72.               DCUTL700
00040 ******************************************************************DCUTL700
00041 *                                                                *DCUTL700
00042 *  PROGRAM WORK AREAS                                            *DCUTL700
00043 *                                                                *DCUTL700
00044 ******************************************************************DCUTL700
       01 CONTROL-NOM-KEY   PICTURE 999.
00046  01  WORK-AREA.                                                   DCUTL700
00050      05  TYPE-CON.                                                DCUTL700
               10 PROG-ID        PICTURE X(6)  VALUE "DCUTL-".
               10 UPD-TYPE       PICTURE X(3)  VALUE "UPD". 
               10 BAC-TYPE       PICTURE X(3)  VALUE "BAC". 
               10 RES-TYPE       PICTURE X(3)  VALUE "RES". 
               10 LIN-TYPE       PICTURE X(3)  VALUE "LIN". 
               10 STANDARD-TYPE  PICTURE X(3)  VALUE "STA". 
               10  BAC-TYPE-LONG PICTURE X(9)  VALUE "BACKED UP". 
               10  RES-TYPE-LONG PICTURE X(9)  VALUE "RESTORED".
               10 MAX-ENT        PICTURE 9(5).
00065          10  UPD-MSG1.                                            DCUTL700
00066              15  FILLER          PICTURE X(24) VALUE              DCUTL700
           "  IN THE LAST UPDATE ON ".
00068              15  UPD-DATE-UPD    PICTURE X(8).                    DCUTL700
00069          10  UPD-MSG2.                                            DCUTL700
00070              15  UPD-NUM-INS          PICTURE ZZZZ9.              DCUTL700
00071              15  FILLER          PICTURE X(19) VALUE              DCUTL700
           " ENTRIES WERE ADDED". 
00073          10  UPD-MSG3.                                            DCUTL700
00074              15  UPD-NUM-DEL          PICTURE ZZZZ9.              DCUTL700
00075              15  FILLER          PICTURE X(21) VALUE              DCUTL700
           " ENTRIES WERE DELETED". 
00077          10  UPD-MSG4.                                            DCUTL700
00078              15  UPD-NUM-UPD          PICTURE ZZZZ9.              DCUTL700
00079              15  FILLER          PICTURE X(21) VALUE              DCUTL700
           " ENTRIES WERE CHANGED". 
00137      10  BAC-MSG.                                                 DCUTL700
               15 FILLER   PICTURE XXXXX   VALUE "  ON ". 
00139          15  BAC-DATE-RES             PICTURE X(8).               DCUTL700
00140              15  FILLER           PICTURE X VALUE SPACE.          DCUTL700
00141              15  BAC-NUM-RES      PICTURE ZZZZ9.                  DCUTL700
00142          15  FILLER                   PICTURE X(14) VALUE         DCUTL700
           " ENTRIES WERE". 
00144          15  BAC-TYPE-MSG             PICTURE X(9).               DCUTL700
00145      10  LIN-MSG.                                                 DCUTL700
00146          15  FILLER                   PICTURE X(13) VALUE         DCUTL700
           "  THERE ARE". 
00148          15  LIN-LINES                PICTURE Z9.                 DCUTL700
00149          15  FILLER                   PICTURE X(23) VALUE         DCUTL700
           " LINES PRINTED PER PAGE". 
00151          10  STANDARD-MSG1.                                       DCUTL700
00152              15  FILLER          PICTURE X(34) VALUE              DCUTL700
           " THE FOLLOWING FIELDS ARE STANDARD".
00154          10  STANDARD-MSG2.                                       DCUTL700
00155              15  FILLER          PICTURE XXX VALUE SPACE.         DCUTL700
                   15 FILLER   PICTURE X(15) VALUE "ENTITY         ". 
                   15 FILLER   PICTURE X(11) VALUE "SYSTEM NAME". 
00158          10  STANDARD-MSG3.                                       DCUTL700
00159              15  FILLER          PICTURE XXX.                     DCUTL700
00160              15  STA-ENTITY      PICTURE X(15).                   DCUTL700
00161              15  STA-FIELD       PICTURE X(8).                    DCUTL700
00162      10  ERR-MSG.                                                 DCUTL700
00163              15  FILLER           PICTURE X(51) VALUE             DCUTL700
           "450-S *ERROR OPERAND OF DISPLAY COMMAND IS INVALID".
00165          10  BAD-KEY              PICTURE X(50) VALUE             DCUTL700
           "950-F *ERROR MAST3-READ CLIENT RECORD". 
00167      05  FUNCTION-OPERAND.                                        DCUTL700
00168          10  TX-POS           PICTURE X OCCURS 67 TIMES.          DCUTL700
00169      05  FUNCTION-OPT.                                            DCUTL700
00170          10  OPT-AREA         PICTURE X OCCURS 27 TIMES.          DCUTL700
00171      05  OPT-FUNCTION REDEFINES FUNCTION-OPT.                     DCUTL700
00172          10  FUNCTION-OPT-3           PICTURE XXX.                DCUTL700
00173          10  FILLER                   PICTURE X(24).              DCUTL700
00174  01  ENTRY-POINTER-TABLE.                                         DCUTL700
00175          10  PTR-ENTRY OCCURS 17 TIMES.                           DCUTL700
00176              15  PTR-ENTRY-NAME   PICTURE X(15).                  DCUTL700
00177              15  PTR-ENTRY-TYPE   PICTURE XX.                     DCUTL700
00235  PROCEDURE DIVISION.                                              DCUTL700
       OLD-ENTRY. 
00239      OPEN INPUT MAST3.                                            DCUTL700
00240      OPEN OUTPUT SYSPRINT.                                        DCUTL700
00241      MOVE SPACE TO PRINT-LINE.                                    DCUTL700
00242      MOVE SPACE TO STD-REPORT-REC.                                DCUTL700
00243      MOVE 1 TO PRT-CTL.                                           DCUTL700
00244      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCUTL700
           MOVE 1 TO CONTROL-NOM-KEY. 
00246      READ MAST3                                                   DCUTL700
00247          INVALID KEY GO TO DISP-ABORT.                            DCUTL700
00248      MOVE DISP-LINK TO FUNCTION-OPERAND.                          DCUTL700
00249      MOVE ZERO TO TX-SUB.                                         DCUTL700
00250      PERFORM FIND-BLANK THRU FIND-BLANK-XIT.                      DCUTL700
00251      MOVE 33 TO OPT-SUB-LIMIT.                                    DCUTL700
00252      PERFORM FIND-OPT THRU FIND-OPT-XIT.                          DCUTL700
00253      IF FUNCTION-OPT-3 NOT EQUAL UPD-TYPE                         DCUTL700
00254          GO TO 100-DISP.                                          DCUTL700
00255 ***************************************************************   DCUTL700
00256 *   DISPLAY UPDATE                                                DCUTL700
00257 ***************************************************************   DCUTL700
00258      MOVE CTL-NUM-INS TO UPD-NUM-INS.                             DCUTL700
00259      MOVE CTL-NUM-DEL TO UPD-NUM-DEL.                             DCUTL700
00260      MOVE CTL-NUM-UPD TO UPD-NUM-UPD.                             DCUTL700
00261      MOVE CTL-DATE-UPD TO UPD-DATE-UPD.                           DCUTL700
00262      MOVE UPD-MSG1 TO STD-REPORT-REC.                             DCUTL700
00263      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCUTL700
00264      MOVE UPD-MSG2 TO STD-REPORT-REC.                             DCUTL700
00265      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCUTL700
00266      MOVE UPD-MSG3 TO STD-REPORT-REC.                             DCUTL700
00267      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCUTL700
00268      MOVE UPD-MSG4 TO STD-REPORT-REC.                             DCUTL700
00269      GO TO EOJ.                                                   DCUTL700
00270  100-DISP.                                                        DCUTL700
00271      IF FUNCTION-OPT-3 NOT EQUAL BAC-TYPE                         DCUTL700
00272          GO TO 200-DISP.                                          DCUTL700
00273 ***************************************************************   DCUTL700
00274 *   DISPLAY BACKUP AND RESTORE                                    DCUTL700
00275 ***************************************************************   DCUTL700
00276  150-DISP.                                                        DCUTL700
00277      MOVE CTL-DATE-RES TO BAC-DATE-RES.                           DCUTL700
00278      MOVE CTL-NUM-RES TO BAC-NUM-RES.                             DCUTL700
00279      IF FUNCTION-OPT-3 EQUAL BAC-TYPE                             DCUTL700
00280          MOVE BAC-TYPE-LONG TO BAC-TYPE-MSG                       DCUTL700
00281      ELSE MOVE RES-TYPE-LONG TO BAC-TYPE-MSG.                     DCUTL700
00282      MOVE CTL-DATE-RES TO BAC-DATE-RES.                           DCUTL700
00283      MOVE BAC-MSG TO STD-REPORT-REC.                              DCUTL700
00284      GO TO EOJ.                                                   DCUTL700
00285  200-DISP.                                                        DCUTL700
00286      IF FUNCTION-OPT-3 EQUAL RES-TYPE                             DCUTL700
00287          GO TO 150-DISP.                                          DCUTL700
00288      IF FUNCTION-OPT-3 NOT EQUAL LIN-TYPE                         DCUTL700
00289          GO TO 300-DISP.                                          DCUTL700
00290 ***************************************************************   DCUTL700
00291 *   DISPLAY LINES                                                 DCUTL700
00292 ***************************************************************   DCUTL700
00293      MOVE CTL-LINES TO LIN-LINES.                                 DCUTL700
00294      MOVE LIN-MSG TO STD-REPORT-REC.                              DCUTL700
00295      GO TO EOJ.                                                   DCUTL700
00296  300-DISP.                                                        DCUTL700
           IF FUNCTION-OPT-3 NOT = STANDARD-TYPE GO TO 1000-DISP. 
00491 *********************************************************         DCUTL700
00492 *                                                                 DCUTL700
00493 *    DISPLAY STANDARDS                                            DCUTL700
00494 *                                                                 DCUTL700
00495 *********************************************************         DCUTL700
00496      MOVE SPACE TO ENTRY-POINTER-TABLE.                           DCUTL700
00497      MOVE SPACE TO STANDARD-MSG3.                                 DCUTL700
           MOVE 3 TO CONTROL-NOM-KEY. 
00499      READ MAST3                                                   DCUTL700
00500          INVALID KEY GO TO DISP-ABORT.                            DCUTL700
00501      MOVE 1 TO TX-SUB.                                            DCUTL700
00502  0100-STD.                                                        DCUTL700
00503      MOVE CTL-ENTRY (TX-SUB) TO PTR-ENTRY (TX-SUB).               DCUTL700
00504      ADD 1 TO TX-SUB.                                             DCUTL700
           IF TX-SUB IS NOT GREATER THAN 17 
00506          GO TO 0100-STD.                                          DCUTL700
00507      MOVE STANDARD-MSG1 TO STD-REPORT-REC.                        DCUTL700
00508      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCUTL700
00509      MOVE STANDARD-MSG2 TO STD-REPORT-REC.                        DCUTL700
00510      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCUTL700
           MOVE 5 TO CONTROL-NOM-KEY
00512  0200-STD.                                                        DCUTL700
           IF CONTROL-NOM-KEY IS GREATER THAN CONTROL-FILE-LIMIT
00514           GO TO EOJ.                                                 CL**2
00515      READ MAST3                                                   DCUTL700
00516          INVALID KEY GO TO DISP-ABORT.                            DCUTL700
00517      MOVE 1 TO TX-SUB.                                            DCUTL700
00518  0250-STD.                                                        DCUTL700
00519      IF CTL-FLD-ENTRY-TYPE EQUAL PTR-ENTRY-TYPE (TX-SUB)          DCUTL700
00520          GO TO 0300-STD.                                          DCUTL700
00521      ADD 1 TO TX-SUB.                                             DCUTL700
00522      IF TX-SUB GREATER THAN 17                                    DCUTL700
00523          GO TO EOJ.                                               DCUTL700
00524      GO TO 0250-STD.                                              DCUTL700
00525  0300-STD.                                                        DCUTL700
00526      MOVE PTR-ENTRY-NAME (TX-SUB) TO STA-ENTITY.                  DCUTL700
00527      MOVE 1 TO TX-SUB.                                            DCUTL700
00528  0350-STD.                                                        DCUTL700
00529      IF CTL-FLD-NAME (TX-SUB) EQUAL SPACE                         DCUTL700
00530          ADD 1 TO CONTROL-NOM-KEY                                 DCUTL700
00531          GO TO 0200-STD.                                          DCUTL700
           IF CTL-FLD-STD (TX-SUB) = "Y"
00533          MOVE CTL-FLD-NAME (TX-SUB) TO STA-FIELD                  DCUTL700
00534          MOVE STANDARD-MSG3 TO STD-REPORT-REC                     DCUTL700
00535          PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.              DCUTL700
00536      ADD 1 TO TX-SUB.                                             DCUTL700
00537      GO TO 0350-STD.                                              DCUTL700
00539 ***************************************************************** DCUTL700
00540 *                                                                 DCUTL700
00541 *     ERROR INVALID OPERAND                                       DCUTL700
00542 *                                                                 DCUTL700
00543 ***************************************************************** DCUTL700
00544  1000-DISP.                                                       DCUTL700
00545      MOVE ERR-MSG TO ERROR-POS2.                                  DCUTL700
00546      MOVE 8 TO RETURN-CODE.                                       DCUTL700
00547  1050-DISP.                                                       DCUTL700
00548      MOVE PROG-ID TO ERROR-POS1.                                  DCUTL700
00549      GO TO EOJ.                                                   DCUTL700
00550  DISP-ABORT.                                                      DCUTL700
00551      MOVE BAD-KEY TO ERROR-POS2.                                  DCUTL700
00552      MOVE 12 TO RETURN-CODE.                                      DCUTL700
00553      GO TO 1050-DISP.                                             DCUTL700
00555 ***********************************************************       DCUTL700
00556 *                                                                 DCUTL700
00557 *          END OF JOB                                             DCUTL700
00558 *                                                                 DCUTL700
00559 ***************************************************************** DCUTL700
00560  EOJ.                                                             DCUTL700
00561      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCUTL700
00562      MOVE SPACE TO PRINT-LINE.                                    DCUTL700
00563      MOVE SPACE TO STD-REPORT-REC.                                DCUTL700
00564      CLOSE MAST3.                                                 DCUTL700
00565      CLOSE SYSPRINT.                                              DCUTL700
           EXIT PROGRAM.
00568 ******************************************************************DCUTL700
00569 *                                                                 DCUTL700
00570 *       SCAN SUBROUTINES                                          DCUTL700
00571 *                                                                 DCUTL700
00572 ******************************************************************DCUTL700
00573  FIND-BLANK.                                                      DCUTL700
00574      ADD 1 TO TX-SUB.                                             DCUTL700
00575      IF TX-SUB GREATER THAN MAX-POS                               DCUTL700
00576           GO TO FIND-BLANK-XIT.                                   DCUTL700
00577      IF TX-POS (TX-SUB) EQUAL SPACE                               DCUTL700
00578          GO TO FIND-BLANK.                                        DCUTL700
00579  FIND-BLANK-XIT.                                                  DCUTL700
00580      EXIT.                                                        DCUTL700
00581  FIND-OPT.                                                        DCUTL700
00582      MOVE ZERO TO OPT-SUB.                                        DCUTL700
00583      MOVE SPACE TO FUNCTION-OPT.                                  DCUTL700
00584  FIND-OPT-100.                                                    DCUTL700
00585      ADD 1 TO OPT-SUB.                                            DCUTL700
00586      MOVE TX-POS (TX-SUB) TO OPT-AREA (OPT-SUB).                  DCUTL700
00587      ADD 1 TO TX-SUB.                                             DCUTL700
00588      IF TX-SUB GREATER THAN MAX-POS                               DCUTL700
00589          GO TO FIND-OPT-XIT.                                      DCUTL700
00590      IF OPT-SUB LESS THAN OPT-SUB-LIMIT                           DCUTL700
00591          GO TO FIND-OPT-100.                                      DCUTL700
00592  FIND-OPT-XIT.                                                    DCUTL700
00593      EXIT.                                                        DCUTL700
*CALL DISPLAYLN 
*CALL WRITELN 
00596  USER-ROUTINE.                                                    DCUTL700
00597      GO TO USER-ROUTINE-XIT.                                      DCUTL700
00598  USER-ROUTINE-XIT.                                                DCUTL700
00599      EXIT.                                                        DCUTL700
