"| specs w 1 1        ",
  "        substr w -1 of fs , f 1 15 ",
  "        substr w -1 of substr fs = f 2  of fs , f2 30 ",
  "        substr w -1 of substr fs = f 2  of fs , f3 45 ",
  "        substr w -1 of substr fs = f 2  of fs , f4 60 ",

____________________
Jim Hughes
603-271-5586
"It is fun to do the impossible."

==>-----Original Message-----
==>From: CMSTSO Pipelines Discussion List [mailto:CMS-
==>[email protected]] On Behalf Of Frank M. Ramaekers
==>Sent: Thursday, August 20, 2009 2:13 PM
==>To: [email protected]
==>Subject: PARSE for PIPEs?
==>
==>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.
==>
==>Ideas?
==>
==>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
==>
==>
==>
==>
==>
==>
==>_____________________________________________________
==>
==>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].

Reply via email to