edi4r 0.9.4.1

data/VERSION

@@ -0,0 +1 @@
+0.9.4.1

data/bin/edi2xml.rb

@@ -0,0 +1,103 @@
+#!/usr/bin/env ruby
+
+# $Id: edi2xml.rb,v 1.1 2006/08/01 11:20:24 werntges Exp $
+
+# $Log: edi2xml.rb,v $
+# Revision 1.1  2006/08/01 11:20:24  werntges
+# Initial revision
+#
+#
+# Author:  Heinz W. Werntges (edi@informatik.fh-wiesbaden.de)
+#
+# License: This code is put under the Ruby license
+#
+# Copyright (c) 2006 Heinz W. Werntges, FH Wiesbaden
+#
+
+# SYNOPSIS:
+#
+# $ edi2xml.rb [-D] file1 [file2 ...]
+# ...
+# $ edi2xml.rb [-D] -Z edifact_file.gz 
+# ...
+# $ zcat edifact_file.gz | edi2xml.rb [-s E]
+# ...
+#
+# DESCRIPTION:
+#
+# This script turns EDIFACT files into XML documents,
+# either according to DIN 16557-4 or to a generic DTD supplied by this project.
+# 
+
+require "rubygems"
+require_gem "edi4r"
+require_gem "edi4r-tdid"
+#require_gem "edi4r-idoc"
+require "edi4r/edifact"
+require "edi4r/rexml"
+
+require "getoptlong"
+
+
+def output( ic )
+  if $din_mode
+    fail "DIN 16557 applies only to UN/EDIFACT data" unless ic.syntax=='E'
+    ic.to_din16557_4.write($stdout,0)
+  else
+    ic.to_xml.write($stdout,0)
+  end
+end
+
+
+def usage_and_exit
+  puts <<EOT
+Usage:
+  #$0 [-D] [files ...]
+  #$0 [-D] -z edifile.gz [files ...]     (Zlib required)
+  #$0 -s E|I [-D]   (reads from stdin, E)difact or SAP I)doc)
+Options:
+ -d    Activates debug mode by setting $DEBUG=true
+ -D    Generate DIN 16557-4 output.
+ -s k  Set standard key, k=E for UN/EDIFACT (default) or k=I for SAP IDOC
+       (currently only E supported).
+ -z    Require Zlib. You may then pass gzipped files directly.
+       Note that Zlib is not always available.
+EOT
+
+  exit 0
+end
+
+opts = GetoptLong.new(
+                      ["--standard-key", "-s", GetoptLong::REQUIRED_ARGUMENT ],
+                      ["--debug",        "-d", GetoptLong::NO_ARGUMENT ],
+                      ["--DIN",          "-D", GetoptLong::NO_ARGUMENT ],
+                      ["--help",         "-h", GetoptLong::NO_ARGUMENT ],
+                      ["--zlib",         "-z", GetoptLong::NO_ARGUMENT ]
+                      )
+
+opts.each do |opt, arg|
+  case opt
+  when "--debug"
+    $DEBUG = true
+  when "--DIN"
+    $din_mode = true
+  when "--help"
+    usage_and_exit()
+  when "--standard-key"
+    $STD_key = arg
+  when "--zlib"
+    require 'zlib'
+  end
+end
+
+
+if ARGV.size == 0
+  $STD_key = 'E' unless $STD_key # default is EDIFACT
+  ic = EDI.const_get($STD_key).const_get('Interchange').parse or exit
+  output( ic )
+else
+  usage_and_exit() if $STD_key
+  ARGV.each do |fname|
+    output( EDI::Interchange.parse( File.open(fname,'r') ) )
+  end
+end

data/bin/editool.rb

