SQL Programming Manual for Pascal

NonStop SQL Statements and Directives
HP NonStop SQL Programming Manual for Pascal—528614-001
3-20
Inserting Date-Time and INTERVAL Values
{ SALARY : INT32; {* scale is 2 *} }
{ END; }
...
VAR
EMP_TBL : EMP_TBL_TYPE;
IND_1 : INT16;
...
EXEC SQL END DECLARE SECTION;
{ Procedure code: }
IND_1 := -1;
EXEC SQL
INSERT INTO =EMPLOYEE
VALUES (:EMP_TBL.EMPNUM, :EMP_TBL.FIRST-NAME,
:EMP_TBL.LAST_NAME, :EMP_TBL.DEPTNUM,
:EMP_TBL.JOBCODE,
SETSCALE(:EMP_TBL.SALARY,2) INDICATOR :IND_1);
If you use the NULL keyword instead of the indicator variable,
the code is:
EXEC SQL
INSERT INTO =EMPLOYEE
VALUES (:EMPNUM, :FIRST_NAME, :LAST_NAME,
:DEPTNUM, :JOBCODE, NULL);
Inserting Date-Time and INTERVAL Values
In this example, date-time and INTERVAL values are inserted into the BILLINGS table.
The SQL definition is shown at the beginning of the example.
The SQL definition for the BILLINGS table is:
{ Variable declarations: }
EXEC SQL BEGIN DECLARE SECTION;
...
TYPE
BILLING_REC_TYPE = RECORD
CUSTNUM : FSTRING(3);
START_DATE : FSTRING (10);
BILLING_DATE : FSTRING(10);
TIME_BEFORE_PMT : FSTRING(3);
END;
VAR CUSTOMER_BILLING_REC :
BILLING_REC_TYPE := [' ',' ',' ',' '];
EXEC SQL END DECLARE SECTION ;