zOs/JCL/DB2TIAUL
//A540769T JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//P01 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// TIME=99
//SYSTSIN DD *
DSN SYSTEM(DBBA)
RUN PROGRAM(DSNTIAUL) PARMS('SQL')
END
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//*YSPUNCH DD DUMMY
//SYSPUNCH DD SYSOUT=*
//SYSREC00 DD SYSOUT=*,LRECL=5000
//SYSIN DD *
with a as
( select repeat('abcdefghijklmopqrstuvwxyz ', 50) a
from sysibm.sysdummy1
)
SELECT char(length(a)),
substr(a, 1, 250),
substr(a, 251, 250),
substr(a, 501, 250),
substr(a, 751, 250),
substr(a, 1001, 250)
from a ;
//
//P01 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// TIME=99
//SYSTSIN DD *
DSN SYSTEM(DBBA)
RUN PROGRAM(DSNTIAUL) PARMS('SQL')
END
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//*YSPUNCH DD DUMMY
//SYSPUNCH DD SYSOUT=*
//SYSREC00 DD DSN=A540769.TMP.U0,
// DISP=(NEW,CATLG,CATLG),
// SPACE=(CYL,(1000,500)),
// DATACLAS=NULL30,MGMTCLAS=COM#A092,
//* RECFM=FB,LRECL=80
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=32760)
//SYSREC01 DD DSN=A540769.TMP.U1,
// DISP=(NEW,CATLG,CATLG),
// SPACE=(CYL,(1000,500)),
// DATACLAS=NULL30,MGMTCLAS=COM#A092,
//* RECFM=FB,LRECL=80
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=32760)
//SYSREC01 DD SYSOUT=*
//SYSIN DD *
SELECT char(
left('totalAnzahl ', 25) || char(COUNT(*)), 79)
FROM BUA.TXBC111
union all
SELECT char(left(EAOF || ' ', 25)
|| char(COUNT(EAOF)), 79)
FROM BUA.TXBC071 A INNER JOIN BUA.TXBC111 B
ON A.ENSTORAR = B.ENSTORAR
GROUP BY EAOF
WITH UR;