Consider the following:
/* rexx */
YES = (1 = 1)
NO = \YES
marker = "$$HEXSTUFF$$"
hexdata. = 0
maxsrcline = sourceline()
doinghex = NO
do src# = 1 to maxsrcline
sourceline = sourceline(src#)
markerline = wordpos(marker,sourceline)
if markerline & \doinghex then do
doinghex = YES
iterate
end
if markerline & doinghex then leave
If doinghex then do
hex# = hexdata.0 + 1
hexdata.hex# = x2c(space(sourceline))
hexdata.0 = hex#
end
end
/*
$$HEXSTUFF$$
000102030405060708090A0B0C0D0E0F101112
$$HEXSTUFF$$
*/
Will this do what you want?
Chuck
Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology
Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
[email protected] | www.thermofisher.com
WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this
e-mail or the information herein by anyone other than the intended recipient,
or an employee or agent of a system responsible for delivering the message to
the intended recipient, is prohibited. If you are not the intended recipient,
please inform the sender and delete all copies.
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Itschak Mugzach
Sent: Thursday, October 27, 2016 11:07 AM
To: [email protected]
Subject: Rexx and hex data strings
I am trying to include a large ammount of hex (and unexpected) data in the
program. each line is 80 bytes in length. As Rexx allowes a longer then 80
bytes line of code, there is no problem to put each line into a variable,
but I have about 800 lines to include... any idea how to make a block in
the program an accssible comment?
Best,
ITschak
*| **Itschak Mugzach | Director | SecuriTeam Software | *
*|* *Email**: [email protected] **|* *Mob**: +972 522 986404 **|*
*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|*
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
