Using VSURSOR in CA-View (14.0)

22 views
Skip to first unread message

Lars Höglund

unread,
Apr 2, 2024, 4:15:54 AM4/2/24
to ispf-...@nd.edu

Hi

I’m using Doug Nadel’s VCURSOR in CA-View and for some reasons does not standard ISPF commands work, like DOWN, HELP

It works ok in SDSF and in other situations (SPLIT works)

 

Result when pressing PF8(down)

 

  Menu  Functions  Utilities  Help                                            

------------------------------------------------------------------------------

VIEW     SYSU.ISP.TEKNIK.EXEC                                  Invalid command

Command ===> DOWN                                             Scroll ===> PAGE

   Name     Prompt          Size    Created           Changed            ID   

 

 

And when pressing PF1(help) after that

 

  Menu  Functions  Utilities  Help                                            

------------------------------------------------------------------------------

VIEW     SYSU.ISP.TEKNIK.EXEC                                  Invalid command

Command ===> HELP DOWN                                        Scroll ===> PAGE

   Name     Prompt          Size    Created           Changed            ID   

 

 

Keys

 

  File                                                                  

-------------------------------------------------------------------------

PRIVATE                 ISR Keylist ISRSPBC Change        Row 1 to 12 of

Command ===>                                             Scroll ===> PAGE

                                                                        

Make changes and then select File action bar.                           

                                                                         

Keylist Help Panel Name . . . ISRSPBCH                                  

                                                                         

Key       Definition                                 Format  Label      

F1 . . .  HELP                                       SHORT   Help       

F2 . . .  SPLIT                                      LONG    Split      

F3 . . .  EXIT                                       SHORT   Exit       

F4 . . .  vcv                                        LONG    view       

F5 . . .  RFIND                                      SHORT   Rfind      

F6 . . .                                                                

F7 . . .  UP                                         LONG    Up         

F8 . . .  DOWN                                       LONG    Down       

F9 . . .  SWAP next                                  LONG    Swap       

F10  . .  LEFT                                       LONG    Left       

F11  . .  RIGHT                                      LONG    Right      

F12  . .  RETRIEVE                                   SHORT   retr       

 

 

Start of CA-View

 

"ISPEXEC LIBDEF ISPPLIB DATASET ID('CAI.VIEW.V116.CAIPNL0')"       

"ISPEXEC LIBDEF ISPTLIB DATASET ID('CAI.VIEW.V116.CAITBL0')"       

                                                                    

"ISPEXEC SELECT PGM(SARSPF) PARM(SARS.SYSU)  NEWAPPL(SAR) PASSLIB" 

"ISPEXEC LIBDEF  ISPPLIB"                                          

"ISPEXEC LIBDEF  ISPTLIB"        

EXIT  

                                                             

 

 

 

Marvin Knight

unread,
Apr 2, 2024, 5:23:14 AM4/2/24
to ispf-...@nd.edu

Lars,

    It sounds like CA-View may have its own command table where DOWN/UP/etc have been redefined (possibly  with a PASSTHRU action).  TSO ISPVCALL STATUS can be used to look at the active command tables (around line 33 or so).  Look for the following entries with the commands listed below these lines.
==========================< Active Command Tables >=============================

ISRCMDS   SITECMDS  ISPCMDS                                                    

 ======================< Entries in Open Command Tables >========================
If scrolling does not work while using ISPVCALL in CA-View,  just END back to the primary menu and issue TSO ISPVCALL VIEW and it will put you back in the last ISPVCALL issued and scrolling should work.

 

Marvin Knight

 

From: ispf-...@nd.edu <ispf-...@nd.edu> On Behalf Of Lars Höglund
Sent: Tuesday, April 2, 2024 3:16 AM
To: ispf-...@nd.edu
Subject: [EXTERNAL] [ISPF-L] Using VSURSOR in CA-View (14.0)

 

Hi I’m using Doug Nadel’s VCURSOR in CA-View and for some reasons does not standard ISPF commands work, like DOWN, HELP It works ok in SDSF and in other situations (SPLIT works) Result when pressing PF8(down) Menu Functions Utilities

ZjQcmQRYFpfptBannerStart

This Message Is From an External Sender

