ZBlog学习笔记

DATA: t(10)   VALUE '2022/4/6',
      string  LIKE t,
      str1(4) VALUE 'cdef',
      str2(4) VALUE 'klmn',
      str3(2) VALUE 'kl',
      str4(6) VALUE 'klmnop',
      len     TYPE i VALUE 2.
string = t.
len = strlen( t ).
WRITE len.
WRITE string.
DO len TIMES.
  REPLACE '/' WITH '.' INTO string.
ENDDO.

WRITE / string.