Using a single sequence value over multiple scripts (in a variable?)

Question

Hi all...
I'm writing a number of scripts that insert rows into tables.
To better explain my point, I'll paste a simple breakdown of the scripts here as that will be easier to understand...
Script 1:
INSERT INTO WORKGROUP_DEPARTMENTS(ID, DEPT_NAME, DEPT_TYPE)
VALUES (SEQ_WGDPT.NEXTVAL, 'Staff', 3);
Script 2:
INSERT INTO WORKGROUP_SECTIONS(ID, SECT_NAME, WGDPT_ID)
VALUES (SEQ_WGSEC.NEXTVAL, 'Staff 1',
(SELECT ID FROM WORKGROUP_DEPARTMENTS
WHERE DEPT_NAME = 'Staff'
AND DEPT_TYPE = '3')
Script 3:
INSERT INTO WORKGROUPS(NAME, UNIT_TYPE, WGSEC_ID)
VALUES ('Staff Room', 3,
(SELECT ID FROM WORKGROUP_SECTIONS
WHERE SECT_NAME = 'Staff 1')
As you can see, in scripts 1 and 2 a new value is produced from a sequence (SEQ_WGDPT & SEQ_WGSEC respectively). Then, in scripts 2 & 3 (respectively) these values are inserted into another table.
What I'm trying to figure out is: can I do the same thing here without having to include the horrible SELECT statements in scripts 2 & 3 in order to find the ID, which was produced by the sequence in the previous script?
Unfortunately they do have to be separate scripts, and as such I can't call Sequence.CurrVal from a different script as other users may have used the sequence since it was used initially in the previous script. I could call it from the original calling script, and save it intop a variable, but I have no idea how to - even if it is the right idea!
I tried to insert the sequence value into a variable a la PL/SQL so that I could call this variable from the next script, but failed miserably as I'm rubbish!
Any help would be great. Thanks.

Answer 1

You can use PL/SQL, for example:
SQL> desc t
Name                                      Null?    Type
ID                                                 NUMBER
NAME                                               VARCHAR2(10)
SQL> desc t1
Name                                      Null?    Type
ID                                                 NUMBER
NAME                                               VARCHAR2(10)
ID1                                                NUMBER
SQL> desc t2
Name                                      Null?    Type
ID                                                 NUMBER
NAME                                               VARCHAR2(10)
ID2                                                NUMBER
SQL> create sequence seq_1;
Sequence created.
SQL> declare
  2   prev_id number;
  3  begin
  4   insert into t values(seq_1.nextval,'A')
  5   returning id into prev_id;
  6   insert into t1 values(seq_1.nextval,'B',prev_id)
  7   returning id into prev_id;
  8   insert into t2 values(seq_1.nextval,'C',prev_id);
  9  end;
10  /
PL/SQL procedure successfully completed.
SQL> select * from t;
        ID NAME
         1 A
SQL> select * from t1;
        ID NAME              ID1
         2 B                   1
SQL> select * from t2;
        ID NAME              ID2
         3 C                   2
Rgds