FREE

Release record locks on a channel

WTSupported in traditional Synergy on Windows
WNSupported in Synergy .NET on Windows
USupported on UNIX
VSupported on OpenVMS
xcall FREE(channel)

Arguments

channel

The number of the channel for which you want to release locks. (n)

Discussion

The FREE subroutine releases all record locks on a channel.

See also

Record locking.

Examples

subroutine clean_up
.define MAXCHN          ,50
record
    chn                 ,d3
    opn                 ,d1
proc
    for chn from 1 thru MAXCHN
      begin
        xcall chnopn(chn, opn)
        if (opn)
          xcall free(chn)
      end
    return
endsubroutine