RPG/400 自己写的一个小实例分享!(3)

最新推荐文章于 2019-03-09 22:15:00 发布
最新推荐文章于 2019-03-09 22:15:00 发布
阅读量152 收藏
点赞数
分类专栏： as/400 文章标签： C C++ C# F#
本文详细解析了一个RPG程序的内部结构与流程控制，包括屏幕处理、条件判断、数据验证等核心部分。通过具体指令展示如何实现用户输入的检查及响应不同的用户操作。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

这个主要程序RPG

 Columns . . . :    1  71           Browse                         DHUG/QRPGSRC
 SEU==>                                                                   SDA04
 FMT H  .....H........1..CDYI....S..............1.F............................
        *************** Beginning of data *************************************
        *************** Feigme H.Guo*************************************
0001.00      H             Y                                                   
0002.00       *                                                                
0003.00      FTSDAL   UF  E           K        DISK                      A     
0004.00      F            TSDAR                             KRENAMETSDARA      
0005.00       *                                                                
0006.00      FTSDA04  CF  E                    WORKSTN                         
0007.00      F                                        @RRN  KSFILE SUBFILE     
0008.00       *----------------------------------------------------*           
0009.00       *< ARRAY AREA >                                      *           
0010.00       *----------------------------------------------------*           
0011.00      E                    @MSG    1  50 75                 *MESSAGE    
0012.00       *----------------------------------------------------*           
0013.00       *< KLIST >                                           *           
0014.00       *----------------------------------------------------*           
0015.00      C           L@SDA     KLIST                                       
0016.00      C                     KFLD           PNAME                        
0017.00       *                                                        
0018.00       *----------------------------------------------------*   
0019.00       *< MAIN >                                            *   
0020.00       *----------------------------------------------------*   
0021.00      C                     EXSR #S000                          
0022.00      C                     EXSR #ENDPG                         
0023.00       *                                                        
0024.00       *----------------------------------------------------*   
0025.00       *< #S000--SCREEN 0 >                                 *   
0026.00       *----------------------------------------------------*   
0027.00      C           #S000     BEGSR                               
0028.00       *                                                        
0029.00      C                     MOVE @YES      @LOOP0               
0030.00      C           @LOOP0    DOWEQ@YES                           
0031.00      C                     EXFMTSCD00                          
0032.00      C                     CLEARNOTE                           
0033.00       *                                                        
0034.00      C                     SELEC                                  
0035.00      C           *IN03     WHEQ *ON                               
0036.00      C                     EXSR #ENDPG                            
0037.00      C           *IN12     WHEQ *ON                               
0038.00      C*                    MOVE @NO       @LOOP0                  
0039.00      C                     LEAVE                                  
0040.00      C                     ENDSL                                  
0041.00       *                                                           
0042.00      C                     EXSR #CHK0                             
0043.00      C                     ENDDO                                  
0044.00       *                                                           
0045.00      C                     ENDSR                                  
0046.00       *----------------------------------------------------*      
0047.00       *< #CHK0--CHECK SCREEN 0 >                           *      
0048.00       *----------------------------------------------------*      
0049.00      C           #CHK0     BEGSR                                  
0050.00       *                                                           
0051.00      C           SLID      IFGT 4                                
0052.00      C           SLID      ORLT 1                                
0053.00      C                     SETON                     30          
0054.00      C                     MOVEL@MSG,2    NOTE      P            
0055.00      C                     ENDIF                                 
0056.00       *                                                          
0057.00      C                     SELEC                                 
0058.00      C           SLID      WHEQ 1                                
0059.00      C                     EXSR #S001                            
0060.00      C           SLID      WHEQ 2                                
0061.00      C                     EXSR #SOO2                            
0062.00      C           SLID      WHEQ 3                                
0063.00      C                     EXSR #S003                            
0064.00      C                     ENDSL                                 
0065.00       *                                                          
0066.00      C                     ENDSR                                 
0067.00       *----------------------------------------------------*     
0068.00       *< #S001--SCREEN 1 >                                 *    
0069.00       *----------------------------------------------------*    
0070.00      C           #S001     BEGSR                                
0071.00       *                                                         
0072.00      C                     MOVE @YES      @LOOP1                
0073.00      C           @LOOP1    DOWEQ@YES                            
0074.00      C                     MOVE @YES      @SIGN                 
0075.00      C                     EXFMTSCD01                           
0076.00      C                     CLEARNOTE                            
0077.00       *                                                         
0078.00      C                     SELEC                                
0079.00      C           *IN03     WHEQ *ON                             
0080.00      C                     EXSR #ENDPG                          
0081.00      C           *IN12     WHEQ *ON                             
0082.00      C*                    MOVE @NO       @LOOP1                
0083.00      C                     LEAVE                                
0084.00      C                     ENDSL                                
0085.00       *                                                       
0086.00      C                     EXSR #CHK1                         
0087.00      C           @SIGN     IFEQ @YES                          
0088.00      C                     EXFMTSCD011                        
0089.00      C                     EXSR #WRT                          
0090.00      C                     ENDIF                              
0091.00       *                                                       
0092.00      C                     ENDDO                              
0093.00       *                                                       
0094.00      C                     ENDSR                              
0095.00       *----------------------------------------------------*  
0096.00       *< #CHK1--CHECK SCREEN 1  >                          *  
0097.00       *----------------------------------------------------*  
0098.00      C           #CHK1     BEGSR                              
0099.00       *                                                       
0100.00      C           NAME01    IFEQ *BLANK                        
0101.00      C                     SETON                     31       
0102.00      C                     MOVE @NO       @SIGN                   
0103.00      C                     MOVEL@MSG,2    NOTE      P             
0104.00      C                     ELSE                                   
0105.00      C                     MOVELNAME01    PNAME     P             
0106.00      C           L@SDA     CHAINTSDARA               60           
0107.00      C           *IN60     IFEQ *OFF                              
0108.00      C                     MOVEL@MSG,4    NOTE      P             
0109.00      C                     MOVE @NO       @SIGN                   
0110.00      C                     ELSE                                   
0111.00      C                     SETOF                     31           
0112.00      C                     MOVE @YES      @SIGN     P             
0113.00      C                     ENDIF                                  
0114.00      C                     ENDIF                                  
0115.00       *                                                           
0116.00      C           AGE01     IFEQ *ZERO                             
0117.00      C                     SETON                     32           
0118.00      C                     MOVE @NO       @SIGN                   
0119.00      C                     MOVEL@MSG,2    NOTE      P          
0120.00      C                     ELSE                                
0121.00      C                     SETOF                     32        
0122.00      C                     ENDIF                               
0123.00       *                                                        
0124.00      C           ADDR01    IFEQ *BLANK                         
0125.00      C                     SETON                     33        
0126.00      C                     MOVE @NO       @SIGN                
0127.00      C                     ELSE                                
0128.00      C                     SETOF                     33        
0129.00      C                     ENDIF                               
0130.00       *                                                        
0131.00      C                     ENDSR                               
0132.00       *----------------------------------------------------*   
0133.00       *< #S002--SCREEN 2 >                                 *   
0134.00       *----------------------------------------------------*   
0135.00      C           #SOO2     BEGSR                               
0136.00       *                                                      
0137.00      C                     MOVE @YES      @LOOP2             
0138.00      C           @LOOP2    DOWEQ@YES                         
0139.00      C                     EXFMTSCD02                        
0140.00      C                     CLEARNOTE                         
0141.00       *                                                      
0142.00      C                     SELEC                             
0143.00      C           *IN03     WHEQ *ON                          
0144.00      C                     EXSR #ENDPG                       
0145.00      C           *IN12     WHEQ *ON                          
0146.00      C*                    MOVE @NO       @LOOP2             
0147.00      C                     LEAVE                             
0148.00      C           *IN06     WHEQ *ON                          
0149.00      C                     EXSR #LAST                        
0150.00      C           *IN07     WHEQ *ON                          
0151.00      C                     EXSR #NEXT                        
0152.00      C                     ENDSL                             
0153.00       *                                                          
0154.00      C                     EXSR #CHK2                            
0155.00      C                     ENDDO                                 
0156.00       *                                                          
0157.00      C                     ENDSR                                 
0158.00       *----------------------------------------------------*     
0159.00       *< #CHK2--CHECK SCREEN 2  >                          *     
0160.00       *----------------------------------------------------*     
0161.00      C           #CHK2     BEGSR                                 
0162.00       *                                                          
0163.00      C           OP        IFEQ *BLANK                           
0164.00      C           OP1       ANDEQ*ZERO                            
0165.00      C           *IN07     ANDEQ*OFF                             
0166.00      C           *IN06     ANDEQ*OFF                             
0167.00      C                     MOVEL@MSG,2    NOTE      P            
0168.00      C                     ENDIF                                 
0169.00       *                                                          
0170.00      C           OP        IFNE *BLANK                        
0171.00      C           OP1       ANDEQ*ZERO                         
0172.00      C           *IN07     ANDEQ*OFF                          
0173.00      C           *IN06     ANDEQ*OFF                          
0174.00      C                     EXSR #SEL                          
0175.00      C                     ENDIF                              
0176.00       *                                                       
0177.00      C           OP        IFEQ *BLANK                        
0178.00      C           OP1       ANDEQ4                             
0179.00      C           *IN06     ANDEQ*OFF                          
0180.00      C           *IN07     ANDEQ*OFF                          
0181.00      C                     EXSR #DEL                          
0182.00      C                     ENDIF                              
0183.00       *                                                       
0184.00      C                     ENDSR                              
0185.00       *----------------------------------------------------*  
0186.00       *< #INIPG--INIT PGM  >                               *  
0187.00       *----------------------------------------------------*  
0188.00      C           *INZSR    BEGSR                              
0189.00       *                                                       
0190.00      C                     MOVE *BLANK    @LOOP0  1           
0191.00      C                     MOVE *BLANK    @LOOP1  1           
0192.00      C                     MOVE *BLANK    @LOOP2  1           
0193.00      C                     MOVE *BLANK    @LOOP3  1           
0194.00      C                     MOVE *BLANK    @SIGN   1           
0195.00      C                     MOVE 'Y'       @YES    1           
0196.00      C                     MOVE 'N'       @NO     1           
0197.00      C                     Z-ADD0         @RRN    50          
0198.00       *                                                       
0199.00      C                     ENDSR                  

