Writing out multiple records to a subfile from a single recor
d
Latimer, Richard
richard.latimer@airways.co.nz
Thu, 7 Jun 2001 09:00:54 +1200
Whoops - missed the first 5 line of source code for the example - Sorry!
RUN EDT132B
GLOBAL TEMP t_occur NUM*2 ; holds the position in the array
GLOBAL TEMP t_error NUM*4 ; holds the value of the error
REQUEST REQUEST_ONE
ACCESS *edt132e
;1 ERR_0001
;---------------
ITEM t_occur = 0
ITEM t_error = 1
SUBFILE EDT132B ALIAS err_0001 KEEP &
IF err_0001 OF edt132e <> 0 &
INCLUDE t_occur, edt132e, t_error
;2 ERR_0002
;---------------
ITEM t_occur = 0
ITEM t_error = 2
SUBFILE EDT132B ALIAS err_0002 KEEP APPEND &
IF err_0002 OF edt132e <> 0 &
INCLUDE t_occur, edt132e, t_error