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
 

 

Copy only a portion of the record

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

New User


Joined: 29 Nov 2006
Posts: 6
Location: India

PostPosted: Fri Feb 16, 2007 7:27 pm    Post subject: Copy only a portion of the record
Reply with quote

Hi
I Have file like this
Code:
********************************* Top of Data *************
..862ACCTU4 01.02.2007...? ..S 2007-02-02-09.53.10.095205 
******************************** Bottom of Data ***********


this has RECL 57 now I want to copy from position 3 to 57 and create a output file with RECL 55 like below

Code:
********************************* Top of Data *************
862ACCTU4 01.02.2007...? ..S 2007-02-02-09.53.10.095205 
******************************** Bottom of Data ***********

That is , the first two positions shoulbe trucated in the output file.

I tried with this JCL

Code:
//SORTIN    DD DSN=XXXXXX,DISP=SHR         
//SORTOUT   DD DSN=YYYYY                   
//             DISP=(NEW,CATLG,DELETE),     
//             DCB=(LRECL=55,RECFM=FB),     
//             UNIT=SYSDA,                 
//             SPACE=(CYL,(1,1),RLSE)       
//SYSIN     DD *                           
 OPTION COPY                               
 OUTFIL FNAMES=SORTIN,OUTREC=(3,55)         


I am getting the below error can you tell what could be wrong..??

Code:
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 13:39 ON F
           OPTION COPY                                                   
           OUTFIL FNAMES=SORTIN,OUTREC=(3,55)                             
ICE201I 0 RECORD TYPE IS F - DATA STARTS IN POSITION 1                   
ICE222A 0 55 BYTE FIXED RECORD LENGTH IS NOT EQUAL TO 57 BYTE LRECL FOR SO
ICE751I 0 C5-K05352 C6-Q95214 C7-K90000 C8-K05352 E9-K06751 E7-K90000     
ICE052I 3 END OF DFSORT                                                   


Regards
Balnim
Back to top
View user's profile Send private message

Frank Yaeger

DFSORT Moderator


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

PostPosted: Fri Feb 16, 2007 9:29 pm    Post subject:
Reply with quote

Code:

   OUTFIL FNAMES=SORTIN,OUTREC=(3,55)     


You have FNAMES pointing to SORTIN instead of SORTOUT. SORTIN does have an LRECL of 57 as the message says. Change your OUTFIL statement to:

Code:

   OUTFIL FNAMES=SORTOUT,OUTREC=(3,55)     
Back to top
View user's profile Send private message
balanim

New User


Joined: 29 Nov 2006
Posts: 6
Location: India

PostPosted: Mon Feb 19, 2007 10:50 am    Post subject:
Reply with quote

Thanks Frank for pointing to this silly mistake...It is working fine..


Regards
Balnim
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 Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am
This topic is locked: you cannot edit posts or make replies. Merge two files and update Trailer re... Yashashri JCL & VSAM 1 Thu May 04, 2017 12:54 pm
No new posts copy SEQ to PDS and create stats steve-myers JCL & VSAM 5 Thu Apr 27, 2017 1:15 am
No new posts Copy load modules and alias vasanthz IBM Tools 5 Thu Apr 20, 2017 6:31 am
No new posts Sort Large record length cmsmoon DFSORT/ICETOOL 14 Tue Apr 11, 2017 5:49 pm


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