@@ -0,0 +1,151 @@
+#!/usr/bin/env ruby
+#
+# Tool to validate, list and analyze EDI data, based on EDI4R
+#
+# $Id: editool.rb,v 1.3 2006/08/01 11:19:41 werntges Exp $
+#
+# Author:  Heinz W. Werntges (edi@informatik.fh-wiesbaden.de)
+#
+# License: This code is put under the Ruby license
+#
+# Copyright (c) 2006 Heinz W. Werntges, FH Wiesbaden
+#
+
+if $DEBUG  # Include statement during test setup:
+  $:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+  require 'edi4r'
+  require 'edi4r/edifact'
+  require "edi4r/rexml"
+  require_gem "edi4r-tdid"
+else       # Regular include statements:
+  require "rubygems"
+  require "edi4r"
+  begin
+    require "edi4r-idoc"
+  rescue LoadError # Ignore error
+  end
+  require "edi4r/edifact"
+  require "edi4r/rexml"
+  require "edi4r-tdid"
+end
+require 'zlib'
+require 'getoptlong'
+
+
+def usage
+  $stderr.puts "Usage:\t#{$0} [-n|-v] [-i|-l] [-o] [file(s)...]"
+  $stderr.puts "Usage:\t#{$0} -p file(s)..."
+  $stderr.puts "Options:"
+  $stderr.puts "\t--validate, --valid, -v\tValidate EDI files"
+  $stderr.puts "\t--no-valid, -n\t\tDo not validate EDI files (default)"
+  $stderr.puts "\t--list, -l\t\tList EDI files one segment per line, indented"
+  $stderr.puts "\t--indent-off, -o\tSwitch indent off when in list mode"
+  $stderr.puts "\t--peek, -p\tPeek into header & report some crucial data"
+  $stderr.puts "\t--inspect, -i\t\tInspect mode, list content with more details"
+  $stderr.puts"NOTE:\t-n, -v and -l, -i are mutually exclusive."
+  exit 0
+end
+
+
+def headline_peek_result
+  puts "Filename\tSender\t\tRecip\t\tRef\t\tTest", "=" * 78
+end
+
+def report_peek_result( ic_stub, fname )
+  h = ic_stub.header
+  case s=ic_stub.syntax
+
+  when 'E'
+    params = if ic_stub.is_iedi?
+               [fname, h.cS002.d0004, h.cS003.d0010, h.cS302.d0300, h.d0035==1]
+             else
+               [fname, h.cS002.d0004, h.cS003.d0010, h.d0020, h.d0035==1]
+             end
+    puts "%15.15s\t%13s\t%13s\t%14s\t%s" % params
+
+  when 'I'
+    puts "%15.15s\tSAP IDocs not supported yet" % [fname]
+    
+  else
+    puts "%15.15s\tSyntax %s not supported" % [fname, s]
+  end
+end
+
+
+class MyOptions
+  attr_accessor :validate, :list, :inspect, :peek, :no_indent
+
+  def initialize
+    @validate = false
+    @list = false
+    @inspect = false
+    @peek = false
+    @no_indent = false
+  end
+end
+
+
+opts = GetoptLong.new(
+  ['--validate', '--valid', '-v', GetoptLong::NO_ARGUMENT],
+  ['--no-valid',            '-n', GetoptLong::NO_ARGUMENT],
+  ['--list',                '-l', GetoptLong::NO_ARGUMENT],
+  ['--peek',                '-p', GetoptLong::NO_ARGUMENT],
+  ['--indent-off',          '-o', GetoptLong::NO_ARGUMENT],
+  ['--inspect',             '-i', GetoptLong::NO_ARGUMENT],
+  ['--help',                '-h', GetoptLong::NO_ARGUMENT]
+)
+my_opts = MyOptions.new
+
+opts.each do |opt, arg|
+  case opt
+  when '--validate';	my_opts.validate = true
+  when '--no-valid';	my_opts.validate = false
+  when '--list';	my_opts.list = true; my_opts.inspect = false
+  when '--peek';        my_opts.peek = true
+  when '--indent-off';  my_opts.no_indent = true
+  when '--inspect';	my_opts.list = false; my_opts.inspect = true
+  else; usage
+  end
+end
+
+rc = 0 # return code
+
+if ARGV.empty?
+
+  usage if my_opts.peek # Does not work with $stdin!
+
+  ic = EDI::E::Interchange.parse($stdin, false) or exit
+  rc = ic.validate if my_opts.validate
+  if my_opts.list
+    ic.output_mode = my_opts.no_indent ? :linebreak : :indented
+    print ic
+  end
+  print ic.inspect if my_opts.inspect
+
+else
+
+  if my_opts.peek
+
+    headline_peek_result
+    ARGV.each do |fname|
+      report_peek_result( EDI::Interchange.peek(File.open(fname)), fname )
+    end
+
+  else
+
+    ARGV.each do |fname|
+      File.open(fname) do |hnd|
+        puts "------------ #{fname} ------------" if ARGV.size > 1
+        ic = EDI::Interchange.parse(hnd, false)
+        rc += ic.validate if my_opts.validate
+        if my_opts.list
+          ic.output_mode = my_opts.no_indent ? :linebreak : :indented
+          print ic.to_s
+        end
+        print ic.inspect if my_opts.inspect
+      end
+    end
+  end
+end
+exit( rc )
+

