IBM Mainframe Forum

MAIN    CSECT
MAIN    SETUP
     CALL   WRITE,(MSG),VL
     ENDIT
     DS    0F
     MSG     DC    AL2(MSGE-MSGB)
     MSGB    DC    C'some nice message'
     MSGE    EQU   *
     message DS    CL13
*     â€¦
     END MAIN
WRITE    CSECT
*     â€¦
*    somehow move message
     USING *,12
     OPEN  outpupile
     MVC   message,MSGB
     PUT   outpupile,message
     CLOSE  outpupile
     RETURN   (14,12),T,RC=0
     END