Return a list of keys with a QSELECT

CALL EB.READLIST can also be used with a QSELECT. The QSELECT is selecting all fields from a table, not only the keys (@ID) compared to the SELECT. This is very usefull to read a CONCAT.FILE, in which call records (@RECORD)are only containing a single field.

Example of a CONCAT.FILE:

LIST FBNK.DX.ORD.VERSION.NO @RECORD

@ID…………………………..    @RECORD…………………..

                    DXORD0931005013    DXORD0931005013-0             
                    DXORD0931005016    DXORD0931005016-1             
                    DXORD0931005019    DXORD0931005019-0             
                    DXORD0931005009    DXORD0931005009-0             
                    DXORD0931005010    DXORD0931005010-0             
                    DXORD0931005011    DXORD0931005011-1             
                    DXORD0931005033    DXORD0931005033-0             
                    DXORD0931005034    DXORD0931005034-0

Example :

SELECTED.FILE = "F":MNEMO.COMPANY:".":"DX.ORD.VERSION.NO"
CMND = 'QSELECT ' : SELECTED.FILE : ' *'
CALL EB.READLIST(CMND,KEY.LIST,'',SELECTED,SYSTEM.RET.CODE)
REMOVE DXO.KEY.FULL FROM KEY.LIST SETTING MORE

This fills KEY.LIST variable with all fields selected by the QSELECT.