
{ COMMON DECK CMHPCGC }

{   The purpose of this procedure is to search the installed logical
{ configuration sequencially for the nth channel element.
{
{       CMP$PC_GET_NEXT_CHANNEL (CURRENT_CHANNEL, MAINFRAME_ELEMENT,
{         STATUS)
{
{ CURRENT_CHANNEL: (input)  This parameter specifies which channel is currently
{       being used.  To the the first channel element, this value should
{       be zero.
{
{ MAINFRAME_ELEMENT: (output)  This parameter specifies the channel element
{       found.
{
{ STATUS: (output)  This parameter specifies the request status.
{
