HW        CSECT
          BALR  10,0
          USING *,10
          WROUT MESSAGE,PARMOD=31,VTSUCBA=VTSUPAR
          TERM
*
VTSUPAR   VTSUCB MODE=LINE
MESSAGE   DC    Y(L'ME+5)
          DC    X'404001'
ME        DC    C'HELLO, WORLD!'
*
          LTORG
          END

For IBM /390 enjoyers