- 论坛徽章:
- 0
|
表a12:
Field Level Information
Data Field Buffer Buffer Field Column
Field Type Length Length Position Usage Heading
A1 CHAR 10 12 1 Both A1
rpg:
FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords+++++++++++++++++++++++++
*************** Beginning of data *************************************
0001.00 FA12 IF A E DISK RENAME(A12:A12R)
0009.01 C MOVE 'AAAA' A1
0009.02 C WRITE A12R 99
0019.01 C *IN99 DSPLY
0024.00 C SETON LR
****************** End of data ****************************************
[ 本帖最后由 chenzhy 于 2006-5-16 14:13 编辑 ] |
|