Versions Compared

Old Version 3

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.

...

     REQUEST  FIELDS(#ORDNUM #CUSTNO)
     UPDATE   FIELDS(#ORDNUM #CUSTNO) IN_FILE(ORDHDR) WITH_KEY(#ORDNUM)


例2：ワークステーションで既存の受注番号と新しい受注番号を入力するようユーザーに要求します。既存の注文頭書きとそれに関連付けられたすべての明細行を新しい受注番号に更新します。 ワークステーションで既存の受注番号と新しい受注番号を入力するようユーザーに要求します。既存の注文頭書きとそれに関連付けられたすべての明細行を新しい受注番号に更新します。 

     DEFINE  FIELD(#OLDORDNUM) REFFLD(#ORDNUM) LABEL('Existing order')
     DEFINE  FIELD(#NEWORDNUM) REFFLD(#ORDNUM) LABEL('New order')
     REQUEST FIELDS(#OLDORDNUM #NEWORDNUM)
     CHANGE  FIELD(#ORDNUM) TO(#NEWORDNUM)
     UPDATE  FIELDS(#ORDNUM) IN_FILE(ORDHDR) WITH_KEY(#OLDORDNUM)
     UPDATE  FIELDS(#ORDNUM) IN_FILE(ORDLIN) WITH_KEY(#OLDORDNUM)

...