SET FIELDS TO ALL LIKE ???PD BROWSE SET FIELDS TOWon't work, because you have different number of characters before PD. But, much to my surprise, Set Fields is additive - which cost me several hours once to discover, but then I earned a few grays in return - so the code should look more like this (add lines as needed)
SET FIELDS TO ALL LIKE ?PD SET FIELDS TO ALL LIKE ??PD SET FIELDS TO ALL LIKE ???PD SET FIELDS TO ALL LIKE ????PD SET FIELDS TO ALL LIKE ?????PD BROWSE SET FIELDS TO