AS400 RPGLE 利用DSPF读取超时实现屏幕自动刷新

已于 2024-08-15 14:34:14 修改
阅读量228 收藏 1
点赞数 2
文章标签： 开发语言
于 2024-08-15 13:58:58 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_56170886/article/details/141220399
版权

屏幕DSPF        

SAUTREFTST.DSPF

     A**************************************************************************
     A*  AUTHOR:       WITT                                                    *
     A*  DESCRIPTION:  A SAMPLE OF AUTO REFRESH DSPF                           *
     A*  SOURCE LINK:  http://blog.chinaunix.net/uid-7185891-id-2066091.html   *
     A*  DATE WRITTEN: 2024-08-13                                              *
     A**************************************************************************
     A                                      DSPSIZ(24 80 *DS3)
     A                                      CF12(12)
     A                                      CF05(05)
     A          R RCD
     A N50                                  INVITE
     A                                  4 13DATE
     A                                      EDTCDE(Y)
     A                                  4 31TIME
     A                                 10 26'相隔'
     A            REFSH          3Y 0O 10 33EDTCDE(3)
     A                                 10 38'秒自动刷新'
     A                                 11 26'本次刷新时间'
     A            ZDATE         26   O 11 41
     A  51                             23 13'F5 =自动刷新'
     A N51                             23 13'F5 =禁止刷新'
     A                                 23 33'F12 =退出'
     A          R SXW
     A                                      WINDOW(8 8 6 20 *NOMSGLIN *NORSTCSR)
     A            SXSJ           3Y 0B  3 14EDTCDE(3)
     A                                      COMP(GT 0)
     A                                  5  2'ENTRY =确定'
     A                                  3  1'刷新时间:'
     A                                  6  1'时间需要大于0'
     A                                      DSPATR(HI)
     A  30                                  DSPATR(ND)

RPG程序写法之一

PAUTREFTST.RPGLE

      **********************************************************************
      * AUTHOR:       WITT                                                 *
      * DESCRIPTION:  A SAMPLE OF AUTO REFRESH DSPF                        *
      * SOURCE LINK:  http://blog.chinaunix.net/uid-7185891-id-2066091.html*
      * DATE WRITTEN: 2024-08-13                                           *
      **********************************************************************
      *  1.自动刷新屏幕需要将DSPF文件定义为USROPN,因为每次
      *    规定刷新时间时需要使用重订向来指定。　　　　
      *  2. DSPF文件需要定义一个INFDS,因为当DSPF文件被指定
      *  刷新时间后，一旦到达刷新时间系统会将文件的状态码置　　　　　　　
      *    显示时时间超时，这时需要将显示文件重新输出一次，
      *    这样就达到了刷新的效果。
      *
     FSAUTREFTSTCF   E             WORKSTN MAXDEV(*FILE)
     F                                     INFDS(INFDS)
     F                                     USROPN
     D
     DOVRDSPF          C                   'OVRDSPF FILE(SAUTREFTST)'
     DINFDS            DS
     D STATUS                 11     15S 0
     D ERRID                  46     52A
     D SFLLOC                378    379B 0
     DTT               S               Z   INZ
     C*初始化时没有刷新时间
     C                   CLOSE     SAUTREFTST
     C                   EVAL      QCMD=OVRDSPF+' WAITRCD(5)'
     C                   CALL      'QCMDEXC'     QCMDEXC
     C                   OPEN      SAUTREFTST
     C                   EVAL      *IN50='0'
     C                   EVAL      REFSH =5
     C*显示
     C     AGN           TAG
     C*EXFMT
     C*                  WRITE     FOOT
     C                   TIME                    TT
     C                   MOVE      TT            ZDATE
     C*将记录写入界面
     C                   WRITE     RCD
     C*读取界面的记录：需要刷新读取文件，不需要刷新读取记录
     C  N50              READ      SAUTREFTST                           9699
     C   50              READ      RCD
     C*POST文件，当系统自动将文件从队列中取出时，表示需要刷新。
     C                   POST      SAUTREFTST
     C*ERROR为CPF4737表示"WAIT TIME EXCEEDED FOR READ FROM WORKSTN
     C*所以需要从新写入记录或文件
     C                   IF        (STATUS = 1331 OR STATUS=1299)
     C                              AND ERRID = 'CPF4737'
     C                   GOTO      AGN
     C                   ENDIF
     C*F12=EXIT
     C                   IF        *IN12='1'
     C                   GOTO      EXIT
     C                   ENDIF
     C*指定刷新时间
     C                   IF        *IN05
     C                   EVAL      *IN50=NOT *IN50
     C                   IF        NOT *IN50
     C*设置需要刷新的时间长度
     C                   EXFMT     SXW
     C                   CLOSE     SAUTREFTST
     C                   EVAL      REFSH =SXSJ
     C                   EVAL      QCMD=OVRDSPF+' WAITRCD('+%CHAR(SXSJ)+')'
     C                   CALL      'QCMDEXC'     QCMDEXC
     C                   EVAL      *IN51='0'
     C                   EVAL      SXSJ =0
     C                   OPEN      SAUTREFTST
     C                   GOTO      AGN
     C*不刷新
     C                   ELSE
     C                   CLOSE     SAUTREFTST
     C                   EVAL      REFSH =999
     C                   EVAL      QCMD=OVRDSPF+' WAITRCD(*NOMAX)'
     C                   CALL      'QCMDEXC'     QCMDEXC
     C                   EVAL      *IN51='1'
     C                   OPEN      SAUTREFTST
     C                   GOTO      AGN
     C                   ENDIF
     C                   ENDIF
     C
     C                   GOTO      AGN
     C     EXIT          TAG
     C                   EVAL      *INLR='1'
     C     QCMDEXC       PLIST
     C                   PARM                    QCMD            200
     C                   PARM      200           QLEN             15 5

