Variablen in der Linkage haben keine Adresse, außer beim Aufruf von extern.
Dies kann man nutzen um die Adresse selber zu setzen:

CALL PROCEDURE '__errno'
RETURNING ERRNO-PTR
SET ADDRESS OF ERRNO TO ERRNO-PTR

Deine Variable ERRMSG gehört da aber eher in die Working-Storage.