TIQ Online Inquiry/Update using TSO is available if the following CLIST, member name TSOTIQ, is added to the CLIST library.
PROC 0 D(DSN) P(PROMPT) DATEFMT(DEFAULT) CALL 'CAI.CTAPLINK(TMSTSO)' '&D.,&P.,DATEFMT=''&DATEFMT'''. END
&D. is the data set name verification option parameter. A data set name verification option value of NODSN is used to allow updating of a TMC record without verifying the data set name for that record. If the data set name is being changed, NODSN must be specified. Otherwise, the DSN= parameter must be specified twice, once for verification, and again for the update. If DSN is specified, each update will require data set name verification.
&P. is the prompt for the access password parameter. The option parameter value PROMPT causes the prompt for the access password prior to invoking the external security interface. NOPROMPT should only be used when the optional security exit, TMSXITS, has been coded to supply a default access password.
&DATEFMT. represents the date format option for this session. In the example above, the date format pattern is set to DEFAULT. You can specify a preferred date format by replacing DEFAULT with the desired pattern, such as DATEFMT('MMMDD YYYY'). &DATEFMT. must be preceded by two single quotes and followed by three single quotes.
Aside from the initialization of TMSTSO, all user inputs and TMSTSO outputs are identical to those used for TMSTOSTQ, except that no outstanding system message reply numbers are used, and the IEETMS1 message prefixes are eliminated.
To initialize TMSTSO, issue the following command from the TSO READY mode or the SPF COMMAND function:
TSOTIQ [D(DSN|NODSN)] [P(PROMPT|NOPROMPT)] [DATEFMT('fmt')]
When TSOTIQ becomes active, the following message is issued:
IEETMS1 ENTER PASSWORD AWAITING REQUEST/REPLY (ENTER C TO EXIT CA 1 INQ/UPD SESSION)
A password must be entered. Three attempts to enter the password are allowed before TIQ terminates. Once a correct password is entered, the following message is issued:
AWAITING REQUEST/REPLY (ENTER C TO EXIT CA 1 INQ/UPD SESSION)
|
Copyright © 2013 CA Technologies.
All rights reserved.
|
|