SQL Programming Manual for Pascal

NonStop SQL Statements and Directives
HP NonStop SQL Programming Manual for Pascal—528614-001
3-31
Single-Row SELECT
POSTCODE : FSTRING(10);
END;
VAR CUSTOMER : CUSTOMER_TYPE;
FIND_THIS_CUSTOMER : INT16 := 0;
EXEC SQL END DECLARE SECTION;
PROCEDURE HANDLE_NOT_FOUND; FORWARD;
EXEC SQL WHENEVER NOT FOUND CALL :HANDLE_NOT_FOUND;
PROCEDURE HANDLE_NOT_FOUND;
BEGIN
...
END; {HANDLE_NOT_FOUND}
PROCEDURE FIND_RECORD;
BEGIN
WRITELN('Please enter the customer number: ');
READLN(FIND_THIS_CUSTOMER);
EXEC SQL
SELECT CUSTOMER.CUSTNAME,
CUSTOMER.STREET,
CUSTOMER.CITY,
CUSTOMER.STATE,
CUSTOMER.POSTCODE
INTO :CUSTOMER.CUSTNAME,
:CUSTOMER.STREET,
:CUSTOMER.CITY,
:CUSTOMER.STATE,
:CUSTOMER.POSTCODE
FROM SALES.CUSTOMER
WHERE CUSTOMER.CUSTNUM = :FIND_THIS_CUSTOMER
BROWSE ACCESS;
WRITE(CUSTOMER.CUSTNAME,' ',CUSTOMER.STREET);
WRITE(' ',CUSTOMER.CITY,' ',CUSTOMER.STATE);
WRITELN(CUSTOMER.POSTCODE);
END; {FIND_RECORD}
BEGIN {Main program}
FIND_RECORD;
END.
SELECT Using a Primary Key Value. The following example shows a SELECT
statement that selects rows using a primary key column.
EXEC SQL
SELECT COLUMN2,
COLUMN3,
COLUMN4
INTO :HOSTVAR2,
:HOSTVAR3,
:HOSTVAR4