zOs/TX/PER26LOA

$#:
$<dsn.tx.case(ini)
$=ini =.  $.^[compile = : $]
$@% ini trg
$<>
>. fEdit()
do px = 1 to 10 $@=[
$=job=- userid()substr(m.ut_alfUC, 1 + px // 3 , 1)
//$job JOB (CP00,KE50),'DB2 REO',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=$schenv
//*MAIN CLASS=LOG
//S1       EXEC PGM=DSNUTILB,PARM='$dbSys,$job.LOAD'
//SYSMAP   DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=$dbSys.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
EXEC SQL
DECLARE CUR1 CURSOR FOR
with l (l) as
(
  select 0 from sysibm.SysDummy1
  union all select l+1 from l where l < 7
)
, q as
(
    select rand($px) r
        , strip(tbCreator) || '.' || strip(tbName)
        || '?' || strip(name) || '#' || colNo || '@' || colType ||'*' t
    from sysibm.sysColumns c, l
)
, t as
(
  select
     int(r * 1000000) i, row_number() over () j, r,
     substr(repeat(t, 1 + 1037 / length(t)), 1 + floor(r*37)) t
    from q
)
select -- l, rand(), rand(1), rand(3456), rand(98745)
      value(${px}000000000 - 1 - mod(i, 987654), ${px}555) tkKey
    , current date + mod(i, 929) days verfall
    , value(substr(t,   1, 12), 'boerse') boerse
    , value(substr(t,  13, 4), 'whrg') whrg
    , value(substr(t,  14, 1), 's')    status
    , value(current date - mod(i, 923) days, current date) kursDatum
    , value(current timestamp - mod(i, 919) days +(0.000001*j) seconds
            , current timestamp) mut_timestamp
    , value(substr(t,  15, 5), 'kursT') tk_kursTyp
    , value(substr(t,  20, 5), 'zusat') tk_zusatz
    , value(substr(t,  25, 2), 'ka') cs_ka_num
    , value(r * 27913, 27.913) kurs_lieferung
    , r * 43907  kurs_umrechnung
    , r * 47899  menge
    , substr(t,  27, 12) boerse_tk
    , current timestamp - mod(i, 897) days erstellung
    , substr(t,  39, 10) quelle
    , substr(t,  49,  8) LOG_EINTRAG
    , substr(t,  57,  8) INSTRAD
    , substr(t,  65,  1) KS_BPL_ST
    , substr(t,  66,  1) KS_BPL_HT
    , substr(t,  67,  1) KS_BPL_KS
    , substr(t,  68,  1) KS_ALT_KS
    , substr(t,  69,  1) KS_BPL_HA
    , substr(t,  70,  1) KS_AIS_SP
    , substr(t,  71,  1) KS_BPL_IN
    , substr(t,  72,  1) KS_BPL_SP
    , substr(t,  73,  2) EXCODE
  from t
ENDEXEC
LOAD DATA LOG NO
 SORTDEVT DISK
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE $cr.TPER26 PART $px
     INCURSOR CUR1 RESUME NO REPLACE COPYDDN(TCOPYD)
$]