You may wish to display the trapped error messages in case they provide
a clue. REXX code like:
Do i = 1 to delete.0
Say delete.i
End i
or equivalent after the unsuccessful deletes.
There are a number of possible causes.
Bill
On Wed, 6 Aug 2008 14:01:46 -0700, Howard Rifkind <[EMAIL PROTECTED]> wrote:
>Iâm trying to delete the following datasets via a z/OS REXX exec as shown
below.
>
>The trace is showing an RC=8. The datasets are properly allocated and I
own them via my HLQ.
>
>Any idea whatâs going on, why they donât get deleted? Any help will be
appreciated.
>
>Thanks
>
>Display from 3.4:
>E18823.SYSPROG.VMFTPRX.OPERLOG.INPUT Info - S OPTSO1
>E18823.SYSPROG.VMFTPRX.OPERLOG.OUTPUT OPTSO1
>
>
>. 13 *-* CALL DEL_FILES
>. 66 *-* DEL_FILES:
>. 67 *-* LISTIT = OUTTRAP('DELETE.')
>. 68 *-* SAY '= = = = >>>>' LISTIT
>.= = = = >>>> DELETE.
>. 69 *-* ADDRESS "TSO" "DELETE
'E18823.SYSPROG.VMFTPRX."||FUNCTION||".INPUT'
>. >>> "DELETE 'E18823.SYSPROG.VMFTPRX.OPERLOG.INPUT'"
>. +++ RC(8) +++
>. 70 *-* ADDRESS "TSO" "DELETE
'E18823.SYSPROG.VMFTPRX."||FUNCTION||".OUTPUT
>. >>> "DELETE 'E18823.SYSPROG.VMFTPRX.OPERLOG.OUTPUT'"
>. +++ RC(8) +++
>. 71 *-* X = OUTTRAP('OFF')
>. 72 *-* SAY '= = = = >>>>' X
>.= = = = >>>> OFF
>. 73 *-* RETURN
>. 14 *-* SAY '= = = = >>>> DEL_FILES & DEL_FILES PROCEDURE COMPLETE'
>.= = = = >>>> DEL_FILES & DEL_FILES PROCEDURE COMPLETE
>. 15 *-* EXIT
>
----------------------------------------------------------------------
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
