zOs/JCL/ELARIX
$*( fehlende Elar Indexe erstellen
jeder Index in einem Job, 10 Jobs parallel (jobChar)
Liste der Tables mit wk.sql(elarIx) erstellen
$*)
$>.jclSub()
$<=/tbs/
BUA.XBCGZ049PS001001 2010-02-03-03.25.33.029229
BUA.XBCGZ050PS001001 2010-02-10-03.47.05.151260
BUA.XBCGZ051PS001001 2010-02-19-04.35.26.186846
BUA.XBCGZ052PS001001 2010-02-24-08.47.32.828137
BUA.XBCGZ053PS001001 2010-02-25-07.47.21.377868
BUA.XBCGZ054PS001001 2010-02-25-21.42.32.085903
BUA.XBCGZ055PS001001 2010-03-28-20.49.19.878456
BUA.XBCGZ056PS001001 2010-03-30-12.33.25.864953
BUA.XBCGZ057PS001001 2010-04-06-03.49.31.752004
BUA.XBCGZ058PS001001 2010-04-07-20.52.28.335322
BUA.XBCGZ059PS001001 2010-04-27-12.36.00.361651
BUA.XBCGZ060PS001001 2010-04-29-22.01.01.704449
BUA.XBCGZ061PS001001 2010-05-03-04.39.28.436486
BUA.XBCGZ062PS001001 2010-05-10-04.34.59.478457
BUA.XBCGZ063PS001001 2010-05-28-05.06.16.105152
BUA.XBCH5001PS001001 2010-03-13-02.10.29.336446
BUA.XBCHL003PS001001 2010-02-08-17.50.29.358491
BUA.XBCHL004PS001001 2010-04-20-18.36.52.275836
BUA.XBCHR001PS001001 2010-03-15-07.51.49.997196
BUA.XBCI7088PS001001 2010-02-17-19.41.31.458526
BUA.XBCI7089PS001001 2010-03-02-03.46.38.640724
BUA.XBCI7090PS001001 2010-03-05-04.35.53.182012
BUA.XBCI7091PS001001 2010-03-11-14.57.34.553790
BUA.XBCI7092PS001001 2010-03-17-12.06.25.707219
BUA.XBCI7093PS001001 2010-03-24-02.14.34.725585
BUA.XBCI7094PS001001 2010-03-27-12.21.42.987417
BUA.XBCI7095PS001001 2010-03-29-19.57.21.952555
BUA.XBCI7096PS001001 2010-04-13-10.34.51.681592
BUA.XBCI7097PS001001 2010-04-19-17.18.44.030819
BUA.XBCI7098PS001001 2010-04-23-19.46.40.037969
BUA.XBCI7099PS001001 2010-04-27-22.51.47.098092
BUA.XBCI7100PS001001 2010-04-29-22.01.28.280798
BUA.XBCI7101PS001001 2010-04-30-15.50.22.469271
BUA.XBCI7102PS001001 2010-05-03-05.11.26.745725
BUA.XBCI7103PS001001 2010-05-05-20.57.36.226878
BUA.XBCI7104PS001001 2010-05-28-08.53.31.538513
BUA.XBCI7105PS001001 2010-05-31-01.44.29.812702
BUA.XBCID001PS001001 2010-03-13-04.00.36.044543
BUA.XBCIT012PS001001 2010-02-18-03.41.47.789505
BUA.XBCIT013PS001001 2010-03-22-10.45.31.261867
BUA.XBCIT014PS001001 2010-04-22-07.45.12.070156
BUA.XBCIT015PS001001 2010-05-21-15.33.21.622103
BUA.XBCJF026PS001001 2010-02-05-17.16.45.436566
BUA.XBCJF027PS001001 2010-02-15-00.08.24.972111
BUA.XBCJF028PS001001 2010-02-23-17.53.55.085754
BUA.XBCJF029PS001001 2010-03-31-21.06.28.217174
BUA.XBCJF030PS001001 2010-05-07-03.03.45.732180
BUA.XBCJL001PS001001 2010-03-13-02.10.53.021226
BUA.XBCUX001PS001001 2010-02-13-15.26.39.979907
BUA.XBCUY377PS001001 2010-02-04-09.21.18.460303
BUA.XBCUY378PS001001 2010-02-08-20.14.28.984674
BUA.XBCUY379PS001001 2010-02-18-18.24.30.950709
BUA.XBCUY380PS001001 2010-03-02-08.09.28.088271
BUA.XBCUY381PS001001 2010-03-04-20.44.40.646873
BUA.XBCUY382PS001001 2010-03-17-13.14.28.976576
BUA.XBCUY383PS001001 2010-03-20-05.06.39.735309
BUA.XBCUY384PS001001 2010-03-29-06.29.33.133961
BUA.XBCUY385PS001001 2010-03-31-21.11.37.678918
BUA.XBCUY386PS001001 2010-04-08-20.44.45.632507
BUA.XBCUY387PS001001 2010-04-17-02.44.42.392849
BUA.XBCUY388PS001001 2010-04-22-07.51.56.451889
BUA.XBCUY389PS001001 2010-04-24-16.50.33.003842
BUA.XBCUY390PS001001 2010-04-28-12.35.55.978449
BUA.XBCUY391PS001001 2010-05-01-07.40.36.820349
BUA.XBCUY392PS001001 2010-05-05-07.38.48.786858
BUA.XBCUY393PS001001 2010-05-07-09.42.11.900925
BUA.XBCUY394PS001001 2010-05-11-07.18.28.284666
BUA.XBCUY395PS001001 2010-05-13-04.22.43.798217
BUA.XBCUY396PS001001 2010-05-24-13.49.19.432205
BUA.XBCUY397PS001001 2010-05-26-21.06.22.153491
BUA.XBCV4001PS001001 2010-02-13-12.44.47.191703
BUA.XBCVJ001PS001001 2010-02-15-04.32.28.546676
BUA.XBCVK263PS001001 2010-02-01-19.54.26.445031
BUA.XBCVK264PS001001 2010-02-19-17.19.35.910146
BUA.XBCVK265PS001001 2010-02-26-04.59.33.520017
BUA.XBCVK266PS001001 2010-03-04-11.06.38.122732
BUA.XBCVK267PS001001 2010-03-10-21.23.25.681888
BUA.XBCVK268PS001001 2010-04-01-18.41.29.637674
BUA.XBCVK269PS001001 2010-04-21-04.59.44.776923
BUA.XBCVK270PS001001 2010-04-27-08.36.43.526568
BUA.XBCVK271PS001001 2010-05-01-12.18.41.384371
BUA.XBCVK272PS001001 2010-05-07-04.12.43.918899
BUA.XBCVK273PS001001 2010-05-24-06.57.24.799518
BUA.XBCVK274PS001001 2010-05-28-08.58.24.487829
BUA.XBCVQ001PS001001 2010-02-13-15.10.19.173690
BUA.XBCVQ002PS001001 2010-05-28-05.24.37.459111
$/tbs/
$=jn=0
$@for line $@[
parse value $line with tb tst .
$=tb=-tb
$=jn=-($jn+1)//10
say $jn 'tb' $tb 'tst' tst'.'
$@=[
//Y540769$jn JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S01 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX ${tb}_HBD
ON ${tb}
(EN1TRANSACTNO ASC,
ET1LOGPROD ASC)
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
COMPRESS NO
BUFFERPOOL BP20
CLOSE YES
COPY NO
DEFER NO
DEFINE YES
PIECESIZE 2 G;
COMMIT;
$]
$]
$#out 20100601 17:23:39