process/apmsbrun.p

   1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12
   2 &ANALYZE-RESUME
   3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure
   4 /*--------------------------------------------------------------------------
   5     File        : process/apmsbrun.p
   6     Purpose     : Run programs which take a parameter except do it from the
   7                   command line.
   8
   9     Syntax      : the progress command line should have a -param "<program>,<parameters>"
  10
  11     Author(s)   : Andrew McMillan
  12     Created     : 21/6/2000
  13   ------------------------------------------------------------------------*/
  14
  15 DEF VAR progname AS CHAR NO-UNDO INITIAL "".
  16 DEF VAR parameters AS CHAR NO-UNDO INITIAL "".
  17
  18 /* _UIB-CODE-BLOCK-END */
  19 &ANALYZE-RESUME
  20
  21
  22 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  23
  24 /* ********************  Preprocessor Definitions  ******************** */
  25
  26 &Scoped-define PROCEDURE-TYPE Procedure
  27 &Scoped-define DB-AWARE no
  28
  29
  30
  31 /* _UIB-PREPROCESSOR-BLOCK-END */
  32 &ANALYZE-RESUME
  33
  34
  35
  36 /* *********************** Procedure Settings ************************ */
  37
  38 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
  39 /* Settings for THIS-PROCEDURE
  40    Type: Procedure
  41    Allow:
  42    Frames: 0
  43    Add Fields to: Neither
  44    Other Settings: CODE-ONLY COMPILE
  45  */
  46 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
  47
  48 /* *************************  Create Window  ************************** */
  49
  50 &ANALYZE-SUSPEND _CREATE-WINDOW
  51 /* DESIGN Window definition (used by the UIB)
  52   CREATE WINDOW Procedure ASSIGN
  53          HEIGHT             = 7.35
  54          WIDTH              = 39.72.
  55 /* END WINDOW DEFINITION */
  56                                                                         */
  57 &ANALYZE-RESUME
  58
  59 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB Procedure
  60 /* ************************* Included-Libraries *********************** */
  61
  62 /* _UIB-CODE-BLOCK-END */
  63 &ANALYZE-RESUME
  64
  65
  66
  67
  68
  69 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure
  70
  71
  72 /* ***************************  Main Block  *************************** */
  73
  74 progname = ENTRY(1, SESSION:PARAMETER).
  75 IF INDEX(SESSION:PARAMETER,',') > 0  THEN DO:
  76   parameters = SUBSTRING( SESSION:PARAMETER, INDEX(SESSION:PARAMETER,',') + 1).
  77 END.
  78 RUN VALUE( progname ) ( parameters ).
  79
  80 QUIT.
  81
  82 /* _UIB-CODE-BLOCK-END */
  83 &ANALYZE-RESUME
  84
  85