01 TPSVCRET-REC. COPY TPSVCRET. 01 TPTYPE-REC. COPY TPTYPE. 01 DATA-REC. COPY User data. 01 TPSTATUS-REC. COPY TPSTATUS. COPY TPRETURN REPLACING TPSVCRET-REC BY TPSVCRET-REC TPTYPE-REC BY TPTYPE-REC DATA-REC BY DATA-REC T PSTATUS-REC BY TPSTATUS-REC....
(①参照)原則上、不使用 REPLACING 句。(②参照) TALLYING(和不得不使用的 REPLACING)换行缩进 2 格开始书写。 INSPECT WK-SANP1 ① TALLYING CNT-1 FOR ALL “A“ BEFORE INTIAL “B“② REPLACING LEADING “C“ BY “D“ ←REPLACING 句は原則使用禁止 AFTER INTIAL “E“ (11) SEARCH 命令原則上...