I would look at panel Rexx. Its a Rexx coded in the panel init or proc sections. You need to save the first dd or cc command Crp location in a variable shared with your program.
ITschak נשלח מה-iPad שלי ב-19 ביוני 2018, בשעה 17:44, Dyck, Lionel B. (RavenTek) <lionel.d...@va.gov> כתב/ה: > Agreed - better to let ISPF services do their own thing *but* if you need to > do something like this at least you can. > > -------------------------------------------------------------------------- > 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:43 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: AW: [EXTERNAL] AW: ISPF programming > > Hi Lionel, > > that sound like something everybody would rather avoid 😊. > > Thanks, > 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:29 > An: IBM-MAIN@LISTSERV.UA.EDU > Betreff: Re: [EXTERNAL] AW: ISPF programming > > 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 > > ---------------------------------------------------------------------- > 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
