AS400について-77家的会客厅

AS400将PF转成CSV或XLS

2012-05-10 04:35:11.796010

很多人提到过N种方法，什么变成SPLF再打印成什么，或是直接BIFF8格式下载之类的；

SPLF什么的很麻烦就不说了，BIFF8有个问题是像大量数据的时候很不好用，并且容易出现乱码。

那么只用一个方法，就可以将PF的数据导下来，AS400有一个命令叫“CPYTOIMPF”，可以将PF文件复制到一个单字段的PF里，原来PF的各个字段会变成CSV格式的，

然后再把这个CSV PF下载下来，直接用ASCII模式，扩展名用TXT或CSV都行，因为他就是纯文本，

FTP传送码和CCSID的对应关系

2011-10-12 15:59:24.194546

TYPE (表示タイプの指定)

FTP サーバー・サブコマンド

ファイル転送を行うときのファイル転送のタイプまたは表示方法を指定するには、次の形式の TYPE FTP サーバー・サブコマンドを使用します。

 TYPE   [ A
        |  B [ 1 | 2 | 3 [A|R] | 4 [A|R  ] | 5 | 6 | 7]
        |  C ccsid#
        |  E
        |  F [ 1 ]
        |  I ]

RPG中数组和DS使用方法总结

2011-08-30 09:45:15.141165

ARRAY
一 array与table的区别
      Array：可以使用下标，进行顺序访问或随即访问
      Table：不可以使用下标，只能顺序访问。只能以TABxxx开头。
      注：table虽然和array的功能相似，但是array要比table灵活很多。Table可以淘汰了，了解table的原因是维护老的代码时可能会用到。

二 array的类型和key word
      1有三种类型的array，分别是compile time array、run time array、pre-run time array。

      2与array相关的key word：
      DIM（number）       定义数组中元素的数量

RPGLE中REPLACE函数的用法

2011-08-26 15:05:59.416661

%REPLACE(replacement string: source string{:start position {:source
length to replace}})

%REPLACE returns the character string produced by inserting a replacement string into the source string, starting at the start position and replacing the specified number of characters.

The first and second parameter must be of type character, graphic, or UCS-2 and can be in either fixed- or variable-length format. The second parameter must be the same type as the first.

The third parameter represents the starting position, measured in characters, for the replacement string. If it is not specified, the starting position is at the beginning of the source string. The value may range from one to the current length of the source string plus one.

The fourth parameter represents the number of characters in the source string to be replaced. If zero is specified, then the replacement string is inserted before the specified starting position. If the parameter is not specified, the number of characters replaced is the same as the length of the replacement string. The value must be greater than or equal to zero, and less than or equal to the current length of the source string.

The starting position and length may be any numeric value or numeric expression with no decimal positions.

The returned value is varying length if the source string or replacement string are varying length, or if the start position or source length to replace are variables. Otherwise, the result is fixed length.

AS400安全相关命令

2011-08-10 11:04:47.322763

GRTOBJAUT

RVKOBJAUT

EDTOBJAUT

CRTAUTL

EDTAUTLE

WRKAUTL

CL命令实现一个SRC-PF内所有MBR的内容查找，并导出LIST

2011-08-01 13:37:41.096582

设计思路：

1、使用FNDSTRPDM进行查找，查找结果PRINT到SPOOL FILE里

2、将SPOOL FILE拷到PF-DTA内

3、使用SQL语句更新PF-DTA得到结果

AS400命令行CALL程序时传递数字参数总结

2011-07-25 14:40:22.522468

对于S类型的参数，只要按照字符串的形式，在没有数字的位置补0，不用输入小数点，就可以得到正确的结果，如果是负数，在第一位输入负号 - 即可，但是会占用一个数字位，7位的负数就只能输入6位数字了。

对于P类型的参数，数字部分按照S类型的一样输入，还需要在字符串前加 X，并且如果长度为奇数，需要给字符串加 F 后缀，如果长度为偶数，需要在字符串的前后都加 F。如果是负数的，需要把字符串后面的F变为E。（X表示按16进制取值，由于P类型的数据存储方式是半个字节存储一个数字，所以需要在前后加其它的字母补齐空位。）

AS400调取子程序的画面挡住前画面的解决方法

2011-07-19 10:18:08.455117

只需要在子程序所使用的DSPF画面加入如下一个RECORD即可

A*********************************************        
A**DUMMY SCREEN                                       
A*********************************************        
A          R DUMMY                     TEXT('DUMY')   
A                                      ASSUME         
A                                  1  2' ' DSPATR(ND)

DSPF中实现光标FOCUS后高亮显示

2011-07-13 10:38:47.834440

很简单，只需要在相应的filed下面加上这个属性

ENTFLDATR((*DSPATR HI))

RPGLE中DS结构和数组结合的几种方式

2010-05-29 23:57:04.202645

最近的项目中不段的用到配列（数组），二维配列以及DS等。将几种定义方式及区别列举如下：

变量定义以T@或W@开头，分别带表是数组还是普通WK变量。

T@ARR        DS         DIM(10) QUALIFIED
 T@SUBARR        12A    DIM(20)

上面这个就是一个二维数组，相当于DB中的横向20个字段，记录有10条。

必须加“QUALIFIED"关键字。

T@ARR       DS         DIM(10)
 W@SUB1           5A
 W@SUB2           5S 0

上面这个是数组呢，相当于每条记录是由W@SUB1和W@SUB2组成的，也就是T@ARR的每条记录是一个10A的变量。

            DS
T@ARR             20A   DIM(10)
 T@ARR1            5A   OVERLAY(T@ARR:1)  */OR OVERLAY(T@ARR:*NEXT)
 T@ARR2            5A   OVERLAY(T@ARR:6)
 T@ARR3           10S 0 OVERLAY(T@ARR:11)

上面的也是T@ARR的每条记录由三个变量组成，但上面这种定义方法，可以将三个变量也形成一个DIM(10)的数组，这样对于DB中有规律的重复字段来说就很有用。

W@STR        DS      10A
 T@ARR                1A      DIM(10)

上面这个就是将变量W@STR分成一个单个元素长度为1A的数组。