Form definition file (form1.per):
SCHEMA office
LAYOUT
GRID
{
Customer id: [f001 ]
First Name : [f002 ]
Last Name : [f003 ]
}
END
END
TABLES
customer
END
ATTRIBUTES
f001 = customer.id;
f002 = customer.fname;
f003 = customer.lname, UPSHIFT;
END
INSTRUCTIONS
SCREEN RECORD sr_cust(customer.*);
END
Program source code:
SCHEMA office
MAIN
DEFINE custrec RECORD LIKE customer.*
OPTIONS INPUT WRAP
OPEN FORM f FROM "form1"
DISPLAY FORM f
LET INT_FLAG = FALSE
INPUT custrec.* FROM sr_cust.*
IF INT_FLAG = FALSE THEN
DISPLAY custrec.*
LET INT_FLAG = FALSE
END IF
END MAIN