/*---------Language: REXX-------------------------------------$$PROLOG*/
/*     Program Name: CMDRESPQ                                         */
/*      Description: Small example showing the use of the CMDRESP     */
/*                   external REXX function.                          */
/*--------------------------------------------------------------------*/
/* Copyright (C) 1999 ProTech Professional Technical Services. No war-*/
/* ranty expressed or implied. Permission to use, copy, and distribute*/
/* this document without fee is hereby granted, provided that this    */
/* copyright notice appear in all copies.  Permission to modify the   */
/* code is granted, but not the right to distribute the modified code,*/
/* which should be returned to the maintainer for inclusion into the  */
/* distributed version.  Contacts: 412-373-8855  www.protechpts.com   */
/*--------------------------------------------------------------------*/

/*--------------------------------------------------------------------*/
/* Issue the NET START command, which will list all the active        */
/* Windows NT services, producing output like the following:          */
/* These Windows NT services are started:                             */
/*                                                                    */
/*    AppnNode                                                        */
/*    Computer Browser                                                */
/*    DrvMgr                                                          */
/*    EventLog                                                        */
/*    FTP Publishing Service                                          */
/*    Messenger                                                       */
/*    Net Logon                                                       */
/*    NT LM Security Support Provider                                 */
/*    Plug and Play                                                   */
/*    Protected Storage                                               */
/*    Server                                                          */
/*    SNMP                                                            */
/*    Spooler                                                         */
/*    Workstation                                                     */
/*                                                                    */
/* The command completed successfully.                                */
/*--------------------------------------------------------------------*/
CALL CMDRESP 'net start'

SAY 'Command returned 'QUEUED()' lines.'
  DO i = 1 TO QUEUED()
  PULL line
  SAY LEFT(i,3) line
  END i