View previous topic :: View next topic
|
Author |
Message |
MSTP
New User
Joined: 21 Jun 2007 Posts: 30 Location: Baltimore
|
|
|
|
My SORTIN is DUMMY and I want to create a SORTOUT file with current system date. My SORTOUT is empty .Please look into SYSOUT attached and advise.
Thanks
MSTP |
|
Back to top |
|
|
steve-myers
Active Member
Joined: 30 Nov 2013 Posts: 917 Location: The Universe
|
|
|
|
It's usually not a good idea to use attachments. Many of us cannot or will not download them. Try placing the output into a code group using code tags, like this -
Code: |
These
messages
are
embedded
in
code
tags |
|
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
If you have DUMMY, there is no data to process. The only way to get the step to do anything is to use OUTFIL reporting functions, HEADER1 or TRAILER1. You'll probably want REMOVECC as well. |
|
Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006 Posts: 1353 Location: Israel
|
|
|
|
I can't even see the attachment, but I tried anyway.
First test:
Code: |
//STEP01 EXEC PGM=SYNCSORT
//SORTIN DD DUMMY
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL NODETAIL,TRAILER1=(' DATE IS ',&DATE) |
just gave me a rc of 16:
Code: |
WER189A SORTIN DCB RECFM REQUIRED
WER108I SORTIN : RECFM= ; LRECL= ; BLKSIZE=
WER073I SORTIN : DSNAME=NULLFILE |
So I tried again with:
Code: |
//STEP01 EXEC PGM=SYNCSORT
//SORTIN DD DUMMY,DCB=(RECFM=F,LRECL=80)
//SORTOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL NODETAIL,TRAILER1=(' DATE IS ',&DATE) |
and this time I got my SORTOUT:
|
|
Back to top |
|
|
MSTP
New User
Joined: 21 Jun 2007 Posts: 30 Location: Baltimore
|
|
|
|
Thank you Bill and Marso for guiding me as your suggestion worked for me.I will try to post the code next time instead of attachments.
thanks
MSTP |
|
Back to top |
|
|
|