*-- This program returns the The current
*-- shipid
FUNCTION CURRSHID
PRIVATE lcShipid, lcTemp, NULL
*lcTemp = ALIAS()
SELECT HEADERS
*wait "must take out skips" window

*SCATTER FIELDS SHIPCC MEMVAR
GO RECORD gnRecPos
lcShipid = HEADERS.Shipcc
*RELEASE M.SHIPCC
RETURN lcShipid