zOs/JCL/ELCOMALO

$#=
//A540769L JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*** generated from A540769.WK.JCL(ELCOMALO) ==> changes there
//S1       EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD'                  00020001
//SYSMAP   DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
$#@
$@=[
831
832
833
835
836
837
838
839
840
841
843
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
$] $| $@for line $@=[
   $=nr=- word($line, 1)
EXEC SQL
     DECLARE CUR$nr CURSOR FOR
         SELECT *
         FROM OA1A.TKS${nr}A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR$nr LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS${nr}C4
$]
$#OUT                                              20101119 13:08:32
//A540769L JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*** generated from A540769.WK.JCL(ELCOMALO) ==> changes there
//S1       EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD'                  00020001
//SYSMAP   DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
EXEC SQL
     DECLARE CUR831 CURSOR FOR
         SELECT *
         FROM OA1A.TKS831A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR831 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS831C4
EXEC SQL
     DECLARE CUR832 CURSOR FOR
         SELECT *
         FROM OA1A.TKS832A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR832 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS832C4
EXEC SQL
     DECLARE CUR833 CURSOR FOR
         SELECT *
         FROM OA1A.TKS833A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR833 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS833C4
EXEC SQL
     DECLARE CUR835 CURSOR FOR
         SELECT *
         FROM OA1A.TKS835A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR835 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS835C4
EXEC SQL
     DECLARE CUR836 CURSOR FOR
         SELECT *
         FROM OA1A.TKS836A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR836 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS836C4
EXEC SQL
     DECLARE CUR837 CURSOR FOR
         SELECT *
         FROM OA1A.TKS837A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR837 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS837C4
EXEC SQL
     DECLARE CUR838 CURSOR FOR
         SELECT *
         FROM OA1A.TKS838A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR838 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS838C4
EXEC SQL
     DECLARE CUR839 CURSOR FOR
         SELECT *
         FROM OA1A.TKS839A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR839 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS839C4
EXEC SQL
     DECLARE CUR840 CURSOR FOR
         SELECT *
         FROM OA1A.TKS840A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR840 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS840C4
EXEC SQL
     DECLARE CUR841 CURSOR FOR
         SELECT *
         FROM OA1A.TKS841A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR841 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS841C4
EXEC SQL
     DECLARE CUR843 CURSOR FOR
         SELECT *
         FROM OA1A.TKS843A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR843 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS843C4
EXEC SQL
     DECLARE CUR845 CURSOR FOR
         SELECT *
         FROM OA1A.TKS845A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR845 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS845C4
EXEC SQL
     DECLARE CUR846 CURSOR FOR
         SELECT *
         FROM OA1A.TKS846A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR846 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS846C4
EXEC SQL
     DECLARE CUR847 CURSOR FOR
         SELECT *
         FROM OA1A.TKS847A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR847 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS847C4
EXEC SQL
     DECLARE CUR848 CURSOR FOR
         SELECT *
         FROM OA1A.TKS848A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR848 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS848C4
EXEC SQL
     DECLARE CUR849 CURSOR FOR
         SELECT *
         FROM OA1A.TKS849A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR849 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS849C4
EXEC SQL
     DECLARE CUR850 CURSOR FOR
         SELECT *
         FROM OA1A.TKS850A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR850 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS850C4
EXEC SQL
     DECLARE CUR851 CURSOR FOR
         SELECT *
         FROM OA1A.TKS851A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR851 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS851C4
EXEC SQL
     DECLARE CUR852 CURSOR FOR
         SELECT *
         FROM OA1A.TKS852A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR852 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS852C4
EXEC SQL
     DECLARE CUR853 CURSOR FOR
         SELECT *
         FROM OA1A.TKS853A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR853 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS853C4
EXEC SQL
     DECLARE CUR854 CURSOR FOR
         SELECT *
         FROM OA1A.TKS854A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR854 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS854C4
EXEC SQL
     DECLARE CUR855 CURSOR FOR
         SELECT *
         FROM OA1A.TKS855A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR855 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS855C4
EXEC SQL
     DECLARE CUR856 CURSOR FOR
         SELECT *
         FROM OA1A.TKS856A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR856 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS856C4
EXEC SQL
     DECLARE CUR857 CURSOR FOR
         SELECT *
         FROM OA1A.TKS857A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR857 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS857C4
EXEC SQL
     DECLARE CUR858 CURSOR FOR
         SELECT *
         FROM OA1A.TKS858A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR858 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS858C4
EXEC SQL
     DECLARE CUR859 CURSOR FOR
         SELECT *
         FROM OA1A.TKS859A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR859 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS859C4
EXEC SQL
     DECLARE CUR860 CURSOR FOR
         SELECT *
         FROM OA1A.TKS860A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR860 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS860C4
EXEC SQL
     DECLARE CUR861 CURSOR FOR
         SELECT *
         FROM OA1A.TKS861A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR861 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS861C4
EXEC SQL
     DECLARE CUR862 CURSOR FOR
         SELECT *
         FROM OA1A.TKS862A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR862 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS862C4
EXEC SQL
     DECLARE CUR863 CURSOR FOR
         SELECT *
         FROM OA1A.TKS863A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR863 LOG NO  RESUME NO
         REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1A.TELKS863C4
$#OUT                                              20101119 12:35:29