H DATEDIT(*YMD/) DFTACTGRP(*NO) D wk1 s 10a VARYING D wk2 s 20a VARYING * C* /Free wk1 = 'MOE' ; wk2 = 'ABC@' + wk1 + '@DEF' ; dsply wk2 ; *inlr = *on ; return ; /End-free
IBM Power Systems AS/400 iSeries ¤Ë´Ø¤¹¤ë³Ð¤¨½ñ¤¤Ê¥Ú¡¼¥¸¤Ç¤¹¡£
H DATEDIT(*YMD/) DFTACTGRP(*NO) D wk1 s 10a VARYING D wk2 s 20a VARYING * C* /Free wk1 = 'MOE' ; wk2 = 'ABC@' + wk1 + '@DEF' ; dsply wk2 ; *inlr = *on ; return ; /End-free
¤³¤Î¥Ú¡¼¥¸¤Ø¤Î¥³¥á¥ó¥È
YhtTwC I really like and appreciate your article.Really thank you! Keep writing.
nn1h8l Muchos Gracias for your post.Thanks Again. Really Great.