Code: |
/* Rexx Macro to get no of records in Dataset */
ADDRESS ISREDIT 'MACRO NOPROCESS' IF RC > 0 THEN EXIT 12 ELSE DO "ISREDIT (cnt) = LINENUM .ZLAST" ZERRSM='' ZERRALRM='YES' ZERRHM='*' zerrlm = 'No of records: ' cnt ADDRESS ISPEXEC 'SETMSG MSG(ISRZ002)' END EXIT 0 |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours