RPG·¡¡¤«¤ó¤¿¤ó¤ÊCRUD¤Î¥µ¥ó¥×¥ë¤Ç»ÈÍѤ·¤¿ÊªÍý¥Õ¥¡¥¤¥ë¤ÎÆâÍƤò°õºþ¤¹¤ë¥×¥í¥°¥é¥à¤Ç¤¹¡£
°õºþÁõÃÖ¥Õ¥¡¥¤¥ë(PRTF)¤òÍѤ¤¤ÆĢɼ¤òºîÀ®¤·¤Æ¤¤¤Þ¤¹¡£
°õºþÁõÃÖ¥Õ¥¡¥¤¥ë(PRTF)¤òÍѤ¤¤ÆĢɼ¤òºîÀ®¤·¤Æ¤¤¤Þ¤¹¡£
A INDARA A REF(EX0020P) A R HDR A SKIPB(001) A 8DATE A EDTCDE(Y) A 60'EX0020P¥ê¥¹¥È' A 120'PAGE.' A 127PAGNBR A EDTCDE(Z) A 4'¥³¡¼¥É' A SPACEB(002) A 18'̾¾Î' A 42'²Á³Ê' A 6'---' A SPACEB(001) A 11'--------------------' A 33'-------------------------' A R DTL A EX2010 R 6 A SPACEB(001) A EX2020 R 11 A EX2030 R 33EDTCDE(J) A R TTL A 6'---' A SPACEB(001) A 11'--------------------' A 33'-------------------------' A 4'¹ç·×' A SPACEB(002) A TTLCNT 4S 0 20EDTCDE(J) A 27'·ï' A TTL030 19S 0 33EDTCDE(J)
H Y/ 1 FEX0020P IF E K DISK FEX0031P O E 60 PRINTER C* C SETON 60 C Z-ADD*ZERO TTLCNT ·ï¿ô C Z-ADD*ZERO TTL030 ¹ç·×¶â³Û C* C DO *HIVAL C READ EX2R 99 C 99 LEAVE C 60 WRITEHDR ¸«½Ð¤·°õºþ C 60 SETOF 60 C WRITEDTL ÌÀºÙ°õºþ C ADD 1 TTLCNT ·ï¿ô¥«¥¦¥ó¥È C ADD EX2030 TTL030 ¶â³Û²Ã»» C ENDDO C WRITETTL ¹ç·×°õºþ C* C SETON LR C RETRN
¤³¤Î¥Ú¡¼¥¸¤Ø¤Î¥³¥á¥ó¥È
KdJtuM Major thanks for the article post.
zxpKEp Looking forward to reading more. Great blog post.Really looking forward to read more.