zOs/REXX/WSHTUT2D
$#@
$<|[
STMT TYPE MSEC ACCESS INDEX TABLE TTYP
000404 SELECT 268601 IX-SCAN IELKS835A5C4 TELKS835C4 T
000404 SELECT 268601 IX-SCAN IELKS831A3C4 TELKS831C4 T
000404 SELECT 268601 TS-SCAN TCD600A1 T
000404 SELECT 268601 IX-SCAN IEL2200 TEL220A1 T
000404 SELECT 268601 IX-SCAN IELKS833A0C4 TELKS833C4 T
000404 SELECT 268601 IX-SCAN IELKS831A3C4 TELKS831C4 T
000404 SELECT 268601 IX-SCAN IELKS845A1C4 TELKS845C4 T
000404 SELECT 268601 IX-SCAN IELKS858A2C4 TELKS858C4 T
000404 SELECT 268601 IX-SCAN IELKS838A0C4 TELKS838C4 T
000404 SELECT 268601 IX-SCAN IELKS843A0C4 TELKS843C4 T
000404 SELECT 268601 IX-SCAN IEL0800 TEL080A1 T
000404 SELECT 268601 IX-SCAN IEL1051 TEL105A1 T
000404 SELECT
000404 CORSUB 268601 IX-SCAN IELKS843A3C4 TELKS843C4 T
000404 CORSUB 268601 IX-SCAN IELKS843A2C4 TELKS843C4 T
000405 SELECT 79740549 IX-SCAN IELKS835A5C4 TELKS835C4 T
000405 SELECT 79740549 IX-SCAN IELKS831A3C4 TELKS831C4 T
000405 SELECT 79740549 IX-SCAN IELKS833A0C4 TELKS833C4 T
000405 SELECT 79740549 IX-SCAN IELKS838A0C4 TELKS838C4 T
000405 SELECT 79740549 IX-SCAN IELKS845A1C4 TELKS845C4 T
000405 SELECT 79740549 IX-SCAN IELKS858A2C4 TELKS858C4 T
000405 SELECT 79740549 IX-SCAN IELKS831A3C4 TELKS831C4 T
000405 SELECT 79740549 IX-SCAN IELKS843A0C4 TELKS843C4 T
000405 SELECT 79740549 IX-SCAN IEL0800 TEL080A1 T
000405 SELECT 79740549 IX-SCAN IEL1051 TEL105A1 T
000405 SELECT
000405 CORSUB 79740549 IX-SCAN IELKS843A3C4 TELKS843C4 T
000405 CORSUB 79740549 IX-SCAN IELKS843A2C4 TELKS843C4 T
$]
wh = ''
$@forWith s $@[
if $TABLE \== '' then
wh = wh", '"$TABLE"'"
$]
$$- wh
$#out 20110203 10:24:50