Group, Got no takers on this one. I asked IBM for help and they were very kind once again:
*** Extract of IBM PMR *** The Waitappl for non-SNA sessions is looking for a 3270 WCC with the keyboard restore bit set from TSO. A non-SNA LU0 needs TSO to send the WCC to unlock the keyboard. With SNA LU2, the RU with EB (End-Bracket) or CD (Change Direction) will cause the keyboard to unlock and does not need the 3270 WCC keyboard restore flow. As for the reasons for WAITAPPL for both SNA and non-SNA, it is best to look at the actual 3270 flow for both types of sessions and then ensure the script handles the output flows. A simple method of doing this is to issue the ISM STARTSC OFF for your TSO session number to disable the startscript processing. Then issue the ISM command RECORD ON from the menu and then proceed to logon to TSO. When you get to where you no longer want ISM startscript to automate the logon, escape to the ISM menu and issue the RECORD OFF command. Now issue the ISM REPLAY command. In my example below, I logged on using a non-SNA LU. ------------------------------------------------------------------ REPLAYX TN32 091C2F21 ID RECORD Title --- ------------ 001 S EWRT 002 O EWRT 'Session st' 003 O EWRT 'Session Es' 004 O EWRT 005 O EWRT 'WINMVS23' 006 I ENTER 'logon appl' 007 O EWRTA '*---------' 008 O WRT 009 I ENTER 010 O EWRT '----------' 011 I ENTER 'passwrd' 012 O EWRT 013 O EWRT 014 O WRT 'ICH70001I' 015 O WRT 'IKJEFLD3' 016 O WRT '***' 017 I ENTER 018 O EWRTA 'something else' 019 O WRT 'tsolib act' 020 O WRT 'READY ' 021 O WRT 022 I ENTER '@@' 023 O WRT 'COMMAND @@' 024 O WRT 'READY ' 025 O WRT 026 I ENTER 'pdf' 027 O WSF 028 O EWRTA '. Menu Uti' 029 E EWRTA '. Menu Uti' -------------------------------------------------------------------- Use the PF11 key on the REPLY panel to view the details of the records. Those with an 'O' type are output records that the WAITAPPL would look for. My record id 008 resets the keyboard from the TSO logon flow. --------------------------------------------------------------------- DEC HEX Record 008 O WRT Length 00002 X'0002' 0 0000 X'F1C2' CMD - WRT WCC (RESTKB) --------------------------------------------------------------------- There is no "cheat sheet" but this is a good method to understand what your TSO LOGON script needs to wait for in the output flows. *** End of extract of IBM PMR *** It's been a long time since I've been involved analyzing these flows. I wrote this one down. Thank you, Dave From: Hansen, Dave L - Eagan, MN Sent: Friday, May 10, 2013 1:43 PM To: [email protected] Subject: Help with IBM Session Mgr Script Fellow Scripters, We are running z/OS V1R13 and IBM Session Manager (ISM) 3.100B. Currently there is an OPEN APAR PM86725 regarding using the wrong logmode for mod 5 terminals. The users are complaining it takes too long to logon so I have been looking at our TSO LOGON script and I have a few questions. I do not see anything in our scripts checking if t_model is set to "5". But I am seeing a difference between SNA and NON-SNA. Years ago there was real 3270 CUT, DFT etc. I guess I look at the session manager like my old NCR/COMTEN NCP. The remote network was SNA and the host was not. SRM resided in an NCR Comten Communications Processor (CP) where it performs switching functions that allow BSC and SNA 3270 devices to communicate selectively with any of up to 31 different host access methods. Currently terminals bind to the session manager from TN3270 which can be SNA or not. Once at the session manager main screen you can select your logmode to the application which can be SNA or not. I mainly use D4A32793 which is SNA. I can also use D4B32793 which is not SNA. The application works fine with the terminal and I don't see a difference between the logmodes when binding to the application. Here is what we have in our TSO LOGON script: First part of current script - Enter our userid: Domax 10 appltime 10 Do until found Waitappl If noresp Let t_message = 'Timed out - User prompt' Endsess Return End Outscan 'ENTER' End The next section is supposedly required for NON-SNA for a write to restore the keyboard: If s_sna = 'N' Waitappl End Input sba 2 1 text t_user Key enter I don't see any examples in the book regarding "S" for ACTIVE SNA sessions or "N" for ACTIVE NON-SNA sessions. A WAITAPPL is getting output from the APPL. Q). Do I need this Waitappl for NON-SNA sessions? The First part (above) entered the TSO userid. The second part (not shown) is just like the First part except it enters the password and does an outscan for 'TSO/E LOGON'. The next section has code for both SNA and NON-SNA. I assume the pause is for the operator to see the screen. The users are complaining about slow response time so I was going to remove it. Do until found If s_sna = 'S' Waitappl DISPLAY Pause 2 Else Waitappl End If noresp Endsess Return End ......(other code) ........ End So for ACTIVE NON-SNA sessions I once again do a waitappl. But what's different is for ACTIVE SNA sessions. For these I see a waitappl DISPLAY and a pause. The waitappl is the last waitappl so it will default to DISPLAY. Q). Why do I need a waitappl for both the ACTIVE SNA and ACTIVE NON-SNA sessions when in the First part (above) we only do a waitappl for ACTIVE NON-SNA sessions? Have a great weekend, Dave ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
