alloc.0 = "NEW CATALOG UNIT(SYSDA) SPACE(5 5) TRACKS", "RECFM(V B) LRECL(32760) BLKSIZE(0)" alloc.1 = "SHR" /* if it already exists... */ tempstat = Sysdsn(outdsn) = "OK" |, /* 1=exists, 0=missing */ Sysdsn(outdsn) = "MEMBER NOT FOUND" "ALLOC FI($TMP) DA("outdsn") REU" alloc.tempstat