View previous topic :: View next topic
Author
Message
miosne Warnings : 1 New User Joined: 13 Mar 2006Posts: 63 Location: italy
This is my input file:
IN
Code:
3301B00000000010000000012007101520071018101,00099,80005,00
3302B00000000010000000022007101520071018102,00099,80000,00
3303B00000000010000000032007101520071018103,00099,80000,00
3304B00000000010000000042007101520071018104,00099,80000,00
How can I create a layout like this below??
Code:
stampa movimenti scartati
-------------------------------------------------------------
soc prod mandato ilordo-e itmov-e ispfi-e
-------------------------------------------------------------
33 01B 0000000001 101,00 99,80 5,00
33 02B 0000000001 102,00 99,80 0,00
33 03B 0000000001 103,00 99,80 0,00
33 04B 0000000001 104,00 99,80 0,00
How can I print it???
Thnk's a lot
Back to top
Frank Yaeger DFSORT Developer Joined: 15 Feb 2005Posts: 7129 Location: San Jose, CA
You can use a DFSORT job like this to do what you asked for:
Code:
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
3301B00000000010000000012007101520071018101,00099,80005,00
3302B00000000010000000022007101520071018102,00099,80000,00
3303B00000000010000000032007101520071018103,00099,80000,00
3304B00000000010000000042007101520071018104,00099,80000,00
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL HEADER2=(20:'stampa movimenti scartati',/,
61'-',/,
1:'soc',8:'prod',16:'mandato',29:'ilordo-e',
41:'itmov-e',52:'ispfi-e',/,
61'-'),
BUILD=(1,2,8:3,3,16:6,10,29:41,6,
42:48,5,54:55,4,61:X)
/*
Back to top
miosne Warnings : 1 New User Joined: 13 Mar 2006Posts: 63 Location: italy
SORTIN : RECFM=FB ; LRECL= 80; BLKSIZE= 80
SORTOUT RECFM INCOMPATIBLE WITH REPORT WRITING
SORTOUT : RECFM=FB ; LRECL= 132; BLKSIZE= 27984
SORTOUT HAS INCOMPATIBLE LRECL
Those are the messages that the sistem gives me back.
1. can I change the LRECL ?
2. Can I force the output lenght in 132???
Back to top
krisprems Active Member Joined: 27 Nov 2006Posts: 649 Location: India
Frank's solution is sample JOB and builds an o/p file with 61 lrecl, Since the example you had shown was 61 Bytes in length, you can change the 61X in BUILD statement to 132:X. This would solve your problem.
Back to top
miosne Warnings : 1 New User Joined: 13 Mar 2006Posts: 63 Location: italy
Thank you, I'va understand.
About the recfm??
Back to top
krisprems Active Member Joined: 27 Nov 2006Posts: 649 Location: India
You should tell us, What recfm does your I/p and o/p file's hold?
Back to top
miosne Warnings : 1 New User Joined: 13 Mar 2006Posts: 63 Location: italy
Yes.
Excuse me for my bad english
Back to top
murmohk1 Senior Member Joined: 29 Jun 2006Posts: 1436 Location: Bangalore,India
Moisne,
Quote:
You should tell us, What recfm does your I/p and o/p file's hold?
I believe you missed out what KrisPrems had asked.
Please post your file attribs (lrecl, recfm).
Back to top
miosne Warnings : 1 New User Joined: 13 Mar 2006Posts: 63 Location: italy
recfm=fb
recfm=132
Back to top
krisprems Active Member Joined: 27 Nov 2006Posts: 649 Location: India
miosne
In Frank's JOB,
Code:
OUTFIL HEADER2=(20:'stampa movimenti scartati',/,
Change this to
Code:
OUTFIL REMOVECC,HEADER2=(20:'STAMPA MOVIMENTI SCARTATI',/,
Back to top
Frank Yaeger DFSORT Developer Joined: 15 Feb 2005Posts: 7129 Location: San Jose, CA
miosne,
The messages you received indicate you're using Syncsort, not DFSORT.
I'm a DFSORT developer. DFSORT and Syncsort are competitive products. I'm happy to answer questions on DFSORT and DFSORT's ICETOOL, but I don't answer questions on Syncsort.
Back to top
Please enable JavaScript!