Select 6 Set Order To CODE SCAN for admtd=1 grno = code mscode = scode mlcode = lcode msec = sec Select 11 Append Blank Replace code With grno Replace date With pdate Replace type With 1 Replace category With "P" Replace scode With mscode Replace lcode With mlcode Replace sec With msec endscan endif endifmy problem is this if i have replace P with these codes, also replaced the A and L records