Update Address Book Cat Code
A a simple two action script that uses Address Book Revision (P01012) to update Cat Code 21.
/* Open Work With Addresses
Set AB# QBE to intput column 0
Press Find */
open(w01012b)[qbe(1[19],$col[0]) do(15)]
/* Select the first row
Press OK */
.action[select(1.0) do(14)]
/* Set control 463 (CC 21) to column 1
Press Save */
.action[set(463, $col[1]) do(11)]
/* Log activity */
.output("Updated {0}", $col[0])
/* Repeat for array */
.each[[4001,"N"],[4002,"Y"],[4050,"N"]]