Hi, .AUTOSEL is a concept I'm already using. The drawback is that I need to know the row number of at least one displayed table row after the next TBDISPL command has been processed by ISPF. Do you have any idea of how to get hold of this? This would definitely solve my problem 😊. Actually I've included the following statement in the ')PROC' section in order to get notified when the user presses the ENTER key without any input: IF (&ZTDSELS = 0000) .AUTOSEL = YES .CSRROW = &ZTDTOP As in all other cases this piece of code won't be called if ISPF doesn't require the program to provide additional table entries in order to satisfy the scroll request ☹. The same procedure as last year ...
As far as I can find out '.RESP' doesn't distinguish between the ENTER key and the scroll keys. At least there is no difference in the ')PROC' section, if it is called at all. It appears to be 'ENTER' in both cases. Anyway - thanks for your really helpful comment. Kind regards, Immo -----Ursprüngliche Nachricht----- Von: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> Im Auftrag von Hobart Spitz Gesendet: Dienstag, 19. Juni 2018 19:21 An: IBM-MAIN@LISTSERV.UA.EDU Betreff: Re: [EXTERNAL] AW: ISPF programming I'm *really* rusty, but would .AUTOSEL help? IIRC, it would give you control back in additional situations. Another thought:. It may help to check .RESP for a scroll key, save that value, and set .RESP to ENTER . Both are a bit cludgy, but something along those lines may help. On Tue, 19 Jun 2018, 11:18 am Mike Schwab, <mike.a.sch...@gmail.com> wrote: > Can you control how far it scrolls? > First scroll you limit the CC or DD to the first / last line. > Subsequent scrolls from the CC or DD would hide (XX..XX) the other > lines and retain the CC or DD line on the screen? > A scroll toward the CC or DD would show (F9 or L9) the number of > screen lines away from the CC or DD. > On Tue, Jun 19, 2018 at 9:29 AM Dyck, Lionel B. (RavenTek) > <lionel.d...@va.gov> wrote: > > > > There is no way that I know of to capture the scrolling unless you > > make > the scrolling a passthru and then your application would have to > process it. That is doable - again just more code. > > > > > ---------------------------------------------------------------------- > ---- > > Lionel B. Dyck (Contractor) <sdg>< > > Mainframe Systems Programmer – RavenTek Solution Partners > > > > > > -----Original Message----- > > From: IBM Mainframe Discussion List > > [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of Immo > > Sent: Tuesday, June 19, 2018 9:26 AM > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: AW: [EXTERNAL] AW: ISPF programming > > > > Hi Lionel, > > > > thanks for your reply. That's exactly what I'm doing. My problem is > > the > disappearance of the short message 'block command incomplete' during > scrolling. If sufficient table rows are already put into the table, my > program won't receive control from ISPF during scrolling. So I cannot > redisplay the message. Do you have any idea about this? > > > > Greetings, > > Immo > > > > -----Ursprüngliche Nachricht----- > > Von: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> Im > Auftrag von Dyck, Lionel B. (RavenTek) > > Gesendet: Dienstag, 19. Juni 2018 16:17 > > An: IBM-MAIN@LISTSERV.UA.EDU > > Betreff: Re: [EXTERNAL] AW: ISPF programming > > > > For your processing when you have a block command entered, that is a > block command that your application must process. You must first > determine the 1st row with the block command and then save that row as > you scroll until you get to the 2nd occurrence of the block command. > After the user enters 'DD' (for example) you can display a message if > you don't find a 2nd 'DD'. It's just code - perhaps not easy - but map it out > and you'll get it. > > > > > ---------------------------------------------------------------------- > ---- > > Lionel B. Dyck (Contractor) <sdg>< > > Mainframe Systems Programmer – RavenTek Solution Partners > > > > -----Original Message----- > > From: IBM Mainframe Discussion List > > [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of Immo > > Sent: Tuesday, June 19, 2018 9:06 AM > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: [EXTERNAL] AW: ISPF programming > > > > Hi Elardus, > > thanks for you fast response. > > > > >Are you referring to 'ISPF Tables' or your own table? > > I'm processing a table I've defined in a panel definition using a > ')Model' section. The table includes a 2 byte command input field in > every line that is mapped to a ZVAR. Does that answer your question? > > > > >In what language? What ISPF utilities and macros are you using? > > I'm using 370/390 assembler calling 'ISPLINK' in order to request > > ISPF > functionality. > > > > Groete / Greetings, > > Immo > > > > -----Ursprüngliche Nachricht----- > > Von: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> Im > Auftrag von Elardus Engelbrecht > > Gesendet: Dienstag, 19. Juni 2018 15:41 > > An: IBM-MAIN@LISTSERV.UA.EDU > > Betreff: Re: ISPF programming > > > > Immo wrote: > > > > >while programming a ISPF test program I would like to implement the > > >use > of block commands such as 'CC..CC' or 'DD..DD' in the ISPF editor. In > order to do so I may need to display a message like 'block command > incomplete' on various panel displays until the user either cancels > the request or completes the incomplete block command. > > > > Did you considered using an Edit Macro? Something like this? > > > > ISREDIT MACRO > > ISREDIT blah blah > > ISREDIT END > > > > or the 'Dialog Services' in ISPF? > > > > > > >The problem I'm facing right now is the fact that ISPF won't return > control to my application program when the user scrolls through parts > of the table display where no new lines need to be provided by my > application program. > > > > Are you referring to 'ISPF Tables' or your own table? > > > > > > >Does anybody know how to handle this or can I specify something e. g. > in the panel definition in order to receive control in my application > program when the user presses a scroll key without making any change > to an input field of my panel? > > > > In what language? What ISPF utilities and macros are you using? > > > > Groete / Greetings > > Elardus Engelbrehct > > > > -------------------------------------------------------------------- > > -- For IBM-MAIN subscribe / signoff / archive access instructions, > > send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > -------------------------------------------------------------------- > > -- For IBM-MAIN subscribe / signoff / archive access instructions, > > send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > -------------------------------------------------------------------- > > -- For IBM-MAIN subscribe / signoff / archive access instructions, > > send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > -------------------------------------------------------------------- > > -- For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to lists...@listserv.ua.edu with the message: INFO > > IBM-MAIN > > > > -------------------------------------------------------------------- > > -- For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to lists...@listserv.ua.edu with the message: INFO > > IBM-MAIN > > > > -- > Mike A Schwab, Springfield IL USA > Where do Forest Rangers go to get away from it all? > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
