[RPGNext] Display Field list of a file

[Ewart Desouza <ewart.desouza@xxxxxxxxxxx>]

Hello Joel !

I would like to create a command using the quslfld_getFieldNameList()
procedure or the RNBQUSLFLD service program to display the fields of a file
on the screen so that I could cut & paste them in my RPG program using SQL.
How should I go about it ??

Sorry if this is a trivial question but I don't see the input parameters in
quslfld_getFieldNameList() and I don't see any documentation on the service
program RNBQUSLFLD.

I'm pasting the code which I am testing to no success.

Thanks & best regards
Ewart

H DFTACTGRP(*NO)
 /copy rpgnextlib/qrpglesrc,cp_hspecs
 /copy rpgnextlib/qrpglesrc,cp_longprs
 /copy rpgnextlib/qrpglesrc,cp_uslfld

D fldlst          S          32000a   varying
D count           S              5s 0
D dspstr          S             30a

C     *entry        plist
C                   parm                    prfile           10
C                   parm                    prlibrary        10

 *---> The idea is to retreive the field list of the file entered
       through the parameter and display 30 characters at a time on screen
C                   eval      fldlst = quslfld_getFieldNameList()
C                   eval      count  = 1
C                   DoW       %subst(fldlst:count:30) = ' ' or
C                             count > 31500
C     dspstr        Dsply
C                   eval      count = count + 30
C                   EndDo
C                   EndDo
C                   Eval      *INLR = *On