In <798653A49CCA4868A96E95586D206042@graham>, on 03/27/2013
at 09:33 PM, Graham Hobbs <[email protected]> said:
>OK to ask for some help please, or where might I go?:-)
This is one of the right places. There's also a TSO-REXX list.
>have to convert several ooREXX's to mainframe
Ouch! I wish that IBM would implement it for TSO.
>/* this needs to delete an empty or non-empty PDS from existence, do
>I need to allocate etc, or will the following work? */
You don't need to allocate a data set to delete it, but you have
problems with the syntax of the name and with REXX syntax. Try running
with TRACE ?I and examine the output.
> F1 = '"ENCORE.CBL.SOURCE"'
That will set F1 to "ENCORE.CBL.SOURCE", but you need
'ENCORE.CBL.SOURCE'.
> "DELETE "'F1'""
That evaluates the abuttal of
|DELETE |
|F1|
||
so you're executing DELETE F1 when you need DELETE
'ENCORE.CBL.SOURCE'. Try
F1 = "'ENCORE.CBL.SOURCE'"
DELETE F1
or
F1 = "'ENCORE.CBL.SOURCE'"
'DELETE' F1
or
F1 = '''ENCORE.CBL.SOURCE'''
DELETE F1
> RC_REASON = 'DELETE 'F1; CALL RETCODE
That's correct but would be more readable as
RC_REASON = 'DELETE' F1; CALL RETCODE
or
RC_REASON = DELETE F1; CALL RETCODE
Similar comments apply to the subsequent code.
--
Shmuel (Seymour J.) Metz, SysProg and JOAT
Atid/2 <http://patriot.net/~shmuel>
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
