#!usr/bin/perl
while(<>)
{
 if (/ (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) 
+(\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w)
+ (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w) (\w\w
+) (\w\w) (\w\w) (\w\w) (\w\w)/)
{
  if ($2=="11")
  {
 print "\tBSC -> BTS\tBCCH INFOmation ", $1,$2,$3,$4,$5,$6,$7,$8,$9,$1
+0,$11,$12,$13,$14,$15,$16,$17,$18, $19,$20,$21,$22,$23,$24,$25,$26,$2
+7,$28,$29,$30,"\n";
 print "\tMessage discriminator   :",$1,"\n";
 print "\tMessage type            :",$2,"\n";
 print "channel number :";
 print "\tchannel number :",$3,$4,"\n";
 print "\tElement Identifier      :",$14,"\n";
print "system info Type        :",$7,$8,"\n";
print "\tElement Identifier      :" ,$7,"\n";
print "\tsystem info Type        :", $8,"\n";
print "Full BCCH Info   :",$7,$8,$9,$10,$11,$12,$13,$14,$15,$16,$17,$1
+8,$19,$20,$21,$22,$23,$24,$25,$26,$27,$28,$29,$30,"\n";
  }
 elsif ($2=="34")
  {
  print "\tBSC -> BTS\tSACCH INFO MODIFY ", $1,$2,$3,$4,$5,$6,$7,$8,$9
+,$10,$11,$12,$13,$14,$15,$16,$17,$18,               $19,$20,$21,$22,$
+23,$24,$25,$26,$27,$28,$29,$30,"\n";
  print "\tMessage discriminator   :",$1,"\n";
  print "\t Message type            :",$2,"\n";
  print "channel number :";
  print "\tchannel number :",$3,$4,"\n";
print "system info Type        :",$7,$8,"\n";
print "\tElement Identifier      :",$7,"\n";
print "\tsystem information         :",$8,"\n";
print "L3 INFORMATION  :",$7,$8,$9,$10,$11,$12,$13,$14,$15,$16,$17,$18
+,$19,$20,$21,$22,$23,$24,$25,$26,$27,$28,$29,$30,"\n";
  }
 elsif ($2=="13")
{
 print "\tBSC -> BTS\tCHAN_RQD ", $1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,$
+12,$13,$14,$15,$16,$17,$18,$19,$20,$21,"\n";
  print "\tMessage discriminator   :",$1,"\n";
  print "\t Message type            :",$2,"\n";
  print "channel number :";
  print "\tchannel number :",$3,$4,"\n";
print "\t Identifier      :",$3,"\n";
print "\tRequest Reference :",$5,$6,$7,$8,"\n";
print "\tElement Identifier      :",$5,"\n";
print "\tRandom access information :",$6,"\n";
print "\tFrame number modulo :",$7 ,$19,"\n";
print  "Access delay :",$9,$10,"\n";
print "\tElement indentifier :",$9,"\n";
print  "\tAccess delay :",$10,"\n";
}
elsif ($2 =="33")
 {
print "\t BTS -BSC\tRF_CHAN_REL_ACK   : ",$1,$2,$3,$4,"\n";
print "BTSM Header : ";
print "\tmesssage Discriminator :", $1,"\n";
print "\tMessage Type :\t", $2,"\n";
print "channel number :";
print "\tchannel number :",$3,$4,"\n";
print "\tElement indentifier :",$3,"\n";
}
elsif ($2=="22")
{
print "\tBSC -> BTS\tCHAN_ACTIV_ACK   : " ,  $1 , $2, $3 , $4 , $5 , $
+6 , $7, "\n";
print "BTSM Header : ";
print "\t;messsage Discriminator :" , $1,"\n";
print "\tMessage Type : \t", $2,"\n";
print "channel number :";
print "\tchannel number : ", $3 , $4,"\n";
print "\tElement indentifier :",$3,"\n";
print "\tFrame number :" ,$5, $6 , $7,"\n";
print "\tElement indentifier :" , $5, "\n";
}
elsif ($2=="21")
{
print "\tBSC -> BTS\tCHAN_ACTIV  :",$1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11
+,$12,$13,$14,"\n";
print "BTSM Header : ";
print "\tmesssage Discriminator :",$1,"\n";
print "\tMessage Type :\t",$2,"\n";
print "channel number :";
print "\tchannel number :",$3,$4,"\n";
print "\tElement indentifier :",$3,"\n";
print "\tActivation type :",$5,$6,"\n";
print "\tElement indentifier :",$5,"\n";
print "\tChannel mode :",$7,$8,$9,$10,$11,$12,"\n";
print "\tElement indentifier :",$17,"\n";
print "\tLength :",$18,"\n";
print "\tTiming Advance :" ,$13,$14,"\n";
print "\tElement indentifier :",$13,"\n";
}
}
}
[download]

20061226 Janitored by Corion: Added code tags, as per Writeup Formatting Tips

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.