优化网站性能的14条军规快速提高网站访问速度
03-02
自己是做前端开发的，在性能方面，根据yahoo的调查，后台只占5%，而前端高达95%之多，其中有88%的东西是可以优化网站性能的。以上是一张web2.0页面的生命周期图。工程师很形象地讲它分成了“怀孕，出生，毕业，结婚...
提高网站访问速度的34条军规-索引
11-22
提高网站访问速度的34条军规。本文讲述的是如何让访问速度增加的一些方法。
提高网站访问速度的34个方法
weixin_30830327的博客
06-03 1212
1 减少HTTP请求数量 (Minimize HTTP Requests) tag:content 80%的用户响应时间被花费在前端，而这其中的绝大多数时间是用于下载页面中的图片、样式表、脚本以及Flash这些组件。减少这些组件的数量就可以减少展示页面所需的请求数，而这是提高网页响应速度的关键。 朴素的页面设计当然是减少组件的一种途径，但有没有能兼顾丰富的页面内容和快速的响应速度的...
Android打造完美的刮刮乐效果控件
weixin_33842328的博客
03-09 207
技术：Android+Java 概述 趁着元旦假期之际，首先在这里，我祝福大家在新的2019年都一个个的新健康，新收入，新顺利，新如意！！！ 上一偏，我介绍了用Xfermode实现自定义圆角和椭圆图片view的博文《Android实现自定义圆形、圆角和椭圆ImageView（使用Xfermode图形渲染方法）》， 今天我们来看看如何实现电商app里常用到的刮刮卡效果的...
提高网站访问速度的34条军规-转
wxiangxueC的博客
07-31 185
原文：http://www.cnblogs.com/smjack/archive/2009/02/24/1396895.html 提高网站访问速度的34条军规 1-3 减少HTTP请求数量 使用内容分布式网络 给头部添加一个失效期或者cache-control 提高网站访问速度的34条军规 4-6 压缩组件 把样式表放于前面 把脚本放在最后 提高网...
提高网站访问速度的34条军规（1）
qq_14840111的博客
07-12 318
1 减少HTTP请求数量 (Minimize HTTP Requests)---据网络整理 80%的用户响应时间被花费在前端，而这其中的绝大多数时间是用于下载页面中的图片、样式表、脚本以及Flash这些组件。减少这些组件的数量就可以减少展示页面所需的请求数，而这是提高网页响应速度的关键。 朴素的页面设计当然是减少组件的一种途径，但有没有能兼顾丰富的页面内容和快速的响应速度的方法呢？下面
提高网站访问速度的34条军规——————上
咸鱼的星空
04-29 753
1、减少HTTP请求数量  到底
提高网站访问速度的34条军规（31-34）
上善若水，水善利万物而不争。
09-11 2770
原文：Best Practices for Speeding Up Your Web Site   31 不要在HTML中缩放图片 Don't Scale Images in HTML tag：images   不要使用大小超过需要的图片，即使你能够在HTML中设置它的属性。如果你需要 img width="100" height="100" src="mycat.jpg" a
【译】提高网站访问速度的34条军规
Larry的博客
09-09 381
原文：best practices for speeding up your web site 提高网站访问速度的34条军规 1-3 减少HTTP请求数量使用内容分布式网络给头部添加一个失效期或者cache-control 提高网站访问速度的34条军规 4-6 压缩组件把样式表放于前面把脚本放在最后 提高网站访问速度的34条军规 7-10 不使用
提高网站访问速度的34条军规
weixin_33858336的博客
05-16 175
原文：best practices for speeding up your web site1 减少HTTP请求数量tag:content80%的用户响应时间被花费在前端，而这其中的绝大多数时间是用于下载页面中的图片、样式表、脚本以及Flash这些组件。减少这些组件的数量就可以减少展示页面所需的请求数，而这是提高网页响应速度的关键。朴素的页面设计当然是减少组件的一种途径，但...
提高网站访问速度的34条军规——————下
咸鱼的星空
04-29 624
18、预先加载组件
提高网站访问速度的34条军规（1-3）
11-22
提高网站访问速度的34条军规。本文讲述的是如何提高网站访问速度
C#类库封装：简化SDK调用实现多功能集成，构建地磅无人值守系统
最新发布
07-24
内容概要：本文介绍了利用C#类库封装多个硬件设备的SDK接口，实现一系列复杂功能的一键式调用。具体功能包括身份证信息读取、人证识别、车牌识别（支持臻识和海康摄像头）、LED显示屏文字输出、称重数据读取、二维码扫描以及语音播报。所有功能均被封装为简单的API，极大降低了开发者的工作量和技术门槛。文中详细展示了各个功能的具体实现方式及其应用场景，如身份证读取、人证核验、车牌识别等，并最终将这些功能整合到一起，形成了一套完整的地磅称重无人值守系统解决方案。 适合人群：具有一定C#编程经验的技术人员，尤其是需要快速集成多种硬件设备SDK的应用开发者。 使用场景及目标：适用于需要高效集成多种硬件设备SDK的项目，特别是那些涉及身份验证、车辆管理、物流仓储等领域的企业级应用。通过使用这些封装好的API，可以大大缩短开发周期，降低维护成本，提高系统的稳定性和易用性。 其他说明：虽然封装后的API极大地简化了开发流程，但对于一些特殊的业务需求，仍然可能需要深入研究底层SDK。此外，在实际部署过程中，还需考虑网络环境、硬件兼容性等因素的影响。
基于STM32F1的BLDC无刷直流电机与PMSM永磁同步电机源码解析：传感器与无传感器驱动详解
07-24
基于STM32F1的BLDC无刷直流电机和PMSM永磁同步电机的驱动实现方法，涵盖了有传感器和无传感两种驱动方式。对于BLDC电机，有传感器部分采用霍尔传感器进行六步换相，无传感部分则利用反电动势过零点检测实现换相。对于PMSM电机，有传感器部分包括霍尔传感器和编码器的方式，无传感部分则采用了滑模观测器进行矢量控制（FOC）。文中不仅提供了详细的代码片段，还分享了许多调试经验和技巧。 适合人群：具有一定嵌入式系统和电机控制基础知识的研发人员和技术爱好者。 使用场景及目标：适用于需要深入了解和实现BLDC和PMSM电机驱动的开发者，帮助他们掌握不同传感器条件下的电机控制技术和优化方法。 其他说明：文章强调了实际调试过程中可能遇到的问题及其解决方案，如霍尔传感器的中断触发换相、反电动势过零点检测的采样时机、滑模观测器的参数调整以及编码器的ABZ解码等。
基于Java的跨平台图像处理软件ImageJ：多功能图像编辑与分析工具
07-24
内容概要：本文介绍了基于Java的图像处理软件ImageJ，详细阐述了它的跨平台特性、多线程处理能力及其丰富的图像处理功能。ImageJ由美国国立卫生研究院开发，能够在多种操作系统上运行，包括Windows、Mac OS、Linux等。它支持多种图像格式，如TIFF、PNG、GIF、JPEG、BMP、DICOM、FITS等，并提供图像栈功能，允许多个图像在同一窗口中进行并行处理。此外，ImageJ还提供了诸如缩放、旋转、扭曲、平滑处理等基本操作，以及区域和像素统计、间距、角度计算等高级功能。这些特性使ImageJ成为科研、医学、生物等多个领域的理想选择。 适合人群：需要进行图像处理的专业人士，如科研人员、医生、生物学家，以及对图像处理感兴趣的普通用户。 使用场景及目标：适用于需要高效处理大量图像数据的场合，特别是在科研、医学、生物学等领域。用户可以通过ImageJ进行图像的编辑、分析、处理和保存，提高工作效率。 其他说明：ImageJ不仅功能强大，而且操作简单，用户无需安装额外的运行环境即可直接使用。其基于Java的开发方式确保了不同操作系统之间的兼容性和一致性。
MATLAB语音识别系统：基于GUI的数字0-9识别及深度学习模型应用 · GUI v1.2
07-24
内容概要：本文介绍了一款基于MATLAB的语音识别系统，主要功能是识别数字0到9。该系统采用图形用户界面（GUI），方便用户操作，并配有详尽的代码注释和开发报告。文中详细描述了系统的各个组成部分，包括音频采集、信号处理、特征提取、模型训练和预测等关键环节。此外，还讨论了MATLAB在此项目中的优势及其面临的挑战，如提高识别率和处理背景噪音等问题。最后，通过对各模块的工作原理和技术细节的总结，为未来的研究和发展提供了宝贵的参考资料。 适合人群：对语音识别技术和MATLAB感兴趣的初学者、学生或研究人员。 使用场景及目标：适用于希望深入了解语音识别技术原理的人群，特别是希望通过实际案例掌握MATLAB编程技巧的学习者。目标是在实践中学习如何构建简单的语音识别应用程序。 其他说明：该程序需要MATLAB 2019b及以上版本才能正常运行，建议使用者确保软件环境符合要求。
c语言通讯录管理系统源码.zip
07-24
C语言项目源码
基于MATLAB的电力与天然气市场出清及多方博弈行为分析
07-24
内容概要：本文探讨了利用MATLAB进行电力市场和天然气市场出清的研究，重点分析了多方博弈行为对能源价格和市场出清的影响。文中首先介绍了简单的电力市场出清问题，通过最小化成本来满足负荷需求，并展示了具体的MATLAB代码实现。接着讨论了发电厂之间的博弈行为，特别是如何通过纳什均衡求解来最大化各自的利润。对于天然气市场，文章提到了管网压力约束带来的复杂性以及如何通过半定松弛技巧将非凸优化问题转化为可处理的形式。最后，文章还涉及了电-气市场耦合情况下的价格传导效应，展示了如何使用符号计算工具箱进行交叉价格弹性的计算。 适合人群：对电力市场、天然气市场及能源经济学感兴趣的科研人员和技术开发者。 使用场景及目标：适用于希望深入了解电力和天然气市场运作机制的人群，尤其是那些希望通过数学建模和仿真手段研究市场动态变化的专业人士。目标是帮助读者掌握如何使用MATLAB进行复杂的市场出清模拟和博弈分析。 其他说明：文章不仅提供了理论背景介绍，还包括了大量的MATLAB代码实例，便于读者理解和实践。此外，文章强调了现实中市场出清问题的复杂性和多变性，鼓励读者结合实际情况灵活应用所学知识。
c语言学生信息系统.zip
07-24
C语言项目源码
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值