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

Can we use Syncsort to copy records with RECFM=U


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
0d311

Guest





PostPosted: Thu Nov 13, 2008 1:11 pm
Reply with quote

IEBGENER supports processing of RECFM=U files... icon_neutral.gif
Back to top
Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Thu Nov 13, 2008 6:16 pm
Reply with quote

Quote:
IEBGENER supports processing of RECFM=U files...

When I tried, it gave me error,
IEB311I CONFLICTING DCB PARAMETERS
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India

PostPosted: Thu Nov 13, 2008 6:31 pm
Reply with quote

Od,

Quote:
IEBGENER supports processing of RECFM=U files...


Do you have any working examples?
Back to top
View user's profile Send private message
ramsri

Active User


Joined: 18 Oct 2008
Posts: 380
Location: India

PostPosted: Thu Nov 13, 2008 9:39 pm
Reply with quote

Hi,

It would be interesting to know how Sambhaji has worked it out using COBOL ! What would be LRECL of i/p file? I would like to see the code of the program. Would you please paste here?

Thanks.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Thu Nov 13, 2008 9:49 pm
Reply with quote

Aaru:
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=*.SYSUT1,
//         UNIT=SYSDA,
//         SPACE=(CYL,(1,1))
and the output file is
Code:
 Data Set Name . . . . : TTSSRS0.MF0037.LOADLIB

 General Data                           Current Allocation
  Management class . . : MCSTRG          Allocated cylinders : 1
  Storage class  . . . : SCSTRG          Allocated extents . : 1
   Volume serial . . . : STRS16
   Device type . . . . : 3390
  Data class . . . . . : DCNOORG        Current Utilization
   Organization  . . . : PS              Used cylinders  . . : 1
   Record format . . . : U               Used extents  . . . : 1
   Record length . . . : 0
   Block size  . . . . : 27920
   1st extent cylinders: 1
   Secondary cylinders : 1
   Data set name type  :                 SMS Compressible  :   NO

   Creation date . . . : 2008/11/13      Referenced date . . : 2008/11/13
   Expiration date . . : ***None***
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India

PostPosted: Thu Nov 13, 2008 10:14 pm
Reply with quote

Thanks Robert.

No mainframe access here icon_sad.gif .
Back to top
View user's profile Send private message
Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Fri Nov 14, 2008 10:47 am
Reply with quote

Hi Robert,
Code:
//         DCB=*.SYSUT1,

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
View user's profile Send private message
Arun Raj

Moderator


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

PostPosted: Fri Nov 14, 2008 11:24 am
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Fri Nov 14, 2008 6:05 pm
Reply with quote

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
View user's profile Send private message
sakrish

New User


Joined: 05 Nov 2008
Posts: 21
Location: chennai

PostPosted: Thu Nov 20, 2008 11:47 am
Reply with quote

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
View user's profile Send private message
Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Thu Nov 20, 2008 11:57 am
Reply with quote

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
View user's profile Send private message
Arun Raj

Moderator


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

PostPosted: Thu Nov 20, 2008 12:23 pm
Reply with quote

sakrish,

What's your output file-format? If you have file-aid, I think you can get this in one shot.
Back to top
View user's profile Send private message
sakrish

New User


Joined: 05 Nov 2008
Posts: 21
Location: chennai

PostPosted: Thu Nov 20, 2008 12:24 pm
Reply with quote

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
View user's profile Send private message
sakrish

New User


Joined: 05 Nov 2008
Posts: 21
Location: chennai

PostPosted: Thu Nov 20, 2008 12:26 pm
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Thu Nov 20, 2008 1:59 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Fri Nov 21, 2008 12:54 am
Reply with quote

Hello Sai,

You have another active topic for this same file:
ibmmainframes.com/viewtopic.php?p=164340&highlight=#164340

This version of the question/topic has gone full circle (i believe) and is now locked.

I also believe you have a better chance for an answer/solution in the other topic.
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 Goto page 1, 2  Next

 


Similar Topics
Topic Forum Replies
No new posts Compare only first records of the fil... SYNCSORT 7
No new posts Pulling a fixed number of records fro... DB2 2
No new posts VB to VB copy - Full length reached SYNCSORT 8
No new posts Join multiple records using splice DFSORT/ICETOOL 5
No new posts EZT program to build a flat file with... All Other Mainframe Topics 9
Search our Forums:

Back to Top