MODIFY CLASS SysInfo OF ATISysInfo NOWAIT ASELOBJ(laObj,1) oSysInfo = laObj[1] ...>
>oSysInfo = NEWOBJECT('SysInfo', 'ATISysInfo.vcx') >SELE sysinfobld >SCAN > IF !EMPTY(sysinfobld.csubitem) .and. LEN(ALLTRIM(sysinfobld.csubitem)) > 0 > mvalue = ALLTRIM(STRTRAN(sysinfobld.csubitem,CHR(32),'')) > IF !PEMSTATUS(oSysInfo,mvalue,5) > ADDPROPERTY(oSysInfo,mvalue,'') > ENDIF > IF PEMSTATUS(oSysInfo,mvalue,5) > oSysInfo.WRITEMETHOD(mvalue,sysinfobld.mmethod) > ENDIF > ENDIF >ENDSCAN >