You could use ICETOOL to check for an empty dataset. //PSTEP050 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //TOOLIN DD * COPY FROM(DD01) TO(DD01O) COUNT FROM(DD01) EMPTY /* //DD01 DD DSN=input //DD01O DD DSN=output
If the input is empty will get a return code of 12. Jerry ---------------------------------------------------------------------- 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
