IBM Power Systems AS/400 iSeries ¤Ë´Ø¤¹¤ë³Ð¤¨½ñ¤­¤Ê¥Ú¡¼¥¸¤Ç¤¹¡£

ILE-RPG¤Ç²ÄÊÑĹÊÑ¿ô¤ò»È¤¦

ILE-RPG¤«¤é²ÄÊÑĹÊÑ¿ô¤ò»È¤Ã¤¿¥µ¥ó¥×¥ë¤Ç¤¹¡£

TP02.rpgle

     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 

¼Â¹Ô·ë²Ì

 DSPLY  ABC@MOE@DEF       
 DSPLY  ABC@MOE       @DEF
£±²óÌܤÎDSPLY¤Ïwk1¤ËVARYING»ØÄêÍ­¤ê¡¢£²²óÌܤÎDSPLY¤ÏVARYING»ØÄê¤Ê¤·¤Ç¤¹¡£

¤³¤Î¥Ú¡¼¥¸¤Ø¤Î¥³¥á¥ó¥È

YhtTwC I really like and appreciate your article.Really thank you! Keep writing.

0
Posted by awesome things! 2014ǯ01·î23Æü(ÌÚ) 05:09:26 ÊÖ¿®

nn1h8l Muchos Gracias for your post.Thanks Again. Really Great.

0
Posted by watch for this 2013ǯ12·î21Æü(ÅÚ) 08:28:22 ÊÖ¿®

¥³¥á¥ó¥È¤ò¤«¤¯


¡Öhttp://¡×¤ò´Þ¤àÅê¹Æ¤Ï¶Ø»ß¤µ¤ì¤Æ¤¤¤Þ¤¹¡£

ÍøÍѵ¬Ìó¤ò¤´³Îǧ¤Î¤¦¤¨¤´µ­Æþ²¼¤µ¤¤

WikiÆ⸡º÷

Menu

¤³¤³¤Ï¼«Í³¤ËÊÔ½¸¤Ç¤­¤ë¥¨¥ê¥¢¤Ç¤¹¡£

¥á¥ó¥Ð¡¼¤Î¤ßÊÔ½¸¤Ç¤­¤Þ¤¹