LPARAMETERS vNewVal LOCAL lcFileName, lcProgramName IF m.vNewVal = 0 lcFileName = 'c:\jobidzeroed' + '_' + STRTRAN(DTOC(DATE()), '/', '') + '_' + STRTRAN(TIME(), ':', '') + '.txt' lcProgramName = PROGRAM(PROGRAM(-1) - 1) STRTOFILE(ALLTRIM(STR(THIS.pnrunningjobid)) + ', ' + lcProgramName, lcFileName) ENDIF THIS.pnrunningjobid = m.vNewValas you can see I want to create a file when pnrunningjobid gets set to zero.
>#define CRLF CHR(13)+CHR(10) > >****MyProperty_Assign method: >LPARAMETERS tAssign >LOCAL aStck[1] >ASTACKINFO(aStck) >lcStr = CRLF+[New value ] + TRANSFORM(tAssign) >FOR lnFor = 1 TO ALEN(aStck,1) > lcStr = lcStr + CRLF +; > [Stack Level ] + TRANSFORM(aStck[lnFor,1])+CRLF+; > [Current program ] + TRANSFORM(aStck[lnFor,2])+CRLF+; > [Object ] + TRANSFORM(aStck[lnFor,3])+CRLF+; > [Object source ] + TRANSFORM(aStck[lnFor,4])+CRLF+; > [Line number ] + TRANSFORM(aStck[lnFor,5])+CRLF+; > [in the source ] + TRANSFORM(aStck[lnFor,6]) >NEXT >STRTOFILE(lcStr, [c:\TestLog.log], 1) >>(not tested)