dilipkumartr
Programmer
Hello Everyone,
I want to create a macro to 'Save' in view mode. Basically the macro should have the following
replace '<name of the dataset>' .zf .zl
How can this be done using rexx ?
The name of the dataset in the replace should be the name of the dataset I am viewing. Also I want to execute this more like ISREDIT Macro, where I just want to enter 'VSAVE' or TSO VSAVE on the command line and the dataset should be saved.
The macro should identify the name of the dataset and use it in the replace command.
I would like to generalize this macro for both PDS members and Sequential dataset.
I want to check the return status of the replace command, before I could send the 'data saved' message.
The below code doesn't work. I get the error message - replace command not found.
"Isredit Macro NOPROCESS"
"Ispexec Control Errors Return"
address tso
"replace 'TEST.DRY9216.ABD0100.ABEND' .zf .zl"
zedsmsg='dataset saved'
zedlmsg='dataset saved'
address ispexec "SETMSG MSG(ISRZ000)"
Thanks
Dilip
I want to create a macro to 'Save' in view mode. Basically the macro should have the following
replace '<name of the dataset>' .zf .zl
How can this be done using rexx ?
The name of the dataset in the replace should be the name of the dataset I am viewing. Also I want to execute this more like ISREDIT Macro, where I just want to enter 'VSAVE' or TSO VSAVE on the command line and the dataset should be saved.
The macro should identify the name of the dataset and use it in the replace command.
I would like to generalize this macro for both PDS members and Sequential dataset.
I want to check the return status of the replace command, before I could send the 'data saved' message.
The below code doesn't work. I get the error message - replace command not found.
"Isredit Macro NOPROCESS"
"Ispexec Control Errors Return"
address tso
"replace 'TEST.DRY9216.ABD0100.ABEND' .zf .zl"
zedsmsg='dataset saved'
zedlmsg='dataset saved'
address ispexec "SETMSG MSG(ISRZ000)"
Thanks
Dilip