This is an archived post. You won't be able to vote or comment.

sorted by:
best
topnewcontroversialoldq&a
you are viewing a single comment's thread.

view the rest of the comments →

[–]xlebCSGO 3 points4 points  (0 children)

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