从'计算两个日期天数之差'程序介绍RPG语言

最新推荐文章于 2021-05-19 06:15:34 发布
最新推荐文章于 2021-05-19 06:15:34 发布
阅读量183 收藏
点赞数
文章标签： python 操作系统 数据库
原文链接：https://my.oschina.net/luffyke/blog/39141
版权

2019独角兽企业重金招聘Python工程师标准>>> hot3.png

RPG，这个不是 Role Playing Game 的缩写，而是一种编程语言，Report Program Generator的缩写，是一种起源于用在DEC及IBM的小型机操作系统中编制报表程序的编程语言，一种运行在IBM的AS400小型机上的高级语言，一种完全过程化的程序语言。下面的这段代码是用来计算两个日期之差的天数： 
H*
     H* Author : KXT
     H*
     D*
     D  TOTAL_DAYS     S              8S 0
     D  BEGIN_REMAIN   S              3S 0
     D  END_PASS       S              3S 0
     D  MONTH_DAYS     S              2S 0 DIM(12) CTDATA PERRCD(12)
     D*
     D  BEGIN_DATE     S              8S 0
     D  BEGIN_YEAR     S              4S 0
     D  BEGIN_MONTH    S              2S 0
     D  BEGIN_DAY      S              2S 0
     D  END_DATE       S              8S 0
     D  END_YEAR       S              4S 0
     D  END_MONTH      S              2S 0
     D  END_DAY        S              2S 0
     D  TEMP_DATE      S              8S 0
     D  TEMP_YEAR      S              4S 0
     D*
     D  REM_DATA1      S              4S 0
     D  REM_DATA2      S              4S 0
     D  TEMP_DATA      S              4S 0
     D  I              S              4S 0
     D*
     D  IS_LEAP        S                   LIKE(*IN99)
     D  NEED_TRANSFER  S                   LIKE(*IN99)
     D*
     C*
     C* Main Logic
     C                   EXSR      SR999
     C                   EXSR      SR001
     C                   EXSR      SR998
     C*
     C* Processor
     C     SR001         BEGSR
     C     BEGIN_DATE    IFGT      END_DATE
     C                   MOVE      *ON           NEED_TRANSFER
     C                   MOVE      BEGIN_DATE    TEMP_DATE
     C                   MOVE      END_DATE      BEGIN_DATE
     C                   MOVE      TEMP_DATE     END_DATE
     C                   ENDIF
     C* Get begin year, month, day
     C                   EVAL      BEGIN_YEAR = %DIV(BEGIN_DATE:10000)
     C                   EVAL      TEMP_DATA = %REM(BEGIN_DATE:10000)
     C                   EVAL      BEGIN_MONTH = %DIV(TEMP_DATA:100)
     C                   EVAL      BEGIN_DAY = %REM(TEMP_DATA:100)
     C* Get end year, month, day
     C                   EVAL      END_YEAR = %DIV(END_DATE:10000)
     C                   EVAL      TEMP_DATA = %REM(END_DATE:10000)
     C                   EVAL      END_MONTH = %DIV(TEMP_DATA:100)
     C                   EVAL      END_DAY = %REM(TEMP_DATA:100)
     C* If begin and end is same year
     C     BEGIN_YEAR    IFEQ      END_YEAR
     C                   EVAL      I = BEGIN_MONTH
     C                   MOVE      *ZERO         TEMP_DATA
     C                   EVAL      TEMP_DATA = END_MONTH
     C                   DOW       I < TEMP_DATA
     C                   ADD       MONTH_DAYS(I) TOTAL_DAYS
     C                   MOVE      BEGIN_YEAR    TEMP_YEAR
     C                   EXSR      SR002
     C     IS_LEAP       IFEQ      *ON
     C     I             ANDEQ     2
     C                   EVAL      TOTAL_DAYS = TOTAL_DAYS + 1
     C                   ENDIF
     C                   EVAL      I = I + 1
     C                   ENDDO
     C                   EVAL      TOTAL_DAYS = TOTAL_DAYS + END_DAY - BEGIN_DAY
     C* If both year not equal
     C                   ELSE
     C* Calculate begin date remaining days
     C                   EVAL      I = BEGIN_MONTH
     C                   DOW       I <= 12
     C                   ADD       MONTH_DAYS(I) BEGIN_REMAIN
     C                   MOVE      BEGIN_YEAR    TEMP_YEAR
     C                   EXSR      SR002
     C     IS_LEAP       IFEQ      *ON
     C     I             ANDEQ     2
     C                   EVAL      BEGIN_REMAIN = BEGIN_REMAIN + 1
     C                   ENDIF
     C                   EVAL      I = I + 1
     C                   ENDDO
     C                   EVAL      BEGIN_REMAIN = BEGIN_REMAIN - BEGIN_DAY
     C* Calculate end date passing days
     C                   EVAL      I = 1
     C                   DOW       I < END_MONTH
     C                   ADD       MONTH_DAYS(I) END_PASS
     C                   MOVE      END_YEAR      TEMP_YEAR
     C                   EXSR      SR002
     C     IS_LEAP       IFEQ      *ON
     C     I             ANDEQ     2
     C                   EVAL      END_PASS = END_PASS + 1
     C                   ENDIF
     C                   EVAL      I = I + 1
     C                   ENDDO
     C                   EVAL      END_PASS = END_PASS + END_DAY
     C* Calculate other year total days
     C                   EVAL      I = BEGIN_YEAR + 1
     C                   DOW       I < END_YEAR
     C                   ADD       365           TOTAL_DAYS
     C                   MOVE      I             TEMP_YEAR
     C                   EXSR      SR002
     C     IS_LEAP       IFEQ      *ON
     C                   EVAL      TOTAL_DAYS = TOTAL_DAYS + 1
     C                   ENDIF
     C                   EVAL      I = I + 1
     C                   ENDDO
     C* Calculate total diff days
     C                   EVAL      TOTAL_DAYS = TOTAL_DAYS + BEGIN_REMAIN
     C                   EVAL      TOTAL_DAYS = TOTAL_DAYS + END_PASS
     C                   ENDIF
     C     NEED_TRANSFER IFEQ      *ON
     C                   EVAL      TOTAL_DAYS = TOTAL_DAYS * -1
     C                   ENDIF
     C     TOTAL_DAYS    DSPLY
     C                   ENDSR
     C*
     C* Check if leap year
     C     SR002         BEGSR
     C                   EVAL      REM_DATA1 = %REM(TEMP_YEAR:400)
     C     REM_DATA1     IFEQ      *ZERO
     C                   MOVE      *ON           IS_LEAP
     C                   ELSE
     C                   EVAL      REM_DATA1 = %REM(TEMP_YEAR:4)
     C                   EVAL      REM_DATA2 = %REM(TEMP_YEAR:100)
     C     REM_DATA1     IFEQ      *ZERO
     C     REM_DATA2     ANDNE     *ZERO
     C                   MOVE      *ON           IS_LEAP
     C                   ELSE
     C                   MOVE      *OFF          IS_LEAP
     C                   ENDIF
     C                   ENDIF
     C                   ENDSR
     C*
     C* Finalization
     C     SR998         BEGSR
     C                   MOVE      *ON           *INLR
     C                   RETURN
     C                   ENDSR
     C*
     C* Initialization
     C     SR999         BEGSR
     C     *ENTRY        PLIST
     C                   PARM                    BEGIN_DATE
     C                   PARM                    END_DATE
     C*
     C                   MOVE      *OFF          IS_LEAP
     C                   MOVE      *OFF          NEED_TRANSFER
     C                   MOVE      *ZERO         TOTAL_DAYS
     C                   MOVE      *ZERO         BEGIN_REMAIN
     C                   MOVE      *ZERO         END_PASS
     C*
     C                   ENDSR
     C*
