The Rexx at the end of this message asks the user to enter a number.
If a particular dataset containing this number exists the dataset is displayed.
The question is -
When the code runs and the dataset does exist, instead of displaying it immediately, the *** prompt appears (I am not at the last line of the panel). When I press <Enter> the dataset is then displayed. Why does the dataset not display immediately without the *** prompt?
/* Rexx */
/* If dataset IASSHARE.PAC.REQUEST.INFO(PRGnnnnn) exists, display it */
Say "Enter Code Control request number"
Pull number
number = Right(number,5,0) /* pad out to 5 digits */
dataset = "IASSHARE.PAC.REQUEST.INFO(PRG" || number || ""
status = SYSDSN("'"dataset"'"
If status = "OK" Then
Address ISPEXEC 'BROWSE DATASET('''dataset''')'
Else
Say "Cannot check" dataset "-" status
Exit
If a particular dataset containing this number exists the dataset is displayed.
The question is -
When the code runs and the dataset does exist, instead of displaying it immediately, the *** prompt appears (I am not at the last line of the panel). When I press <Enter> the dataset is then displayed. Why does the dataset not display immediately without the *** prompt?
/* Rexx */
/* If dataset IASSHARE.PAC.REQUEST.INFO(PRGnnnnn) exists, display it */
Say "Enter Code Control request number"
Pull number
number = Right(number,5,0) /* pad out to 5 digits */
dataset = "IASSHARE.PAC.REQUEST.INFO(PRG" || number || ""
status = SYSDSN("'"dataset"'"
If status = "OK" Then
Address ISPEXEC 'BROWSE DATASET('''dataset''')'
Else
Say "Cannot check" dataset "-" status
Exit