IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

enhancement request for IBM...


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Sat Aug 23, 2014 5:44 am
Reply with quote

We can submit 'Request For Enhancements' to IBM using it's developerworks site. See
www.ibm.com/developerworks/rfe/execute?use_case=viewRfe&CR_ID=42629 Sorry, you have to register for a user id.

You can submit a request to IBM and then other users may vote for it. The more votes a request gets, the more likely IBM will implement the suggestion.

My suggestion, 42629, is about ISPF and its workstation agent working better together to avoid B37 abends when editing a large workstation file. Please vote for this RFE.

"Vote for Pedro"
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Sat Aug 23, 2014 1:09 pm
Reply with quote

As much as like this request, I do not think that voting for it will have any use. WSA is dead (or "stabilized" if that's the IBM nomenclature) and I think it doesn't even allows installation on 64-bit systems any more (although it does work on them).

Disassembling and patching might be the only option, and that will only wok if the PC component creates the allocation request. If it's ISPF that does so, you're probably SOL.

Anyway, you've got my vote.
Back to top
View user's profile Send private message
James Halley

New User


Joined: 11 Apr 2012
Posts: 18
Location: USA

PostPosted: Fri Sep 05, 2014 12:15 am
Reply with quote

A 64-bit compliant ISPF Workstation Agent was implemented in z/OS 2.1 and can be installed on older z/OS versions by applying APAR OA39571: www-01.ibm.com/support/docview.wss?uid=isg1OA39571

This APAR and z/OS 2.1 ISPF have fixed the large file issue and several minor issues. The new WSA has a nifty new icon that replaces the "pyramid" icon and actually says "ISPF".

I have been in recent communication with the IBM ISPF development team and system programmers at other organizations that depend on ISPF Client Server. My understanding is that the WSA is not dead but that fixing problems with it has not been a high priority.

There are over one hundred people in my organization using an "ISPF Client Server Toolbox" I wrote. It can be downloaded from www.cbttape.org/cbtdowns.htm where it is "File # 908 ISPF Client Server Local Dialogs and Facilities". Among its features are downloading reports from SDSF and files from DSLIST to a menu selectable folder either interactively or in batch mode, displaying mainframe files and and reports on SDSF in Microsoft Notepad, WordPad and Word; and emailing mainframe files and reports on SDSF with Microsoft Outlook.

File # 908 includes the 64-bit compatible WSA for those who are not yet at z/OS 2.1 or cannot apply the APAR.
Back to top
View user's profile Send private message
James Halley

New User


Joined: 11 Apr 2012
Posts: 18
Location: USA

PostPosted: Sat Sep 06, 2014 12:33 am
Reply with quote

Correction! z/OS 2.1 does NOT resolve the B37 problem. It does however resolve the large file problem we had in which the WSA would always abend after transferring 1.5GB using the FILEXFER service.

The B37 issue appears to from ISPF allocating an inadequately sized temporary work file to hold the contents of the workstation file.

One workaround is to transfer the large workstation file to the mainframe using the FILEXFER service, edit the file there, and then transfer the file back to the workstation. The ISPF Client Server Toolbox that I contributed to CBT includes two methods of running FILEXFER in a batch ISPF session which allows transferring a large file without tying up an interactive ISPF session.
Back to top
View user's profile Send private message
James Halley

New User


Joined: 11 Apr 2012
Posts: 18
Location: USA

PostPosted: Sat Sep 06, 2014 12:34 am
Reply with quote

Correction! z/OS 2.1 does NOT resolve the B37 problem. It does however resolve the large file problem we had in which the WSA would always abend after transferring 1.5GB using the FILEXFER service.

The B37 issue appears to from ISPF allocating an inadequately sized temporary work file to hold the contents of the workstation file.

One workaround is to transfer the large workstation file to the mainframe using the FILEXFER service, edit the file there, and then transfer the file back to the workstation. The ISPF Client Server Toolbox that I contributed to CBT includes two methods of running FILEXFER in a batch ISPF session which allows transferring a large file without tying up an interactive ISPF session.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Sat Sep 06, 2014 1:56 am
Reply with quote

So far, my RFE only has two votes: me and Prino.

Quote:
There are over one hundred people in my organization using...
Can you get some of them to vote?


"Vote for Pedro"
Back to top
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 765
Location: Whitby, ON, Canada

PostPosted: Sat Sep 06, 2014 4:32 am
Reply with quote

Another WSA item on my list is option 3.7.2, the file transfer panel. The Workstation file name field is way too small to accommodate the long path names used by LAN directories at our site. I have been working around this for years. It needs to be a scrollable field. (I haven't seen z/os 2.1 yet)

For my own use I modified the IBM supplied panel to make the field scrollable. It was easy to do.
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Sat Sep 06, 2014 2:27 pm
Reply with quote

don.leahy wrote:
For my own use I modified the IBM supplied panel to make the field scrollable. It was easy to do.

The change is probably trivial, but maybe you can share the SuperC output showing the difference for the benefit of others?
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Sat Sep 06, 2014 9:46 pm
Reply with quote

The workstation file name is not scrollable in z/OS 2.1.

To make a field scrollable, you have to define it in the )FIELD section of the panel, which is just before the end of the panel. You have to modify panel ISREDM01 and maybe ISRBRO01.

Code:
000341 )FIELD                                   
000342 FIELD(DSN) LEN(1023) IND(ZDSNIND)         
000343 FIELD(WSFN) LEN(1023)                     
000344 )END                                     

