zOs/JCL/CATPLAN

//A540769C JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*MAIN CLASS=LOG0                                                      00040001
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,                      00020001
//            PARM='WSH'
//SYSPROC   DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//OUT       DD DISP=SHR,DSN=A540769.TMP.TEXT(PLANDBTF)
//SYSTSIN   DD DUMMY
//WSH       DD *
$#@
$=dbSy=dbtf
call sqlConnect $dbSy
call sqlSel "select p.NAME plan, l.SEQNO, l.LOCATION,",
                   "l.COLLID, l.NAME package",
     "from sysibm.sysPlan p",
     "left join sysibm.sysPackList l",
     "on l.planName = p.name",
     "where p.name like '%'",
     "order by 1, 2",
     "with ur"
$|
$$- $dbSy date('s')
call fmtFTab