ORG REPORT_TABLE_ENTRY 08380000 REPORT_FIELD_AVAIL DS A 08390059 ORG REPORT_FIELD_AVAIL 08390159 DS XL3 08390462 REPORT_FIELD_INUSE DS X 08390562 REPORT_FIELD_ADDRESS DS A 08391059 REPORT_FIELD_LENGTH DS AL1 08400000 REPORT_KEYWORD_LENGTH DS AL1 08410000 REPORT_KEYWORD_DATA DS CL10 08420000 */*******************************************************************/* 08590000 */* DEFINE MACRO DSECT MAPPING TO MAP THE SMF 84 RECORD */* 08600075 */*******************************************************************/* 08610000 IAZSMF84 SUBTYPE=21 08620001 YREGS 08680000 END SMF84RPT 08690004 MACRO &NAME PERFORM &LABEL,&R GBLA &PRFINDX * AIF ('&LABEL' EQ '').E1 AIF ('&LABEL' EQ 'GENERATE').DEFINE AIF ('&R' EQ 'R').RENT * AIF (&SYSOPT_RENT).RENT &NAME ST 10,F&SYSNDX B PERF&SYSNDX F&SYSNDX DS F PERF&SYSNDX BAL 10,&LABEL L 10,F&SYSNDX AGO .END .RENT ANOP &PRFINDX SETA &PRFINDX+1 &NAME ST 10,F_P#&PRFINDX BAL 10,&LABEL L 10,F_P#&PRFINDX AGO .END .DEFINE ANOP LCLA &N .LOOP ANOP &N SETA &N+1 F_P#&N DS F AIF (&N LT &PRFINDX).LOOP AGO .END .E1 MNOTE 8,'*** LABEL MISSING ***' .END MEND An example of a PERFORM macro that is used by SMF84RPT program to run branches in  program processing that uses GR10 is shown in Example C-5. Example C-5 Sample of PERFORM macro Appendix C. Sample SMF84 Report program  219