IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How can I create a layout Print thru SYNCSORT


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
miosne
Warnings : 1

New User


Joined: 13 Mar 2006
Posts: 63
Location: italy

PostPosted: Thu Oct 18, 2007 8:41 pm
Reply with quote

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
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Thu Oct 18, 2007 9:30 pm
Reply with quote

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
View user's profile Send private message
miosne
Warnings : 1

New User


Joined: 13 Mar 2006
Posts: 63
Location: italy

PostPosted: Fri Oct 19, 2007 7:08 pm
Reply with quote

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
View user's profile Send private message
krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Fri Oct 19, 2007 7:59 pm
Reply with quote

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
View user's profile Send private message
miosne
Warnings : 1

New User


Joined: 13 Mar 2006
Posts: 63
Location: italy

PostPosted: Mon Oct 22, 2007 12:54 pm
Reply with quote

Thank you, I'va understand.
About the recfm??
Back to top
View user's profile Send private message
krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Mon Oct 22, 2007 12:57 pm
Reply with quote

Quote:
About the recfm??

You should tell us, What recfm does your I/p and o/p file's hold?
Back to top
View user's profile Send private message
miosne
Warnings : 1

New User


Joined: 13 Mar 2006
Posts: 63
Location: italy

PostPosted: Mon Oct 22, 2007 1:15 pm
Reply with quote

Yes.

Excuse me for my bad english
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India

PostPosted: Mon Oct 22, 2007 1:38 pm
Reply with quote

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
View user's profile Send private message
miosne
Warnings : 1

New User


Joined: 13 Mar 2006
Posts: 63
Location: italy

PostPosted: Mon Oct 22, 2007 2:04 pm
Reply with quote

recfm=fb
recfm=132
Back to top
View user's profile Send private message
krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Mon Oct 22, 2007 2:18 pm
Reply with quote

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
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Mon Oct 22, 2007 9:13 pm
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Compare only first records of the fil... SYNCSORT 7
No new posts How to create a list of SAR jobs with... CA Products 3
No new posts JCL sortcard to print only the records DFSORT/ICETOOL 11
No new posts create rexx edit Macro that edits the... CLIST & REXX 3
No new posts COBOL - create and write to output fi... COBOL Programming 0
Search our Forums:

Back to Top