..  _progd-dlr:

PROGD$
======

+----------+-------------------------------------------------------------------+
| Syntax   |  PROGD$                                                           |
+----------+-------------------------------------------------------------------+
| Location |  Toolkit II                                                       |
+----------+-------------------------------------------------------------------+

This function returns the default program device as set by PROG\_USE,
see below.

**CROSS-REFERENCE**

:ref:`prog-use`,
:ref:`dlist`, :ref:`datad-dlr`.