In addition to typing isql at a CICS terminal, to start ISQL, you can type the following command at a CICS terminal. This command suppresses the ISQL signon display and related terminal messages.
>>-ISQL--#r_id#-----+-userid/password-------------+------------->
'-userid/password/server_name-'
>-----+-------------------------------------+------------------><
'-routine_name--+------------------+--'
'-(parameter_list)-'
|
Where:
This method of invoking ISQL is primarily designed for VSE system programs:
The hexadecimal byte X'FF' is usually not available with terminal keyboards. The sample program, as shown in Figure 74, illustrates one method of displaying the command on the terminal and prompting the user to start ISQL.
Figure 74. Starting ISQL Without the Sign-on Display
TITLE 'STARTING ISQL WITHOUT THE SIGN-ON SCREEN'
****************************************************************
* THIS PROGRAM WRITES 2 LINES TO THE USER TERMINAL (24X80): *
* - LINE 1 IS FOR SETTING UP THE INVOCATION OF ISQL WITHOUT *
* DISPLAYING THE SIGN-ON SCREEN. *
* - LINE 2 PROMPTS THE USER TO EXECUTE LINE 1 WITH THE ENTER *
* KEY, OR QUIT WITH THE CLEAR KEY. *
****************************************************************
PRINT GEN
DFHEISTG DSECT
INSTRUCT CSECT
SPACE
EXEC CICS SEND FROM(ISQLSTR) FLENGTH(SENDLEN) ERASE
EXEC CICS RETURN
ISQLSTR EQU *
LINE1 DC X'1140401D4D' LINE 1: INVISIBLE, MDT ON,
* UNPROTECTED.
DC C'ISQL'
DC X'FF' DELIMITER BYTE
DC C'TRX0' TRANS-ID TO BE INVOKED AT ISQL
* EXIT.
DC X'FF' DELIMITER BYTE
DC C'SQLDBA/SQLDBAPW' USER-ID/PASSWORD TO ISQL
*
LINE2 DC X'11C1501D40' LINE 2: VISIBLE, MDT OFF,
* UNPROTECTED.
DC C'PRESS ENTER KEY TO INVOKE ISQL,'
DC C' OR CLEAR KEY TO QUIT'
STRLEN EQU *-ISQLSTR
SENDLEN DC A(STRLEN)
LTORG
END
|