|
View previous topic :: View next topic
|
| Author |
Message |
Aaru
Senior Member
Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India
|
|
|
|
Thanks Robert.
No mainframe access here  . |
|
| Back to top |
|
 |
Escapa
Senior Member
Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA
|
|
|
|
Hi Robert,
Here you are using same DCB as sysut1 here
| Sambhaji wrote: |
| I tried copying same file (RECFM=U) to other changing output file RECFM using various utilities but couldn't succeed |
Idea here is to get output RECFM as FB or VB so that it can be usable for SORT product, as SORT does not support RECFM=U[/code] |
|
| Back to top |
|
|
Arun Raj
Moderator
Joined: 17 Oct 2006
Posts: 2481
Location: @my desk
|
|
|
|
Hi,
I was able to copy data records from an input file(RECFM=U) to RECFM=FB using fileaid.
Here's the jcl
| Code: |
//FASTEP EXEC PGM=FILEAID,REGION=6M
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//DD01 DD DSN=XXXXXXXX.UFILE,
// DISP=SHR
//DD01O DD DSN=XXXXXXXX.FBFILE,SPACE=(TRK,(10,10),RLSE),
// DISP=(,CATLG),DCB=LRECL=60,UNIT=SYSDA
//SYSIN DD *
$$DD01 COPY PADCHAR=X'00'
/* |
and the log
| Code: |
1...5...10...15...20...25...30...35...40...45...50...55...60...65...70...75..
DD01 DSN=XXXXXXXX.UFILE OPENED AS PS,
RECFM=U,LRECL=60,BLKSIZE=60,VOL=TSO006
DD01O DSN=XXXXXXXX.FBFILE OPENED AS PS,
RECFM=FB,LRECL=60,BLKSIZE=27960,VOL=TSO036
$$DD01 COPY PADCHAR=X'00'
ABOVE FUNCTION ENDED ON NORMAL EOD RC=0
RECORDS-READ=4,COPIED=4
4 RECORDS WRITTEN TO DD01O-XXXXXXXX.FBFILE
|
|
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA
|
|
|
|
| Code: |
//STEP1 EXEC PGM=IEBGENER,REGION=6M
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=TTSSRS0.COMPILES.LOADLIB(MF0037)
//SYSUT2 DD DISP=(,CATLG),DSN=TTSSRS0.MF0037.LOADLIB,
// DCB=(DSORG=PS,RECFM=V,BLKSIZE=27998),
// UNIT=SYSDA,
// SPACE=(CYL,(1,1)) |
Copying RECFM=U files works quite well in IEBGENER, for output files of U or V format. This has been tested and works.
Why would you want to copy an undefined file to fixed length? That'll waste a lot of space since your fixed record size will have to be equal to the largest possible undefined record size. |
|
| Back to top |
|
|
sakrish
New User
Joined: 05 Nov 2008
Posts: 21
Location: chennai
|
|
|
|
Superb..Thanks Robert Sample..it worked fine
Can we extract only selected particular records ?
I want only the records from 20 th record to 50th record in my output file
If so, it would be great help to me
Thanks,
sai |
|
| Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA
|
|
|
|
| sai wrote: |
Can we extract only selected particular records ?
I want only the records from 20 th record to 50th record in my output file
|
Using Only IEBGENER. No.
You need to use SORT on output you got from IEBGENER.
So one more step below it will be needed |
|
| Back to top |
|
|
Arun Raj
Moderator
Joined: 17 Oct 2006
Posts: 2481
Location: @my desk
|
|
|
|
sakrish,
What's your output file-format? If you have file-aid, I think you can get this in one shot. |
|
| Back to top |
|
|
sakrish
New User
Joined: 05 Nov 2008
Posts: 21
Location: chennai
|
|
|
|
again, it will loop back
My output file RECFM=U..
so agin my question starts
can we use sort for copying RECFM=U files ?
-Sai |
|
| Back to top |
|
|
sakrish
New User
Joined: 05 Nov 2008
Posts: 21
Location: chennai
|
|
|
|
| Code: |
General Data Current Allocation
Management class . . : MCINT01W Allocated cylinders : 1,029
Storage class . . . : PRD1000 Allocated extents . : 1
Volume serial . . . : 1GSLWD +
Device type . . . . : 3390
Data class . . . . . : ADDDSORG Current Utilization
Organization . . . : PS Used cylinders . . : 1,029
Record format . . . : U Used extents . . . : 1
Record length . . . : 0
Block size . . . . : 32004
1st extent cylinders: 1029
Secondary cylinders : 1500
Data set name type : SMS Compressible : NO
|
This is file stats
let me know u wanna need any information
-Sai |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10888
Location: italy
|
|
|
|
| Quote: |
| can we use sort for copying RECFM=U files ? |
the answer has already been given
what is that You do not understand in the WER141A message text
| Quote: |
SYNCSORT Z/OS MSGS R=V1R2
WER141A ddname RECFM IS U
EXPLANATION: The ddname is either SORTIN, SORTINnn, SORTJNF1, SORTJNF2, SORTOUT, SORTOFxx, SORTOFx or the ddname provided by an OUTFIL FNAMES parameter. SyncSort does not support undefined record format for any of these files. |
|
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
| Back to top |
|
|
|
|