**CTDATA MONTH_DAYS
312831303130313130313031

每一行最前面的字母都有特别的意思。。

H(Header的缩写，这个是我自己认为的，以下皆同) - 可以在这里写些代码的描述；

F(File) - 数据库文件的定义

D(Definition) - 变量的定义

C(Calculation) - 主程序

I(Input) - 输入

O(Output) - 输出

每一行加*的都代表那一行是注释。

我们是在IBM的AS400机器上写RPG的，界面是黑底绿字，字体颜色可以修改的，RPG程序代码的位置都是写死的，跟汇编语言是一样的，语法其实也是很像汇编的。

据我了解，貌似国内就只有银行，保险和证券是用RPG语言的，其他好像很少有公司用到这门语言，其实RPG历史还是蛮悠久的，用着用着还是蛮好玩的。

维基百科 ： http://en.wikipedia.org/wiki/IBM_RPG

转载于:https://my.oschina.net/luffyke/blog/39141

weixin_34110749
关注
RPG语言教程快速掌握
06-04
RPG教程，可以帮助你尽快掌握RPG语言
RPG语言基本语法
09-21
该文档是基于AS400的RPG开发语言，适合0基础的人学习，主要是一些简单的基本语法基本函数使用，希望可以帮助大家学习，简单实用
《RPG编程语言中文参考》
12-02
《RPG编程语言中文参考》介绍了RPGRPG Ⅳ的一些基础知识。包括•符号名•编译指令•RPG Ⅳ的程序周期•指示器•错误处理•一般文件考虑。
rpg语言学习，适合初学者的，来自论坛
09-10
1,如何建立库、文件和成员.doc 2,如何编写RPG程序（1）.doc 3,如何操作数据区.doc 4,对物理文件或者逻辑文件进行读写.doc 5,如何对文件进行更新和删除.doc 6,RPG程序结合物理文件或逻辑文件、以及显示文件进行操作.doc 7,ICF文件（即通讯文件）进行操作.doc 8, 如何DEBUG程序.doc 9,如何使用显示文件的SUBFILE.doc 注释.doc
AS400RPG编程语言入门学习资料汇总
06-02
该压缩包中是本人最初开始学习IBM AS/400 RPG编程语言时所收集的一些资料，里面总共有五份资料。感觉对初学者非常有用，所以我也是收藏了很久。现在拿出来给大家共享，希望对初学者有所帮助！
用javascript实现计算两个日期的间隔天数
12-12
代码如下:// 计算两个日期的间隔天数 function DateDiff(sDate1, sDate2){ //sDate1和sDate2是2002-12-18格式 var aDate, oDate1, oDate2, iDays aDate = sDate1.split(“-“) oDate1 = new Date...
计算两个日期相隔天数并减去节假日
07-05
计算两个日期相隔天数并减去节假日，这个可以使用在各种需要通知的场景以及工作日提醒等
CODESYS计算两个日期的相隔天数
01-03
在codesys系统(PLC)中计算两个日期的相隔天数
Delphi 计算两个日期之间的时间差（天数）.rar
07-10
在Delphi编程环境中，计算两个日期之间的时间差是一项常见的任务，尤其对于开发涉及日期和时间处理的应用程序来说。本示例源码专为Delphi初学者设计，它演示了如何在Delphi 7中计算两个日期之间的天数差异。下面我们...
matlab版计算任意两个日期相隔的天数
11-08
matlab版计算任意两个日期相隔的天数，函数原型为function how_many_days = days(year1,month1,day1,year2,month2,day2)。
李忠汇编语言-初学-第十天
Ruter的博客
09-25 206
学习目标 复习休息 学习小结 学习内容 学习时间 学习引申 学习检测
用80x86汇编语言读写系统时间
做而论道的博客
01-25 2085
用80x86汇编语言编程，设置初值为60，每过一秒减1，减至5秒时鸣笛报警。悬赏分：100 | 解决时间：2011-6-4 19:39 最佳答案：;=====================================;下列程序已经实验通过.DATA  SEGMENTDATA  ENDS;------------------------CODE  SEGMENT      ASSUME  CS
RPG语言关键字的含义
qq_28198893的博客
11-28 4586
Z-ADD ：数值型的附值语句（Z-ADD A B相当于 B=A） MOVEL ：移动数据语句 MOVEL A B 是把A的值从左边开始送到B中。 MOVE： 功能于MOVEL类似，区别在于它是从右边开始传送。 MOVEL (P)：MOVEL和MOVE的操作在把短的传到长的中时，并不会覆盖其余的部分，因此， 加一个扩展功能用的P来表明操作要覆盖其余的部分。 SU
AS400中的RPG语言基础求救!!
hjqqq_2006的专栏
11-06 2068
那些朋友知道这个语言,或则用这个语言做过开发的.请各位前辈指点哈!   我在发这个文章之前也做过RPG的开发.当时也学习了不少知识但是我始终都找不到很全面的,系统的介绍RPG 的资料,尤其是O表和A表的资料.同时如果你有关于AS400操作的资料也请与我联系  hjqqq_2006@hotmail.com 希望我们以后能够相互学习.                             谢
RPG学习笔记(基本知识了解)
Bill的专栏
04-08 3421
RPG语言(REPORT PROGRAM GENERATOR)Report Program Generator 处理报表编程语言IBM的AS/400小型机上的高级语言.REPORT PROGRAM GENERATOR,程序运行效率很高.RPG起始是一个非常简单的面向事务处理的编程语言, 用被储存在系统IBM709和360型号的20针打孔卡中的数据而生成报表. AS400的基本特点TIMI结
IBM专有的RPG编程语言：概述
编程故事的地方
02-21 3161
报告程序生成器（或简称RPG）是一种高级编程语言，可用于各种业务应用程序和用途。 它是IBM专有的编程模块，其大多数更高版本只能在基于IBM i或OS / 400的系统上访问。 RPG实际上有很长的历史。 它是由技术巨头IBM在1959年作为报告程序生成器开发的，该工具被开发用作IBM 1401上打孔卡处理系统的替代品。但是，在开发之后，它后来被更新为RPG II。 1960年代IBM Sys...
np.diff函数与内置函数diff函数的简单区别
weixin_41830122的博客
04-15 3238
#np.diff函数求差分 import numpy as np ​q=[1,2,4] np.diff(q,1) #一阶差分 #内置函数diff求导数及导函数 import scipy from math import sin,cos,exp from sympy import * x=Symbol('x') z1=x**3 diff(z1,x) #关于x的导函数 即 ...
as400 c语言程序,as/400写给刚接触RPG的朋友 --- 如何编写RPG程序
weixin_29422697的博客
05-19 1081
这部分我也循序渐进的讲解如何RPG里头更项的含义。先说说RPG一般用来做什么吧，举例说：1. 整个RPG程序不包含任何外部程序，只是做些简单的数学运算，或者对数据区、DATAQ等非文件目标进行操作，这属于相对最简单的情况；2. RPG程序对物理文件或者逻辑文件进行读、写、更新、删除操作；3. RPG程序结合物理文件或逻辑文件、以及显示文件进行操作，这属于比较复杂的情况；4. RPG程序结合物理文件...
java 计算两个日期天数之差
最新发布
11-14
以下是两种Java计算两个日期天数之差的方法： 1.使用Calendar类计算两个日期之间的天数差： ```java Calendar cal1 = Calendar.getInstance(); Calendar cal2 = Calendar.getInstance(); cal1.set(2021, 8, 1); //...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值