Add line 343 to make the workstation file name longer.

To be more complete, you should also add the IND() parameter similar to line 342, but then you have to modify the )BODY and maybe .zvars. The IND() parameter is used to tell you if you have scrolled left or right.

usage hint: type EXPAND on the primary command line, put the cursor on the file name field, and press Enter.

Or you can put the cursor on the file name field and press F11 / F10 to scroll right and left.
Back to top
View user's profile Send private message
James Halley

New User


Joined: 11 Apr 2012
Posts: 18
Location: USA

PostPosted: Mon Sep 08, 2014 6:40 pm
Reply with quote

Pedro wrote:

Quote:
There are over one hundred people in my organization using...
Can you get some of them to vote?


It would not be permissible for me to ask our staff to vote. Our staff do not use the built-in client server screens and functions of ISPF and instead use the ISPF Client Server Toolbox that I provide through cbttape.org.

The ISPF panels in my Toolbox allow for a workstation path up to 148 characters long not including a workstation file name up to 60 characters long. File transfer 3.7.2 panel is not used here due to its path length limitation.

One of the batch FILEXFER facilities of my Toolbox allow z/OS Unix paths up to 1,023 characters but I have not included this feature in the interactive functions.

A problem with using ISPF Client Server to edit workstation files is that they become corrupted (records "wrap") if the records are longer than 255 charactrers. I have not found a workaround to prevent this from happening, hence the reason I ask users to upload workstation files with FILEXFER before editing them with ISPF Edit.
Back to top
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 765
Location: Whitby, ON, Canada

PostPosted: Wed Sep 10, 2014 7:33 pm
Reply with quote

Sorry for the late response. Don't you hate it when your real job gets in the way of your forum participation? icon_lol.gif

Here are my modifications to ISPUDLDS:
Code:
000019  2A TYPE(CEF) PADC(USER) CKBOX(ON)                                             
.OAAAA  2B TYPE(output) INTENS(LOW)                                                   
000021 )ABC DESC('Menu') MNEM(1)                                                       
000022 PDC DESC('Settings') UNAVAIL(ZPM1) MNEM(1) ACC(CTRL+S)                         
000023  ACTION RUN(ISRROUTE) PARM('SET')                                               
000024 PDC DESC('View') UNAVAIL(ZPM2) MNEM(1) ACC(CTRL+V)                             
000025  ACTION RUN(ISRROUTE) PARM('BR1')                                               
- - -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   65 Line(s) not Displayed
000091  Other Partitioned or Sequential Data Set:                                     
000092     Name  . . . . . . . Z                                                       
000093     Volume Serial . . . Z       (If not cataloged)                             
000094                                                                                 
000095  Workstation File:                                                             
======     File Name . . . . . Z                                                       
.OAAAB     File Name . . . . . Z                                            scrind     
000097                                                                                 
000098  Transfer Option                       GRPBOX1                                 
000099  Z  1. Download to workstation         Z  Generate statistics on upload         
000100     2. Upload from workstation         Z  Transfer in text mode                 
000101                                        Z  Replace existing member/file         
- - -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  106 Line(s) not Displayed
000208 IF (&ZREPM ^= &Z) &ZREPM = '/'                                                 
000209 VPUT (PRJ1 LIB1 LIB2 LIB3 LIB4 TYP1 DSN) PROFILE                               
000210 VPUT (ZDLWSFN ZDLDIRCT ZDLSTATS ZDLMODE ZREPM) PROFILE                         
000211 VER(&ZDLWSFN,NONBLANK)                                                         
000212 VER(&ZDLDIRCT RANGE,1,2)                                                       
.OAAAC )FIELD                                                                         
.OAAAD field(ZDLWSFN) LEN(512) IND(SCRIND)                                             
000215 )END                                                                           
- - -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  - 3 Line(s) not Displayed
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts CICS Web client request CICS 6
No new posts Job monitoring request JCL & VSAM 4
No new posts Dynamic array request/response contai... CICS 2
No new posts Execute multiple DB2 Load commands in... DB2 4
No new posts How to sending system service request... IMS DB/DC 5
Search our Forums:

Back to Top