This message came from outside your organization.

    Report Suspicious    ‌

ZjQcmQRYFpfptBannerEnd

--
You received this message because you are subscribed to the Google Groups "ISPF discussion list" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ispf-l-list...@nd.edu.
To view this discussion on the web visit https://groups.google.com/a/nd.edu/d/msgid/ispf-l-list/GVZP280MB0425381C78D1CBF6F43F7B608D3E2%40GVZP280MB0425.SWEP280.PROD.OUTLOOK.COM.

Lars Höglund

unread,
Apr 2, 2024, 5:47:50 AM4/2/24
to ispf-...@nd.edu

Thanks Marvin

 

It looks like this (SARCMDS)

We have our own Rexx to display/change commandtables

 

--------------------Command table SAR (SYSU)---

Command ===>                                  

                                               

Maincmd: Cancel, End, Find, Locate, Rfind, Sort

Linecmd: Dn = Delete, In = Insert, Rn = Repeat

                                               

         First 2 char in Desc has the following

              **=Normal -U=Utvecklare -A=Admin

         and will be shown depending on choises

                                              

     Verb     T  Action                       

                    Description               

     CURSOR   6  PASSTHRU                     

                                               

     DOWN     4  PASSTHRU                     

                                               

     HELP     4  PASSTHRU                     

                                               

     LEFT     4  PASSTHRU                     

                                               

     RCHANGE  7  PASSTHRU                     

                                               

     RETURN   6  PASSTHRU                     

                                               

     RFIND    5  PASSTHRU                     

                                               

     RIGHT    5  PASSTHRU                     

                                               

     UP       2  PASSTHRU                     

                                               

     WHERE    5  PASSTHRU                     

                                               

     VIEW     4  PASSTHRU                     

                                               

     TOP      3  PASSTHRU                     

                                               

     BOTTOM   6  PASSTHRU                     

                                               

******************************* Bottom of data

 

Can You have clue why they are doing this?

 

//Lasse

Marvin Knight

unread,
Apr 2, 2024, 5:02:59 PM4/2/24
to ispf-...@nd.edu

Lars,

    I’m not familiar with exactly how CA-View runs,  but a PASSTHRU action would mean they want to handle the command as opposed to ISPF handle it.  My guess is they may be using VIIF and controlling their own I/O.  In turn they may need to handle how a scroll of the data works.  You could run ISPVCALL and see exactly what ISPF services they use to display the data and see if it is an actual VIEW call, VIIF call, or maybe even a dynamic area panel.  

Marvin

 

From: ispf-...@nd.edu <ispf-...@nd.edu> On Behalf Of Lars Höglund
Sent: Tuesday, April 2, 2024 4:48 AM
To: ispf-...@nd.edu
Subject: [EXTERNAL] [ISPF-L] Sv: Using VSURSOR in CA-View (14.0)

 

Thanks Marvin It looks like this (SARCMDS) We have our own Rexx to display/change commandtables --------------------Command table SAR (SYSU)--- Command ===> Maincmd: Cancel, End, Find, Locate, Rfind, Sort Linecmd: Dn = Delete, In = Insert,

ZjQcmQRYFpfptBannerStart

Lars Höglund

unread,
Apr 3, 2024, 12:52:40 AM4/3/24
to ispf-...@nd.edu

It works fine if I don’t use VCURSOR

I’m using VCURSOR on a Dataset (PDS) and then I can’t scroll the memberlist

Marvin Knight

unread,
Apr 3, 2024, 8:50:24 AM4/3/24
to ispf-...@nd.edu

I’ve looked and I cant find any source for VCURSOR,  so I don’t know what Doug coded for VCURSOR.  The scroll not working would be due to the command table setting for UP/DOWN being set to passthru.  Without knowing what VCURSOR does it hard to come up with a work around.  Running under its own APPLID so it has a different command table is one thought,  but that also could change variable access since it creates a new shared/profile pool.  That might cause other issues related to variable pools.

 

Marvin

 

From: ispf-...@nd.edu <ispf-...@nd.edu> On Behalf Of Lars Höglund
Sent: Tuesday, April 2, 2024 11:53 PM
To: ispf-...@nd.edu
Subject: [EXTERNAL] [ISPF-L] Sv: Using VSURSOR in CA-View (14.0)

 

