I've made a slight update that works for me:
/*REXX.EXEC(HEX SORT)
ADDRESS ISPEXEC
"ISREDIT MACRO (@COL1 @COL2 @AD)"
IF @COL1 = '' THEN @COL1 = 1
IF @COL2 = '' THEN @COL2 = ''
IF @AD = '' THEN @AD = 'A'
IF @COL = '?' THEN
DO
ZEDSMSG = ""
ZEDLMSG = "HEXSORT COL1 COL2 AD"
"SETMSG MSG(ISRZ001)"
EXIT
END
"ISREDIT C C'A' X'FA'" @COL1 @COL2 " ALL"
"ISREDIT C C'B' X'FB'" @COL1 @COL2 " ALL"
"ISREDIT C C'C' X'FC'" @COL1 @COL2 " ALL"
"ISREDIT C C'D' X'FD'" @COL1 @COL2 " ALL"
"ISREDIT C C'E' X'FE'" @COL1 @COL2 " ALL"
"ISREDIT C C'F' X'FF'" @COL1 @COL2 " ALL"
"ISREDIT C C'F' X'FF'" @COL1 @COL2 " ALL"
"ISREDIT SORT " @COL1 @COL2 @AD
"ISREDIT C X'FA' C'A'" @COL1 @COL2 " ALL"
"ISREDIT C X'FB' C'B'" @COL1 @COL2 " ALL"
"ISREDIT C X'FC' C'C'" @COL1 @COL2 " ALL"
"ISREDIT C X'FD' C'D'" @COL1 @COL2 " ALL"
"ISREDIT C X'FE' C'E'" @COL1 @COL2 " ALL"
"ISREDIT C X'FF' C'F'" @COL1 @COL2 " ALL"
EXIT
Lionel B. Dyck, Consultant/Specialist
Enterprise Platform Services, Mainframe Engineering
KP-IT Enterprise Engineering
925-926-5332 (8-473-5332) | E-Mail: [email protected]
AIM: lbdyck | Yahoo IM: lbdyck
Kaiser Service Credo: "Our cause is health. Our passion is service. We?re
here to make lives better.?
?Never attribute to malice what can be caused by miscommunication.?
NOTICE TO RECIPIENT: If you are not the intended recipient of this e-mail,
you are prohibited from sharing, copying, or otherwise using or disclosing
its contents. If you have received this e-mail in error, please notify the
sender immediately by reply e-mail and permanently delete this e-mail and
any attachments without reading, forwarding or saving them. Thank you.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
