View previous topic :: View next topic
|
Author |
Message |
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello Sai,
X'40' is a blank.
Your extracted file appears to be fixed length and when you wrote the records, they were filled with spaces. How is your output file defined to Easytrieve? |
|
Back to top |
|
|
sakrish
New User
Joined: 05 Nov 2008 Posts: 21 Location: chennai
|
|
|
|
Hi,
I have defined my output file as my block size is 32004
Code: |
FILE INFILE3 U 32004 |
and in JCL, i defined it as
Code: |
//INFILE3 DD DSN=XCIT.ACH.TEST.OUTPUT1,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(150,1500),RLSE),
// DCB=(DSORG=PS,RECFM=U) |
let me know if you need still any infromation.
Thanks,
sai |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
How did you set up the move/write to the output file? |
|
Back to top |
|
|
sakrish
New User
Joined: 05 Nov 2008 Posts: 21 Location: chennai
|
|
|
|
hi
my input file
Code: |
FILE INFILE1
INFILE1-F-RECD 01 32004 A |
I am moving
Code: |
move infile1-f-recd to INFILE3
|
so..it is givng x'40'.
but how to define INFILE1-F-RECD other than alphanumeric
-sai[/quote] |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Quote: |
but how to define INFILE1-F-RECD other than alphanumeric |
As far as i know, files/records are always alphanumeric.
Once you extract these "bundles" how will they be used? Is there new code being written to use the data you are creating? |
|
Back to top |
|
|
sakrish
New User
Joined: 05 Nov 2008 Posts: 21 Location: chennai
|
|
|
|
hi
I never use any new code..we need that extracted bundles to get processed in server side
can we copy RECFM=U to RECFM=FB ? if so, i can use sort to extract bundles from my file..
thanks,
sai |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
In the Easytrieve code you could change the definition of
Code: |
FILE INFILE3 U 32004 |
to
Code: |
FILE INFILE3 FB 32004 32004 |
and change this:
Code: |
//INFILE3 DD DSN=XCIT.ACH.TEST.OUTPUT1,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(150,1500),RLSE),
// DCB=(DSORG=PS,RECFM=U) |
to this:
Code: |
//INFILE3 DD DSN=XCIT.ACH.TEST.OUTPUT1,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(150,1500),RLSE),
// DCB=(DSORG=PS,RECFM=FB) |
This should produce an FB file (but it will have lots of trailing spaces). I'd suggest a limited test to see if this will do what you want. |
|
Back to top |
|
|
sakrish
New User
Joined: 05 Nov 2008 Posts: 21 Location: chennai
|
|
|
|
hi,
I dont want trailing spaces leaving x'40' where there is nothing in input file.
In another topic which I posted, Arun told about using file-aid to convert Recfm=U to recfm =FB.. but its also leaving x'00' at nothing
which makes both files differ..
using file-aid..we can select records either first n records, last..but we dont have option to select records between specific limit.
Anyways..thanks for all your help..who helped me till now.
Thanks,
sai |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Quote: |
we can select records either first n records, last.. |
You can do this with the sort. Which sort product is used on your system? You can also do this with IDCAMS. |
|
Back to top |
|
|
|