//SBJGRS87 JOB CLASS=U,NOTIFY=&SYSUID.,                                 00001002
//          MSGLEVEL=(1,1),LINES=200000,                                00020003
//          SYSTEM=*                                                    00021003
//*                                                                     00030000
//*-------------------------------------------------------------------- 00040000
//* ==> SET SMFOUT TO SMF WORK DATASET NAME                             00050000
//* ==> SET REPOUT TO REPORT DATASET NAME                               00060000
//*-------------------------------------------------------------------- 00070000
//       EXPORT SYMLIST=(SMFOUT,REPOUT)                                 00071008
//SET1    SET  SMFOUT=SBJ.DOSSANT.READSMF.WRK                           00080000
//SET2    SET  REPOUT=SBJ.DOSSANT.SMF87.GRSENQ.REPORT                   00090012
//*-------------------------------------------------------------------- 00100000
//* ==> DELETE WORK AND REPORT DATASETS                                 00110000
//*-------------------------------------------------------------------- 00120000
//KILL01   EXEC PGM=IDCAMS                                              00130000
//SYSPRINT DD SYSOUT=*                                                  00140007
//SYSIN DD *,SYMBOLS=JCLONLY                                            00141007
 DELETE &SMFOUT.                                                        00150007
 DELETE &REPOUT.                                                        00160012
 SET MAXCC=0                                                            00170000
/*                                                                      00180000
//*-------------------------------------------------------------------- 00190000
//* ==> START ISPF AND EXECUTE THE REXX                                 00200000
//*-------------------------------------------------------------------- 00210000
//READSMF   EXEC  PGM=IKJEFT01,REGION=0M                                00220000
//*                                                                     00230000
//ISPPROF  DD UNIT=SYSDA,SPACE=(TRK,(9,1,4)),                           00240000
//  DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DSORG=PO),                      00250000
//  DISP=(NEW,PASS)                                                     00260000
//*                                                                     00270000
//*-------------------------------------------------------------------- 00280000
//ISPMLIB  DD DISP=SHR,DSN=SYS1.ISP.SISPMENU                            00290000
//         DD DISP=SHR,DSN=SYS1.ISF.SISFMLIB                            00300000
//ISPPLIB  DD DISP=SHR,DSN=SYS1.ISP.SISPPENU                            00310000
//         DD DISP=SHR,DSN=SYS1.ISF.SISFPLIB                            00320000
//ISPSLIB  DD DISP=SHR,DSN=SYS1.ISP.SISPSENU                            00330000
//*        DD DISP=SHR,DSN=SYS1.ISF.SISFSLIB                            00340002
//ISPTLIB  DD DISP=SHR,DSN=SYS1.ISP.SISPTENU                            00350000
//         DD DISP=SHR,DSN=SYS1.ISF.SISFTLIB                            00360000
//ISPLOG   DD DUMMY                                                     00370000
//* ---------------------------------------------------------------     00380000
//* ==> DUMPIN: SMF DATASET                                             00390000
//* ==> SYSIN:  RECORD TYPE, DAY AND TIME SELECTION                     00400000
//* ---------------------------------------------------------------     00410000
//DUMPIN1  DD DISP=SHR,DSN=SBJ.DOSSANT.D150405X.V22.D200K.SMF,          00420006
//  DCB=(LRECL=32756,BLKSIZE=32760,RECFM=VB,DSORG=PS)                   00420106
//         DD DISP=SHR,DSN=SBJ.DOSSANT.D150405Y.V22.D200K.SMF,          00421010
//  DCB=(LRECL=32756,BLKSIZE=32760,RECFM=VB,DSORG=PS)                   00421110
//         DD DISP=SHR,DSN=SBJ.DOSSANT.D150405Z.V22.D200K.SMF,          00422010
//  DCB=(LRECL=32756,BLKSIZE=32760,RECFM=VB,DSORG=PS)                   00423010
//DUMPOUT   DD    DISP=(,PASS),SPACE=(CYL,(800,200)),UNIT=SYSDA,        00430000
//          DSN=&&DP                                                    00440009
//SYSIN     DD    *                                                     00450000
INDD(DUMPIN1,OPTIONS(DUMP))                                             00460000
OUTDD(DUMPOUT,TYPE(87))                                                 00470000
/*                                                                      00471000
//*                                                                     00472000
//* DATE(2013334,2013334)                                               00480000
//* START(0000)                                                         00490000
//* END(0100)                                                           00500000
//*-------------------------------------------------------------------- 00520000
//SYSEXEC   DD    DISP=SHR,DSN=SBJ.EXEC                                 00530000
//WORKSMF   DD    DSN=&SMFOUT,                                          00540000
//  DCB=(LRECL=32756,BLKSIZE=32760,RECFM=VB,DSORG=PS),                  00550000
//  DISP=(NEW,CATLG),                                                   00560000
//  STORCLAS=SCTEMP,                                                    00570001
//  SPACE=(CYL,(800,200),RLSE)                                          00580013
//OUTDS     DD    DSN=&REPOUT,                                          00590000
//  DCB=(LRECL=800,BLKSIZE=31200,RECFM=FB,DSORG=PS),                    00600000
//  DISP=(NEW,CATLG),                                                   00610000
//  STORCLAS=SCLARGE,                                                   00620001
//  SPACE=(CYL,(2500,250),RLSE),VOL=(,,,8),DSNTYPE=EXTPREF              00630013
//SYSTSPRT  DD    SYSOUT=*                                              00640000
//SYSPRINT  DD    SYSOUT=*                                              00650000
//*-------------------------------------------------------------------- 00660000
//* OPTIONS FOR GRS87RPT EXEC INCLUDE TEST, TIMES, DLM(,) AND SCOPE(#)  00661014
//*    WHERE DLM(C) SETS A DELIMITER CHAR BETWEEN COLS AND              00662014
//*      AND SCOPE(#) FILTERS ON SCOPE 1=STEP, 2=SYSTEM, 3=SYSTEMS      00663014
//SYSTSIN   DD    *                                                     00670000
  EX 'SBJ.EXEC(GRS87RPT)' 'TEST TIMES'                                  00680014
/*                                                                      00690000