7 94 3 TRANSFER Examples

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)