求助：开发报表时的左右移动问题。

xgame19811024

是DSPF,类似shift+F8的功能，呵呵，多谢大家的关心，谁有好办法呀？！

wildfish

做两个subfile,字段相同，显示的内容不同，这样就可以做到切换屏幕的功能。
主要的就是维护subfile 的cursor还是rownumber好像，嗬嗬，好久没有写rpg了。

xgame19811024

原帖由 wildfish 于 2005-12-6 22:02 发表
做两个subfile,字段相同，显示的内容不同，这样就可以做到切换屏幕的功能。
主要的就是维护subfile 的cursor还是rownumber好像，嗬嗬，好久没有写rpg了。

多谢，我现在就是用2个subfile，但是每次移动就从头显示，不知道怎么样让让2个subfile同行移动。呵呵

fairyboy

同行移动也是利用，第一屏幕中的记录值，直接去定位第２屏的显示内容，或是抓第一屏幕上的记录，然后去ＣＨＡＩＮ第２屏的，然后显示．

utirei

这叫报表？昏死啊~~~
定义两个sfl保持当前页一致就可以了。
很简单。
主要是sflctl纪录里面的
A            WSSRCD         4S 0H      SFLRCDNBR(CURSOR)

只要保证两个sflctl里面的SFLRCDNBR(CURSOR) 的值相同，且有值就可以了。
另外，费一下唾沫，WSSRCD是取sfl当前页的第一条记录的相对记录号。不能为0，不能超过sfl最大的record数。
这样按功能键显示的时候，就会出现平行显示的效果。

[ 本帖最后由 utirei 于 2005-12-7 11:01 编辑 ]

liu__jiang

原帖由 utirei 于 2005-12-7 10:54 发表
这叫报表？昏死啊~~~
定义两个sfl保持当前页一致就可以了。
很简单。
主要是sflctl纪录里面的
A            WSSRCD         4S 0H      SFLRCDNBR(CURSOR)

只要保证两个sflctl里面的SFLRCDNBR(CURSOR) 的 ...

顶下，不错，我说怎么他们说着说着，就把报表弄到了SUBFILE了呢？

kingkch1981

等会试试看。

utirei

原帖由 utirei 于 2005-12-7 10:54 发表
这叫报表？昏死啊~~~
定义两个sfl保持当前页一致就可以了。
很简单。
主要是sflctl纪录里面的
A            WSSRCD         4S 0H      SFLRCDNBR(CURSOR)

只要保证两个sflctl里面的SFLRCDNBR(CURSOR) 的 ...

补充一下。

sfl当前页的的第一条记录的相对记录号的取得：
infds里面的378-379位便是。每次操作画面的系统自动取得。

liu__jiang

可做参看：
D ODP_TYPE               81     82                                         * ODP Type
D FILE_NAME              83     92                                         * File name
D LIBRARY                93    102                                         * Library name
D SPOOL_FILE            103    112                                    * Spool file name
      D SPOOL_LIB             113    122                                  * Spool file lib
      D SPOOL_NUM             123    124B 0                       * Spool file num
      D RCD_LEN               125    126B 0                          * Max record len
      D KEY_LEN               127    128B 0                                * Max key len
      D MEMBER                129    138                                 * Member name
      D TYPE                  147    148B 0                                      * File type
      D ROWS                  152    153B 0                       * Num PRT/DSP rows
      D COLIMNS               154    155B 0                      * Num PRT/DSP cols
      D NUM_RCDS              156    159B 0                      * Num of records
      D ACC_TYPE              160    161                             * Access type
      D DUP_KEY               162    162                               * Duplicate key?
D SRC_FILE              163    163                                        * Source file?
D VOL_OFF               184    185B 0                              * Vol label offset
      D BLK_RCDS              186    187B 0                       * Max rcds in blk
      D OVERFLOW              188    189B 0                       * Overflow line
      D BLK_INCR              190    191B 0                        * Blk increment
      D FLAGS1                196    196                                 * Misc flags
      D REQUESTER             197    206                          * Requester name
      D OPEN_COUNT            207    208B 0                         * Open count
      D BASED_MBRS            211    212B 0                  * Num based mbrs
      D FLAGS2                213    213                                   * Misc flags
      D OPEN_ID               214    215                            * Open identifier
      D RCDFMT_LEN            216    217B 0                  * Max rcd fmt len
      D CCSID                 218    219B 0                      * Database CCSID
      D FLAGS3                220    220                            * Misc flags
      D NUM_DEVS              227    229B 0                   * Num devs defined
      D WRITE_CNT             243    246B 0                   * Write count
      D READ_CNT              247    250B 0                      * Read count
      D WRTRD_CNT             251    254B 0              * Write/read count
      D OTHER_CNT             255    258B 0                   * Other I/O count
      D OPERATION             260    260                    * Cuurent operation
      D IO_RCD_FMT            261    270                     * Rcd format name
      D DEV_CLASS             271    272                      * Device class
      D IO_PGM_DEV            273    282                     * Pgm device name
      D IO_RCD_LEN            283    286B 0                         * Rcd len of I/O
D CUR_LINE              367    368B 0                            * Current line num
      D CUR_PAGE              369    372B 0                       * Current page cnt
      D PRT_MAJOR             401    402                         * Major ret code
      D PRT_MINOR             403    404                               * Minor ret code
D FDBK_SIZE             367    370B 0                              * Size of DB fdbk
      D JOIN_BITS             371    374B 0                            * JFILE bits
      D LOCK_RCDS             377    378B 0                       * Nbr locked rcds
      D POS_BITS              385    385                                    * File pos bits
      D DLT_BITS              384    384                               * Rcd deleted bits
      D NUM_KEYS              387    388B 0                        * Num keys (bin)
      D KEY_LEN               393    394B 0                              * Key length
      D MBR_NUM               395    395B 0                        * Member number
      D DB_RRN                397    400B 0                        * Relative-rcd-num
      D KEY                   401   2400                                * Key value (max
      D                                                                          *   size 2000)
      D DSP_FLAG1             367    368                                  * Display flags
      D DSP_AID               369    369                                         * AID byte
      D CURSOR                370    371                                * Cursor location
      D DATA_LEN              372    375B 0                        * Actual data len
      D SF_RRN                376    377B 0                              * Subfile rrn
      D MIN_RRN               378    379B 0                            * Subfile min rrn
      D NUM_RCDS              380    381B 0                   * Subfile num rcds
      D ACT_CURS              382    383                           * Active window
      D                                                                          *  cursor location
      D DSP_MAJOR             401    402                         * Major ret code
      D DSP_MINOR             403    404                          * Minor ret code
      D ICF_AID               369    369                                 * AID byte
      D ICF_LEN               372    375B 0                             * Actual data len
      D ICF_MAJOR             401    402                            * Major ret code
      D ICF_MINOR             403    404                          * Minor ret code
      D SNA_SENSE             405    412                           * SNA sense rc
      D SAFE_IND              413    413                                * Safe indicator
      D RQSWRT                415    415                                 * Request write
      D RMT_FMT               416    425                               * Remote rcd fmt
      D ICF_MODE              430    437                                  * Mode name

utirei

楼主使用rpg哪个版本啊？
rpgiv      D MIN_RRN               378    379B 0                            * Subfile min rrn
另外，两个sfl要同时初始化。