process/calcfreq.p

   1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r11
   2 &ANALYZE-RESUME
   3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure
   4 /*--------------------------------------------------------------------------
   5   ------------------------------------------------------------------------*/
   6
   7 DEF INPUT  PARAMETER freq-code LIKE FrequencyType.FrequencyCode NO-UNDO.
   8 DEF OUTPUT PARAMETER fraction  AS DEC NO-UNDO.
   9
  10 /* _UIB-CODE-BLOCK-END */
  11 &ANALYZE-RESUME
  12
  13
  14 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  15
  16 /* ********************  Preprocessor Definitions  ******************** */
  17
  18 &Scoped-define PROCEDURE-TYPE Procedure
  19
  20
  21
  22 /* _UIB-PREPROCESSOR-BLOCK-END */
  23 &ANALYZE-RESUME
  24
  25
  26
  27 /* *********************** Procedure Settings ************************ */
  28
  29 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
  30 /* Settings for THIS-PROCEDURE
  31    Type: Procedure
  32    Allow:
  33    Frames: 0
  34    Add Fields to: Neither
  35    Other Settings: CODE-ONLY COMPILE
  36  */
  37 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
  38
  39 /* *************************  Create Window  ************************** */
  40
  41 &ANALYZE-SUSPEND _CREATE-WINDOW
  42 /* DESIGN Window definition (used by the UIB)
  43   CREATE WINDOW Procedure ASSIGN
  44          HEIGHT             = .1
  45          WIDTH              = 40.
  46                                                                         */
  47 &ANALYZE-RESUME
  48
  49
  50
  51
  52 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure
  53
  54
  55 /* ***************************  Main Block  *************************** */
  56
  57 FIND FrequencyType WHERE FrequencyType.FrequencyCode = freq-code
  58   NO-LOCK NO-ERROR.
  59
  60 IF NOT AVAILABLE FrequencyType THEN RETURN.
  61
  62 fraction = Frequencytype.UnitCount *
  63   IF RepeatUnits = "DAYS"   THEN ( 1 / 365 ) ELSE
  64   IF RepeatUnits = "WEEKS"  THEN ( 7 / 365 ) ELSE
  65   IF RepeatUnits = "MONTHS" THEN ( 1 / 12 )  ELSE
  66   IF RepeatUnits = "YEARS"  THEN 1           ELSE 0.
  67
  68 /* _UIB-CODE-BLOCK-END */
  69 &ANALYZE-RESUME
  70
  71