Re: Table Split based on columns

[Sam_L <lennon_s_j@xxxxxxxxxxx>]

I would probably do this with a combination of SQL and CLP, not RPG.

But since SQL can run CL commands, it can also be done in just SQL.
Something like the below where XXXXXXXX is your library. (The CTEs make 
debugging it easier.)

--  Create some test data
CREATE OR REPLACE TABLE XXXXXXXX.srctbl (
     Yr INTEGER NOT NULL
    ,qtr INTEGER not null
    ,dta CHAR(5)
);
INSERT INTO XXXXXXXX.srctbl
VALUES
     (2020,1,'Bob' )
    ,(2020,1,'Sam' )
    ,(2020,2,'Fred' )
    ,(2020,2,'Dog' )
    ,(2021,2,'Cat' )
;

-- Now split everything up by year and quarter
with tbls as
(
    select distinct Yr, qtr from XXXXXXXX.srctbl
)
, t_names as
(
    select 'TBL_' || trim(char(yr)) || '_'
    || trim(char(qtr)) as tbl_name
    , t.* from tbls t
)
, cmds as
(
    select
        'create table '
        || tbl_name
        || ' as (select * from XXXXXXXX.srctbl) '
        || ' with no data'
        as crt_tbl,
        'insert into XXXXXXXX.'
        || tbl_name
        || ' (select * from XXXXXXXX.srctbl where yr=' || yr
        || ' and qtr=' || qtr || ')'
        as ins_tbl
    from t_names
)
, execs as
(
select
        ('runsql sql(''' ||crt_tbl) ||''') commit(*none) naming(*sql)'
        as do_crt,
        ('runsql sql(''' ||ins_tbl) ||''') commit(*none) naming(*sql)'
        as do_ins
from cmds c
)
select
    QSYS2.QCMDEXC(do_crt),
    QSYS2.QCMDEXC(do_ins)
 from execs
;
-- Check results
select * from XXXXXXXX.tbl_2020_1;

You could put this in a source member and run it with RUNSQLSTM.  For 
extra credit you could change the do_ins to be a submit job and have 
several inserts run in parallel.

Or if you don't like the SQL you could reconstruct in a CL program.

Sam

On 12/10/2021 11:00 AM, K Crawford wrote:
> I have a table with several columns that I want to split into several
> tables.
> My source table example:
> SrcTbl
> Year   qtr   data
> 2020   1    bob
> 2020   1    sam
> 2020   2    fred
> 2020   2    dog
> 2021   2    cat
>
> What I want would be three tables.
> tbl_2020_1
>     2020   1    bob
>     2020   1    sam
> tbl_2020_2
>     2020   2    fred
>     2020   2    dog
> tbl_2021_2
>     2021   2    cat