免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 操作系统 › AS400 › 求救：哪位大虾知道movel和movel(p)的不同啊？
12下一页
最近访问板块 发新帖
查看: 7367 | 回复: 13
打印 上一主题 下一主题

求救：哪位大虾知道movel和movel(p)的不同啊？ [复制链接]

chenxiulan

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2007-04-20 14:40 |只看该作者 |倒序浏览
哪位大虾知道movel和movel(p)的不同啊？
sjbao

论坛徽章:
0
2楼 [报告]
发表于 2007-04-21 13:49 |只看该作者
舉例說明！图 270. MOVEL：变长字段至变长字段


*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....
DName++++++++++ETDsFrom+++To/L+++IDc.Functions+++++++++++++++++++
     D*
D* Example of MOVEL from variable to variable length
D* for character fields
     D*
D var5a          S              5A   INZ('ABCDE') VARYING
D var5b          S              5A   INZ('ABCDE') VARYING
D var5c          S              5A   INZ('ABCDE') VARYING
D var10          S             10A   INZ('0123456789') VARYING
D var15a         S             15A   INZ('FGH') VARYING
D var15b         S             15A   INZ('FGH') VARYING
     D*
     D*
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiL
C*
C                   MOVEL     var15a        var5a
C* var5a = 'FGHDE' (length=5)
C                   MOVEL     var10         var5b
C* var5b = '01234' (length=5)
C                   MOVEL     var5c         var15a
C* var15a = 'ABC' (length=3)
C                   MOVEL     var10         var15b
C* var15b = '012' (length=3)
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
sjbao

论坛徽章:
0
3楼 [报告]
发表于 2007-04-21 13:50 |只看该作者
图 271. MOVEL：变长字段至固定长度字段


*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....
DName++++++++++ETDsFrom+++To/L+++IDc.Functions+++++++++++++++++++
     D*
D* Example of MOVEL from variable to fixed length
D* for character fields
     D*
D var5           S              5A   INZ('ABCDE') VARYING
D var10          S             10A   INZ('0123456789') VARYING
D var15          S             15A   INZ('FGH') VARYING
D fix5a          S              5A   INZ('MNOPQ')
D fix5b          S              5A   INZ('MNOPQ')
D fix5c          S              5A   INZ('MNOPQ')
D fix10          S             10A   INZ('')
     D*
     D*
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiL
C*
C                   MOVEL     var5          fix5a
C* fix5a = 'ABCDE'
C                   MOVEL     var10         fix5b
C* fix5b = '01234'
C                   MOVEL     var15         fix5c
C* fix5c = 'FGHPQ'
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
sjbao

论坛徽章:
0
4楼 [报告]
发表于 2007-04-21 13:52 |只看该作者
图 272. MOVEL：固定长度字段至变长字段


*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....
DName++++++++++ETDsFrom+++To/L+++IDc.Functions+++++++++++++++++++
     D*
D* Example of MOVEL from fixed to variable length
D* for character fields
     D*
D var5           S              5A   INZ('ABCDE') VARYING
D var10          S             10A   INZ('0123456789') VARYING
D var15a         S             15A   INZ('FGHIJKLMNOPQR') VARYING
D var15b         S             15A   INZ('WXYZ') VARYING
D fix10          S             10A   INZ('PQRSTUVWXY')
     D*
     D*
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiL
C*
C                   MOVEL     fix10         var5
C* var5 = 'PQRST' (length=5)
C                   MOVEL     fix10         var10
C* var10 = 'PQRSTUVWXY' (length=10)
C                   MOVEL     fix10         var15a
C* var15a = 'PQRSTUVWXYPQR' (length=13)
C                   MOVEL     fix10         var15b
C* var15b = 'PQRS' (length=4)
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
sjbao

论坛徽章:
0
5楼 [报告]
发表于 2007-04-21 13:55 |只看该作者
图 273. MOVEL(P)：变长字段至变长字段


