On Mon, Mar 10, 2008 at 4:51 PM, Bob Cronin <[EMAIL PROTECTED]> wrote:
> I'll second the plea for an example or two ...
And I suppose real life examples are even better, right?
PS Don't hurt yourself with the pipe wrench when you don't get it
immediately. I have been exposed to this material a bit longer and it
still makes my head hurt. I even upgraded the ADSL connection for RSCS
to keep up with new versions.
'callpipe literal :mr mrhdrdm 5.1 mrhdrrc 7.2 mrhdrtod d 9.8 | structure add'
That declares a record type called MR with 3 fields.
'callpipe (end \ name SAMPTIME.REXX:6)',
'\ *: ',
'| spec qualify mr',
'print first()?0:delta(mrhdrtod)/4096000 pic -----9.999 1',
'1-* n',
'eof noprint',
'| locate substr member mr.mrhdrdm of 11-* x06',
'| locate substr member mr.mrhdrrc of 11-* x0004',
'| *:'
The locate stages are probably the simplest here. The substr defines
that the MR struct starts at column 11, so within that record I select
a particular field for my locate. If your record has only one struct,
you would not need substr.
The spec 407 enhancements are pretty cute. Because the structure
defines field mrhdrtod as decimal, the 407 engine does an automatic
conversion. And the new delta() function computes the difference
between the input record and the second reading.
Rob
