Here's what I've come up with:
Direct="USER DIRECT A"
FINDME="userid"
"PIPE (endchar ?)",
"| <" Direct,
"| SPEC 1-71 STRIP 1)",
"| NFIND *"||,
"|a:ABBREV USER 1",
"| SPEC /USER/ 1 W2-* NW",
"|b:FANINANY",
"| FRTARGET FIND USER" FindME||,
"|c:DROP FIRST 1",
"| TOTARGET FIND USER"||,
"|d:FANINANY",
"|CONSOLE",
"?a:",
"|b:",
"?c:",
"|d:"
Seems more complicated than it needs to be.
Frank M. Ramaekers Jr.
________________________________
From: Frank M. Ramaekers
Sent: Tuesday, September 21, 2010 10:37 AM
To: 'CMSTSO Pipelines Discussion List'
Subject: Isolating a section of the directory.
How can I extract a section of a directory (a user's directory entry)
omitting any intervening comments?
1) Directory statements are coded in 1-71
2) A commented line is one that starts with an
asterisk (not necessarily in column 1)
3) From USER (user can be abbreviated to 1 character,
'U') + userid (any number of spaces between
4) To, but not including the next USER statement
ABBREV is only a single stage and cannot be used in conjunction with a
SPEC or PICK.
Start:
Direct="USER DIRECT A"
FINDME="userid"
"PIPE (endchar ?)",
"| <" Direct,
"| SPEC 1-71 STRIP 1)",
"| NFIND *"||,
(now what)
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 76701
_____________________________________________________
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].
