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 |