Nachbearbeitung von Pica-Daten, Hauptteil
 im Anschluss an PICA.AIM

pn="Pica-Nachbearb., Hauptteil"

 ------ Grundwerte --------------------------------------------------------
                                          dieser Teil muss bleiben
zl=0        Zeilenl„nge unbegrenzt (kein Umbruch)

ks=1        Beginn des Ausgabetextes beim ersten Zeichen hinter #

ke=0        Kategorie-Ende = Code 0

as=""       Aufnahme-Start
ae=""       Aufnahme-Ende
dx=1
am=1

 ---------------------------------------------------------------------------

_#90 s_#90 _

_#3nb__

_shttp_http_

 ak=zz+A
 ak=ubs+B 
 ak=900+B 901+B 902+B 903+B 904+B 905+B 906+B 907+B 908+B 909+B 90:+B 90;+B 90<+B 90=+B
 ak=90>+B 90A+B 90B+B 90C+B 90D+B 90E+B 90F+B

 #+-   wenn ak nicht greift, nichts

#-A
  Prim„rs„tze rauswerfen, wenn "Nur als Sekund„r..." drinsteht
    folgende Zeile deaktivieren, wenn die Prim„rs„tze ebenfalls gew�nscht sind
  

#81v +- c"ur als Sek" e0 #zz 0
#dt dbs e0 #zz 0
#90 c"H" b3 =bs,0 0 #zz 0
#90 e"H" M e0 #zz 0

#t{ 1 }
#20 +#00 e0 #zz 0
#85 b3 "20 " M e0 #zz 0
!00 +V i4,8 dsi ,"_/__" e9 Asi #zz 0    NMN-Nummer
!00 +W c"ZZZ" e0 #zz 0
!00 +V I4,z dsi Asi #zz 0       keine 
!00 +V i4,s i5,s b1 e"-" Asi #zz 0      SWD-Nummer

!00 e"!" dsi Asi #zz 0
!00 b"!" c"[+/,]" E"[+/,]" r5,0 Asi #zz 0
!00 +V b"!" b"[+/,]" Asi #zz 0
!00 b"!" r4,0 Asi #zz 0
#+V

#-W
#89P b3 p"00 z" dsi Asi #zz 0

#-V
#t{ s4 }
#uaf daf e0 #zz 0
#40 e" = " =af #zz 0
#40 b" = " c"#uaf" e" = " p"#40 " M #zz 0
#uaf daf e0 #zz 0
#402 e" = " =af #zz 0
#402 b" = " c"#uaf" e" = " p"#402" M #zz 0
#uaf daf e0 #zz 0
#403 e" = " =af #zz 0
#403 b" = " c"#uaf" e" = " p"#403" M #zz 0
#uaf daf e0 #zz 0
#41 e" = " =af #zz 0
#41 b" = " c"#uaf" e" = " p"#41 " M #zz 0
#t{ s1 }

!usi b3 B"zzz" B"ZZZ"
##    Pauschalexport : alle Kategorien hintereinander ausgeben
#90 +#00 c"L"
#90 b3 ,"_LLBs_LB'_" ,"_LCBs_CB'_" B"s" p"90 "
#00 +Z i4,z e0 #zz 0
#900 +Z b"L" p"L" "90a"
#900 b3 ,"_LLBs_LB'_" ,"_LCBs_CB'_" B"s" "90a"
#901 +Z b"L" p"L" "90b"
#901 b3 ,"_LLBs_LB'_" ,"_LCBs_CB'_" B"s" "90b"
#902 +Z b"L" p"L" "90c"
#902 b3 ,"_LLBs_LB'_" ,"_LCBs_CB'_" B"s" "90c"
#903 +Z b"L" p"L" "90d"
#903 b3 ,"_LLBs_LB'_" ,"_LCBs_CB'_" B"s" "90d"
#904 +Z b"L" p"L" "90e"
#904 b3 ,"_LLBs_LB'_" ,"_LCBs_CB'_" B"s" "90e"
#905 +Z b"L" p"L" "90f"
#905 b3 ,"_LLBs_LB'_" ,"_LCBs_CB'_" B"s" "90f"
#906 +Z b"L" p"L" "90g"
#906 b3 ,"_LLBs_LB'_" ,"_LCBs_CB'_" B"s" "90g"


#-Z
#90X b3 p"90X"
#90Y b3 p"90Y"
#90Z b3 p"90Z"
#99n
#t{ C }
#+#

#-B
#00 +C i4,z e0 #zz 0   nur wenn #00 z
#u1 +C H e0 #zz 0   oder wenn Teilfeld H vorkommt!

#+-

#-C

#-D
#t{ 1 }

#u1 P "00 e"        #00 EPN    NEU

!usi b6 "9DF"
#nr e0 #zz 0
 
#t{ "9DG" }

#u1 +E c"L" e0 #zz 0
#t{ "L84" }

#-E   Die Sache mit dem Nichtsortierzeichen!
#u1 e"ª" b3 ,"_s n?__" ,"_ni__" ,"_nb__" #zz 0
#u1 b"ª" e"`" p"ª" y1 ,"_s n?__" ,"_ni__" ,"_nb__" #zz 0
#u1 b"ª" b"`" p"ª" y1 ,"_s n?__" ,"_ni__" ,"_nb__" #zz 0
#-F

#nr e0 #zz 0

#t{ 0 C }

#+#



_>>_>_

/00
/39a
/39b
/32a
/32d
/32b
/32l
/32k
/32x
/30x
/30y
/99x
/95.
/27.
/96   ??
/90.
/99.


  Zeichenersetzungen
  (z.T. m�ssen hier Zwischenzeichen durch die endg�ltigen ersetzt werden
   siehe Tabelle in PICA.AIM)
   muss evtl. noch erg„nzt werden

p @ 32     @ durch Space ersetzen

p ± "Ûl"

p | $      $ musste vorher ge„ndert werden (8700) wg. Sonderfunktion

p ü ?    in #30a 

p ¹ .219 76    /L
p º .219 79    /O
p » .222 68    -D
p É .219 108   /l
p ³ .222 100   -d

p ¼ "OE"       Ligatur OE
p ¶ "oe"               oe
p À "IJ"
p È "ij"        niederld ij
p Ê "*d"

q A/Z a

p ` 1