I am a newbie,I use a sample file "xxtest.p" to test compile.And I compiled and ran it success in QAD 2009.But when I run direct in Progress Procedure,I have with a message error.I think Progress don't have some file *.i in this code.How to run it success ?Test and Message Error is following :
xxtest.p
{mfdtitle.i}
DEF VAR sonbr LIKE so_nbr.
DEF VAR sonbr2 LIKE so_nbr.
DEF VAR cust LIKE so_cust.
DEF VAR cust2 LIKE so_cust.
FORM sonbr COLON 15 sonbr2 COLON 45
cust COLON 15 cust2 COLON 45
WITH FRAME a WIDTH 80 SIDE-LABELS.
REPEAT :
IF cust2 = hi_char THEN cust2 = "".
IF sonbr2 = hi_char THEN sonbr2 = "".
UPDATE sonbr sonbr2 cust cust2 WITH FRAME a.
IF cust2 = "" THEN cust2 = hi_char.
IF sonbr2 = "" THEN sonbr2 = hi_char.
{mfselbpr.i "PRINTER" 132}
FOR EACH so_mstr NO-LOCK WHERE so_domain = GLOBAL_domain AND so_nbr >= sonbr AND so_nbr <= sonbr2 AND so_cust >= cust AND so_cust <= cust2 :
DISPLAY so_nbr so_cust so_ord_date.
END.
{mfreset.i}
END.
Message Error :
xxtest.p
{mfdtitle.i}
DEF VAR sonbr LIKE so_nbr.
DEF VAR sonbr2 LIKE so_nbr.
DEF VAR cust LIKE so_cust.
DEF VAR cust2 LIKE so_cust.
FORM sonbr COLON 15 sonbr2 COLON 45
cust COLON 15 cust2 COLON 45
WITH FRAME a WIDTH 80 SIDE-LABELS.
REPEAT :
IF cust2 = hi_char THEN cust2 = "".
IF sonbr2 = hi_char THEN sonbr2 = "".
UPDATE sonbr sonbr2 cust cust2 WITH FRAME a.
IF cust2 = "" THEN cust2 = hi_char.
IF sonbr2 = "" THEN sonbr2 = hi_char.
{mfselbpr.i "PRINTER" 132}
FOR EACH so_mstr NO-LOCK WHERE so_domain = GLOBAL_domain AND so_nbr >= sonbr AND so_nbr <= sonbr2 AND so_cust >= cust AND so_cust <= cust2 :
DISPLAY so_nbr so_cust so_ord_date.
END.
{mfreset.i}
END.
Message Error :