Versions Compared

Key

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

[ Image Removed |../../index.htm#lansa/transfer_e.htm]
現在地:

...

7.123.3 TRANSFER の使用例

...

例1:デフォルトの次ファンクションに制御を渡します。情報は交換されません。

     TRANSFER


例2:INPUTというファンクションに制御を渡します。情報は交換されません。 

     TRANSFER  TOFUNCTION(INPUT)

...

...


例3:INPUTというファンクションに制御を渡します。INPUTファンクションとの間で、フィールド#CUSTNO、#BATCH、および#USERの値を交換します。 

     TRANSFER  TOFUNCTION(INPUT)

...

 EXCHANGE(#CUSTNO #BATCH #USER)


例4:WEBROUTINE ORDERに制御を渡します。 

     TRANSFER      TOROUTINE(ORDER)

...

ORDER WEBROUTINEでFOR(*INPUT)に指定されたすべてのフィールドおよびリストの値が渡されます。 に指定されたすべてのフィールドおよびリストの値が渡されます。  例5:ORDERS


例5:ORDERS WAM内のWEBROUTINE ORDERに制御を渡します。
TRANSFER      TOROUTINEORDERに制御を渡します。 

     TRANSFER      TOROUTINE(#ORDERS.ORDER)

...

ORDER WEBROUTINEでFOR(*INPUT)に指定されたすべてのフィールドおよびリストの値が渡されます。 に指定されたすべてのフィールドおよびリストの値が渡されます。  例6:フィールドから、制御を渡す先のWEBROUTINEの名前を指定します。
#WEBRTN 


例6:フィールドから、制御を渡す先のWEBROUTINEの名前を指定します。 

     #WEBRTN :=

...

 'ORDERS.ORDER'

...


TRANSFER      TOROUTINE(*

...

EVALUATE #WEBRTN)