Versions Compared

Old Version 6

changes.mady.by.user Rieko Saitoh

Saved on

compared with

New Version Current

changes.mady.by.user Rieko Saitoh

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

例1：受注番号を入力するようユーザーに要求してから明細行の詳細を印刷する以下の2つのRDMLプログラムについて考えます。 

Code Block
    GROUP  GROUP_BY  NAME(#ORDERDET) FIELDS(#ORDNUM #CUSTNUM #DATEDUE #ORDLIN #PRODUCT #QUANTITY #PRICE)
    REQUEST   FIELDS(#ORDNUM)
L1: FETCH     FIELDS(#ORDERDET) FROM_FILE(ORDHDR) WITH_KEY(#ORDNUM) NOT_FOUND(L1) ISSUE_MSG(*YES)
    SELECT    FIELDS(#ORDERDET) FROM_FILE(ORDLIN) WITH_KEY(#ORDNUM)
    UPRINT    FIELDS(#ORDERDET)
    ENDSELECT
    GOTO      L1

もう1つのRDMLプログラムは以下のとおりです。 

Code Block
      GROUP GROUP_BY  NAME(#ORDERDET) FIELDS(#ORDNUM #CUSTNUM #DATEDUE #ORDLIN #PRODUCT #QUANTITY #PRICE)
      REQUEST   FIELDS(#ORDNUM)
 L1:  FETCH     FIELDS(#ORDERDET) FROM_FILE(ORDHDR) WITH_KEY(#ORDNUM) NOT_FOUND(L1) ISSUE_MSG(*YES)
      SELECT    FIELDS(#ORDERDET) FROM_FILE(ORDLIN) WITH_KEY(#ORDNUM)
      UPRINT    FIELDS(#ORDERDET)
      ENDSELECT
      ENDPRINT
      GOTO      L1     

両方のプログラムがほぼ同じであることに注意してください。どちらも受注番号の入力を要求し、注文頭書きの詳細を取得し、関連付けられた明細行の詳細をすべて印刷します。 

...