IBM Mainframe Forum

Hi,

I’m looking for an example of coding a rexx routine that calls a dialog manager table and allows the user to select multiple rows. I can get a selection of 1 row to work, but I’m a bit confused on selecting multiple rows. Here’s what I currently have:

000025 +
000026 % SEL Schema Type Application
000027 % === ====== ========= ==================
000028 )MODEL
000029 $S ¢SCHEMA }TYPE }APP
000030 )INIT

When the user hits enter, I can pick up the selection. I’ve tried the following:

ADDRESS ISPEXEC "TBTOP QMONQ"
say 'this is 1st s = 'S
say 'this is type = 'type
say 'this is schema = 'schema
ADDRESS ISPEXEC "TBSKIP QMONQ NUMBER(1)"
say 'this is 2nd s = 'S
say 'this is type = 'type
say 'this is schema = 'schema
ADDRESS ISPEXEC "TBSKIP QMONQ NUMBER(1)"
say 'this is 3rd s = 'S
say 'this is type = 'type
say 'this is schema = 'schema

The selection of each record is accurate for the “type” and “schema,” but the “S” shows the same value for each row based on the user’s last entry. For example, if user entered an “S” next to row, each and every row shows an “S”. Does anyone have an example I could look at?

Thanks,

Tom Glaser
MasterCard
tom_glaser@mastercard.com

I always find this document to be quite helpful.

MrSpock, thank you so much for this link. This will get me started. You helped me on an earlier question....thanks again!

Tom