my $transaction_id;
my $pickup_location;
my $hold_mode;
my $no_block;
my $no_block = 'N';
my $terminator = q{};
exit();
}
$no_block //= 'N';
$no_block = $no_block eq 'Y' ? 'Y' : 'N';
$terminator = ( $terminator eq 'CR' ) ? $CR : $CRLF;
-