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
 

 

How can I create a layout Print thru SYNCSORT

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject: How can I create a layout Print thru SYNCSORT
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 Moderator


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

PostPosted: Thu Oct 18, 2007 9:30 pm    Post subject:
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    Post subject: I'va two questions more
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    Post subject:
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    Post subject:
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    Post subject:
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    Post subject:
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: 1439
Location: Bangalore,India

PostPosted: Mon Oct 22, 2007 1:38 pm    Post subject:
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    Post subject:
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    Post subject:
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 Moderator


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

PostPosted: Mon Oct 22, 2007 9:13 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Unable to create multiple files using... mbattu COBOL Programming 3 Fri May 05, 2017 5:35 pm
No new posts copy SEQ to PDS and create stats steve-myers JCL & VSAM 5 Thu Apr 27, 2017 1:15 am
No new posts SYNCSORT SEQNUM and FI fields. nartcr SYNCSORT 7 Sat Jan 21, 2017 4:02 am
No new posts Syncsort Help to group fields sudhakarraju SYNCSORT 6 Thu Dec 29, 2016 1:38 am
No new posts syncsort: copy lines after the keyword shreya19 SYNCSORT 7 Fri Dec 02, 2016 9:47 am


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