1*cdf0e10cSrcweir/* os2 build scripts 2*cdf0e10cSrcweir 3*cdf0e10cSrcweirwill return a 8.3 conformant name for modname. 4*cdf0e10cSrcweir 5*cdf0e10cSrcweir21/02/2006 Actually this is a simple truncation, seems nothing more needed. 6*cdf0e10cSrcweir 7*cdf0e10cSrcweir*/ 8*cdf0e10cSrcweir 9*cdf0e10cSrcweirparse arg modname 10*cdf0e10cSrcweirif pos('.',modname)>0 then modname = left(modname, pos('.',modname)-1) 11*cdf0e10cSrcweirsay strip(left(modname,8)) 12