Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Extract first name and last name from input file

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
gaps030980

New User


Joined: 27 Sep 2005
Posts: 8
Location: Gurgaon

PostPosted: Wed Nov 26, 2008 2:26 am    Post subject: Extract first name and last name from input file
Reply with quote

I have an input file having first name a space followed by the last name. The max combined length is 20 char. I need to pull up the first name and store it separately to a 2nd file and extract the last name and store it separately to a 3rd file. How do I do that using a JCL/SORT?
Back to top
View user's profile Send private message

Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2287
Location: @my desk

PostPosted: Wed Nov 26, 2008 2:30 am    Post subject:
Reply with quote

Can you post here the sort product info.(DFSORT/Syncsort) with the version nbr. See the SYSOUT of any job run to find this info.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Wed Nov 26, 2008 2:40 am    Post subject:
Reply with quote

Kushal,

You can use a DFSORT job like the following to do what you asked for.

Code:

//S1    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD *
ALFRED SMITH
WILLIAM JONES
JOE PLUMBER
GEORGE WASHINGTON
/*
//OUT1 DD SYSOUT=*
//OUT2 DD SYSOUT=*
//SYSIN    DD    *
  OPTION COPY
  OUTFIL FNAMES=OUT1,
    PARSE=(%01=(ENDBEFR=C' ',FIXLEN=20)),
    BUILD=(%01)
  OUTFIL FNAMES=OUT2,
    PARSE=(%=(ENDBEFR=C' '),
           %02=(FIXLEN=20)),
    BUILD=(%02)
/*


OUT1 would have:

Code:

ALFRED   
WILLIAM   
JOE       
GEORGE   


OUT2 would have:

Code:

SMITH       
JONES       
PLUMBER     
WASHINGTON 


For complete details of DFSORT's PARSE function, see:

http://www.ibm.com/systems/support/storage/software/sort/mvs/peug/
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts ISSUE IN copying Sequential file reco... thesumitk JCL & VSAM 2 Wed Dec 13, 2017 3:07 pm
No new posts File Tailoring -- Temporary dataset i... samzee71 CLIST & REXX 3 Fri Dec 01, 2017 3:12 am
No new posts Rexx - File tailoring samzee71 CLIST & REXX 10 Thu Nov 30, 2017 10:47 pm
No new posts Extract record for change in combinat... Trinadh DFSORT/ICETOOL 6 Thu Nov 23, 2017 3:32 pm
No new posts Moving a PS file as body of a mail! Vignesh Sid JCL & VSAM 4 Tue Nov 21, 2017 9:23 pm

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