>valyear=1985 >*PARAMETER valyear > >PRIVATE xreturn, stryear >xreturn = ' ' > >*---Store with the new method if the century is included > >IF TYPE('valyear') = 'N' > stryear = TRANS(valyear,'@L 9999') > > IF LEFT(stryear,2) = '00' > xreturn = TRANS(valyear,"99") > ELSE > xreturn = CHR(VAL(LEFT(stryear,2))+58) + CHR(VAL(RIGHT(stryear,2))+33) > ENDIF >ENDIF > >RETURN xreturn >>TIA,