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
 

 

Input file which contains two asteriks at 20 40 60 80 pos

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

New User


Joined: 09 Mar 2006
Posts: 8
Location: hyderabad

PostPosted: Wed Aug 30, 2006 4:43 pm    Post subject: Input file which contains two asteriks at 20 40 60 80 pos
Reply with quote

i have an input file which contains two asteriks at 20 40 60 80 positions.
i want the output as leaving those asteriks means input file should be continous without any blanks. this i need to handle it thru jcl.
pls help me out in excluding this asteriks
thank
Back to top
View user's profile Send private message

IQofaGerbil

Active User


Joined: 05 May 2006
Posts: 183
Location: Scotland

PostPosted: Wed Aug 30, 2006 7:05 pm    Post subject: Re: how to exclude
Reply with quote

please give an example of the records in the input file and the expected output records. Also what is the RECFM and LRECL of the input file.
Back to top
View user's profile Send private message
diwa_thilak

Active User


Joined: 13 Jul 2006
Posts: 205
Location: At my desk

PostPosted: Wed Aug 30, 2006 7:23 pm    Post subject:
Reply with quote

Hi john vijay,

Do you mean skip the whole record with that astriks, Or you want to have an empty space in that particular location for that particular record.

Thanks,
Diwakar

---------------------------------

Nobody is perfect. I am Nobody
Back to top
View user's profile Send private message
john vijay

New User


Joined: 09 Mar 2006
Posts: 8
Location: hyderabad

PostPosted: Thu Aug 31, 2006 12:13 pm    Post subject: Re: Input file which contains two asteriks at 20 40 60 80 po
Reply with quote

my input file will be like this

JTJBT20X550077959**JTJBT20X550077959**JTJBT20X550077959**...etc

lrecl is 260
recfm = fb

my output should be
JTJBT20X550077959JTJBT20X550077959JTJBT20X550077959 like this without asteriks
Back to top
View user's profile Send private message
shreevamsi

Active User


Joined: 23 Feb 2006
Posts: 305
Location: Hyderabad,India

PostPosted: Thu Aug 31, 2006 12:20 pm    Post subject:
Reply with quote

John,


Then are you expecting an output of LRECL of 252??
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: Thu Aug 31, 2006 9:05 pm    Post subject:
Reply with quote

vijay,

If you want to squeeze out all of the asterisks and blanks in the record, you can do it with this DFSORT job. You'll need z/OS DFSORT V1R5 PTF UK90007 or DFSORT R14 PTF UK90006 (April, 2006) in order to use DFSORT's SQZ function. If you have DFSORT, but you don't have the April, 2006 PTF, ask your System Programmer to install it (it's free). For complete details on all of the new DFSORT and ICETOOL functions available with the April, 2006 PTF, see:

www.ibm.com/servers/storage/support/software/sort/mvs/peug/

Code:

//S1      EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD DSN=...  input file (FB/260)
//SORTOUT DD DSN=...  output file (FB/260)
//SYSIN    DD    *
  OPTION COPY
  INREC BUILD=(1,260,SQZ=(SHIFT=LEFT,PREBLANK=C'*'))
/*


If you have '**' at 21-22, 41-42, 61-62 and 81-82 in every record and you want to remove those characters without affecting anything else, let me know and I'll show you how to do it. If you want to do something else, then you need to explain more clearly what exactly it is that you want to do.
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 Converting Variable block file to Fix... bhavana yalavarthi DFSORT/ICETOOL 10 Tue May 16, 2017 2:20 pm
No new posts Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts Issue with NDM process to transmit ES... chetanambi All Other Mainframe Topics 6 Wed May 03, 2017 10:52 am
No new posts File processing vishwakotin Mainframe Interview Questions 9 Fri Apr 28, 2017 11:38 am


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