Extract a range of keys after a CALL OPF(FOR NEXT, LOOP REMOVE)

Extract a range of keys after a CALL OPF

Y.DATE = TODAY
READ R.DX.DAILY.TRANS FROM F.DX.DAILY.TRANS,Y.DATE 
ELSE R.DX.DAILY.TRANS = ""
Y.DX.NUM = DCOUNT(R.DX.DAILY.TRANS,@FM)

• Using FOR…NEXT :

FOR I = 1 TO Y.DX.NUM
   Y.DX.ID = R.DX.DAILY.TRANS<I>["*",1,1]
   Y.DX.REV = R.DX.DAILY.TRANS<I>["*",2,1]
NEXT I

• Or using LOOP REPEAT

LOOP

   REMOVE Y.DX.ID FROM R.DX.DAILY.TRANS SETTING TAG

WHILE Y.DX.ITEM:TAG

   Y.DX.REV = Y.DX.ID["*",2,1]

   Y.DX.ID = Y.DX.ID["*",1,1]

REPEAT

Extra comments

Using:

REMOVE variable FROM array SETTING setvar

Variable ‘setvar’ indicates type of separator met when data are extracted from the array:

• in bold codes mostly used