PROGRESS function

Returns one of the following character values which identifies the ABL product that is running: Full, Query or Run-time. Can also return COMPILE if you use the Developer’s Toolkit, or COMPILE-ENCRYPT if you use the run-time Compiler.

The following procedure uses the PROGRESS phrase function to determine which exit prompt is displayed on a menu:

PROGRESS

r-progfn.p
/* Depending on the version of PROGRESS you are running, the main menu reflects available features for end-user / DEFINE VARIABLE menu AS CHARACTER NO-UNDO EXTENT 3. DEFINE VARIABLE exit-prompt AS CHARACTER NO-UNDO. IF PROGRESS* EQ "FULL" THEN exit-prompt = " 3. Return to Full Editor ". ELSE IF PROGRESS EQ "QUERY" THEN exit-prompt = " 3. Return to Query Editor". ELSE IF PROGRESS EQ "RUN-TIME" THEN exit-prompt = "3. Exit Program". DO WHILE TRUE: DISPLAY " 1. Display Customer Data" @ menu[1] SKIP " 2. Display Order Data" @ menu[2] SKIP exit-prompt @ menu[3] FORMAT "x(26)" SKIP WITH FRAME choices NO-LABELS. CHOOSE FIELD menu AUTO-RETURN WITH FRAME choices TITLE "Demonstration menu" CENTERED ROW 10. HIDE FRAME choices. IF FRAME-INDEX EQ 1 THEN MESSAGE "You picked option 1.". ELSE IF FRAME-INDEX EQ 2 THEN MESSAGE "You picked option 2.". ELSE IF FRAME-INDEX EQ 3 THEN RETURN. END.

r-progfn.p

/* Depending on the version of PROGRESS you are running, the main menu reflects 
   available features for end-user */ 
DEFINE VARIABLE menu        AS CHARACTER NO-UNDO EXTENT 3. 
DEFINE VARIABLE exit-prompt AS CHARACTER NO-UNDO. 
IF PROGRESS EQ "FULL" THEN 
  exit-prompt = " 3. Return to Full Editor ". 
ELSE IF PROGRESS EQ "QUERY" THEN 
  exit-prompt = " 3. Return to Query Editor". 
ELSE IF PROGRESS EQ "RUN-TIME" THEN 
  exit-prompt = "3. Exit Program". 
DO WHILE TRUE: 
  DISPLAY 
    "  1. Display Customer Data" @ menu[1] SKIP 
    "  2. Display Order Data"    @ menu[2] SKIP 
    exit-prompt                  @ menu[3] 
    FORMAT "x(26)" SKIP 
  WITH FRAME choices NO-LABELS. 
  CHOOSE FIELD menu AUTO-RETURN WITH FRAME choices 
    TITLE "Demonstration menu" CENTERED ROW 10. 
  HIDE FRAME choices. 
  IF FRAME-INDEX EQ 1 THEN MESSAGE 
    "You picked option 1.". 
  ELSE IF FRAME-INDEX EQ 2 THEN MESSAGE 
    "You picked option 2.". 
  ELSE IF FRAME-INDEX EQ 3 THEN RETURN. 
END.

This procedure displays a message that tells you the type of ABL product you are using:

r-prodct.p
MESSAGE "You are currently running this PROGRESS product:" PROGRESS VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.