论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2012-08-28 20:08 |只看该作者 |倒序浏览

FPGTstDsPL1UF A E          K DISK
FPGTstDsP@ CF E          WORKSTN SFile(@@SFL:RRN)

*
DRRN             S             6S 0 INZ(0)
*
C                EXSR    #MAIN
C                EVAL    *INLR='1'
C                RETURN
*
*
*
CSR #MAIN       BEGSR
C                WRITE    FOOT
C                EXSR    #ClrSfl
C                EXSR    #LodSfl
C                EXSR    #LodSfl
C                Dow    *IN03    <> '1'
C                Exfmt    @@SFLC
C                EXSR    #PrcSfl
C                EndDo
CSR             ENDSR
*
*
*
CSR #ClrSfl    BEGSR
C                SETON                                     80
C                WRITE    @@SFLC
C                SETOFF                                     80
C                Z-Add    0          wNum             6 0
CSR                ENDSR

CSR #LodSfl BEGSR
C    *Loval    SetLL    FDSPR
C                Read    FDSPR                               30
C                Dow    *IN30='0'
*
C                Add    1          wNum
C                Eval    RRN       = wNum
C                Eval    @@SFPG    = wNum
C                Write    @@SFL
*
C                Read    FDSPR                               30
C                EndDo
*
CSR             EndSr

  *
  *
CSR #PrcSfl    BegSr
* 修改数据
C                When    Opt       = 2
C                Reset                Opt
C                Eval    @@SFPG    = RRN
C                Exfmt    @@WIDEDT
C                If       *IN12    = '0'
C                Update @@SFL
C                Exfmt    @@WIDSUC
*
C    DSPNO       Chain    FDSPR
C                If       %Found()
C                Update FDSPR
C                EndIf
C                Else
C                Update @@SFL
C                EndIf
*
CSR             EndSr

文库|博客

燕麦玉米粥

白手起家

论坛徽章:: 0

2楼 [报告]

发表于 2012-08-28 20:08 |只看该作者

请大家帮忙看下，我想实现在屏幕文件中修改记录，同时也修改与之关联的PF中对应的记录，屏幕文件中记录修改后正确显示，但是PF修改后，正常运行，FD PF时该记录却仍是修改前的值，Debug进去，到这一步也正常通过

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

爱笑的猫猫

白手起家

论坛徽章:: 0

3楼 [报告]

发表于 2012-08-28 20:31 |只看该作者

没太懂，修改子例程#PrcSfl是干嘛的？

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

燕麦玉米粥

白手起家

论坛徽章:: 0

4楼 [报告]

发表于 2012-08-28 21:46 |只看该作者

#PrcSfl是用来修改记录的呀

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

junlee1986

家境小康

论坛徽章:: 1

5楼 [报告]

发表于 2012-08-28 23:52 |只看该作者

C    DSPNO       Chain    FDSPR
C                If       %Found()
C                Update FDSPR
C                EndIf

这里没对PF 的FD进行修改值呀，这只是个空的UPDATE

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

燕麦玉米粥

白手起家

论坛徽章:: 0

6楼 [报告]

发表于 2012-08-29 08:35 |只看该作者

修改了吧，因为@@WIDEDT 这个窗口里的字段是引用PF字段定义的，连名字都没换，
A       R @@WIDEDT
A                                                 CF12(12 'Cancel')
A                                                 WINDOW(5 15 11 50)
A          DSPNO    R       O  2 10  REFFLD(FDSPR/DSPNO MYLIB/PGTSTDSPP)
A          DSPNAM R       B  3 10  REFFLD(FDSPR/DSPNAM MYLIB/PGTSTDSPP)
...............................