| View previous topic :: View next topic |
| Author |
Message |
deepa12
Beginner
Joined: 05 Apr 2005
Posts: 131
Topics: 64
Location: chennai
|
 Posted: Tue Mar 13, 2007 8:37 am Post subject: Usage of IEBGENER |
 |
|
i wanted to convert a pds [80 byte pds] to 80 byte PS file
I Used IEBCOPY It always creates a RECFM=VS &
Am unable to reblock it using IEBGENER
Pls suggest
_________________
deepa |
|
| Back to top |
|
 |
Nic Clouston
Advanced
Joined: 01 Feb 2007
Posts: 1075
Topics: 7
Location: At Home
|
| Posted: Tue Mar 13, 2007 8:42 am Post subject: |
|
|
What control info are you using for IEBCOPY and for IEBGENER? i.e. your SYSIN DD * data
_________________
Utility and Program control cards are NOT, repeat NOT, JCL. |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose
|
| Posted: Tue Mar 13, 2007 9:16 am Post subject: |
|
|
Deepa,
1. Click on the "Quick Manuals" Link at the top of this page
2. Scroll down to "utilities" section
3. Select "IBM utilities" manaul
4. Read chapter on "IEBPTPCH"
Hope this helps...
Cheers
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
Nic Clouston
Advanced
Joined: 01 Feb 2007
Posts: 1075
Topics: 7
Location: At Home
|
| Posted: Tue Mar 13, 2007 10:29 am Post subject: |
|
|
Of course IEBGENER will do the trick by itself
_________________
Utility and Program control cards are NOT, repeat NOT, JCL. |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose
|
| Posted: Tue Mar 13, 2007 10:43 am Post subject: |
|
|
| Nic Clouston wrote: | | Of course IEBGENER will do the trick by itself |
Nic,
Are you telling me that I can create a Sequential data set from a PDS with all the members appended ?
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
Nic Clouston
Advanced
Joined: 01 Feb 2007
Posts: 1075
Topics: 7
Location: At Home
|
| Posted: Tue Mar 13, 2007 10:48 am Post subject: |
|
|
darn - too clever - I was thinking in terms of just unloading 1 member - apologies. Of course you could - but the SYSUT1 concatenation may exceed the limit 
_________________
Utility and Program control cards are NOT, repeat NOT, JCL. |
|
| Back to top |
|
|
dbzTHEdinosauer
Supermod
Joined: 20 Oct 2006
Posts: 1411
Topics: 26
Location: germany
|
| Posted: Tue Mar 13, 2007 11:34 am Post subject: |
|
|
you can also use the COPY function in 3.3 - COPY PDSDSN(*) to QSAMDSN
but that isn't JCL
_________________
Dick Brenholtz
American living in Varel, Germany |
|
| Back to top |
|
|
dz
Beginner
Joined: 02 Apr 2006
Posts: 26
Topics: 0
|
| Posted: Tue Mar 13, 2007 3:54 pm Post subject: |
|
|
How about using PRINTDS? I have something like that:
| Code: | //*- PRE-ALLOCATE A FLAT FILE
//*--------------------------------------------------------
//SPUFALOC EXEC PGM=IEFBR14
//CARDLIB DD DSN=<your-flat-file>,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(20,4),RLSE),
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=27920)
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//*--------------------------------------------------------
//*- COPY ALL MEMBERS INTO THE FLAT FILE -
//*--------------------------------------------------------
//SPUFCOPY EXEC PGM=IKJEFT01,
// PARM=('PRINTDS DA(''<your-input-PDS>'') ',
// 'TODATASET(''<your-flat-file>'') MEMBERS NOTITLE')
//SYSOUT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY |
|
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
