LIST.READU Unidata

I can capture output from LIST.READU command as follows:
EXECUTE 'LIST.READU' CAPTURING OUTPUT

Each row can be extracted by looping through using @am to determine number of rows
 my question is how can one parse out the individual column fields - what delimiter is used to do parsing or
is  the  data in each row  simply fixed length.

I can capture output from LIST.READU command as follows:
EXECUTE 'LIST.READU' CAPTURING OUTPUT

Each row can be extracted by looping through using @am to determine number of rows
 my question is how can one parse out the individual column fields - what delimiter is used to do parsing or
is  the  data in each row  simply fixed length.

I can capture output from LIST.READU command as follows:
EXECUTE 'LIST.READU' CAPTURING OUTPUT

Each row can be extracted by looping through using @am to determine number of rows
 my question is how can one parse out the individual column fields - what delimiter is used to do parsing or
is  the  data in each row  simply fixed length.

Robert,

The following code will take the LIST.READU DETAIL output and will put each lock into a singe attribute and then each multi-value in the attribute contains the column

This is my standard code making it easier to read

LOCK.LIST = ""
EXECUTE 'LIST.READU DETAIL' CAPTURING OUTPUT
NOL = DCOUNT(OUTPUT,@AM)
LCK.CNT = 0
FOR LN.NXT = 2 TO NOL
  LINE = TRIM(OUTPUT<LN.NXT>)
  IF LINE = "" THEN CONTINUE
  LCK.CNT += 1
  CONVERT " " TO @VM IN LINE
  LOCK.LIST<LCK.CNT>  = LINE
NEXT

This is my short code to produce the array

EXECUTE 'LIST.READU DETAIL' CAPTURING LOCK.LIST
DEL LOCK.LIST<1>
CONVERT " " TO @VM IN LOCK.LIST
DEL LOCK.LIST<DCOUNT(LOCK.LIST,@AM)>

Or use the GETREADU function in UniBasic which does it for you

------------------------------
Jonathan Smith
UniData ATS
Rocket Support
------------------------------