亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: 請(qǐng)教各位,JFILE三個(gè)表應(yīng)該怎嚜寫呀?(已經(jīng)解決,非常感謝,方法已經(jīng)貼出) [打印本頁]

作者: rose_xt 時(shí)間: 2008-01-14 10:26
標(biāo)題: 請(qǐng)教各位,JFILE三個(gè)表應(yīng)該怎嚜寫呀?(已經(jīng)解決,非常感謝,方法已經(jīng)貼出)
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
這樣連結(jié)兩個(gè)table 沒有問題,但是不知道三個(gè)怎嚜寫?
請(qǐng)各位賜教!

[ 本帖最后由 rose_xt 于 2008-1-16 16:33 編輯 ]

作者: fxf_china 時(shí)間: 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©;)

作者: fxf_china 時(shí)間: 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>>

作者: rose_xt 時(shí)間: 2008-01-16 11:49
非常感謝,參照這樣寫了,還是有問題,估計(jì)我是寫的有問題,還在實(shí)驗(yàn)中...

作者: rose_xt 時(shí)間: 2008-01-16 12:00
我這樣寫的,就是報(bào)錯(cuò).
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

作者: fxf_china 時(shí)間: 2008-01-16 12:26
代碼全部貼出來

A J JFLD(PEMN PEMN)
這行不應(yīng)該有當(dāng)中這個(gè)J吧

作者: fxf_china 時(shí)間: 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)

作者: rose_xt 時(shí)間: 2008-01-16 13:03
標(biāo)題: 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名字比較長(zhǎng)的情況下就沒法3個(gè)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

作者: 風(fēng)中散發(fā)芹 時(shí)間: 2008-01-16 16:03
TABLE名字比較長(zhǎng)的時(shí)候，你可以用連接符換行啊，這樣再長(zhǎng)的文件名都不怕了。

作者: rose_xt 時(shí)間: 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 編輯 ]

作者: rose_xt 時(shí)間: 2008-01-16 16:23
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

歡迎光臨 Chinaunix (http://www.72891.cn/)