Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Create a new generation and insert a record with 000000000

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

New User


Joined: 17 Feb 2007
Posts: 38
Location: Hyderabad

PostPosted: Fri Oct 03, 2008 11:35 pm    Post subject: Create a new generation and insert a record with 000000000
Reply with quote

Hi All,
I will have to create a new generation for an existing GDG with one row in it with a value '000000000'. Can somebody help me to create a JCL for this.
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7990
Location: Bellevue, IA

PostPosted: Sat Oct 04, 2008 12:01 am    Post subject:
Reply with quote

Use ISPF to create a file with the correct record length and the data you want in the GDG. Then use IEBGENER to copy the file to the GDG. Look at the JCL manuals for how to code the JCL -- and you'll probably need to talk to your coworkers about local site standards.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Sat Oct 04, 2008 12:09 am    Post subject:
Reply with quote

Hi,

When this is an existing GDG
Quote:
create a new generation for an existing GDG
then there should already be a process in place to populate values in this GDG, if you want to "break" that usual process & need some specific Data - Robert's suggestion seems quite practical.
Back to top
View user's profile Send private message
deepak.vl

New User


Joined: 17 Feb 2007
Posts: 38
Location: Hyderabad

PostPosted: Sat Oct 04, 2008 12:18 am    Post subject: Reply to: Create a new generation and insert a record with 0
Reply with quote

Hi, I donot have the flexibility to create a temp file and use it to copy to the new generation since it is a prod machine and we are not supposed to do that.
I'll have to pass the value of '000000000' from the JCL only.

Thanks
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Sat Oct 04, 2008 1:10 am    Post subject: Reply to: Create a new generation and insert a record with 0
Reply with quote

deepak.vl,

Use the following JCL

Code:

//STEP0100 EXEC PGM=ICEMAN                     
//SYSOUT   DD SYSOUT=*                         
//SORTIN   DD DUMMY,LRECL=nnn,RECFM=FB,BLKSIZE=0
//SORTOUT  DD DSN=YOUR.GDG.NEWGEN(+1),         
//            DISP=(NEW,CATLG,DELETE),         
//            UNIT=SYSDA,                       
//            SPACE=(TRK,(1,1),RLSE)           
//SYSIN    DD *                                 
  SORT FIELDS=COPY                             
  OUTFIL REMOVECC,NODETAIL,                     
  TRAILER1=('000000000')                       
/*                                             
Back to top
View user's profile Send private message
deepak.vl

New User


Joined: 17 Feb 2007
Posts: 38
Location: Hyderabad

PostPosted: Sat Oct 04, 2008 3:33 am    Post subject: Reply to: Create a new generation and insert a record with 0
Reply with quote

Thanks Skolusu icon_biggrin.gif
Thats gr8, it was of gr8 help to me.
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 Count the length of the record & ... sreekusr DFSORT/ICETOOL 4 Thu Mar 23, 2017 7:52 pm
No new posts IMS DB-How to update a record (a sing... Nic Clouston IMS DB/DC 9 Thu Mar 09, 2017 4:38 pm
No new posts To Merge mutliple records into a sing... anandgbe DFSORT/ICETOOL 6 Wed Feb 22, 2017 8:49 am
No new posts How to update a portion of text in a ... Bill Woodger DFSORT/ICETOOL 25 Wed Nov 09, 2016 9:41 pm
This topic is locked: you cannot edit posts or make replies. Rexx to create GDG by scanning JJ result krish.deepu CLIST & REXX 5 Tue Oct 25, 2016 5:32 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us