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 XMITIP sends it out. Can it copy on l... Rommel Dayon Rustia IBM Tools 0 Tue Sep 05, 2017 10:16 am
No new posts Updating the Trailer count in variabl... satheshbabur DFSORT/ICETOOL 6 Wed Aug 30, 2017 9:49 pm
No new posts Repeat part of record multiple times Learncoholic DFSORT/ICETOOL 4 Tue Aug 29, 2017 11:33 am
No new posts Select numeric portion from CHAR data... balaji81_k DB2 6 Sat Aug 19, 2017 1:51 am
No new posts Unable to copy data from spool in a d... srikant314 JCL & VSAM 8 Fri Jul 28, 2017 9:10 pm

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