[AS/400] Control Language

下面是一个简单的 CL 例子，转换日期格式：从 Julian 到 MDY，或者反方向转换。

接受两个参数，日期值 IN，目标类型 TYP，将转换后的日期值存入 OUT 中。

PGM (&IN &TYP)DCL &IN  *CHAR 6DCL &OUT *CHAR 8DCL &TYP *CHAR 1IF (&TYP = J) +DOCVTDAT DATE(&IN) TOVAR(&OUT) FROMFMT(*MDY) +TOFMT(*JUL) TOSEP(*NONE)ENDDOELSE IF (&TYP = M) +DOCVTDAT DATE(&IN) TOVAR(&OUT) FROMFMT(*JUL) +TOFMT(*MDY) TOSEP(*NONE)ENDDOSNDPGMMSG MSG('IN=' || &IN || '  OUT=' || &OUT) +MSGTYPE(*COMP)ENDPGM

学习资料

IBM i Control Language, wikipedia

Go 4 AS400

转载于:https://www.cnblogs.com/TonyYPZhang/p/5782498.html

[AS/400] Control Language相关推荐

在CDS（Core Data Services）中使用DCL（Data Control Language）
最近,我在玩ABAP CDS视图,并且遇到了一些权限方面的挑战.我在网上没看到有多少有关CDS开发的文档,因为它是个相当新的东西.因此,我决定写下这篇博客,也许我的想法可以帮助到一些人. 和你已经意识 ...
SAP smartforms之Zebra print control language
因为在做个小标签的时候需要将部分字符旋转180度,在scn上找了很久也发布了自己的提问,不过最终的结果却不尽人意.Rotated text in smartforms need use the PCL ...
mysql数据控制语言_mysql数据控制语言DCL（Data Control Language）-数据库
编辑推荐: 本文来自于网络,主要介绍了mysql数据控制语言DCL的创建.删除.修改用户密码.授予权限等代码编写. #创建用户 create user '用户名'@'允许登录的地址' identifi ...
mysql数据控制语言_Mysql数据控制语言DCL（Data Control Language）
1.Mysql中的用户管理: Mysql中的用户,存储在系统数据库mysql中的user表中,表初始内容只有localhost-----root用户. 创建用户: Create user '用户名'@ ...
第五章事务控制语言（Transaction Control Language，TCL）
事务事务由单独单元的一个或多个SQL语句组成,在这个单元中,每个MySQL语句是相互依赖的.而整个单独单元作为一个不可分割的整体,如果单元中某条SQL语句一旦执行失败或产生错误,整个单元将会回滚.所 ...
MySQL - 04.数据控制语言（Data Control Language，DCL）
1.事务:一条或多条SQL语句组成的一个执行单位,这组SQL语句要么都执行,要么都不执行. 2.事务的特点:A(原子性),C(一致性),I(隔离性),D(持久性). 3.事务的并发问题:脏读.不可重复 ...
AS/400 初级培训课程
AS/400 CL 控制语言初步课程大纲: * 第一章概述 * 第二章 CL 编程 * 第三章程序间的通讯 * 第四章测试功能第一章概述提要: * CL 命令的作用 * CL 命令的分 ...
language mysql_MySql 语言的分类;
DQL (Database Query Language) SELECT column_name, column_name2 FROM table_name WHERE clause=1; 基础查询 ...
mysql+control+user_mysql的基本使用
用root账号管理其他用户 #创建用户 mysql> create user 'jasonhz'@'localhost' identified by '123456'; #给用户授权 mysql ...

[AS/400] Control Language

[AS/400] Control Language相关推荐

最新文章

热门文章