求助:编程问题

jerry_1754

现在碰到一个需求,就是读取数据库中第N个字段的值,不知道字段名.
有无达人有好的方法可以解决?

jerry_1754

我想到办法了  定义个2维数组可以实现

jerry_1754

好象不是吧,你放到PF里,读取的只是值为字段名的字符.
又不能以这些字符实现字段的取值啊.

passthru

原帖由 jerry_1754 于 2008-6-12 17:15 发表

不是的,其实字段名是知道的,但是由于字段上百个,我想通过循环方法读取,这样的话就不能用字段名了,最好是类似数组,第一个..第二个之类.

其实实现你的方法很简单，把表结构拷贝到一个pf中，只要在程序中使用这个PF，就可以按循序读取每条记录，即字段名。就可以处理了。

passthru

原帖由 jerry_1754 于 2008-6-12 15:25 发表

找不到手册,能否发一份到我邮箱:jerry_1754@sina.com
谢谢!

我把相关例子放在下面：

*.. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ..*
F********************************************************************
F* SUBROUTINES USED:
F* L1CLR - Control level detail time clear of work fields
F* UPDSR - Project and reason code master update and detail print
F* TOTL1 - Control-level total-time employee master update and
F* total time print
F********************************************************************
F* This program uses program-described files. Files
F* used are: TRWEEK - weekly transaction entry file
F* EMPMST - employee master file
F* PRJMST - project master file
F* RSNMST - reason code master file
F* QSYSPRT - printer file
F********************************************************************
FFilenameIPEAF....RlenLK1AIOvKlocEDevice+......KExit++Entry+A....U1.*
FTRWEEK IP    F      53                      DISK
FEMPMST UF   F    103      4PI       2  DISK
FPRJMST  UF   F    120      8AI       2  DISK
FRSNMST UF   F      73      8AI       2  DISK
FQSYSPRT O   F    132         OF         PRINTER
E*
E* The following extension specification describes the compile-time
E* table TABMTH. This table contains an entry for each month of
E* the year with the alternating entry TABNAM containing the month's
E* descriptive name. The table is accessed to provide the month
E* name in the heading line date field.
E*
E....FromfileTofile++Name++N/rN/tbLenPDSArrnamLenPDSComments++++++++*
E TABMTH 1 12 2 0 TABNAM 9
*.. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ..*
I*
I* The weekly transaction entry file containing all time entries
I* is processed by employee number with control-level indicator L1
I* defined to control processing on a change of employee number.
I*
IFilenameSqNORiPos1NCCPos2NCCPos3NCC................................*
ITRWEEK NS 01
I....................................PFromTo++DField+L1M1FrPlMnZr...*
I                                    P      2    50 EMPNO L1
I                                            6    13 EUSRI
I                                          20  250 CWKDT
I                                          14 190  ACDAT
I                                          32   39  PRCDE
I                                          40   47 RSCDE
I                                   P     48 501 EHWRK
I                                   P     51 530 TFRRN
。。。。。。

jerry_1754

原帖由 fxf_china 于 2008-6-12 17:07 发表
dspffd 输出到一个文件，顺序读取生成的文件到第5条记录（每个记录代表1字段）

不是的,其实字段名是知道的,但是由于字段上百个,我想通过循环方法读取,这样的话就不能用字段名了,最好是类似数组,第一个..第二个之类.

fxf_china

dspffd 输出到一个文件，顺序读取生成的文件到第5条记录（每个记录代表1字段）

jerry_1754

原帖由 passthru 于 2008-6-12 12:08 发表

请查看《RPG User‘s Guide》SC09-1816-00
         
P429 程序描述RPG例子。

找不到手册,能否发一份到我邮箱:jerry_1754@sina.com
谢谢!

jerry_1754

谢谢楼上~ 研究中~

zszyj

原帖由 jerry_1754 于 2008-6-12 10:54 发表
现在碰到一个需求,就是读取数据库中第N个字段的值,不知道字段名.
有无达人有好的方法可以解决?

用ESQL/C或者COBOL或者RPG相信都没有办法实现的. 只有用CLI接口可以做到,或者从数据字典表中查可以做到.