It works fine if I don’t use VCURSOR I’m using VCURSOR on a Dataset (PDS) and then I can’t scroll the memberlist //Lasse Från: ispf-l-list@ nd. edu <ispf-l-list@ nd. edu> För Marvin Knight Skickat: den 2 april 2024 23: 03 Till: ispf-l-list@ nd. edu

Farley, Peter

unread,
Apr 3, 2024, 11:08:57 AM4/3/24
to ispf-...@nd.edu

IIRC, Doug Nadel’s source code was never published because it (may have) used internal IBM-only information or control blocks, so there is no way to know what the source code does or why.  There is zero chance that code will ever be updated or made public at this point since Doug long ago left IBM and the IBM ISPF team has claimed they don’t even have his source code available.

 

Peter

 

From: ispf-...@nd.edu <ispf-...@nd.edu> On Behalf Of Marvin Knight
Sent: Wednesday, April 3, 2024 8:50 AM
To: ispf-...@nd.edu
Subject: [ISPF-L] RE: Using VSURSOR in CA-View (14.0)

 

I’ve looked and I cant find any source for VCURSOR,  so I don’t know what Doug coded for VCURSOR.  The scroll not working would be due to the command table setting for UP/DOWN being set to passthru.  Without knowing what VCURSOR does it hard to come up with a work around.  Running under its own APPLID so it has a different command table is one thought,  but that also could change variable access since it creates a new shared/profile pool.  That might cause other issues related to variable pools.

 

Marvin

 

From: ispf-...@nd.edu <ispf-...@nd.edu> On Behalf Of Lars Höglund
Sent: Tuesday, April 2, 2024 11:53 PM
To: ispf-...@nd.edu
Subject: [EXTERNAL] [ISPF-L] Sv: Using VSURSOR in CA-View (14.0)

 

It works fine if I don’t use VCURSOR

I’m using VCURSOR on a Dataset (PDS) and then I can’t scroll the memberlist

 

//Lasse

 

Från: ispf-...@nd.edu <ispf-...@nd.edu> För Marvin Knight

This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system.

Lars Höglund

unread,
Apr 3, 2024, 11:13:53 AM4/3/24
to ispf-...@nd.edu

The source is found in CBT file314

 

I just send Marvin a copy

 

//Lasse

--

You received this message because you are subscribed to the Google Groups "ISPF discussion list" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ispf-l-list...@nd.edu.

Marvin Knight

unread,
Apr 3, 2024, 3:54:23 PM4/3/24
to ispf-...@nd.edu

OK ..  It’s just a REXX exec that Doug initially wrote and Lionel and a few others have modified. 

Looks like you can just use NEWAPPL(xxx) on the VCURSOR command table entry
For instance: 
VC        0  SELECT CMD(%VCURSOR &ZPARM) NEWAPPL(DGN)

VCB       0  SELECT CMD(%VCURSOR B) NEWAPPL(DGN)    

VCE       0  SELECT CMD(%VCURSOR E) NEWAPPL(DGN)    

VCM       0  SELECT CMD(%VCURSOR M) NEWAPPL(DGN)    

VCURSOR   0  SELECT CMD(%VCURSOR) NEWAPPL(DGN)      

I set the APPLID to DGN just for Doug.   DGNCMDS doesn’t have to exist,  but you could always create it with UP and DOWN set to SETVERB if you wish.  You could probably use NEWAPPL(ISP) as well.

Marv

 

From: ispf-...@nd.edu <ispf-...@nd.edu> On Behalf Of Lars Höglund
Sent: Wednesday, April 3, 2024 10:14 AM
To: ispf-...@nd.edu
Subject: [EXTERNAL] [ISPF-L] Sv: Using VSURSOR in CA-View (14.0)

 

The source is found in CBT file314 I just send Marvin a copy //Lasse Från: 'Farley, Peter' via ISPF discussion list <ispf-l-list@ nd. edu> Skickat: den 3 april 2024 17: 09 Till: ispf-l-list@ nd. edu Ämne: [ISPF-L] RE: Using VSURSOR in CA-View

Reply all
Reply to author
Forward
0 new messages