MFNetDisk PRO, new important fix and PTF management.

2011-06-18 Thread shai hess
HI,

 I upload new MFNetDisk PRO with new fix and management new handling.

 The stacked CCW collect many CCW and its data and send to PC to emulate the
disk or tape.
 If the CCW in the stacked modify other CCW in the stack, before the new
fix, MFNetDisk PRO was not aware to that.
 So, in rare case, example from life, imagine CCW read data to another CCW
in chain in the stack CCW, with new parameter to CCW. Example read data to
the parameter of SEARCH KEY, or SEARCH ID CCW.
The bug was that I stack the parameter of the SEARCH ID before the read
operation run. This error may cause error like unit check with sense of no
record found.
What the fix does is check if CCW read in stack update CCW write parameters.
If this is the case MFNetDisk will stack the stack CCW for this chain before
the write CCW run (SEARCH ID for example). So, this IO required 2 send of
TCP request instead of one.
If you ask about PCI bit in CCW, MFNetDisk handle it OK from the start of
the PRO.

Second change I made is, mange better thefixes I put in MF and PC.
After start the MF or PC MFNetDisk, I add message of PTFID. This numer is
the PTF number in the MPCFIXINFODOC.PDF file.
Example from this file:

145. Start display PTFID when MFNetDisk in MVS started. The PTFID point to
the number of fix from this file. In this case, this PTFID=145. I hope I
will remember to update this ID for each fix in PC and MF. Be aware that if
the PC or the MVS is not updated with the fix, the PTFID will not be
updated. June 17, 2011

So, when MF start the PTFID will be 145.



Thanks,

Shai

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: An upbeat story

2011-06-18 Thread Mike Schwab
On Wed, Jun 15, 2011 at 2:26 PM, Rick Fochtman rfocht...@ync.net wrote:

 Well, if it is a mainframe, it will be 100,000 green screens of death at
 once.
 -unsnip
 Gawd helpus!!  :-)

 Rick

http://edition.cnn.com/2011/US/06/18/united.flight.disruption/index.html
They needed it.
-- 
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...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


MFNetDisk PRO. Another lovely quote from user in Germany.

2011-06-18 Thread shai hess
 first of all thanks a lot for your wonderful piece of code making us think
working with areal DS8X or ATL library.

From Lower Bavaria, Germany
Christian

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: Maintaining ISPF's command stack

2011-06-18 Thread John P Kalinich
Dan,

For some reason, ISPF needs an ENTER key simulated.  I got this to work by 
including a trailing delimiter.

  START PANEL(ISRUTIL);2;

Regards,
John K






Maintaining ISPF's command stack

DanD 
to:
IBM-MAIN
06/17/2011 11:41 PM


Sent by:
IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu
Please respond to IBM Mainframe Discussion List






Greetings,

I have a dialog that calls a routine to perform the following...
ISPLINK CONTROL,ERRORS,RETURN
ISPLINK CONTROL,NONDISPL,ENTER,NOSETMSG
ISPLINK DISPLAY,SYSVARS
ISPLINK CONTROL,ERRORS,CANCEL
The above code is used to obtain some system level variables from the 
panel's )INIT section.  The panel is never seen.
This code is working and the variables are obtained and usually the code 
works as expected.

The problem is that when a user invokes the dialog and stack the 1st 
selection option (ie.  DLGNAME;4 to get to option 4).
After the above code was implemented the command stack seems to get 
cleared 
and the ;4 is ignored.

At first I thought this could be the ZTRAIL, but as the user is not 
entering 
something like 4.1.2, I don't believe ZTRAIL has anything to do with this 
problem.
I have also checked the users' Command delimiter, and it is set to ; so 
this should work.  (it did before the above SYSVARS panel nondispl/display 

was added).

Does anyone have any ideas why this is failing?
Any hints in how to debug this or correct it?

Thanks in advance.
Dan D 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: Maintaining ISPF's command stack

2011-06-18 Thread Elardus Engelbrecht
John P Kalinich wrote:

For some reason, ISPF needs an ENTER key simulated.  I got this to work by
including a trailing delimiter.
  START PANEL(ISRUTIL);2;

Or you can perhaps try out this to avoid using a delimiter:

)INIT
.RESP = ENTER

Try either suggestions to see which is working. The fact the panel is never 
seen may be contributing to your dilemma.

HTH!

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: Maintaining ISPF's command stack

2011-06-18 Thread DanD

Thanks for trying John and Elardus.

As I said, originally DLGNAME;4 worked.
Now with...
   ISPLINK CONTROL,NONDISPL,ENTER,NOSETMSG
   ISPLINK DISPLAY,SYSVARS
the only way I can get it to work is to add extra stack characters...
   DLGNAME;;;4

I also tried ISPLINK DISPLAY,SYSVARSENDCMD where ENDCMD is a variable 
containing END.

When I tried this, no number of stack characters would get me to option 4.
It appears that when the COMMAND option on the DISPLAY request is specified 
the command stack is cleared and replaced with the the caller's variable 
(ie. END).


If there was a Z variable that contained the command stack, I could prefix 
that with END.   Hmm..maybe there is such a variable.


Dan

-Original Message- 
From: Elardus Engelbrecht


John P Kalinich wrote:

For some reason, ISPF needs an ENTER key simulated.  I got this to work by

including a trailing delimiter.

 START PANEL(ISRUTIL);2;


Or you can perhaps try out this to avoid using a delimiter:

)INIT
.RESP = ENTER

Try either suggestions to see which is working. The fact the panel is never
seen may be contributing to your dilemma.

HTH!

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: An upbeat story

2011-06-18 Thread Shmuel Metz (Seymour J.)
In listserv%201106170102198333.0...@bama.ua.edu, on 06/17/2011
   at 01:02 AM, Mark van der Eynden mark.van-der-eyn...@hp.com said:

Gee, I get what all you guys are saying.

But I can't equate it with the fact that most musical people I know
prefer Apple to Windows.

Or perhaps prefer anything to windoze?
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: Customizing TSOPROC

2011-06-18 Thread Shmuel Metz (Seymour J.)
In 4dfb2963.3070...@netspace.net.au, on 06/17/2011
   at 08:16 PM, Ken Brick kbr...@netspace.net.au said:

I believe IMHO that that should not using hard coded logon
procedures,

I'd advise that your installation logon exec look for user-specific
libraries and include them in the concatenations. I'd also advise
looking for a user-specific logon exec and to invoke it if found.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: Customizing TSOPROC

2011-06-18 Thread Shmuel Metz (Seymour J.)
In 0377b9a583fd0e4aacd676ee33ee994b4a855...@sdkmail13.emea.sas.com,
on 06/17/2011
   at 09:28 AM, Lindy Mayfield lindy.mayfi...@ssf.sas.com said:

And looking at ISPPDF,  yep, the first thing they do is reallocate
SYSPROC and the rest of the ISPF libraries.  (And it is a CLIST -
yük).

This is one of the rare cases where using a CLIST makes sense. Do it
in REXX and you have to either run the rest of your session under the
interpreter or stack a command prior to exit.  
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html