Tracy,

You've to be in Class Designer. Try

MODIFY CLASS SysInfo OF ATISysInfo NOWAIT 
ASELOBJ(laObj,1)
oSysInfo = laObj[1]
...

>
>"Feature is only available if the object is in design mode"
>
>when it hits the writemethod line when I run:
>

>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
>