View previous topic :: View next topic
|
Author |
Message |
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2546 Location: Silicon Valley
|
|
|
|
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 |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
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 |
|
|
James Halley
New User
Joined: 11 Apr 2012 Posts: 18 Location: USA
|
|
|
|
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 |
|
|
James Halley
New User
Joined: 11 Apr 2012 Posts: 18 Location: USA
|
|
|
|
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 |
|
|
James Halley
New User
Joined: 11 Apr 2012 Posts: 18 Location: USA
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2546 Location: Silicon Valley
|
|
|
|
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 |
|
|
don.leahy
Active Member
Joined: 06 Jul 2010 Posts: 765 Location: Whitby, ON, Canada
|
|
|
|
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 |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2546 Location: Silicon Valley
|
|
|
|
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 |
|
|
James Halley
New User
Joined: 11 Apr 2012 Posts: 18 Location: USA
|
|
|
|
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 |
|
|
don.leahy
Active Member
Joined: 06 Jul 2010 Posts: 765 Location: Whitby, ON, Canada
|
|
|
|
Sorry for the late response. Don't you hate it when your real job gets in the way of your forum participation?
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 |
|
|
|