[AS/400] Control Language

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

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

PGM (&IN &TYP)

   DCL &IN  *CHAR 6
   DCL &OUT *CHAR 8
   DCL &TYP *CHAR 1

   IF (&TYP = J) +
      DO
         CVTDAT DATE(&IN) TOVAR(&OUT) FROMFMT(*MDY) +
                TOFMT(*JUL) TOSEP(*NONE)
      ENDDO

   ELSE IF (&TYP = M) +
      DO
         CVTDAT DATE(&IN) TOVAR(&OUT) FROMFMT(*JUL) +
                TOFMT(*MDY) TOSEP(*NONE)
      ENDDO

   SNDPGMMSG MSG(‘IN=‘ || &IN || ‘  OUT=‘ || &OUT) +
             MSGTYPE(*COMP)

ENDPGM

学习资料

IBM i Control Language, wikipedia

Go 4 AS400

时间： 2024-12-15 16:14:19

[AS/400] Control Language的相关文章

[AS/400] Control Language(CL) 基本概念

本文内容源于 Go4AS400 简介 AS400 Control Language(CL) 是由指令(Command)组合而成,用于控制操作和调用系统功能.在 CL 程序中,指令用于和系统 OS400 进行交互. 以下是 CL 程序的主要功能 可以交互式地调用,也可以在批量模式下调用程序 决定程序的调用顺序 处理文件和其他对象(objects) 监控所有类型的消息 在不同的任务之间通信 改变对象的属性,然后进行处理 注,在 AS400 中,对象范指各种类型的概念,例如程序,文件. 尽管 CL 的

Mysql DCL (Date Control Language)

Mysql DCL (Date Control Language) 数据库:mysql> select * from fen; +-------+-------+---------+ | name | china | english | +-------+-------+---------+ | ming | 69 | 99 | | hong | 48 | 33 | | qiang | 77 | 33 | +-------+-------+---------+ 3 rows in set (0.

SAP smartforms之Zebra print control language

因为在做个小标签的时候需要将部分字符旋转180度,在scn上找了很久也发布了自己的提问,不过最终的结果却不尽人意.Rotated text in smartforms need use the PCL to control the printer,But part of our printers were not zebra's.So this problem still bothers me.一切等到研究结束吧,先预存问题. SAP smartforms之Zebra print control

Oracle DCL(Data Control Language)数据控制语言（权限privilege，角色role，用户user介绍）

1.如何控制用户访问 1.身份验证,认证:Authentication 2.授权:Authorization 3.审计:Audit 2.权限 数据库安全: -系统安全 -数据安全 系统权限:数据库中执行一个特定操作 对象权限:操纵数据库的对象的内容 可用的系统权限有100多个 数据库管理员有高层次的系统权限,可以完成 -创建一个新用户 -删除用户 -删除表 -备份表 3.创建用户 DBA使用CREATE USER语句创建用户 CREATE USER user identified BY pass

SQL Fundamentals || DCL(Data Control Language) || 用户管理&Profile概要文件

SQL Fundamentals || Oracle SQL语言 语句 解释 Create user Creates a user(usually performed by a DBA) Grant Gives other users privileges to access the objects Create role Creates a collection of privileges, usually performed by a DBA Alter user Changes a use

SQL Fundamentals || DCL(Data Control Language) || 系统权限&对象权限管理（GRANT&REVOKE）

SQL Fundamentals || Oracle SQL语言 语句 解释 Create user Creates a user(usually performed by a DBA) Grant Gives other users privileges to access the objects Create role Creates a collection of privileges, usually performed by a DBA Alter user Changes a use

SQL Fundamentals || DCL(Data Control Language) || 角色ROLES

SQL Fundamentals || Oracle SQL语言 语句 解释 Create user Creates a user(usually performed by a DBA) Grant Gives other users privileges to access the objects Create role Creates a collection of privileges, usually performed by a DBA Alter user Changes a use

编程语言的发展脉络图

做了两件事情:第一件是从Wikipedia网站上搜集各种编程语言的资料,第二件是把编程语言之间相互影响的关系用图的形式画出来,从而得到了一张编程语言的发展脉络图. 这两件事情主要是编写Ruby程序来做的,在Wikipedia页面的右上角有一个表格,从中提取Appeared in,Influenced by,Influenced等字段,根据这种关联关系遍历,采集到292种语言,用JSON格式保存到文件中,然后把几个出现年份描述不精确的语言用人工查证的方式进行补充. [["Swift",&

(C# Version ) PDF Viewer Control Without Acrobat Reader Installed

by Julian Joseph - India, 17 Apr 2015 Introduction This Article shows how we can display PDF on Web without having to install any third party pdf tool on either client or server. Background The Article is original written by Ron Schuler in VB.NET. I