sometimes I am tooo lazy...

>I was playing around with this and can't see how Alltrim(laFields[2]) = "MSH" or whatever segment ID. The laFields array has a row for each segment, but there is only one column and it contains the entire segment value, not parsed elements. I must be missing something...

create cursor Curs_MSH ( ;
    cRecno C(9), cCursType C(5), cSpecialMSH1 C() .. )
create cursor Curs_EVN ( ;
    cRecno C(9), cCursType C(5), cSpecialEVN1 C() .. )

lnFlagsAsYouNeedYourdata = 1 && see helpfile on options here
FOR ix=1 TO alines(laLines,m.lcSample)
   = alines(laFields, Alltrim(Str(m.ix)) + "|" + laLines[m.ix], lnFlagsAsYouNeedYourdata,"|")
   Insert into ("Curs_" + Alltrim(laFields[2]) ) from Array laFields
endfor