ISREDIT MACRO /* purpose: facilitate removal of unused declarations */ /* programmer: David McRitchie, "The REXX Macros Toolbox", 1990/06/27 */ /* */ /* this clist will sort the pli attributes and references list */ /* by declaration number (line number order) */ /* directions for use */ /* 1. SNAP PLI compilation list into a dataset */ /* 2. Run the PLIDCLS clist on the disposable dataset created */ /* 3. use ==> @VP systech or whatever to print listing*/ ISREDIT f first 'attribute and cross-reference' IF &LASTCC. ^= 0 THEN EXIT CODE(0) ISREDIT del .zf .zcsr ISREDIT f first 'aggregate length table' IF &LASTCC. ^= 0 THEN EXIT CODE(0) ISREDIT del .zcsr .zl ISREDIT x all ISREDIT f 2 5 p'@' all ISREDIT del nx all ISREDIT f 2 '#'p all ISREDIT reformat nx entire 1 1 '0' 2 140 ISREDIT x 10 p'#' all ISREDIT c all nx '0' 2 '00' ISREDIT x 10 p'#' all ISREDIT c all nx '0' 2 '00' ISREDIT x 10 p'#' all ISREDIT c all nx '0' 2 '00' ISREDIT x 10 p'#' all ISREDIT c all nx '0' 2 '00' ISREDIT x 10 p'#' all ISREDIT c all nx '0' 2 '00' ISREDIT x 10 p'#' all ISREDIT c all nx '0' 2 '00' ISREDIT x 10 p'#' all ISREDIT c all nx '0' 2 '00' ISREDIT f 2 '0' all ISREDIT reformat nx entire 1 1 3 140 ISREDIT x 10 p'#' all ISREDIT f 2 p'^' all ISREDIT sortg 2 9 .zf .zl