as400-RPG

RPGH DEBUG DATEDIT(*YMD) OPTION(*SRCSTMT:*NODEBUGIO) H是控制表头。F     FILE TYPE :   .U：允许修改，更新。  (一般用于物理数据文件)                       I:（inquery),读，查询。                       O:写，新增。。                       C：交互（读，写）画面文件。（WORKSTN）       FILE Desigination:                       Blank:空，指示到一个输出格式。                       P：文件自动遍历读。                       F: A FULL PROCEDURAL FILE.       FILE Addition :A    可新增数据。（数据文件）       FILE Format :E   标识外部文件。       Keywords: usropn  文件默认是打开的，加上这个标识后，标识文件需要用户控制文件                                          的开关。       Record  Address Type : K  表明是按关键字找记录。       Device:   DISK: 磁盘文件（物理数据文件）                 WORKSTN: 指画面文件DSPF.操作码：          add 加法操作。          BEGSR 开始一个子程序。           ENDSR. 结束。          CALL 调用一个程序。          CALLP：抵用一个程序，用于自由格式中。          CAS**  :选择。          CAT 连接连个字符串。          COMMIT:提交。          CHAIN: 定位，精确查找。              CHAIN(E N)          E:ERROR,后面匹配ER，找不到时ER为0          N:找不到时NR为1；          COMMIT:提交。          DSPLY:显示提示信息。          EVAL:          EXFMT:          EXSR :执行子程序。           ITER:跳出本次循环，进行下一次，          LEAVE:结束循环。          LEAVESR:结束子程序。           KLIST:用于组合KEY.          LOOKUP:   len=%lookup('D':A)            MOVE:赋值。          PLIST: 传参数。          READ:至上向下读。          READE:向下读一个相同的数据。          READP：至下向上读。          READPE:至下向上读一个相同的数据。          READC:读一个有改变的数据记录。 用于WORKSTN文件中，捕获界面文件的变                      化。SCAN:在字符串中查找字符。SETGT.SETLL:  READESETON:打开指示器。WRITE:建一个新记录到文件中。XLATE:替换。Z-ADD:先清零再加。返回光标处值在返回页面中设置隐藏变量CSRRRN(5,0)。并在记录层键字中（记录前摁8进入）设置SUBFILE CURSOR RELATIVE RECORD:   CSRRRN.在主页面中设置隐藏变量RCDNAM(10),FLDNAM(10),并在记录层键字中设置CURSOR RECORD:  RCDNAM;FIELD RECORD:     FLDNAM 1.FAWIN      CF   E             WORKSTN INDDS(INDICATORS)  使用INDDS时，要在文件层键字中（F14）设置  General keywords  . . . . . . . .    Y(进入）   Separate indicators area  . . . . . . . .   INDARA       Y 2.设置程序的结束： C                   SETON                                        LR     3.RRL的设置：FBASICINF  UF A E           K DISK    INFDS(RRLFDS)     DRRLFDS           DS                   D RRL#                  397    400B 0  4.画面文件指示器。//要在画面文件中设置FBASICD    CF   E             WORKSTN INDDS(INDICATORS)DINDICATORS       DS                  DPRINT_F11               11     11N   DEXIT                     3      3N    5.定义外部程序文件。DBGWIN            PR                   EXTPGM('BGWIN')    D AAAA                           8A      //定义返回参数。 6.定义出错信息DERRMSG_21               21     21N 同时要在画面中设置隐藏信息字段DERRMSG_21,（隐藏字段前打1进入设置INDICATOR）设置的的指示器为21 7.数据的有效性检查（在画面中摁F4进入）定义一个信息变量，在输入错误时候锁定键盘。 8.CHAIN例子CHAIN INDEX DTARCD; //    IF %FOUND;                EXSR ADD_STU_SR;        UPDATE XBASICINF;     ENDIF;                9.定位：使用有*LOVAL的SETLL来定位文件，第一个读到的记录具有最小键值SETLL ID@ BASICINF;        10.%EOF如果处于文件末尾，返回1，否则0. 11.KLIST.用于分配键字字段列表。0014.00 C     KEY1        KLIST                             0015.00 C                   KFLD                    CURNOX    0016.00 C                   KFLD                    REG1X     12.当CALL的画面文件不在同一个FILE下的时候，会引起画面的覆盖。可在引用画面的文件中建一个RECORD,设置RECORD记录层关键字，记录前摁8进入， Select record keywords  . . . . .Y General keywords  . . . . . . . .Y                Assume record is on display  . . . Y