SUBROUTINE LIST_POPUP
* Provides a popup of LISTS records without stack or query table.
* 06/11/96 - BTS - Original release

DECLARE SUBROUTINE MSG, CATALYST

EQUATE TRUE$  TO 1
EQUATE FALSE$ TO 0

COMMAND = 'SSELECT LISTS WITHOUT @ID "[**]" AND WITHOUT @ID '
COMMAND:= '"QUERY.TABLE]" AND WITHOUT @ID "COMMAND.STACK]" (S)'
CATALYST('X',COMMAND)
IF @RECCOUNT THEN
    CATALYST('P','SYSPOPUPS*LISTS')
END

RETURN