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 a FBA file to FB file in JCL

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
akshatgarg

New User


Joined: 01 Jul 2005
Posts: 1
Location: Gurgaon,India

PostPosted: Fri Jul 01, 2005 11:29 am    Post subject: Copy a FBA file to FB file in JCL
Reply with quote

Hi,
I have a file which is in FBA format 909 bytes. But my application needs the file in FB format 908 bytes. I want to copy the data into the FB file. Can someone please advise?

Thanks,
Akshat
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4649
Location: Raleigh, NC, USA

PostPosted: Fri Jul 01, 2005 3:46 pm    Post subject: Re: Copy a FBA file to FB file in JCL
Reply with quote

You failed to mention where the one byte of data is to be removed from - the beginning, the end, or somewhere in the middle. This would be your best option:
Code:

//COPY     EXEC PGM=SORT
//SORTIN   DD DSN=FBA 909 ...
//SORTOUT  DD DSN=FB 908 ...,RECFM=FB
//SYSOUT   DD SYSOUT=*
//SYSIN    DD *
  OPTION COPY
  OUTREC FIELDS=(1:2,908) <= strip first byte
  <or>
  OUTREC FIELDS=(1:1,908) <= strip last byte
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Fetching data from BAI File arunsoods JCL & VSAM 1 Wed Jul 19, 2017 4:28 pm
No new posts Write out NODUPS but just from one file Jay Villaverde DFSORT/ICETOOL 8 Fri Jul 14, 2017 12:44 am
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm
No new posts How to generate a new unique Input fi... for1ranjith CLIST & REXX 11 Sat Jul 01, 2017 12:09 pm
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm


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