|
View previous topic :: View next topic
|
| Author |
Message |
john vijay
New User
.jpg)
Joined: 09 Mar 2006
Posts: 8
Location: hyderabad
|
|
|
|
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 |
|
 |
IQofaGerbil
Active User
Joined: 05 May 2006
Posts: 183
Location: Scotland
|
|
|
|
| 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 |
|
|
diwa_thilak
Active User
.jpg)
Joined: 13 Jul 2006
Posts: 205
Location: At my desk
|
|
|
|
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 |
|
|
john vijay
New User
Joined: 09 Mar 2006
Posts: 8
Location: hyderabad
|
|
|
|
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 |
|
|
shreevamsi
Active User
Joined: 23 Feb 2006
Posts: 305
Location: Hyderabad,India
|
|
|
|
John,
Then are you expecting an output of LRECL of 252?? |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
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:
Use [URL] BBCode for External Links
| 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 |
|
|
|
|
