On Fri, 16 Mar 2007 09:31:03 -0400, Veilleux, Jon L <[EMAIL PROTECTED]>
wrote:
>Is there a way, other than using ISPF panels, to enter hidden data
>(passwords) as a response to a prompt from a REXX exec?
It is possible to use Start Field or Start Field Extended order in SAY
rexx statement and write fields with various attributes (protected,
invisible, hilight, color). Details are in 3174 Establishment Controller:
Functional Description, GA23-0218-11 */
When PULL rexx statement is executed then you can type data into any
unprotected field on the screen, not just on the line where cursor is
curently located. So you can type data into invisible field.
When you press ENTER, then data from the first modified field is returned
by PULL stsatement.
/* REXX */
/* Prompt to enter invisible data */
sf='1D'x
nopr='60'x /* normal protect */
invi='4C'x /* invisible */
hipr='E8'x /* hilight protect */
prompt='>>>'
promptend='<<<'
len=80-length(prompt)-length(promptend)-7
nulls=copies('00'x,len)
s1='Enter data into invisible field on the following line:'
say sf''nopr''s1
say sf''hipr''prompt''sf''invi''nulls''sf''hipr''promptend
parse pull data
say 'You entered data:'data
exit 0
Note. I avoid using concatenation symbol in REXX because it may get
corrupted during transfer between ASCII and EBCDIC.
Tomas
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
