免费注册	查看新帖 \|


平台论坛博客文库

› 论坛 › 操作系统 › AS400 › 請教各位,JFILE三個表應該怎嚜寫呀?(已經解決,非常感謝, ...

12 / 2 页下一页

最近访问板块

发新帖

查看: 4461 | 回复: 10

上一主题

下一主题

請教各位,JFILE三個表應該怎嚜寫呀?(已經解決,非常感謝,方法已經貼出) [复制链接]

论坛徽章:: 0

电梯直达

跳转到指定楼层

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

发表于 2008-01-14 10:26 |只看该作者 |倒序浏览

R RSALARY                JFILE(QGPL/PSFCNET  QGPL/KHF8N )
J                         JFLD(PEMN PEMN)
  PEMN                   JREF(PSFCNET)
  NAME                   JREF(PSFCNET)
  PDPT                   JREF(PSFCNET)
  PEMD                   JREF(PSFCNET)
  PQDT                   JREF(PSFCNET)
  PQRS                   JREF(PSFCNET)
  TTL1                   JREF(PSFCNET)
  DAT1                   JREF(PSFCNET)
  PCK1                   JREF(PSFCNET)
  PDDT                   JREF(PSFCNET)
  KH1                      JREF(KHF8NET)
  KH2                      JREF(KHF8NET)
  K PEMN
這樣連結兩個table 沒有問題,但是不知道三個怎嚜寫?
請各位賜教!

[ 本帖最后由 rose_xt 于 2008-1-16 16:33 编辑 ]

文库|博客

论坛徽章:: 0

2楼 [报告]

发表于 2008-01-15 08:49 |只看该作者

JLF
|...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
A JDFTVAL
A R JRCD JFILE(PF1 PF2 PF3)
A J JOIN(PF1 PF2)
A JFLD(NAME NAME)
A J JOIN(PF2 PF3)
A JFLD(TELEPHONE TELEPHONE)
A NAME JREF(PF1)
A ADDR
A TELEPHONE JREF(PF2)
A LOC
A
PF1
|...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
A R RCD1
A NAME 20
A ADDR 40
A COUNTRY 40
A
PF2
|...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
A R RCD2
A NAME 20
A TELEPHONE 8 DFT(©999-9999©;)
A
PF3
|...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
A R RCD3
A TELEPHONE 8
A LOC 30 DFT(©No location assigned©;)

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

论坛徽章:: 0

3楼 [报告]

发表于 2008-01-15 08:52 |只看该作者

Join Logical File (JLF)
|...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
A DYNSLT
A JDFTVAL
A R RECORD1 JFILE(PF1 PF2 PF3)
A J JOIN(1 2)
A JFLD(VDRNBR VDRNUM)
A JDUPSEQ(JOBNBR)
A J JOIN(2 3)
A JFLD(PRTNBR PRTNBR)
A JFLD(UNTPRC UNITPRICE)
A VDRNUM 5A N TEXT(©CHANGED ZONED TO CHAR©)
A VDRNAM
A ADDRESS CONCAT(STREET CITY STATE +
A ZIPCODE)
A JOBNBR
A PRTNBR JREF(2)
A DESCR
A QORDER
A UNTPRC
A WHSNBR
A PRTLOC
A S VDRNAM COMP(EQ ©;SEWING COMPANY©;)
A S QORDER COMP(GT 5)

copy from <<DB2 for AS/400 Database Programming>>

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

论坛徽章:: 0

4楼 [报告]

发表于 2008-01-16 11:49 |只看该作者

非常感謝,參照這樣寫了,還是有問題,估計我是寫的有問題,還在實驗中...

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

论坛徽章:: 0

5楼 [报告]

发表于 2008-01-16 12:00 |只看该作者

我這樣寫的,就是報錯.
A       R RSALARY                JFILE(A/P A/H A/PE)
A       J                               JOIN(1 2)
A       J                               JFLD(PEMN PEMN)
A       J                               JOIN(2 3)
A       J                               JFLD(PEMN PEMN)
A          PEMN                      JREF(1)
A       K PEMN

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

论坛徽章:: 0

6楼 [报告]

发表于 2008-01-16 12:26 |只看该作者

代码全部贴出来

A J JFLD(PEMN PEMN)
这行不应该有当中这个J吧

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

论坛徽章:: 0

7楼 [报告]

发表于 2008-01-16 12:40 |只看该作者

试了下，这样是可以的

A       R JRCD                   JFILE(PF1 PF2 PF3)
A       J                         JOIN(PF1 PF2)
A                                     JFLD(NAME NAME)
A       J                         JOIN(PF2 PF3)
A                                     JFLD(TELEPHONE TELEPHONE)
A          NAME                   JREF(PF1)
A          TELEPHONE                JREF(PF2)

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

论坛徽章:: 0

8楼 [报告]

发表于 2008-01-16 13:03 |只看该作者

OK了,太感謝了...解決了

這樣是可以了
A       R RSALARY                JFILE(A/P  A/H  A/PE)
A       J                         JOIN(1 2)
A                                     JFLD(PEMN PEMN)
A       J                         JOIN(2    3 )
A                                     JFLD(PEMN PEMN)
A          PEMN                   JREF(1)
A       K PEMN
比較疑問的是下面這樣寫為啥不行?那麼我TABLE名字比較長的情況下就沒法3個JOIN了呢...

  R RSALARY                JFILE(A/P  A/H )
                           JFILE(A/P  A/PE)
  J                         JOIN(1 2)
                           JFLD(PEMN PEMN)
  J                         JOIN(1 3)
                           JFLD(PEMN PEMN)
PEMN                   JREF(1)
  K PEMN

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

风中散发芹

论坛徽章:: 0

9楼 [报告]

发表于 2008-01-16 16:03 |只看该作者

TABLE名字比较长的时候，你可以用连接符换行啊，这样再长的文件名都不怕了。

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

论坛徽章:: 0

10楼 [报告]

发表于 2008-01-16 16:16 |只看该作者

R RSALARY                JFILE(A/P  A/H  A/PE +
                           )
  J                         JOIN(1 2)
                           JFLD(PEMN PEMN)
  J                         JOIN(1 3)
                           JFLD(PEMN PEMN)
PEMN                   JREF(1)
  K PEMN

[ 本帖最后由 rose_xt 于 2008-1-16 16:32 编辑 ]

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

12 / 2 页下一页

发新帖

Chinaunix › 论坛 › 操作系统 › AS400 › 請教各位,JFILE三個表應該怎嚜寫呀?(已經解決,非常感謝, ...

北京盛拓优讯信息技术有限公司. 版权所有京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP