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

     TRANSFER      TOROUTINE(#ORDERS.ORDER)

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


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

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