pl 2fsql package example

1CREATE OR REPLACE PACKAGE trans_data AUTHID DEFINER AS
2  TYPE TimeRec IS RECORD (
3    minutes SMALLINT,
4    hours   SMALLINT);
5  TYPE TransRec IS RECORD (
6    category VARCHAR2(10),
7    account  INT,
8    amount   REAL,
9    time_of  TimeRec);
10  minimum_balance     CONSTANT REAL := 10.00;
11  number_processed    INT;
12  insufficient_funds  EXCEPTION;
13  PRAGMA EXCEPTION_INIT(insufficient_funds, -4097);
14END trans_data;
15/
16