FREE

Release record locks on a channel

WSupported on Windows

USupported on Unix

VSupported on OpenVMS

NSupported in Synergy .NET

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