/************************************************************************/
     /* File: TSTAPILIST.QRPGLESRC Testprogramm for APILIST                  */
     /*                                                                      */
     /* This program is free software; you can redistribute it and/or modify */
     /* it under the terms of the GNU General Public License as published by */
     /* the Free Software Foundation.                                        */
     /*                                                                      */
     /* This program is distributed in the hope that it will be useful,      */
     /* but WITHOUT ANY WARRANTY; without even the implied warranty of       */
     /* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the        */
     /* GNU General Public License for more details.                         */
     /*                                                                      */
     /* You should have received a copy of the GNU General Public License    */
     /* along with this program; if not, write to the Free Software          */
     /* Foundation, Inc., 59 Temple Place,                                   */
     /* Suite 330, Boston, MA  02111-1307   USA                              */
     /* You might find a version at http://www.gnu.org                       */
     /************************************************************************/
     D*B  CRTRPGMOD TSTAPILIST
     D*B+    DBGVIEW(*SOURCE)
     D*B  CRTPGM TSTAPILIST
     D*B+    ACTGRP(TSTAPILIST)
     D*B+    BNDDIR(QC2LE)
     D*B+    BNDSRVPGM(APILIST
     D*B+             )
     /* Prototypen verwendete
      /COPY QRPGLEH,APILIST
      /COPY QRPGLEH,USERSPACE
      /COPY QRPGLEH,QEZLSGNU
      /COPY QRPGLEH,SYSTEM
     /*--------------------------------------------------------------  -----*/
      * Konstanten
     D TRUE            C                   *ON
     D FALSE           C                   *OFF
     /*--------------------------------------------------------------  -----*/
     d qualnam         s             20    INZ('TEST      QTEMP     '  )
     d format          s              8    INZ('SGNU0100')
     d err             s             16
     d listHandle      s             10i 0
     d buf             ds                  likeds(SGNU0100Type)
      * Main
      /free
                   system('dltusrspc qtemp/test');
                   createUserSpace( qualnam : 'TEST' : 4096
                                  : x'00' : '*ALL' : 'TEST' );
                   QEZLSGNU(qualnam : format : '*ALL'
                           : '*ALL' : '*NO' : '*NO' : err);
                   listHandle = getHandle(qualnam);
                   buf = getNextEntry(listHandle);
                   dow buf <> *BLANKS;
                      buf = getNextEntry(listHandle);
                   enddo;
                      return;
      /end-free