/* rexx */
 parse arg rcflg .
 _dt = translate(date())
 o.1 = _dt
"execio 1 diskru chkf (stem i."
 _od = strip(i.1)
"execio 1 diskw chkf (stem o."
 "se '>>> HIDUKE-CHECK --- FOR DUMP-KUN !!'"
 "se '>>> OLD DATE IS "_od"'"
 "se '>>> NEW DATE IS "_dt"'"
 select
   when rcflg = 'KYOUSEI' then
     _rc = 0
   when _od = _dt then
     _rc = 8
   otherwise
     _rc = 0
 end
 if _rc = 0 then
  "se '>>> OK : EXECUTE DUMPKUNR .'"
 else
  "se '>>> NG : KYOU-HA 2 KAIME .'"
 say _rc
 exit _rc