WhilePrintingRecords;
If {master.shock_agcy} startswith "FD ALS" then
"ALS"
else If {master.shock_agcy} startswith "FD BLS" then
"BLS"
else If {master.shock_agcy} startswith "AMB" then
"AMB"
else {master.shock_agcy}