IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Job step to extract from the dataset


IBM Mainframe Forums -> JCL & VSAM
Post new topic   This topic is locked: you cannot edit posts or make replies.
View previous topic :: View next topic  
Author Message
josepnass

New User


Joined: 31 Dec 2003
Posts: 16
Location: dc

PostPosted: Thu Jul 31, 2008 4:37 am
Reply with quote

I want to extract from a file i have ssns = '123445555' from column 7 into a seperate data set

next create a second job step to extract from the dataset created the following fund code '113' from column 21 into yet another data set


any ideas glady welcome here thanks icon_biggrin.gif
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


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

PostPosted: Thu Jul 31, 2008 5:11 am
Reply with quote

You posted the same question on another board and I told you how to do it using a DFSORT job like this:

Code:

//S1    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD DSN=...  input file
//OUT1 DD DSN=...  output file1
//OUT2 DD DSN=...  output file2
//SYSIN    DD    *
  OPTION COPY                                     
  INCLUDE COND=(7,9,CH,EQ,C'123445555')           
  OUTFIL FNAMES=OUT1                             
  OUTFIL FNAMES=OUT2,INCLUDE=(3,3,CH,EQ,C'113')   
/*


Why are you posting the same question here?

If you're looking for a solution using a particular program, programming language or utility (not DFSORT), you should identify what you want exactly so people will know what you're looking for.
Back to top
View user's profile Send private message
josepnass

New User


Joined: 31 Dec 2003
Posts: 16
Location: dc

PostPosted: Thu Jul 31, 2008 5:16 am
Reply with quote

thank u long day new job difficult people etc so hectic :-)
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


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

PostPosted: Thu Jul 31, 2008 5:17 am
Reply with quote

So is the DFSORT job I posted what you want or are you looking for something else?
Back to top
View user's profile Send private message
josepnass

New User


Joined: 31 Dec 2003
Posts: 16
Location: dc

PostPosted: Thu Jul 31, 2008 5:42 am
Reply with quote

YAH I AM NEW THERE THEY WANT IN 2 STEPS I HAVE THE FILE EXTRACT FROM ITS SSNS THAT ARE IN COLUMN 7 EQ TO '123556666' INTO A SEPARATE DATA SET

THEN CREATE A SECOND JOBSTEP TO EXTRACT FROM THE THE DATA SET CREATED THE FUND CODE WHCH IS IN COLUM 31 INTO YET ANOTHER DATA SET icon_biggrin.gif AS U KNOW SOME SHOPS LIKE IT DONE THEIR WAY .. IDEAS WELCOME IE TO HAVRE 2 STEPS
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Thu Jul 31, 2008 5:54 am
Reply with quote

Hi,

surely from what Frank has provided you can change it to a 2 step job


Gerry
Back to top
View user's profile Send private message
josepnass

New User


Joined: 31 Dec 2003
Posts: 16
Location: dc

PostPosted: Thu Jul 31, 2008 6:54 am
Reply with quote

ok so on step 2 should i execute pgm iceman again remember i am not a jcl person etc u guys are and obviously jcl can be complicated just being along few weeks here came back from california to dc etc was doing adabas natural now jcl time icon_biggrin.gif
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Thu Jul 31, 2008 7:20 am
Reply with quote

Hi,

here is an example
Code:
//S1       EXEC PGM=ICEMAN                                     
//SYSOUT   DD SYSOUT=*                                         
//SORTIN   DD DSN=  INPUT-FILE                                 
//OUT1     DD DSN=  OUTPUT FILE                               
//SYSIN    DD *                                               
  OPTION COPY                                                 
  INCLUDE COND=(7,9,CH,EQ,C'123445555')                       
  OUTFIL FNAMES=OUT1                                           
/*                                                             
//S2       EXEC PGM=ICEMAN                                     
//SYSOUT   DD SYSOUT=*                                         
//SORTIN   DD DSN= INPUT-FILE FROM OUT1 IN PREVIOUS STEP       
//OUT2     DD DSN= OUTPUT-FILE                                 
//SYSIN    DD    *                                             
  OPTION COPY                                                 
  INCLUDE COND=(3,3,CH,EQ,C'113')                             
  OUTFIL FNAMES=OUT2                                           
/*                                                             


I'm not sure if you are "not a JCL person" how you are going to deal with all the other parameters required to create the output files or with JCL errors etc etc.

I could go on but maybe I'm missing something.

Good luck


Gerry
Back to top
View user's profile Send private message
josepnass

New User


Joined: 31 Dec 2003
Posts: 16
Location: dc

PostPosted: Thu Jul 31, 2008 3:47 pm
Reply with quote

thanks will get back to u i am familiar just have nt used it for a while u mean the disp rec size etc
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10833
Location: italy

PostPosted: Thu Jul 31, 2008 7:04 pm
Reply with quote

Sir,

avoiding posting in all capitals, and using wannabe hacker' s posting style (*)
Quote:
hanks will get back to u i am familiar just have nt used it for a while u mean the disp rec size etc

might help to get You more benevolent answers

(*) but maybe it' s just a symptom of a broken keyboard
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


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

PostPosted: Thu Jul 31, 2008 9:28 pm
Reply with quote

josepnass,

If you really need two steps, then you can use this DFSORT job:

Code:

//S1       EXEC PGM=ICEMAN                                     
//SYSOUT   DD SYSOUT=*                                         
//SORTIN   DD DSN=...  input file                                 
//SORTOUT DD DSN=...  output file1                               
//SYSIN    DD *                                               
  OPTION COPY                                                 
  INCLUDE COND=(7,9,CH,EQ,C'123445555')                       
/*                                                             
//S2       EXEC PGM=ICEMAN                                     
//SYSOUT   DD SYSOUT=*                                         
//SORTIN   DD DSN=...  output file1       
//SORTOUT  DD DSN=... output file2                               
//SYSIN    DD    *                                             
  OPTION COPY                                                 
  INCLUDE COND=(3,3,CH,EQ,C'113')                             
/*         
Back to top
View user's profile Send private message
josepnass

New User


Joined: 31 Dec 2003
Posts: 16
Location: dc

PostPosted: Thu Jul 31, 2008 10:19 pm
Reply with quote

I asked a question here and got some good answers.
Thank you all.
Back to top
View user's profile Send private message
josepnass

New User


Joined: 31 Dec 2003
Posts: 16
Location: dc

PostPosted: Sat Aug 02, 2008 12:07 am
Reply with quote

have a great weekend thanks for the answers Frank :-) icon_biggrin.gif
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Mon Aug 04, 2008 10:18 pm
Reply with quote

I blame the proliferation of text messaging for the cryptic use of the English language these days.
Back to top
View user's profile Send private message
josepnass

New User


Joined: 31 Dec 2003
Posts: 16
Location: dc

PostPosted: Mon Aug 04, 2008 10:28 pm
Reply with quote

what are u talking about please be more specific here what is it your trying to say hard to read between the lines
Terry Heinze wrote:
I blame the proliferation of text messaging for the cryptic use of the English language these days.
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Mon Aug 04, 2008 10:45 pm
Reply with quote

It's hrd 2 no wht ur tlkng abt wen u use "chat speak" on a mnfrm bltn brd.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Mon Aug 04, 2008 11:23 pm
Reply with quote

Hello,

Terry refers to this form of "communication". . .
Quote:
thanks will get back to u i am familiar just have nt used it for a while u mean the disp rec size etc
You have put together several thoughts and i believe a question with out bothering to form any kind of sentence, spell the words, use any punctuation, etc.

You did the same thing in your reply to Terry.

It is both lazy, and rude. This is not some chat room or IM service.

Due to the number of "freshers", "newbies". students, etc and the number of people who do not have English as their primary language, it is important to be clear. To many, "texting" is not.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10833
Location: italy

PostPosted: Mon Aug 04, 2008 11:47 pm
Reply with quote

Hi Terry !

Quote:
It's hrd 2 no wht ur tlkng abt wen u use "chat speak" on a mnfrm bltn brd.


How did You do it ?
some kind of advanced crypto algorithm icon_biggrin.gif
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Mon Aug 04, 2008 11:56 pm
Reply with quote

I apologize for being so sarcastic, but I really get tired of reading IM-speak on a forum where terminology and precise terms are so important. I have no problem dealing with posts from folks whose 1st language is not English. I can usually figure out what the intent of the question or reply is. What I have a hard time with is people who are just too lazy to express themselves so that others know what they're talking about. icon_smile.gif
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Tue Aug 05, 2008 12:04 am
Reply with quote

Besides that, old geezers have earned the right to be occasionally crotchety. icon_smile.gif
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10833
Location: italy

PostPosted: Tue Aug 05, 2008 12:06 am
Reply with quote

couldn' t agree more
Back to top
View user's profile Send private message
josepnass

New User


Joined: 31 Dec 2003
Posts: 16
Location: dc

PostPosted: Tue Aug 05, 2008 12:21 am
Reply with quote

ok ok relax i will try and use my harvard degree next time and put more effort into creating my sentence punctuation etc icon_eek.gif dont be so quick to judge others
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Tue Aug 05, 2008 12:50 am
Reply with quote

Hello,

Quote:
ok ok relax i will try and use my harvard degree next time and put more effort into creating my sentence punctuation etc

What was wrong with this time?

Quote:
dont be so quick to judge others

When you repeatedly wave the "I'm inconsiderate" flag, it is not a quick judgement. . .

And this has certainly gone on more than is needed. . . icon_rolleyes.gif

And has been locked.

d
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies. View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Repeat a DD line- comment and insert ... CA Products 3
No new posts Dataset size increase on adding 1 byt... DFSORT/ICETOOL 8
No new posts Evaluate variable to execute a jcl step JCL & VSAM 3
No new posts pass data as symbolic parameter from ... CLIST & REXX 2
No new posts Extract all the TWS scheduler informa... IBM Tools 1
Search our Forums:

Back to Top