//jobname JOB DFHMABRP,'DFHMABRP',CLASS=A,MSGCLASS=X TYPRUN=SCAN
//*********************************************************************
//* @START_COPYRIGHT@
//*
//* 5655-M15
//*
//* CICS SERVICE FLOW RUNTIME
//*
//* @END_COPYRIGHT@
//*********************************************************************
//*********************************************************************
//* RUN DFHBARUP (REPOSITORY UTILITY PROGRAM)
//*
//*********************************************************************
//ARUP EXEC PGM=DFHBARUP,PARM='N(EN),P(60),T(M)'
//STEPLIB DD DSN=hlcicsq.SCIZLOAD,DISP=SHR
//*********************************************************************
//* The output will go to SYSPRINT
//*********************************************************************
//SYSPRINT DD SYSOUT=X,DCB=RECFM=FBA
//REPOS DD DISP=SHR,DSN=hlq.BTS
//SYSIN DD *
REPOSITORY(REPOS)
/*
//