Graham Hobbs wrote:
>1. create a new PDS if it's not there
Use SYSDSN(DSN) to check if a dataset is still there or not.
For example, I create a temporary dataset for work using an unique name:
DO FOREVER
DSN=USERID()".TEMP"SUBSTR(TIME(),4,2)""SUBSTR(TIME(),7,2)
IF SYSDSN(DSN) /= 'OK' THEN LEAVE
END
"ALLOC DA("DSN") F(INVOER) NEW SPACE(5) CYLINDERS",
"UNIT(SYSDA) CATALOG LRECL(80) RECFM(F) DSORG(PS)"
Sorry for answering only one question...
Groete / Greetings
Elardus Engelbrecht
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
