Code:
A            BEREICH        1Y 0B 12 71EDTCDE(Z)                           
A                                      DSPATR(UL)                          
A  12                                  DSPATR(PC)                          
A  80                                  ERRMSG('Bitte geben Sie einen Berei-
A                                      ch ein' 80)                         
A  81                                  ERRMSG('Bitte geben Sie einen gülti-
A                                      gen Bereich ein' 81)