*DECK DB$DSL1 
      PROC DB$DSL1;               # GENERATE COMMAND/OPTION LIST 1     #
  
      BEGIN 
  
 #
* *   DB$DSL1 - GENERATE COMMAND/OPTION LIST 1   PAGE  1
* *   P A MURRAY                                 DATE  12/11/78 
* 
* DC  PURPOSE 
* 
*     TO GENERATE COMMAND/OPTION LIST 1 FOR THE OPERATOR DISPLAY
* 
* DC  ENTRY CONDITIONS
* 
*     NONE
* 
* DC  EXIT CONDITIONS 
* 
*     THE CDCS COMMAND LIST HAS BEEN GENERATED
* 
* DC  CALLING ROUTINES
* 
*     DB$DSTX     SYNGEN SPECIFICATION (THROUGH DB$DDIF)
* 
* DC  CALLED ROUTINES 
# 
      XREF PROC DB$DBHL;          # BEGIN HEADER LINES                 #
      XREF PROC DB$DEHL;          # ENTER HEADER LINE                  #
      XREF PROC DB$DBLL;          # BEGIN LIST LINES                   #
      XREF PROC DB$DELL;          # ENTER LIST LINE                    #
# 
* DC  DESCRIPTION 
* 
*     DB$DBHL IS CALLED TO BEGIN HEADER LINE PROCESSING.  LOOP THROUGH
*     THE HEADER LINE ARRAY, CALLING DB$DEHL TO ENTER EACH HEADER LINE. 
*     DB$DBLL IS CALLED TO BEGIN LIST LINE PROCESSING.  LOOP THROUGH
*     THE LIST LINE ARRAY, CALLING DB$DELL TO ENTER EACH LIST LINE. 
*     IN THE PARAMETER LISTS OF DB$DEHL AND DB$DELL, THE SUBSCRIPTED
*     ARRAY NAME IS USED INSTEAD OF THE SUBSCRIPTED ARRAY ITEM NAME 
*     IN ORDER TO AVOID A CHARACTER STRING MOVE INTO A TEMPORARY ITEM.
* 
 #
  
      DEF   DFLL    # 64#;        # LINE LENGTH (IN CHARS)             #
      DEF   DFMAXHL #  1#;        # NUMBER OF HEADER LINES             #
      DEF   DFMAXLL # 83#;        # NUMBER OF LIST LINES               #
  
      ARRAY HLT[1:DFMAXHL] S(7);
        BEGIN 
        ITEM HLDFT    C(00,00,DFLL) = [DFMAXHL(" ")]; 
        ITEM HLTITEM  C(00,00,DFLL) = 
  
      #           B E G I N   P R E S E T   O F   H L T                #
  
  
     ["              C D C S    C O M M A N D    L I S T               "
      ];
        END 
  
      ARRAY LLT[1:DFMAXLL] S(7);
        BEGIN 
        ITEM LLDFT    C(00,00,DFLL) = [DFMAXLL(" ")]; 
        ITEM LLTITEM  C(00,00,DFLL) = 
  
      #           B E G I N   P R E S E T   O F   L L T                #
  
     [" THE FOLLOWING COMMANDS ARE AVAILABLE --                        "
     ,"                                                                "
     ,"                ENTER +NN TO DISPLAY THE SYNTAX                 "
     ,"         AND A BRIEF DESCRIPTION OF A SPECIFIC COMMAND          "
     ,"                                                                "
     ,"+00  DOWN    -  ABORT ALL USAGE OF CDCS, A SCHEMA OR AN AREA.   "
     ,"+00  IDLE    -  PREVENT NEW USAGE OF CDCS, A SCHEMA OR AN AREA. "
     ,"+00  RETAIN  -  SELECT LONG-TERM RETENTION OF ATTACHED FILES.   "
     ,"+00  RETURN  -  SET MODE TO RETURN FILES UPON USER TERMINATION. "
     ,"+00  ROLL    -  ENABLE/DISABLE ROLLOUT OF CDCS WHEN IDLE.       "
     ,"+00  STATUS  -  REPORT CURRENT STATUS OF THE SPECIFIED OBJECT.  "
     ,"     ST      -  ABBREVIATION FOR STATUS.                        "
     ,"+00  TERM    -  END CDCS AFTER CURRENT USERS HAVE TERMINATED.   "
     ,"+00  UP      -  REVERSE THE ACTION OF DOWN, IDLE OR TERM.       "
     ,">11                                                             "
     ," DOWN,CDCS                                                      "
     ," DOWN,SC=/SCHEMA/                                               "
     ," DOWN,SC=/SCHEMA/,AR=/AREA/                                     "
     ," DOWN,SC=/SCHEMA/,AR=/AREA/,VN=/VERSION/                        "
     ,"                           /SCHEMA/  = SCHEMA NAME OR SCHEMA ID "
     ,"                           /AREA/    = AREA NAME OR AREA ID     "
     ,"                           /VERSION/ = VERSION NAME             "
     ,"          SHUT DOWN USAGE OF THE SPECIFIED OBJECT, AND TERMINATE"
     ,"          (ABORT) ACTIVE JOBS USING THAT OBJECT.  THE EFFECT OF "
     ,"          THIS COMMAND CAN BE REMOVED (EXCEPT FOR TERMINATED    "
     ,"          JOBS) BY THE CORRESPONDING -UP- COMMAND.              "
     ,">10                                                             "
     ," IDLE,CDCS                                                      "
     ," IDLE,SC=/SCHEMA/                                               "
     ," IDLE,SC=/SCHEMA/,AR=/AREA/                                     "
     ," IDLE,SC=/SCHEMA/,AR=/AREA/,VN=/VERSION/                        "
     ,"                           /SCHEMA/  = SCHEMA NAME OR SCHEMA ID "
     ,"                           /AREA/    = AREA NAME OR AREA ID     "
     ,"                           /VERSION/ = VERSION NAME             "
     ,"          SHUT DOWN USAGE OF THE SPECIFIED OBJECT, BUT ALLOW    "
     ,"          ACTIVE JOBS TO COMPLETE.  THE EFFECT OF THIS COMMAND  "
     ,"          CAN BE REMOVED BY THE CORRESPONDING -UP- COMMAND.     "
     ,">09                                                             "
     ," RETAIN,SC=/SCHEMA/                                             "
     ," RETAIN,SC=/SCHEMA/,SB=/SUBSCHEMA-NAME/                         "
     ,"                            /SCHEMA/ = SCHEMA NAME OR SCHEMA ID "
     ,"                            /SUBSCHEMA-NAME/ = SUBSCHEMA NAME   "
     ,"          SELECT LONG-TERM TABLE AND FILE RETENTION MODE FOR A  "
     ,"          SPECIFIC SCHEMA (IF THE SB PARAMETER IS NOT           "
     ,"          SPECIFIED), OR FOR A SPECIFIC SUBSCHEMA (IF SB IS     "
     ,"          SPECIFIED).  AT CDCS INITIALIZATION, RETAIN MODE IS   "
     ,"          NOT ASSUMED FOR ANY SCHEMAS OR SUB-SCHEMAS.           "
     ,">08                                                             "
     ," RETURN,SC=/SCHEMA/                                             "
     ," RETURN,SC=/SCHEMA/,SB=/SUBSCHEMA-NAME/                         "
     ,"                            /SCHEMA/ = SCHEMA NAME OR SCHEMA ID "
     ,"                            /SUBSCHEMA-NAME/ = SUBSCHEMA NAME   "
     ,"          TERMINATE LONG-TERM TABLE AND FILE RETENTION MODE FOR "
     ,"          THE SPECIFIED SCHEMA OR SUBSCHEMA.  THIS COMMAND      "
     ,"          REVERSES THE EFFECT OF THE CORRESPONDING -RETAIN-     "
     ,"          COMMAND.                                              "
     ,">03                                                             "
     ," ROLL              OR                                           "
     ," ROLL,YES        PERMITS CDCS TO ROLLOUT WHEN IT IS IDLE.       "
     ," ROLL,NO         INHIBITS ROLLOUT.                              "
     ,">05                                                             "
     ," STATUS COMMANDS.                                               "
     ,"          DISPLAY REQUESTED INFORMATION ON CDCS DATABASE, AREA  "
     ,"          AND JOBS STATUS.  -- SEE SEPARATE STATUS OPTION LIST  "
     ,"          FOR FULL LISTING OF SYNTAX AND OPTIONS AVAILABLE --   "
     ,"          ENTER A PERIOD ( . ) TO SEE THIS LIST.                "
     ,">05                                                             "
     ," TERM                                                           "
     ,"          SHUT DOWN USAGE OF CDCS, ALLOWING ACTIVE JOBS TO      "
     ,"          COMPLETE.  WHEN USER COUNT REACHES ZERO, CDCS WILL    "
     ,"          TERMINATE.  THE EFFECT OF THIS COMMAND CAN BE REMOVED "
     ,"          BY -UP,CDCS-.                                         "
     ,">10                                                             "
     ," UP,CDCS                                                        "
     ," UP,SC=/SCHEMA/                                                 "
     ," UP,SC=/SCHEMA/,AR=/AREA/                                       "
     ," UP,SC=/SCHEMA/,AR=/AREA/,VN=/VERSION/                          "
     ,"                           /SCHEMA/  = SCHEMA NAME OR SCHEMA ID "
     ,"                           /AREA/    = AREA NAME OR AREA ID     "
     ,"                           /VERSION/ = VERSION NAME             "
     ,"          RESTART USAGE OF A SPECIFIED, SHUT DOWN OBJECT.  NOTE "
     ,"          THAT SPECIFYING -UP,CDCS- DOES NOT AFFECT AREA OR     "
     ,"          SCHEMA -DOWN- OR -IDLE- STATUS.                       "
      ];
        END 
  
#     LOCAL ITEMS                                                      #
  
      ITEM I I;              # INDUCTION VARIABLE                      #
  
  
#     E X E C U T A B L E   C O D E   F O R   D B $ D S L 1            #
  
      DB$DBHL;
      FOR I = 1 STEP 1 UNTIL DFMAXHL DO     # ENTER HEADER LINES, ONE  #
        DB$DEHL(HLT[I],DFLL);               # LINE AT A TIME           #
  
      DB$DBLL;
      FOR I = 1 STEP 1 UNTIL DFMAXLL DO     # ENTER LIST LINES, ONE    #
        DB$DELL(LLT[I],DFLL);               # LINE AT A TIME           #
  
      RETURN; 
  
      END  # DB$DSL1 #
      TERM