data/bin/xml2edi.rb

@@ -0,0 +1,50 @@
+#!/usr/bin/env ruby
+
+# $Id: xml2edi.rb,v 1.1 2006/08/01 11:20:56 werntges Exp $
+
+# $Log: xml2edi.rb,v $
+# Revision 1.1  2006/08/01 11:20:56  werntges
+# Initial revision
+#
+#
+# Author:  Heinz W. Werntges (edi@informatik.fh-wiesbaden.de)
+#
+# License: This code is put under the Ruby license
+#
+# Copyright (c) 2006 Heinz W. Werntges, FH Wiesbaden
+#
+
+# SYNOPSIS:
+#
+# $ xml2edi.rb file1 [file2 ...]
+# ...
+# $ zcat somefile.xml.gz | xml2edi.rb
+# ...
+#
+# DESCRIPTION:
+#
+# This script turns XML files into EDI (EDIFACT or SAP IDOC) documents.
+# 
+
+require "rubygems"
+require_gem "edi4r"
+require_gem "edi4r-tdid"
+# require_gem "edi4r-idoc"
+require "edi4r/edifact"
+require "edi4r/rexml"
+
+def to_edi( xdoc )
+  ic = EDI::Interchange.parse_xml xdoc
+  $stdout.print ic
+end
+
+
+if ARGV.size == 0
+  xdoc = REXML::Document.new $stdin
+  to_edi( xdoc )
+else
+  ARGV.each do |fname|
+    xdoc = REXML::Document.new( File.open(fname,'r') )
+    to_edi( xdoc )
+  end
+end

data/data/edifact/iso9735/SDCD.10000.csv

@@ -0,0 +1,10 @@
+S001;SYNTAX IDENTIFIER;010;0001;M;a4;020;0002;M;n1;
+S002;INTERCHANGE SENDER;010;0004;M;an..35;020;0007;C;an..4;030;0008;C;an..14;
+S003;INTERCHANGE RECIPIENT;010;0010;M;an..35;020;0007;C;an..4;030;0014;C;an..14;
+S004;DATE/TIME OF PREPARATION;010;0017;M;n6;020;0019;M;n4;
+S005;RECIPIENTS REFERENCE PASSWORD;010;0022;M;an..14;020;0025;C;an2;
+S006;APPLICATION SENDER'S IDENTIFICATION;010;0040;M;an..35;020;0007;C;an..4;
+S007;APPLICATION RECIPIENTS IDENTIFICATION;010;0044;M;an..35;020;0007;C;an..4;
+S008;MESSAGE VERSION;010;0052;M;n..3;020;0054;C;n..3;030;0057;C;an..6;
+S009;MESSAGE IDENTIFIER;010;0065;M;an..6;020;0052;M;n..3;030;0054;C;n..3;040;0051;C;an..2;050;0057;C;an..6;
+S010;STATUS OF THE TRANSFER;010;0070;M;n..2;020;0073;C;a1;

data/data/edifact/iso9735/SDCD.20000.csv

@@ -0,0 +1,10 @@
+S001;SYNTAX IDENTIFIER;010;0001;M;a4;020;0002;M;n1;
+S002;INTERCHANGE SENDER;010;0004;M;an..35;020;0007;C;an..4;030;0008;C;an..14;
+S003;INTERCHANGE RECIPIENT;010;0010;M;an..35;020;0007;C;an..4;030;0014;C;an..14;
+S004;DATE/TIME OF PREPARATION;010;0017;M;n6;020;0019;M;n4;
+S005;RECIPIENTS REFERENCE PASSWORD;010;0022;M;an..14;020;0025;C;an2;
+S006;APPLICATION SENDER'S IDENTIFICATION;010;0040;M;an..35;020;0007;C;an..4;
+S007;APPLICATION RECIPIENTS IDENTIFICATION;010;0044;M;an..35;020;0007;C;an..4;
+S008;MESSAGE VERSION;010;0052;M;an..3;020;0054;M;an..3;030;0057;C;an..6;
+S009;MESSAGE IDENTIFIER;010;0065;M;an..6;020;0052;M;an..3;030;0054;M;an..3;040;0051;M;an..2;050;0057;C;an..6;
+S010;STATUS OF THE TRANSFER;010;0070;M;n..2;020;0073;C;a1;

