You can code something like this:
L TABREG,=A(TRANTAB)
LA 9,DATA
TRL TRT 0(9,8),0(TABREG) FIND DELIM in 8 bytes
BZ NODELIM NO DELIM
LR 9,1 ADDRESS OF .
LA 9,1(9) POINT AFTER .
TRT 0(9,8),0(TABREG) LOOK FOR NEXT .
BZ NODELIM
TRANTAB DS 0H
USING *,TABREG
DC 256X'00'
ORG TRANTAB+C'.'
DC C'.'
ORG
***************
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Pinnacle
Sent: Friday, March 13, 2015 1:28 PM
To: [email protected]
Subject: Need assembler trick to quickly get second and third DS qualifiers
I have a dataset FIRST.SECOND.THIRD, and I want to get SECOND.THIRD.
Normally I would loop to one character at a time to get to the '.', but I need
performance here. I sure some of you assembler gurus could give me some
inscrutable assembler to get there in like one or two instructions. Thanks in
advance!
Regards,
Tom Conley
--
----------------------------------------------------------------------
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
