Hmmm...never new the SPEC could do that.
Thanks,
Frank M. Ramaekers Jr.
Systems Programmer MCP, MCP+I, MCSE & RHCE
American Income Life Insurance Co. Phone: (254)761-6649
1200 Wooded Acres Dr. Fax: (254)741-5777
Waco, Texas 76710
-----Original Message-----
From: CMSTSO Pipelines Discussion List [mailto:[email protected]] On
Behalf Of Rob van der Heij
Sent: Thursday, August 20, 2009 1:22 PM
To: [email protected]
Subject: Re: [CMS-PIPELINES] PARSE for PIPEs?
On Thu, Aug 20, 2009 at 8:12 PM, Frank M.
Ramaekers<[email protected]> wrote:
> I need something like a PARSE (REXX) for PIPEs. Take the following
> example:
>
> Data:
> 7000 CUTYPE = 2107-E8, DEVTYPE = 3390-0C, VOLSER =, CYLS = 30051
> 06FE CUTYPE = 2107-E8, DEVTYPE = 3390-0A, VOLSER = 540RES, CYLS = 3339
> 7001 CUTYPE = 2107-E8, DEVTYPE = 3390-0C, VOLSER =, CYLS = 30051
> 7002 CUTYPE = 2107-E8, DEVTYPE = 3390-0C, VOLSER =, CYLS = 30051
>
> I need to extract the CCUU (first field) DEVTYPE, VOLSER and CYLS
> fields. Notice that three of the devices above don't have FOLSERs. So,
> extracting this information by column is impossible.
I would probably do something like this (quick & dirty)
spec fs , ws = substr w2 of f2 1 substr w2 of f3 10 substr w2 of f4 20.6 r
Rob
_____________________________________________________
This message contains information which is privileged and confidential and is
solely for the use of the
intended recipient. If you are not the intended recipient, be aware that any
review, disclosure,
copying, distribution, or use of the contents of this message is strictly
prohibited. If you have
received this in error, please destroy it immediately and notify us at
[email protected].
