sreelathakokk
New User
Joined: 22 Apr 2010
Posts: 1
Location: bangalore
|
|
|
|
Below is my job.I would like to insert a a header record with the timestamp in it and the trailer record with the toal number of records incl header and trailer.
Please help
| Code: |
//PS080 EXEC PGM=SORT
//*
//SORTIN DD DSN=oan111.input.file1,
// DISP=SHR
//SORTOUT DD DSN=Oan111.MODIFY.OPT31,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// DCB=*.SORTIN,
// SPACE=(CYL,(1,1),RLSE)
//*
//*
//SYSPRINT DD SYSOUT=N
//SYSOUT DD SYSOUT=N
//SYSIN DD *
INREC IFTHEN=(WHEN=(11,1,ZD,EQ,4,AND,
(13,11,ZD,GE,00000100000,AND,13,11,ZD,LE,00000250000)),
OVERLAY=(27:C'5')),
IFTHEN=(WHEN=(11,1,ZD,EQ,4,AND,13,11,ZD,LE,00000100000),
OVERLAY=(27:C'6')),
IFTHEN=(WHEN=(11,1,ZD,EQ,5,AND,13,11,ZD,LE,00000100000),
OVERLAY=(27:C'6'))
SORT FIELDS=COPY
OUTREC FIELDS=(1,30)
/* |
Edited: Please use BBcode when You post some code/error, that's rather readable, Thanks... Anuj |
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
Because the solution for sort related questions may vary from product to product, please ensure that you state clearly which sort product you are using.
If you are not sure, then by running a simple sort step shown below, you will be able to find out for yourself.
If the messages start with ICE then your product is DFSORT and the topic will be moved by a moderator to that forum. Please also post the output of the complete line which has a message code ICE201I, as this will enable our DFSORT experts to determine which release of DFSORT that you have installed. This may also affect the solution offered.
If the messages start with WER or SYT then the product is SYNCSORT and the topic will remain in the JCL forum. Please also post the information telling which version of SYNCSORT is installed, as this may also affect the solution offered.
Thank you for taking your time to ensure that the valuable time of others is not wasted by offering inappropriate solutions which are not relevant due to the sort product being used and/or the release that is installed in your site.
| Code: |
//SORTSTEP EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
ABC
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY |
|
|
