2012-02-07 21:55:58 UTC
Am newish at mainframe rexx. When job reruns are necessary, I need my
z/OS REXX to ..
If file exists
.. but because I had troubles with 'delete' I stripped the REXX and
tried a simple ..
GRAND = "'"v_useridd"."v_fourlw".ZZJA5DEL'"
say 'I: GRAND='GRAND'='
say ' '
"ALLOC DDN(OUTFILE3) DSN("GRAND")"
say 'I: tried ALLOC RC='RC'='
say 'I: tried FREE RC='RC'='
say 'I: tried DELETE RC='RC'='
.. and got ..
I: tried ALLOC RC=0=
I: tried FREE RC=0=
IDC3901I ERROR QUALIFYING IBMUSE1.DDN
IDC3902I ** DEFAULT SERVICE ROUTINE ERROR CODE 20, LOCATE ERROR CODE 8
IDC0548I ** MEMBER OUTFILE3 NOT DELETED
I: tried DELETE RC=8=
.. since moving from PC to mainframe REXX, it seems I am not using
delete in the correct fashion (and I tried various ways. Might anyone
suggest something for the 'teeny tiny' if/else/end spec above? ..
especially 'how to delete a file'.
Am confused for sure - am reading delete has gone to idcams??
P.S> the file defined via JCL would be ..
//GRAND DD DSN=IBMUSE1.MFSY.ZZJA5DEL,DISP=(,CATLG,DELETE),