字元 加法 測試

<toptest:/u1/usr/darren> cat a1.4gl
database ds
define l_no like type_file2.chr6

main
  let l_no=1 using '&&&&'
  display l_no
  let l_no=l_no +1 using '&&&&'
  display l_no

end main
<toptest:/u1/usr/darren> fglrun a1
0001
0002