7.94.3 TRANSFER Examples
Example 1: Transfer control to the default next function. No information is to be exchanged:
TRANSFER
Example 2: Transfer control to a function named INPUT. No information is to be exchanged:
TRANSFER TOFUNCTION(INPUT)
Example 3: Transfer control to a function named INPUT. Exchange the values of fields #CUSTNO, #BATCH and #USER with it:
TRANSFER TOFUNCTION(INPUT) EXCHANGE(#CUSTNO #BATCH #USER)
Example 4: Transfer control to WEBROUTINE ORDER:
TRANSFER TOROUTINE(ORDER)
Values of any fields and lists specified FOR(*INPUT) on the ORDER WEBROUTINE will be passed to it.
Example 5: Transfer control to WEBROUTINE ORDER in ORDERS WAM:
TRANSFER TOROUTINE(#ORDERS.ORDER)
Values of any fields and lists specified FOR(*INPUT) on the ORDER WEBROUTINE will be passed to it.
Example 6: Provide the name of a WEBROUTINE to transfer control to, from a field:
#WEBRTN := 'ORDERS.ORDER'
TRANSFER TOROUTINE(*EVALUATE #WEBRTN)