DEFINE INPUT PARAMETER ipcTime AS CHARACTER NO-UNDO. DEFINE INPUT PARAMETER iplInspiration AS LOGICAL NO-UNDO. DEFINE INPUT PARAMETER ipiEnergyLevel AS INTEGER NO-UNDO. DEFINE INPUT PARAMETER ipiFriendsFree AS INTEGER NO-UNDO. DEFINE OUTPUT PARAMETER opcActivity AS CHARACTER NO-UNDO. CASE ipcTime: WHEN WEEKDAY THEN ASSIGN opcActivity = Junior Consultant / Progress Software Developer at + Progress Software Corporation. WHEN NIGHT OR FREE OR WEEKEND THEN DO: IF iplInspiration THEN ASSIGN opcActivity = Musician / Singer-Songwriter. ELSE DO: IF ipiEnergyLevel >= 5 AND ipiFriendsFree > 0 THEN ASSIGN opcActivity = Go out. ELSE ASSIGN opcActivity = Game / Watch TV - Movies - Series. END. END. END CASE.
©