I think I should use the 407.
I'd first have a copy of the record where I'd xlate all numbers to, say,
0 and all letters so, say, a. I'd select the records by locate /0a/ and
then in the 407 for those records i'd #0=pos("0a", record(1, 100)) and
write the two parts of the record with an output item that uses the
position determined.
On 11/03/2017 02:00 PM, Dale R. Smith wrote:
On Thu, 2 Nov 2017 13:01:13 -0400, Glenn Knickerbocker <[email protected]> wrote:
To pick out PTF numbers from freeform text, I'm splitting on anything
that's not alphanumeric and then looking for U as the first character,
etc. I just had a problem where somebody accidentally ran the APAR and
PTF numbers together into PI86281UI51100, so I didn't find the PTF
number. My code *should* be short-lived, and I could SPLIT BEFORE ANYOF
'OPU' to handle our current APAR and PTF prefixes, but we all know how
many decades later we fall into those traps. Am I overlooking some
simple way (short of resorting to PATTERN) to split before a letter that
follows a number?
¬R
| insert / / after 7 ?
