The REXX procedure S113RPT reads the SMF dataset and produces a first result file containing the collected HIS counters. The problem is that the EXECIO function of REXX is only able to read a general SMF dataset with record format VBS from z/OS 2.1 on. If you are running on an earlier release you must first convert a SMF dataset with VBS format to a dataset with VB format. There are various possibilities on how to do this. The execution step below uses the IDCAMS REPRO function to do that but you can use any kind of program.
//**** SET INPUT OUTPUT DATASETS
//
SET INPDS=<smf dataset in VBS format>
//
SET OUTDS=<smf dataset in VB format>
//**** DELETE OUTPUT DATASET
***************************************
//DEL
EXEC PGM=IEFBR14
//OUTDS
DD DSN=&OUTDS.,
//
UNIT=SYSALLDA,SPACE=(TRK,(1)),DISP=(MOD,DELETE)
//**** COPY SMF VBS DATASET TO VB DATASET
**************************
//IDCAMS
EXEC PGM=IDCAMS,REGION=8M
//SYSIN DD *
REPRO INFILE(SMFVBS) OUTFILE(OUTSMF) ERRORLIMIT(999999)
//SYSPRINT DD SYSOUT=*
//SMFVBS
DD DISP=SHR,DSN=&INPDS.
//OUTSMF
DD UNIT=SYSALLDA,SPACE=(CYL,(2000,2000),RLSE),
//
DISP=(NEW,CATLG),
//
DCB=(RECFM=VB,LRECL=32756,BLKSIZE=0),
//
DSN=&OUTDS.