The REXX-lines beneath will put the screen buffer into a stem called LINE. The message lines can easily be selected from the stem.
SCR = TRANSLATE(ZSCREENI)
PARSE VAR SCR SCR 'LINE' L 'COL' COL1 COL2 .
SCRNW = COL2 - COL1 + 1
File...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.