Graham Hobbs
2012-02-07 21:55:58 UTC
Hello,
Am newish at mainframe rexx. When job reruns are necessary, I need my
z/OS REXX to ..
If file exists
delete it
create it
else
create it
end
.. 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'='
"FREE DDN(OUTFILE3)"
say 'I: tried FREE RC='RC'='
"DELETE DDN(OUTFILE3)"
say 'I: tried DELETE RC='RC'='
exit
.. and got ..
I: GRAND='IBMUSE1.MFSY.ZZJA5DEL'=
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
IDC0014I LASTCC=8
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??
Please, thanks
Graham Hobbs
P.S> the file defined via JCL would be ..
//GRAND DD DSN=IBMUSE1.MFSY.ZZJA5DEL,DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),
// DCB=(LRECL=80,RECFM=FB)
Am newish at mainframe rexx. When job reruns are necessary, I need my
z/OS REXX to ..
If file exists
delete it
create it
else
create it
end
.. 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'='
"FREE DDN(OUTFILE3)"
say 'I: tried FREE RC='RC'='
"DELETE DDN(OUTFILE3)"
say 'I: tried DELETE RC='RC'='
exit
.. and got ..
I: GRAND='IBMUSE1.MFSY.ZZJA5DEL'=
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
IDC0014I LASTCC=8
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??
Please, thanks
Graham Hobbs
P.S> the file defined via JCL would be ..
//GRAND DD DSN=IBMUSE1.MFSY.ZZJA5DEL,DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),
// DCB=(LRECL=80,RECFM=FB)