data/data/edifact/iso9735/SDCD.30000.csv

@@ -0,0 +1,11 @@
+S001;SYNTAX IDENTIFIER;010;0001;M;a4;020;0002;M;n1;
+S002;INTERCHANGE SENDER;010;0004;M;an..35;020;0007;C;an..4;030;0008;C;an..14;
+S003;INTERCHANGE RECIPIENT;010;0010;M;an..35;020;0007;C;an..4;030;0014;C;an..14;
+S004;DATE/TIME OF PREPARATION;010;0017;M;n6;020;0019;M;n4;
+S005;RECIPIENT'S REFERENCE, PASSWORD;010;0022;M;an..14;020;0025;C;an2;
+S006;APPLICATION SENDER'S IDENTIFICATION;010;0040;M;an..35;020;0007;C;an..4;
+S007;APPLICATION RECIPIENT'S IDENTIFICATION;010;0044;M;an..35;020;0007;C;an..4;
+S008;MESSAGE VERSION;010;0052;M;an..3;020;0054;M;an..3;030;0057;C;an..6;
+S009;MESSAGE IDENTIFIER;010;0065;M;an..6;020;0052;M;an..3;030;0054;M;an..3;040;0051;M;an..2;050;0057;C;an..6;
+S010;STATUS OF THE  TRANSFER;010;0070;M;n..2;020;0073;C;a1;
+S011;DATA ELEMENT IDENTIFICATION;010;0098;M;n..3;020;0104;C;n..3;

data/data/edifact/iso9735/SDCD.40000.csv

@@ -0,0 +1,31 @@
+S001;SYNTAX IDENTIFIER;010;0001;M;a4;020;0002;M;an1;030;0080;C;an..6;040;0133;C;an..3;
+S002;INTERCHANGE SENDER;010;0004;M;an..35;020;0007;C;an..4;030;0008;C;an..35;040;0042;C;an..35;
+S003;INTERCHANGE RECIPIENT;010;0010;M;an..35;020;0007;C;an..4;030;0014;C;an..35;040;0046;C;an..35;
+S004;DATE AND TIME OF PREPARATION;010;0017;M;n8;020;0019;M;n4;
+S005;RECIPIENT REFERENCE/PASSWORD DETAILS;010;0022;M;an..14;020;0025;C;an2;
+S006;APPLICATION SENDER IDENTIFICATION;010;0040;M;an..35;020;0007;C;an..4;
+S007;APPLICATION RECIPIENT IDENTIFICATION;010;0044;M;an..35;020;0007;C;an..4;
+S008;MESSAGE VERSION;010;0052;M;an..3;020;0054;M;an..3;030;0057;C;an..6;
+S009;MESSAGE IDENTIFIER;010;0065;M;an..6;020;0052;M;an..3;030;0054;M;an..3;040;0051;M;an..3;050;0057;C;an..6;060;0110;C;an..6;070;0113;C;an..6;
+S010;STATUS OF THE TRANSFER;010;0070;M;n..2;020;0073;C;a1;
+S011;DATA ELEMENT IDENTIFICATION;010;0098;M;n..3;020;0104;C;n..3;030;0136;C;n..6;
+S016;MESSAGE SUBSET IDENTIFICATION;010;0115;M;an..14;020;0116;C;an..3;030;0118;C;an..3;040;0051;C;an..3;
+S017;MESSAGE IMPLEMENTATION GUIDELINE IDENTIFICATION;010;0121;M;an..14;020;0122;C;an..3;030;0124;C;an..3;040;0051;C;an..3;
+S018;SCENARIO IDENTIFICATION;010;0127;M;an..14;020;0128;C;an..3;030;0130;C;an..3;040;0051;C;an..3;
+S020;REFERENCE IDENTIFICATION;010;0813;M;an..3;020;0802;M;an..35;
+S021;OBJECT TYPE IDENTIFICATION;010;0805;M;an..3;020;0809;C;an..256;030;0808;C;an..256;040;0051;C;an..3;
+S022;STATUS OF THE OBJECT;010;0810;M;n..18;020;0814;C;n..3;030;0070;C;n..2;040;0073;C;a1;
+S300;DATE AND/OR TIME OF INITIATION;010;0338;C;n..8;020;0314;C;an..15;030;0336;C;n4;
+S301;STATUS OF TRANSFER - INTERACTIVE;010;0320;C;n..6;020;0323;C;a1;030;0325;C;a1;
+S302;DIALOGUE REFERENCE;010;0300;M;an..35;020;0303;C;an..35;030;0051;C;an..3;040;0304;C;an..35;
+S303;TRANSACTION REFERENCE;010;0306;M;an..35;020;0303;C;an..35;030;0051;C;an..3;
+S305;DIALOGUE IDENTIFICATION;010;0311;M;an..14;020;0342;C;an..3;030;0344;C;an..3;040;0051;C;an..3;
+S306;INTERACTIVE MESSAGE IDENTIFIER;010;0065;M;an..6;020;0052;M;an..3;030;0054;M;an..3;040;0113;C;an..6;050;0051;C;an..3;060;0057;C;an..6;
+S307;REPORT REASON;010;0333;C;an..3;020;0332;C;an..70;030;0335;C;an..3;
+S500;SECURITY IDENTIFICATION DETAILS;010;0577;M;an..3;020;0538;C;an..35;030;0511;C;an..512;040;0513;C;an..3;050;0515;C;an..3;060;0586;C;an..35;070;0586;C;an..35;080;0586;C;an..35;
+S501;SECURITY DATE AND TIME;010;0517;M;an..3;020;0338;C;n..8;030;0314;C;an..15;040;0336;C;n4;
+S502;SECURITY ALGORITHM;010;0523;M;an..3;020;0525;C;an..3;030;0533;C;an..3;040;0527;C;an..3;050;0529;C;an..3;060;0591;C;an..3;070;0601;C;an..3;
+S503;ALGORITHM PARAMETER;010;0531;M;an..3;020;0554;M;an..512;
+S504;LIST PARAMETER;010;0575;M;an..3;020;0558;M;an..70;
+S505;SERVICE CHARACTER FOR SIGNATURE;010;0551;M;an..3;020;0548;M;an..4;
+S508;VALIDATION RESULT;010;0563;M;an..3;020;0560;C;an..512;