*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....
DName++++++++++ETDsFrom+++To/L+++IDc.Functions+++++++++++++++++++
     D*
D* Example of MOVEL(P) from variable to variable length
D* for character fields
     D*
D var5a          S              5A   INZ('ABCDE') VARYING
D var5b          S              5A   INZ('ABCDE') VARYING
D var5c          S              5A   INZ('ABCDE') VARYING
D var10          S             10A   INZ('0123456789') VARYING
D var15a         S             15A   INZ('FGH') VARYING
D var15b         S             15A   INZ('FGH') VARYING
D var15c         S             15A   INZ('FGHIJKLMN') VARYING
     D*
     D*
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiL
C*
C                   MOVEL(P)  var15a        var5a
C* var5a = 'FGH  ' (length=5)
C                   MOVEL(P)  var10         var5b
C* var5b = '01234' (length=5)
C                   MOVEL(P)  var5c         var15b
C* var15b = 'ABC' (length=3)
C                   MOVEL(P)  var15a        var15c
C* var15c = 'FGH      ' (length=9)
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
sjbao

论坛徽章:
0
6楼 [报告]
发表于 2007-04-21 13:55 |只看该作者
图 274. MOVEL(P)：变长字段至固定长度字段


*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....
DName++++++++++ETDsFrom+++To/L+++IDc.Functions+++++++++++++++++++
     D*
D* Example of MOVEL(P) from variable to fixed length
D* for character fields
     D*
D var5           S              5A   INZ('ABCDE') VARYING
D var10          S             10A   INZ('0123456789') VARYING
D var15          S             15A   INZ('FGH') VARYING
D fix5a          S              5A   INZ('MNOPQ')
D fix5b          S              5A   INZ('MNOPQ')
D fix5c          S              5A   INZ('MNOPQ')
     D*
     D*
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiL
C*
C                   MOVEL(P)  var5          fix5a
C* fix5a = 'ABCDE'
C                   MOVEL(P)  var10         fix5b
C* fix5b = '01234'
C                   MOVEL(P)  var15         fix5c
C* fix5c = 'FGH  '




图 275. MOVEL(P)：固定长度字段至变长字段


*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....
DName++++++++++ETDsFrom+++To/L+++IDc.Functions+++++++++++++++++++
     D*
D* Example of MOVEL(P) from fixed to variable length
D* for character fields
     D*
D var5           S              5A   INZ('ABCDE') VARYING
D var10          S             10A   INZ('0123456789') VARYING
D var15a         S             15A   INZ('FGHIJKLMNOPQR') VARYING
D var15b         S             15A   INZ('FGH') VARYING
D fix5           S             10A   INZ('.....')
D fix10          S             10A   INZ('PQRSTUVWXY')
     D*
     D*
CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiL
C*
C                   MOVEL(P)  fix10         var5
C* var5 = 'PQRST' (length=5)
C                   MOVEL(P)  fix5          var10
C* var10 = '.....     ' (length=10)
C                   MOVEL(P)  fix10         var15a
* var15a = 'PQRSTUVWXY   ' (length=13)
C                   MOVEL(P)  fix10         var15b
C* var15b = 'PQR' (length=3)
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
chenxiulan

论坛徽章:
0
7楼 [报告]
发表于 2007-04-23 09:44 |只看该作者
谢谢楼上的大虾，小女受益匪浅！
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
treeyiki

论坛徽章:
0
8楼 [报告]
发表于 2011-11-04 12:23 |只看该作者
不是太懂，可不可以简单概括以下？感激不尽！
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
roden

论坛徽章:
0
9楼 [报告]
发表于 2011-11-04 16:09 |只看该作者
L是指左对齐，P是补空格
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
treeyiki

论坛徽章:
0
10楼 [报告]
发表于 2011-11-04 17:10 |只看该作者
左对齐，然后剩下的补空格？
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP