Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 query to fetch record which has only ... maxsubrat DB2 0 Mon Dec 11, 2017 5:03 pm
No new posts Extract record for change in combinat... Trinadh DFSORT/ICETOOL 6 Thu Nov 23, 2017 3:32 pm
No new posts Compare and COPY using DFSORT pshongal DFSORT/ICETOOL 3 Fri Nov 17, 2017 9:49 am
No new posts Extract Record using range of Data scorp_rahul23 DFSORT/ICETOOL 3 Wed Nov 15, 2017 11:54 pm
No new posts Squeeze record left so that zeroes ar... Vignesh Sid SYNCSORT 5 Fri Nov 10, 2017 1:40 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us