Can't Find Data
Posted: Tue Nov 29, 2011 4:43 am
The assembler is having trouble finding this program's variables, but I'm having trouble giving them to it. Could you give me some help?
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
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