@LISTSERV.UARK.EDUSubject: Re: A more elegant
pipe?Hmmm...nevermind my
whole "Building off Jim's solution thing"...the first time I tried yours it
didn't give me what I was expecting...But, I tried it again and it produces
just what was asked for. Plus it's cleaner :-) Rega
Subject: Re: A more elegant pipe?
Thanks everyone for all the tips. I think
if I live to be 100yrs. I'll still be finding new techniques for using PIPES.
-Original
Message-
From: The IBM z/VM Operating
System [mailto:[EMAIL PROTECTED]On
Behalf Of Miguel Delapaz
Sent: Monday, October 23
Title: A more elegant pipe?
I have a file, print output, that looks something like this.
1REPT: BYUSER
DATE: 10/23/06
TIME: 14:50:46
0USERID LIBRARY
==
0AAA FULL01
0BBB FULL01
0CCC LIST01
LIST01
LIST01
LIST01
LIST01
LIST01
LIST01
LIST01
LIST01
0DDD DIST01
0EEE LIST01
Title: A more elegant pipe?
This maybe a
good place to start. You could add LOOKUP to find a list of userids.
/* */
PIPE
(endchar ?) test data a |,
strip trailing | pad 2 |,
joincont leading / / /!/ |,
nfind 1| ,
locate w 1 /EEE/ |,
the answer a
Return
Title: A more elegant pipe?
It needs something
like | join keylength 4 /!/ | deblock
linend ! between the locate and the stages.
Regards,
Richard Schuh
-Original Message-
From: The IBM z/VM Operating
System [mailto:[EMAIL PROTECTED]On
Behalf Of Hughes, Jim - OIT
Sent
Building off Jim's approach:
userid = 'AAA'
'PIPE',
'| MY LISTING A',
/* Read in datafile */
'| FRTARGET FIND 0' || userid, /* Start at
first record for user */
'|
Title: A more elegant pipe?
I picked it up from the list. Glad to pass it along.
Regards,
Richard Schuh
-Original Message-
From: The IBM z/VM Operating
System [mailto:[EMAIL PROTECTED]On
Behalf Of Hughes, Jim - OIT
Sent: Monday, October 23, 2006
2:26 PM
To: IBMVM
Hmmm...nevermind my whole Building
off Jim's solution thing...the first time I tried yours it didn't
give me what I was expecting...But, I tried it again and it produces just
what was asked for. Plus it's cleaner :-)
Regards,
Miguel Delapaz
z/VM TCP/IP Development
The IBM z/VM Operating
Here's a pipe that will do it:
'PIPE (ENDCHAR ?)',
' MY LISTING A',
'| a: fanout',
'| LOCATE 1.1 /0/',
'| SPECS 2.8 1 LEFT',
'| j: JUXTAPOSE',
'| LOCATE 1.8 /EEE /',
'| PICK W3 /== /??/',
'| SPECS W1-3 1',
'| STEM PROGS.',
'?',
'a:',
'| SPECS 13-* 1 /??/
