view release on metacpan or  search on metacpan

pl/messages/08.received.write.pm  view on Meta::CPAN

#!/usr/bin/perl

BEGIN{push @INC, "./../blib/lib/"}

use Biblio::ILL::ISO::Received;

#
# transaction-id
#
my $tid = new Biblio::ILL::ISO::TransactionId("PLS","001","", 
					      new Biblio::ILL::ISO::SystemId("MWPL"));

#
# service-date-time
#
my $sdt = new Biblio::ILL::ISO::ServiceDateTime( new Biblio::ILL::ISO::DateTime("20030623","114400"),
						 new Biblio::ILL::ISO::DateTime("20030623","114015")
						 );

#
# requester-id
#
my $reqid = new Biblio::ILL::ISO::SystemId();
$reqid->set_person_name("David A. Christensen");

#
# responder-id
#
my $resid = new Biblio::ILL::ISO::SystemId("MWPL");

#
# supplier-id
#
my $sid = new Biblio::ILL::ISO::SystemId("MBOM");

#
# date-received
#
my $dr = new Biblio::ILL::ISO::ISODate("20030813");

#
# shipped-service-type
#
my $sst = new Biblio::ILL::ISO::ShippedServiceType("loan");

#
# requester-note
#
my $rn = new Biblio::ILL::ISO::ILLString("This is a requester-note.");


#-------------------------------------------------------------------------------------------

my $msg = new Biblio::ILL::ISO::Received();

# Minimum required:
$msg->set_protocol_version_num("version-2");
$msg->set_transaction_id( $tid );
$msg->set_service_date_time( $sdt );
$msg->set_date_received( $dr );
$msg->set_shipped_service_type( $sst );

# Extra, useful info:
$msg->set_requester_id( $reqid );
$msg->set_responder_id( $resid );
$msg->set_supplier_id( $sid );
$msg->set_requester_note( $rn );

#
#print "\n-as_pretty_string------------------------------------\n";
#print $msg->as_pretty_string();
#print "\n-----------------------------------------------------\n";
#
#print "\n-debug(ans->as_asn())--------------------------------\n";
#my $href = $msg->as_asn();
#print $msg->debug($href);
#print "\n-----------------------------------------------------\n";
#
#$msg->encode();
#

#print "\n-write-----------------------------------------------\n";
$msg->write("msg_08.received.ber");
#print "\n-----------------------------------------------------\n";

#print "---end---\n";