7.121.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 WAM内のWEBROUTINE ORDERに制御を渡します。

TRANSFER      TOROUTINE(#ORDERS.ORDER)
 

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

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

#WEBRTN := 'ORDERS.ORDER'
TRANSFER      TOROUTINE(*EVALUATE #WEBRTN)