Absolutely not the most elegant way to do this, but:
Call CallSDSF 'pre q*mstr;st'
"EXECio * diskr ISFOUT (finis stem Res.)"
"free f(ISFOUT)"
CallSDSF:
ARG Command
Parse VAR Command Command1';'Command2';'Command3';'Command4';'Command5';'Rest
Parse VAR Rest Command6';'Command7';'Command8';'Command9';'Command10';'
Isfin_File = "'"Userid()".TEMP.ISFIN.FILE'"
Isfout_File = "'"Userid()".TEMP.ISFOUT.FILE'"
x = sysdsn(Isfin_File)
If x = 'OK' Then Do
"delete" Isfin_File
End
X = Sysdsn(Isfout_File)
If X = 'OK' Then Do
"Delete" Isfout_File
End
"alloc f(ISFIN) da("Isfin_file") new space(1,1) tracks",
" dsorg(ps) recfm(f b) lrecl(80) unit(3390)"
CMD.1 = Command1
CMD.2 = Command2
CMD.3 = Command3
CMD.4 = Command4
CMD.5 = Command5
CMD.6 = Command6
CMD.7 = Command7
CMD.8 = Command8
CMD.9 = Command9
CMD.10 = Command10
CMD.0 = 10
"EXECio * diskw ISFIN (finis stem Cmd.)"
"FREE f(ISFIN) catalog"
"alloc f(ISFOUT) da("isfout_file") new space(5,1) tracks",
" dsorg(ps) recfm(f b) lrecl(80) unit(3390)"
"alloc f(ISFIN) da("Isfin_file") shr"
Address LINKMVS 'SDSF'
Return
George Shedlock Jr
AEGON Information Technology
AEGON USA
502-560-3541
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of
??? ?? ???
Sent: Monday, September 06, 2010 9:11 AM
To: [email protected]
Subject: Re: Passing commands to SDSF in REXX
The part we are having problems with is passing the parameters to SDSF.
We know how to do everything else.
Gadi
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of
Lizette Koehler
Sent: Monday, September 06, 2010 4:08 PM
To: [email protected]
Subject: Re: Passing commands to SDSF in REXX
> Hi,
>
> It's much simpler than that:
> The user has the job displayed in the editor.
> He Submits the job.
> The user enters a command on the command line, moves the cursor to the
> job name and presses enter
> The command performs the following functions:
> 1. get the job name from the cursor position
> 2. starts SDSF
> 3. enters the prefix command with the job name
> 4. enters the ST command.
>
Okay, then what you want is an ISPF CMD or MACRO that you can use on the
command line that will accept a parm (cursor selected position).
Yes that can be done.
Since I am not at work today, I would suggest that you look at Mark Zelden's
website and see what he has done with various ISPF MACROs. Then look at the
SDSF manual and see how to call SDSF and passing a parm.
I would think an ISPF Macro would be a process that could do this for you.
Lizette
----------------------------------------------------------------------
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
לשימת לבך, בהתאם לנהלי החברה וזכויות החתימה בה, כל הצעה, התחייבות או מצג מטעם
החברה, מחייבים מסמך נפרד וחתום על ידי מורשי החתימה של החברה, הנושא את לוגו
החברה או שמה המודפס ובצירוף חותמת החברה. בהעדר מסמך כאמור (לרבות מסמך סרוק)
המצורף להודעת דואר אלקטרוני זאת, אין לראות באמור בהודעה אלא משום טיוטה לדיון,
ואין להסתמך עליה לביצוע פעולה עסקית או משפטית כלשהי.
----------------------------------------------------------------------
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
----------------------------------------------------------------------
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
