View previous topic :: View next topic
|
Author |
Message |
dilpreet
New User
Joined: 18 Mar 2008 Posts: 34 Location: INDIA
|
|
|
|
I have a sequential file from which I want to remove the header rows until I find a row with "MEMBER' . Is it anyways possible through sort or Icetool
Input file data :
Code: |
READY
LISTDS 'C8AYPE.LOADLIB.C82PROD.ANNO' MEMBERS
C8AYPE.LOADLIB.C82PROD.ANNO
--RECFM-LRECL-BLKSIZE-DSORG
U ** 13030 PO
--VOLUMES--
M93855
--MEMBERS-- --> want to skip records till here
ALCICWI6
ALCICWI7 |
Code'd |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
Use IFTHEN=(WHEN=GROUP with BEGIN for "--MEMBERS--" and PUSH a character to an extension of the record.
In OUTFIL, use OMIT=/INLCUDE= to ignore/select your records, and BUILD to drop off the extension. |
|
Back to top |
|
|
Pandora-Box
Global Moderator
Joined: 07 Sep 2006 Posts: 1592 Location: Andromeda Galaxy
|
|
|
|
Instead of a sort step you can skip records in REXX in OUTTRAP while writing to output and thus you would retain only the member names.
Or In sort as the output is not going to change you could just SKIP the first 9 records |
|
Back to top |
|
|
dilpreet
New User
Joined: 18 Mar 2008 Posts: 34 Location: INDIA
|
|
|
|
@Bill
I am not familiar with the syntax . Could you please elaborate more on how Rows after '--Member' can be included in the final file .
Thanks |
|
Back to top |
|
|
Rohit Umarjikar
Global Moderator
Joined: 21 Sep 2010 Posts: 3051 Location: NYC,USA
|
|
Back to top |
|
|
dilpreet
New User
Joined: 18 Mar 2008 Posts: 34 Location: INDIA
|
|
|
|
Thanks everyone. I was able to run the job using
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,3,CH,EQ,C'--MEMBER'),PUSH=(81:3,6))
OUTFIL FNAMES=SORTOUT,INCLUDE=(81,6,CH,EQ,C'MEMBER'),BUILD=(1,80) |
|
Back to top |
|
|
|