Code: |
//********************************************************************* //* SETS RC=0000 IF DATASET HAS RECORDS * //* SETS RC=0004 IF DATASET IS EMPTY * //********************************************************************* //EMPTY EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //FILE01 DD DSN=YOUR FILE IN QUESTION, // DISP=SHR //SYSIN DD * PRINT INFILE(FILE01) CHARACTER COUNT(1) //* //SENDMESG EXEC PGM=IKJEFT01,COND=(4,EQ,EMPTY) //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * SE 'RECORDS CREATED' U(USERID) /* |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours