form xstrlen using piv_x type x changing pcv_len type i. constants cs_null(1) type x value '00'. pcv_len = xstrlen( piv_x ) - 1. while piv_x+pcv_len(1) eq cs_null. subtract 1 from pcv_len. endwhile. add 1 to pcv_len. endform. " XSTRLEN
Bir Cevap Bırakın