COPY TXCOPY
COMPARE TXSTART COMPARE,TYPE=MAIN,BASES=(1)
CP NUM1,NUM2
BH HIGH
MVC GREAT,NUM2
CP GREAT,NUM3
BH HIGHEST
MVC GREAT,NUM3
B HIGHEST
HIGH EQU *
MVC GREAT,NUM1
B HIGHEST
HIGHEST EQU *
TXERM 'DISPLAY GREAT' GREAT
NUM1 DC P'20'
NUM2 DC P'80'
NUM3 DC P'10'
GREAT DS PL2
COMPARE TXSTART COMPARE,TYPE=MAIN,BASES=(1)
CP NUM1,NUM2
BH HIGH
MVC GREAT,NUM2
CP GREAT,NUM3
BH HIGHEST
MVC GREAT,NUM3
B HIGHEST
HIGH EQU *
MVC GREAT,NUM1
B HIGHEST
HIGHEST EQU *
TXERM 'DISPLAY GREAT' GREAT
NUM1 DC P'20'
NUM2 DC P'80'
NUM3 DC P'10'
GREAT DS PL2
topic edited to use the code tags instead of the useless bold