CREATE PROCEDURE CUSTOMER SELECT(ICOUNTRY VARCHAR(15))
RETURNS(CUST_N0 INTEGER,CUSTOMER VARCHAR(25),STATE_PROVINCE VARCHAR(15),COUNTRY VARCHAR(15),POSTAL_CODE VARCHAR(12))
AS
BEGIN
FOR SELECT
═════CUST_NO,
═════CUSTOMER,
═════STATE_PROVINCE,
═════COUNTRY,
═════POSTAL_CODE
FROM customer WHERE COUNTRY =:iCOUNTRY
INTO
:CUST_NO,
:CUSTOMER,
:STATE_PROVINCE,
:COUNTRY,
:POSTAL_CODE
═════DO
══════════SUSPEND;
═════END