>>SOURCE FREE
identification division.
program-id.
    returning.

environment division.

data division.

working-storage section.

01  i-long                              binary-long signed.
01  i-short                             binary-short signed.

procedure division.

call "func"
    returning                           i-long.

display "Value of returned in i-long: ", i-long.

call "func_short"
    returning                           i-short.

display "Value of returned in i-short: ", i-short.

stop run.