hi James,

Somewhere, buried in the stream file of arbitrary length, there may or may not be a string of the form
foo="<block of 20 characters>"

This is very similar to what Dennis Lovelady just posted... ack, I'm too slow... but mine does have some differences from his, so I'm posting it anyway:

PGM

CRTDTAARA DTAARA(TESTAREA) TYPE(*CHAR) LEN(20)
MONMSG CPF1023

ADDENVVAR ENVVAR(QIBM_QSH_CMD_ESCAPE_MSG) REPLACE(*YES) +
VALUE(Y)
ADDENVVAR ENVVAR(STMF) REPLACE(*YES) +
VALUE('/home/klemscot/testfile.txt')
ADDENVVAR ENVVAR(DTAARA) REPLACE(*YES) +
VALUE('TESTAREA')

QSH CMD('cat $STMF | +
sed -n ''s/.*foo="\(....................\)".*/\1/p'' | +
datarea -wl $DTAARA.dtaara')

DSPDTAARA TESTAREA

ENDPGM

Differences between mine & Dennis:

a) Mine assumes the foo= can appear in the middle of other text. (I'm actually assuming you're trying to grab this out of an XML file)

b) Mine assumes data between quotes is always 20 chars, period. Dennis solution will take any length... (maybe I took you too literally)

c) Mine writes the output to a data area, his wrote it to an environment variable inside Qshell.

d) If there's more than one foo= string in the file, mine will only take the first one. Dennis' will take them all (but store them all together in one variable.)

So... mine is very similar, in some ways better, in some ways worse than Dennis'... but I thought it might be worth posting anyway.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].