Sample IBM CL/Supersession script for Automatic Logon to CA 7 as VTAM Application

Products

• CA 7 Workload Automation

Issue/Introduction

CA 7 Workload Automation can be accessed both as TSO/ISPF application or as VTAM application from a Multi-session product.

Is it  possible to customize the Multi Session product scripts in order to perform an Automatic Logon of CA 7, passing userid/pswd and bypassing the Logon screen?  

Environment

Release : all available releases 

Component : CA-7

Resolution

It is possible to customize the Multi-Session scripts and definitions so that an Automatic Logon is issued for CA7 , passing userid/pswd to the script and bypassing in this way the Logon screen of CA7.

Below a sample script that can be used for IBM CL/Supersession Manager :   

)COMMENT
***********************************************************************

   Member:
     xxxxx - Automatic Logon to CA7

   Function:
     Sample initial or LOGON dialog.  This example performs
     an automated LOGON

)OPTION LEVEL(1)        * SET SYNTAX LEVEL
)COPY KLSSDCL
sysparm scope(shared)   * session ID input parameter
sysrc   scope(shared)   * passed return code
rc      scope(local)    * local return code
sid     scope(local)    * session ID

)INIT
set sid  &sysparm                           /* save session ID     */

 /*
   The following compound statement calls dialog KLSFNSTR to
   look in the application buffer for the find string provided.
   (LOGONID:) The 'IF' statement evaluates the return code. If
   the return code is greater that zero, the 'CONTINUE'
   statement is executed, causing a branch directly to the
   PROLOGUE section, where an error message is written out. If
   the return code is zero, processing resumes at the next
   instruction after the 'CONTINUE'.
 */

if (dialog KLSFNSTR '&sid,USERID       :  ,=,10,x')
  continue                                  /* no write warning msg*/

vsstype(&sid '&vssuser')                    /* yes enter userid    */
vsskey(&sid TAB)                            /* tab once            */
vsstype(&sid (encdec('&vsspswd')))          /* enter password      */
vsskey(&sid ENTER)                          /* press enter         */