LABEL#1 EQU *
$MAC ABORT
LABEL#2 EQU *
$NOT UPDATE,STOP
T#TAB1 EQU *
DC AL4(-1)
L#DESK DC XL6 DESKRIPTOR
L#SYMBOL DC CL30 SYMBOL
L#TKKEY DC XL4 VALOREN-NUMMER
FNK#005 EQU *
CLI V#MUT,X'FF' WURDE MUTIERT ?
BNE F05#000 NEIN
MVI FUNK,4 MDF-TG ERZEUGEN
$CALL MOD850,UP
F$SFH TR_COMMIT
####
CODE_FILE:
LABEL#1 EQU *
$MAC ABORT
LABEL#2 EQU *
$NOT UPDATE,STOP
FNK#005 EQU *
CLI V#MUT,X'FF' WURDE MUTIERT ?
VARIABLE_FILE:
T#TAB1 EQU *
DC AL4(-1)
##
##
CODE_FILE:
LABEL#1 EQU *
$MAC ABORT
LABEL#2 EQU *
$NOT UPDATE,STOP
FNK#005 EQU *
CLI V#MUT,X'FF' WURDE MUTIERT ?
BNE F05#000 NEIN
MVI FUNK,4 MDF-TG ERZEUGEN
$CALL MOD850,UP
F$SFH TR_COMMIT
B F05#100
VARIABLE_FILE:
T#TAB1 EQU *
DC AL4(-1)
L#DESK DC XL6 DESKRIPTOR
L#SYMBOL DC CL30 SYMBOL
L#TKKEY DC XL4 VALOREN-NUMMER