/* rexx */
init:
 _ct = substr(translate(time(),'.',':'),1,5) /* Current Time */
 _st = '07.10' /* Switch Time */
 _rt = '07.20' /* Report Time */
 _ft = '07.20' /* Report Time */
 _dm = '??.00' /* Dump Minute */

Calicuate:
 if _ct > _st then
   _st = right(substr(_st,1,2)+24,2,'0') || substr(_st,3)
 if _ct > _rt then
   _rt = right(substr(_rt,1,2)+24,2,'0') || substr(_rt,3)
 if _ct > _ft then
   _ft = right(substr(_ft,1,2)+24,2,'0') || substr(_ft,3)
 _dm = right(substr(_ct,1,2)+1,2,'0') || substr(_dm,3)

MakeCommands:
 _sc = "$TA DS,T=" || _st || ",I=86400,'$VS,''I SMF'''"
 _fc = "$TA DF,T=" || _ft || ",I=86400,'$VS,''F MVSPAS,CPM=00'''"
 _rc = "$TA DR,T=" || _rt || ,
                     ",I=86400,'$VS,''S DUMPKUN,STAPRC=DUMPKUNR'''"
 _dc = "$TA DG,T=" || _dm || ,
                     ",I=03600,'$VS,''S DUMPKUN,STAPRC=DUMPKUNG'''"
"se '--- DUMP-KUN ! SETUP < AUTOMATIC SMF-COLLECTION PROCESS SETUP >'"
"se 'CURRENT TIME : "_ct"      SETUP TIME                           '"
"se 'DUMP START   : "_dm"      CHECK DUMP REQUIRED EVERY HOUR       '"
"se 'DUMP SWITCH  : "_st"      SHIFT NEXT-DAY                       '"
"se 'DUMP REPORT  : "_rt"      REPORTING YESTERDAY STATE            '"
"se 'CMF REFRESH  : "_ft"      FOR HEADMOVE REFRESH !               '"

CommandIssue:
 l.1  = '/*$CA DS'
 l.2  = '/*$CA DR'
 l.3  = '/*$CA DF'
 l.4  = '/*$CA DG'
 l.5  = '/*' || _sc
 l.6  = '/*' || _rc
 l.7  = '/*' || _fc
 l.8  = '/*' || _dc
 l.9  = '/*$TA,ALL'
 l.10 = '//DUMPKUNU JOB CLASS=F,MSGCLASS=1'
 l.11 = '//DUMMY   EXEC PGM=IEFBR14'
'execio 11 diskw intr (finis stem l.'
 exit