Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
skip header records from input file

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
dilpreet

New User


Joined: 18 Mar 2008
Posts: 34
Location: INDIA

PostPosted: Thu Mar 27, 2014 9:07 pm    Post subject: skip header records from input file
Reply with quote

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
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7312

PostPosted: Thu Mar 27, 2014 9:16 pm    Post subject: Reply to: skip header records from input file
Reply with quote

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
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1567
Location: Andromeda Galaxy

PostPosted: Thu Mar 27, 2014 9:59 pm    Post subject:
Reply with quote

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
View user's profile Send private message
dilpreet

New User


Joined: 18 Mar 2008
Posts: 34
Location: INDIA

PostPosted: Fri Mar 28, 2014 12:54 am    Post subject: Reply to: skip header records from input file
Reply with quote

@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
View user's profile Send private message
Rohit Umarjikar

Senior Member


Joined: 21 Sep 2010
Posts: 2259
Location: NY,USA

PostPosted: Fri Mar 28, 2014 4:24 am    Post subject:
Reply with quote

Dilpreet,

Look at below thread, that would explain Bill's approach.

http://ibmmainframes.com/about55822.html
Back to top
View user's profile Send private message
dilpreet

New User


Joined: 18 Mar 2008
Posts: 34
Location: INDIA

PostPosted: Fri Mar 28, 2014 9:21 pm    Post subject: Reply to: skip header records from input file
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Need help in parsing record in VBA file guptae DFSORT/ICETOOL 2 Fri Oct 11, 2019 2:31 pm
No new posts DFSMShsm Dataset Recovery with B and ... Joerg.Findeisen JCL & VSAM 0 Sat Oct 05, 2019 10:01 pm
No new posts What 'EF' in the CAFC command REGION,... vrkratheesh CICS 2 Wed Sep 18, 2019 4:52 pm
No new posts Duplicating records in a PDS memebr/I... imcoolleo COBOL Programming 5 Mon Sep 16, 2019 3:32 pm
No new posts Can we pass the value of Symbolic par... Poha Eater JCL & VSAM 5 Thu Sep 05, 2019 2:21 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us