怎样获取字符串的后几位（rpgle）-seraph0019-ChinaUnix博客

seraph0019的ChinaUnix博客seraph.blog.chinaunix.net

首页　| 　博文目录　| 　关于我

seraph0019

博客访问： 99539
博文数量： 64
博客积分： 60
博客等级：民兵
技术积分： 335
用户组：普通用户
注册时间： 2010-03-26 17:23

文章分类

全部博文（64）

文章存档

2012年（64）

我的朋友

最近访客

推荐博文

怎样获取字符串的后几位（rpgle）

分类：

2012-04-11 17:31:05

原文地址：怎样获取字符串的后几位（rpgle）作者：pantierui

D AEPROD          S              5    INZ('12345')
D AESUB           S              2    INZ(*BLANK)
C*
C                   Z-ADD     *ZERO         WKLEN             2 0
C     ' '           CHECKR    AEPROD        WKLEN
C                   SUB       1             WKLEN
C                   EVAL      AESUB=%SUBST(AEPROD:WKLEN:2)
C     AESUB         DSPLY
C*
C                   SETON                                        LR
C                   RETURN

阅读(582) | 评论(0) | 转发(0) |

上一篇：【AS/400】Data queue对spooled files支持

下一篇：Commit/Rollback

给主人留下些什么吧！~~

感谢所有关心和支持过ChinaUnix的朋友们

16024965号-6