Skip to Main Content
Oracle PL/SQL for DBAs
book

Oracle PL/SQL for DBAs

by Arup Nanda, Steven Feuerstein
October 2005
Intermediate to advanced content levelIntermediate to advanced
454 pages
14h 44m
English
O'Reilly Media, Inc.
Content preview from Oracle PL/SQL for DBAs

Putting It All Together

Now that you understand the building blocks of the randomization approach, you can put them together to build the account-record-generation PL/SQL code segment shown below. In this example, I load 100,000 records into the table ACCOUNTS. Here is the complete loading program.

    /* File on web: ins_acc.sql */
    BEGIN
       FOR l_acc_no IN 1 .. 100000
       LOOP
          INSERT INTO accounts
               VALUES (l_acc_no,

                       -- First Name
                       DECODE (FLOOR (DBMS_RANDOM.VALUE (1, 21)),
                               1, 'Alan',
                               2, 'Alan',
                               3, 'Barbara',
                               4, 'Barbara',
                               5, 'Charles',
                               6, 'David',
                               7, 'Ellen',
                               8, 'Ellen',
                               9, 'Ellen',
                               10, 'Frank',
                               11, 'Frank',
                               12, 'Frank',
                               13, 'George',
                               14, 'George',
                               15, 'George',
                               16, 'Hillary',
                               17, 'Iris',
                               18, 'Iris',
                               19, 'Josh',
                               20, 'Josh',
                               'XXX'
                              ),

                       -- Last Name
                       DECODE (FLOOR (DBMS_RANDOM.VALUE (1, 5)),
                               1, 'Smith',
                               DBMS_RANDOM.STRING ('A'
                                                 , DBMS_RANDOM.VALUE (4, 30))
                              ),

                       -- Account Type
                       DECODE (FLOOR (DBMS_RANDOM.VALUE (1, 5)),
                               1, 'S',
                               2, 'C',
                               3, 'M',
                               4, 'D',
                               'X'
                              ),

                       -- Folio ID
                       CASE
                          WHEN DBMS_RANDOM.VALUE (1, 100) < 51
                             THEN NULL
                          ELSE l_acc_no + FLOOR (DBMS_RANDOM.VALUE (1, 100))
                       END,

                       -- Sub Acc Type
                       CASE
                          WHEN DBMS_RANDOM.VALUE (1, 100) < 76
                             THEN NULL
                          ELSE DECODE (FLOOR (DBMS_RANDOM.VALUE (1, 6)),
                                       1, 'S',
                                       2, 'C',
                                       3, 'C',
                                       4, 'C',
                                       5, 'C',
                                       NULL
                                      )
                       END,

                       -- Acc Opening Date
                       SYSDATE - DBMS_RANDOM.VALUE (1, 500),
                       -- Acc Mod Date
                       SYSDATE,

                       -- Account Manager ID
                       DECODE (FLOOR (DBMS_RANDOM.VALUE (1, 11)),
                               1, 1,
                               2, 1,
                               3, 1,
                               4, 1,
                               5, 2,
                               6, 3,
                               7, 4,
                               8, 5,
                               9, 5,
                               10, 5,
                               0
                              ));
       END LOOP;

       COMMIT;
    END;

How do I know that all these ...

Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.
Start your free trial

You might also like

Oracle PL/SQL Best Practices

Oracle PL/SQL Best Practices

Steven Feuerstein
Expert Oracle PL/SQL

Expert Oracle PL/SQL

Ron Hardman, Michael McLaughlin
Oracle PL/SQL For Dummies

Oracle PL/SQL For Dummies

Michael Rosenblum, Paul Dorsey

Publisher Resources

ISBN: 0596005873Supplemental ContentErrata Page