Hallo Matthias,
z.B. irgenwie so:
LET JADP = 0
LABEL ANF
LOAD GISWSP MNUM,JADP,JADF,ITYPW,IEND,IER
IF (IER NE 0) BRANCH FEHLER
IF (IEND EQ 1) BRANCH ENDE
LET JADP = JADF
LOAD GIRIDE MNUM,JADF,NIDEN,LIDEN,IER
BLOCKIF (LIDEN EQ 'SCHRIFTKOPF WKZG') THEN
LET JDET = JADF
LOAD GICDET MNUM,JDET,IER
DEIN CODE
BRANCH ENDE
ENDIF
BRANCH ANF
*-------------------------------------------------------------------
* FEHLER UND ENDE
*-------------------------------------------------------------------
LABEL FEHLER
LOAD GILERR IER
LABEL ENDE
END
------------------
Gruss
Stefan Inderbitzin
[Diese Nachricht wurde von Stefan_I am 20. Aug. 2004 editiert.]
IP