[pft]if v5001^s = 'FORM' then @AHHEAD.PFT fi[/pft] [pft]if v5001^s = 'FORM' then[/pft]
[pft]@AHHIDD.PFT[/pft] [pft]fi[/pft] [pft]if v6000 = 'F' then[/pft]

Database  [pft] ,if p(v5004) then, '' ,else, ''v5003^* ,fi, [/pft] : Free form

[pft] if p(v5011^h) then 'help' fi [/pft] [pft] if size(v5014) > 2 then if v5014 : 'B' then `Basic form` fi if v5014 : 'A' then `Advanced form` fi fi [/pft]
   
Enter one or more words
   
   
All words (AND)    Any word (OR)
[pft] /* especifica o indexSearch caso exista um indice default usando o search por tag */ if p(v6099^d) then, (if p(v6099^d) and p(v6099^s) then '' fi) fi, [/pft]
 
[pft]fi[/pft] [pft]if v6000 = 'B' then [/pft]

Database  [pft] ,if p(v5004) then, '' ,else, ''v5003^* ,fi, [/pft] : Basic form

[pft] if p(v5011^h) then 'help' fi [/pft] [pft] if size(v5014) > 2 then if v5014 : 'F' then `Free form` fi if v5014 : 'A' then `Advanced form` fi fi [/pft]
   
Search:
in field:
 
[pft]@LIST6003.PFT[/pft] [pft],(,[/pft] [pft]if iocc <= 3 then[/pft]
[pft]f(iocc,1,0)[/pft]    [pft],if iocc > 1 then,[/pft] [pft]else[/pft]   [pft]fi[/pft]
[pft] `` [/pft]
[pft]fi[/pft] [pft],),[/pft]
[pft]fi[/pft] [pft]if v6000 = 'A' then [/pft]

Database  [pft] ,if p(v5004) then, '' ,else, ''v5003^* ,fi, [/pft] : Advanced form

[pft] if p(v5011^h) then 'help' fi [/pft] [pft] if size(v5014) > 2 then if v5014 : 'F' then `Free form` fi if v5014 : 'B' then `Basic form` fi fi [/pft]
   
Search:
in field:
 
[pft]@LIST6003.PFT[/pft] [pft],(,[/pft] [pft]if iocc <= 3 then[/pft]
[pft]f(iocc,1,0)[/pft]    [pft],if iocc > 1 then,[/pft] [pft]else[/pft]   [pft]fi[/pft]
[pft] `` [/pft]
[pft]fi[/pft] [pft],),[/pft]
 
[pft]fi[/pft]
[pft]if p(v5011^n) then[/pft]
[pft]cat(v5011^n)[/pft]
[pft]fi[/pft] [pft]@AHFOOT.PFT[/pft]