data/data/edifact/iso9735/SDCD.40100.csv

@@ -0,0 +1,31 @@
+S001;SYNTAX IDENTIFIER;010;0001;M;a4;020;0002;M;an1;030;0080;C;an..6;040;0133;C;an..3;050;0076;C;an2;
+S002;INTERCHANGE SENDER;010;0004;M;an..35;020;0007;C;an..4;030;0008;C;an..35;040;0042;C;an..35;
+S003;INTERCHANGE RECIPIENT;010;0010;M;an..35;020;0007;C;an..4;030;0014;C;an..35;040;0046;C;an..35;
+S004;DATE AND TIME OF PREPARATION;010;0017;M;n8;020;0019;M;n4;
+S005;RECIPIENT REFERENCE/PASSWORD DETAILS;010;0022;M;an..14;020;0025;C;an2;
+S006;APPLICATION SENDER IDENTIFICATION;010;0040;M;an..35;020;0007;C;an..4;
+S007;APPLICATION RECIPIENT IDENTIFICATION;010;0044;M;an..35;020;0007;C;an..4;
+S008;MESSAGE VERSION;010;0052;M;an..3;020;0054;M;an..3;030;0057;C;an..6;
+S009;MESSAGE IDENTIFIER;010;0065;M;an..6;020;0052;M;an..3;030;0054;M;an..3;040;0051;M;an..3;050;0057;C;an..6;060;0110;C;an..6;070;0113;C;an..6;
+S010;STATUS OF THE TRANSFER;010;0070;M;n..2;020;0073;C;a1;
+S011;DATA ELEMENT IDENTIFICATION;010;0098;M;n..3;020;0104;C;n..3;030;0136;C;n..6;
+S016;MESSAGE SUBSET IDENTIFICATION;010;0115;M;an..14;020;0116;C;an..3;030;0118;C;an..3;040;0051;C;an..3;
+S017;MESSAGE IMPLEMENTATION GUIDELINE IDENTIFICATION;010;0121;M;an..14;020;0122;C;an..3;030;0124;C;an..3;040;0051;C;an..3;
+S018;SCENARIO IDENTIFICATION;010;0127;M;an..14;020;0128;C;an..3;030;0130;C;an..3;040;0051;C;an..3;
+S020;REFERENCE IDENTIFICATION;010;0813;M;an..3;020;0802;M;an..35;
+S021;OBJECT TYPE IDENTIFICATION;010;0805;M;an..3;020;0809;C;an..256;030;0808;C;an..256;040;0051;C;an..3;
+S022;STATUS OF THE OBJECT;010;0810;M;n..18;020;0814;C;n..3;030;0070;C;n..2;040;0073;C;a1;
+S300;DATE AND/OR TIME OF INITIATION;010;0338;C;n..8;020;0314;C;an..15;030;0336;C;n4;
+S301;STATUS OF TRANSFER - INTERACTIVE;010;0320;C;n..6;020;0323;C;a1;030;0325;C;a1;
+S302;DIALOGUE REFERENCE;010;0300;M;an..35;020;0303;C;an..35;030;0051;C;an..3;040;0304;C;an..35;
+S303;TRANSACTION REFERENCE;010;0306;M;an..35;020;0303;C;an..35;030;0051;C;an..3;
+S305;DIALOGUE IDENTIFICATION;010;0311;M;an..14;020;0342;C;an..3;030;0344;C;an..3;040;0051;C;an..3;
+S306;INTERACTIVE MESSAGE IDENTIFIER;010;0065;M;an..6;020;0052;M;an..3;030;0054;M;an..3;040;0113;C;an..6;050;0051;C;an..3;060;0057;C;an..6;
+S307;STATUS INFORMATION;010;0333;C;an..3;020;0332;C;an..70;030;0335;C;an..3;
+S500;SECURITY IDENTIFICATION DETAILS;010;0577;M;an..3;020;0538;C;an..35;030;0511;C;an..1024;040;0513;C;an..3;050;0515;C;an..3;060;0586;C;an..35;070;0586;C;an..35;080;0586;C;an..35;
+S501;SECURITY DATE AND TIME;010;0517;M;an..3;020;0338;C;n..8;030;0314;C;an..15;040;0336;C;n4;
+S502;SECURITY ALGORITHM;010;0523;M;an..3;020;0525;C;an..3;030;0533;C;an..3;040;0527;C;an..3;050;0529;C;an..3;060;0591;C;an..3;070;0601;C;an..3;
+S503;ALGORITHM PARAMETER;010;0531;M;an..3;020;0554;M;an..512;
+S504;LIST PARAMETER;010;0575;M;an..3;020;0558;M;an..70;
+S505;SERVICE CHARACTER FOR SIGNATURE;010;0551;M;an..3;020;0548;M;an..4;
+S508;VALIDATION RESULT;010;0563;M;an..3;020;0560;C;an..1024;

