Code: Select all
Structure CustomerInfo
ID.l
Name.s
Email.s
EndStructure
TYPEDEF Customer AS CustomerInfo
Procedure.Customer DisplayInfo(Current.Customer)
Debug Current\ID
Debug Current\Name
Debug Current\Email
NewCustomer.Customer
NewCustomer\ID = 25
NewCustomer\Name = "Bob"
NewCustomer\Email = "Bob@Bob.com"
ProcedureReturn NewCustomer
EndProcedure
Customer1.Customer
Customer1\ID = 15
Customer1\Name = "Frank"
Customer1\Email = "Frank@Frank.com"
Customer2.Customer = DisplayInfo(Customer1)