If I understad you correctly, you can change the third line to

SCAN for admtd=1 and !(code='A' or code='I')

>i have a table i want to replacement in a veriable as three type "P" ,"A" and "L"
>i replaced "A" and "L" first and then replace "P" with these codes:
>

>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
>endif
>

>my problem is this if i have replace P with these codes, also replaced the A and L records
>i want to mentain the A and L for "code" veriabel.(skip for A and l)
>thanks