data/data/edifact/iso9735/SDED.10000.csv

@@ -0,0 +1,37 @@
+0001;a4;C;Syntax identifier
+0002;n1;C;Syntax version number
+0004;an..35;C;Sender identification
+0007;an..4;C;Partner identification code qualifier
+0008;an..14;C;Address for reverse routing
+0010;an..35;C;Recipient identification
+0014;an..14;C;Routing address
+0017;n6;C;Date of preparation
+0019;n4;C;Time of preparation
+0020;an..14;C;Interchange control reference
+0022;an..14;C;Recipient's reference/password
+0025;an2;C;Recipient's reference/password qualifier
+0026;an..14;C;Application reference
+0029;a1;C;Processing priority code
+0031;n1;C;Acknowledgement request
+0032;an..35;C;Communications agreement Id
+0035;n1;C;Test indicator
+0036;n..6;C;Interchange control count
+0038;an..6;C;Functional group identification
+0040;an..35;C;Application sender's identification
+0044;an..35;C;Application recipient's identification
+0048;an..14;C;Functional group reference number
+0051;an..2;C;Controlling agency
+0052;n..3;M;Message type version number
+0054;n..3;C;Message type release number
+0057;an..6;C;Association assigned code
+0058;an..14;C;Application password
+0060;n..6;C;Number of messages
+0062;an..14;C;Message reference number
+0065;an..6;C;Message type identifier
+0068;an..35;C;Common access reference
+0070;n..2;C;Sequence message transfer number
+0073;a1;C;First/last sequence message transfer indication
+0074;n..6;C;Number of segments in a message
+0077;an3;C;Text reference code
+0078;an..70;M;Free form text
+0081;a1;C;Section identification