RPG程序写法之一的运行效果

RPG程序写法之二

这里没有使用OVRDSPF重定向显示文件去设置超时时长，而是直接用命令设置DSPF的超时时长

CHGDSPF FILE(SAUTREFTST) WAITRCD(1)   

PAUTREFSIM.RPGLE

      **********************************************************************
      * AUTHOR:       WITT                                                 *
      * DESCRIPTION:  A SAMPLE OF AUTO REFRESH DSPF                        *
      * DATE WRITTEN: 2024-08-15                                           *
      **********************************************************************
     FSAUTREFTSTCF   E             WORKSTN MAXDEV(*FILE)
     DSYSTIME          S               Z   INZ
     C
     C                   DOW       NOT *IN12
     C                   TIME                    SYSTIME
     C                   MOVE      SYSTIME       ZDATE
     C                   WRITE     RCD
     C                   READ      SAUTREFTST                           9699
     C                   ENDDO
     C
     C     ENDPGM        TAG
     C                   MOVE      *ON           *INLR

RPG程序写法之二的运行效果

山林溜达鸡
关注
As400 rpgle程序编译错误排查
sun1102的专栏
07-17 1050
As400 rpgle程序编译错误排查 1 CRTBNDRPG PGM(mylib/test1 ) SRCFILE(MYSRCLIB/MYSRC) SRCMBR(test1) BNDDIR(mylib/mybnddir) 这里假设我的程序是 test1，用户是user1，编译失败，如下图 2 通过wrksplf 查看对应的程序编译信息 spooled file ...
as400中怎么java开发_【AS/400】rpgle调用java的方法
weixin_42476061的博客
02-25 276
h DFTACTGRP(*NO) ACTGRP(*NEW)d*d* Define a field to store the String object we wish to trimd string s O CLASS(*JAVA:'java.lang.String')d*d* Prototype the constructor for the S...
AS400-RPG-01
码农成长记
11-08 824
RPG 的全称：Report Program Generator能 COPY、修改、编译源代码（RPGLE、CLP），并能运行编译后的程序能 COPY、修改、编译文件（PF、LF、PRTF、DSPF）对数据文件（PF）有简单的认识（FIELD -> RECORD -> PF），并知道 LF 与 PF 的对应关系编写 HELLO WROLD0003.00 C0004.00 C调用程序 call + 程序名 屏幕反白出现 “HELLO WORLD”字样。
AS400 之RPGLE Part 1
weixin_41447442的博客
12-27 1938
RPG在写程序之前关于程序开发，想强调的是：业务流程先于程序——程序是给计算机看的，流程是人执行的；程序是死的，而流程则是一个相对模糊的东西。所以在写程序前，要先弄清楚自己到底要做什么，然后将自己的思想表达给计算机——这个过程就是CODING。RPG的长处在于数据库处理，界面交互能力倒是其次。所以最开始需要了解一些关于数据库文件的相关知识(这里就只强调跟400有关的)。在下面的操作中，假设朋友已经会用STRPDM，会文件的COPY,修改。数据文件PF：COPY一个已经有的比较快点。然后修改一下里面的数据，就
AS400 RPGLE编程中常见错误
weixin_43456488的博客
01-09 958
1. RNF2120  声明的文件不存在。                      需要查看PF/LF文件是否编译成功      库列表是否添加 （库列表未添加会出现数据类型不兼容，声明文件不存在等诸多错误）  2. RNF7030  变量未定义，通常随着如果变量未定义，那么与该变量有关的每一句话，都会报错，并且除了7030之外，还会有诸如类型不匹配这些的错误，所以排错时，一般都是先修改70...
AS400快速入门作业HT011——RPGLE程序
weixin_43785387的博客
01-24 775
AS400作业快速入门
as400 java_从Java调用AS400 RPG
weixin_39590453的博客
02-15 305
我对AS400和RPG的了解非常有限(0)。但是我们有一个紧急要求，需要从Java类调用RPG程序。因此，我发现我们可以通过JTOpen实现它。但是我坚持声明ProgramParameter列表。我有以下有关RPG计划的信息程序名称：ZM30000R参数：分支7,0(数字)帐户类型2(01-支票，02储蓄)帐户编号20(字符)错误代码7(字符)DR / CR指示符1(字符D，C)但是不知道输入和输...
as400 java_在AS400上进行Java开发（转）
weixin_30836505的博客
02-15 899
在AS400上使用RPG开发，操作数据的效率当然会快很多，但是RPG处理数据逻辑毕竟是非常麻烦。其实在AS400 v5r4以上的版本都是可以支持java开发，下面是一个用Java开发删除某一用户下所有Spool File的功能。1、创建Java工作目录：MD DIR(JavaPgm)2、编写Java代码1)创建源文件:CRTSRCPF FILE(LIBNAME/FILENAME)IGCDTA(*...
as400迁移至java,从Java调用AS400 RPG(Invoking AS400 RPG From Java)
weixin_34101577的博客
03-29 655
从Java调用AS400 RPG(Invoking AS400 RPG From Java)我对AS400和RPG有非常有限的(0)知识。 但是我们迫切需要从java类调用RPG程序。 所以我发现我们可以通过JTOpen实现它。 但我坚持宣布ProgramParameter列表。 我有关于RPG计划的以下信息程序名称：ZM30000R参数：分支7,0(数字)帐户类型2(01检查，02节省)账号20...
RPGLE.rar_AS400_RPG_RPGLE_as400 rpgle_rpg语言开发
09-23
在AS400系统中，RPGLE是核心的开发语言之一，广泛用于企业级应用，如财务、供应链管理和生产自动化等。RPGLE结合了过程式编程和声明式编程的特点，允许开发者混合使用传统的四象限编程模型和更现代的自由格式代码。 ...
AS400 RPGLE编程基础教程
06-22
### AS400 RPGLE编程基础教程知识点梳理 #### 一、基础知识介绍 **1. 简单说明** - **RPGLE简介**: RPGLE是AS/400平台上的一种高级编程语言，用于报告程序生成（Report Program Generator），特别适用于商业应用...
as400rpgle实战项目
04-23
一个完整的as400 rpgle项目实战练习，引入“敏捷”的思想： 所有子过程放入srvpgm中，并加入bnddir。程序通过bnddir动态调用取得所需方法，参数传递使用指针形式，所有参数的数据结构定义在copybook中，便于规范化的...
【开发语言】c++的发展前景
weixin_56334307的博客
10-18 238
近年来，C++标准委员会不断推出新的标准（如C++11、C++14、C++17、C++20等），引入了许多现代编程语言的特性，如智能指针、范围基for循环、lambda表达式、模块系统等，极大地提高了C++的编程效率和安全性。无论是在传统的高性能计算领域，还是在新兴的物联网、嵌入式系统等领域，C++都将继续发挥其独特的优势和作用。同时，随着现代C++的演进和开源社区的活跃，C++的生态系统也将变得更加完善和强大。这些软件对性能和稳定性的要求极高，C++的静态类型检查和丰富的库支持使其成为理想选择。
MATLAB实现基于SVM-RFE-BP多输入单输出回归预测（含完整的程序和代码详解）
10-18
内容概要：本文介绍了使用 MATLAB 实现基于支持向量机（SVM）、递归特征消除（RFE）和反向传播（BP）神经网络的多输入单输出回归预测模型。项目特点包括特征选择、BP神经网络建模、用户友好界面、模型评估机制以及超参数调整。文章详细描述了数据预处理、特征选择、模型训练、评估和可视化的步骤，并提供相应的 MATLAB 代码。 适合人群：具有一定编程基础的科研人员和工程技术人员，特别是从事数据科学、机器学习领域的研究人员。 使用场景及目标：适用于金融预测、疾病预测、工业生产监控和生态环境监测等领域，目的是提高数据预测的准确性。通过项目实战，学习特征选择和神经网络建模的技术细节。 其他说明：文中提到的相关代码示例和实现步骤可直接应用于实际项目中，有助于快速搭建高效的预测模型。同时，通过调整超参数和特征选择方法，可以进一步优化模型的性能。
rhino grasshoper 景观椅（附视频）.gh
最新发布
10-18
【rhino@grasshoper 曲线金属座椅景观案例（文件获取/见简介）】https://www.bilibili.com/video/BV1Dx4y147Lr?vd_source=b420114c993138474d2e93d83ead77a5
基于vercel的无服务器服务，将Spark认知模型连接到微信公众号_Spark微信vercel.zip
10-18
基于vercel的无服务器服务，将Spark认知模型连接到微信公众号_Spark微信vercel
中国大机型能力评价榜：目前已有115款大机型入选，涵盖chatgpt、gpt4o、百
10-18
中国大机型能力评价榜：目前已有115款大机型入选，涵盖chatgpt、gpt4o、百度文心一言、阿里巴巴通易千问、科大飞星火、商汤SenseChat、minimax等商业机型，以及百川、qwen2、glm
《动手学LLMs：实用编程教程系列》.zip
10-18
《动手学LLMs：实用编程教程系列》
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值