Mapper procedures and functions

The following sections describe the procedures and functions for the single transaction to ISF mapper.

CopyMessageHeaders

This is a standard procedure that is created by the . It copies the message headers from the InputRoot to the OutputRoot.

CREATE PROCEDURE CopyMessageHeaders()
BEGIN
   DECLARE I INTEGER 1;
   DECLARE J INTEGER;
   SET J = CARDINALITY(InputRoot.*[]);

   WHILE I < J DO
      SET OutputRoot.*[I] = InputRoot.*[I];
      SET I = I + 1;
   END WHILE;
END;

ProcessTransaction

This procedure encapsulates the processing of a single transaction.

CREATE PROCEDURE ProcessTransaction()
BEGIN
   -- map the header
   CALL MapTransactionHeader();

   -- map the transaction body
   CALL MapTransaction();

   -- set up the database record values
   CREATE LASTCHILD OF rPMPVars.MapDBData.TXN AS rDBRecord NAME 'DBRecord';

  CALL SetDatabaseRecordValues_Txn();

   -- set the Physical Transmission record data
   CALL SetDatabaseRecordValues_PT();
END;