ART-BEMTXT
Ausgeben von
Artikeltextblöcken.
Rückgabetyp
A
(Alphanumerisch)
Welche Objekte müssen aktiv
sein?
ART
Welche Objekte werden
aktiviert?
keine
Argumente
Operationstypen für den
Textblock
Beispiel
1
Artikeltextblock zeilenweise auslesen
/A-TEXTBLOCK
# Textblock Zeilenweise auslensen
«NO(1,NULL)»«nm2»
«z~nm2ART-BEMTXT(320,£«EDK-SPR-NR»)\N»«GOTO(# Jump-Text1)»
«REPEAT»
«nNO(1)»
«READ(«NO(1,0)»)»
«zNO(1,0)<«MEM(2)\N»\N»«LOOP»
# Jump-Text1
#
# Texblock erste Zeile Fett andrucken
«z~nm2ART-BEMTXT(320,£«EDK-SPR-NR»)\N»«GOTO(# Jump-Text2)»
«NO(2,NULL)»«nm2»
«REPEAT»
«nNO(2)»
«zNO(2,0)=1\N»«MEA(21)»«F+»«READ(«NO(2,0)»)»«F-»
«z~NO(2,0)>2\N»«MEA(21)»«READ(«NO(2,0)»)»
«zNO(2,0)<«MEM(2)\N»\N»«LOOP»
# Jump-Text2
/
Beispiel
2
# Artikel-Liste # und Textblock Nr. 1 drucken
/headerreport
Artikel-Liste «TODAY\8»
/
/body #,5
«ART-NR» «ART-KBZ»
«ART-BEMTXT(1)»
/
/totalreport
**** Ende der Liste ****
«FF»
/
Eine Artikelliste mit Einträgen im Textblock-Nr. 1 wird
gedruckt. Falls kein Eintrag vorhanden wird nach der Artikelzeile
lediglich eine Leerzeile gedruckt.
