/* @DIRSTAT --mstatus of member currently in edit */
/* SPF2\@DIRSTAT.spf-- D.McRitchie -- 1993/05/14 rev. 1993/05/14*/
address 'ISREDIT';'macro'; '(DATASET) = DATASET'; stem.=""
"(MEMBER) = MEMBER"
parse version v1 v2 v3 v4 v5
if v1 /= "REXXSAA" then do
   /************ code added to work on SPF/PC without OS/2 */
   stem.1 = dataset
end
else do
   Call RxFuncAdd "SysFileTree", "REXXUTIL", "SysFileTree";
   rc = SysFileTree(dataset,'stem','BS')
end
"line_before .zf = noteline ",
     "'----Modified----       Bytes  Tags   Dataset'"
"line_before .zf = noteline (stem.1)"
"(VAR014A) = DATA_CHANGED"

if v1 = "REXX/2" then do    /* rxqueue  not available*/
   tempname = "c:\temp\drst"||random(9999)
   Address "CMD" "dir" member
    /*  -n parm for dir not being accepted*/
   Address "CMD" "dir" member ">" tempname
   inpath = stream(tempname,"C","QUERY EXIST")
   /* address "CMD" "spfpc" tempname "/E"  */
   i=pos('.',member)
   memberx = left(substr(member,1,i-1),9)||substr(memberx,i+1)
   do while lines(tempname) > 0
      text = linein(tempname)
      i=pos(translate(memberx),translate(text))
      if i> 0 then leave
   end
   "line_before .zf   = noteline (text)"
   inpath = stream(tempname,"C","CLOSE")
   address "CMD" "del" tempname
   "up 3"
end

if VAR014A = "NO" then do
   changed = "-- Data Unchanged"
end
else do
   changed = "-- Data Changed"
end
IF VAR014A = "YES" THEN
   " line_before .zf = NOTELINE """||,
     "========Data-Changed=============================",
     ||"=DATA-CHANGED="CHG""""
ELSE
  " line_before .zf = NOTELINE """||,
    "===========================================================",
    ||"================="""
/********* WARNING this version is for OS2 only not for TSO ****/
if Var014a = "NO"
   then zedsmsg = 'data unchanged '
   else zedsmsg = 'CHANGED data present   '
'ISPEXEC' 'SETMSG MSG(ISRZ000)'
/********* WARNING this version is for OS2 only not for TSO ****/