I don't know the detail of what your module does, but you can do the same thing with IEBPTPCH. Set the SYSIN to PUNCH MAXFLDS=1 and if the dataset is empty the RC=4; if it contains data the RC=0.
---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
