@.sd^/START,
"HDR",@1,
"ORDERS",@3,
"TRLR",@2,
END;

[1]::HDR
"<?xml version="_D(34)_1.0_D(34)_" ?>"^!,
"<ReplyMessage>"^!,
"<TransactionId>0</TransactionId>"^!,
"<Status>Success</Status>"^!,
"<StatusDescription>Step returned a Success status.</StatusDescription>"^!,
"<Payload>"^!,
"<CodeSets>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>264</CodeSetNumber>"^!,
"<Codes>"^!;

[2]::TRLR
"</Codes>"^!,
"<Key>"_/START_"</Key>"^!,
"</CodeSet>"^!,
"</CodeSets>"^!,
"</Payload>"^!,
"</ReplyMessage>"^!;

[3]::ORDERS
""^pc,
DO{+&(P)PC[pc]^pc "got one",
   IF{"Y"'=&(P)PC[pc]|0;
      /CONF[.orders.cats]["all"] "SEND",@4;
      /CONF[.orders.cats][pc] "SEND",@4;
      "notinlist"}};

[4]::SEND
"<Code>"^!,
"<Display><![CDATA["_pc_" - "_&(P)PC[pc]|1_"]]></Display>"^!,
"<Mnemonic><![CDATA["_pc_"]]></Mnemonic>"^!,
"<Meaning><![CDATA["_pc_"]]></Meaning>"^!,
"</Code>"^!;

