SEND FILE TO CLIENT

This subroutine retrieves a file from the server and stores it on the client system. Three arguments are expected to be passed to the subroutine:

• Source pathname (alpha field, maximum length 256)
• Destination pathname (alpha field, maximum length 256)
• If blank, the client will open a dialog browser so the user can select the file.
• Should be PASS'ed shared to allow for return of user-selected file.
• If the destination pathname is relative, it will be relative to the location of the APPX client jar file.
• Field for status indicator (numeric field)
• Must be PASS'ed shared.
• Returns status code (0=Failure, 1=Success).

The subroutine can be invoked via SUBR or GOSUB. While the file is in transit, the client will show a progress slider and the APPX session will wait until it completes before returning.

The following example retrieves a file from the APPX server and stores it in the user-selected file on the APPX client. A message (or warning) is used to report the name of the file the user selected and whether or not it was sent successfully.

          SET      --- TEMP 132                   =      /tmp/testfile.txt
          SET      --- TEMP 256                   =
          SET      --- XI                         =      0
          *
          PASS     --- TEMP 132                   FIELD            SHARE? N
          PASS     --- TEMP 256                   FIELD            SHARE? Y
          PASS     --- XI                         FIELD            SHARE? Y
          SUBR     --- SEND FILE TO CLIENT              DETACHED     END? N  FAIL 0
          *
          IF       --- XI                         EQ     1
    T     APPEND   --- TEMP 256                   1      sent OK
    F     APPEND   --- TEMP 256                   1      not sent
    -     APPEND   --- TEMP 256                   1      to client
    T     MESSAGE  --- TEMP 256
    F     WARNING  --- TEMP 256