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.