IBM Mainframe Forum

by **Prasanna G** » Mon Nov 12, 2012 6:59 am

dick scherrer wrote:Hello,

It would have been much more helpful if you had shown some sample input and the output you wanted when you rn your process.

You now mention a "trailer". DFSORT can generate a trailer, but we would need to know what it should contain. Maybe i've misread or i'm old and work better with actual data . . . Read sbout TRAILER1 and COUNT=.

Some of us should be available for a while yet . . .

Here is what you are looking for.. I am giving you the layout from fileaid. As none of the data are in ZD format, I am not able to provide you the exact sample file data here.
All the detail and trailer record are redefines of Header. Please let me know if the below details are enough. The input and the output are having the same layout except for the header(input is concatenated so more headers but output should have only one header) and trailer count modified (only one trailer record at the end with the count of detailed records). The detailed records should be sorted in ascending order based on the partition number.

Select all

Header Layout:
Partition number: s9(4) comp.
Header ID:x(8) Low values
Current Date:s9(9) comp-3.
Filler X(19).

Detail Record:
Partition number:s9(4) comp.
Branch Number:s9(9) comp.
Account Number:s9(9) comp.
Item Type: S9(4) comp.
Txn Count: s9(11)v9(02) comp.
Filler X(14)

Trailer:
Partition Number:s9(4) comp.
Trailer ID:x(8) High Values.
Record Count: s9(9) comp.
Filler x(20)

Thanks
Prasanna G.

by **dick scherrer** » Mon Nov 12, 2012 7:06 am

Hello,

I am not able to provide you the exact file detail here.

Nonsense . . .

The data posted does Not need to be Real Production data. Just similar data that represents the real data. Usually when one says "they can't" it is because they are unwilling to create the test data.

When you create test data that is less than 80 bytes wide (preferable less - just enough to demonstrate the requirement), the helpers can copy/paste to their own system and test to make sure whet thay post has been successfully tested.

by **Prasanna G** » Mon Nov 12, 2012 7:29 am

dick scherrer wrote:Hello,

I am not able to provide you the exact file detail here.
Nonsense . . .

The data posted does Not need to be Real Production data. Just similar data that represents the real data. Usually when one says "they can't" it is because they are unwilling to create the test data.

When you create test data that is less than 80 bytes wide (preferable less - just enough to demonstrate the requirement), the helpers can copy/paste to their own system and test to make sure whet thay post has been successfully tested.

Sorry..
Below is the test data that I have..
I have given hyphen just to mention the start of the next field. It has no significance in input file. This has to be read using the file layout provided above.

Select all

Input File 1:
0X'00000000000000'20110921
1-10004-1000438-1203-5.00
1-10004-1000942-1203-5.00
2-10014-1027875-1203-5.00
999X'FFFFFFFFFFFFF'3

Input File 2:
0X'00000000000000'20110921
1-10004-1030438-1211-5.00
1-10024-1060942-1211-5.00
2-10034-1027875-1211-5.00
999X'FFFFFFFFFFFFF'3

Output File:
0X'00000000000000'20110921
1-10004-1000438-1203-5.00
1-10004-1000942-1203-5.00
1-10004-1030438-1211-5.00
1-10024-1060942-1211-5.00
2-10014-1027875-1203-5.00
2-10034-1027875-1211-5.00
999X'FFFFFFFFFFFFF'6

Please let me know if you are fine with the above?

by **BillyBoyo** » Mon Nov 12, 2012 1:09 pm

So, as previously suggested, use a SEQNUM to allow you to drop/retain one of the headers and trailers in OUTFIL with INCLUDE=.

by **skolusu** » Mon Nov 19, 2012 11:51 pm

Prasanna G wrote:As we do not have DFSORT V1R12 in production, we have been asked to modify the sort card to work in DFSORT V1R10.
Can someone please help me with a right sort card?

Thanks
Prasanna G

IFTRAIL is also supported on DFSORT V1R10 with PTF PTFs UK90025. Show us the complete ICE201I messages from your sort job.

by **Prasanna G** » Tue Nov 20, 2012 8:12 pm

Hi Kolusu

Below is the error message that we got during production run.

Select all

********************************************************************************
* JOBLOG MANAGEMENT AND RETRIEVAL - VERSION 4.6 *
* DATE - FRI 09 NOV 12 *
* RETRIEVE JOB# 25218 JOBNAME SJJE650D *
********************************************************************************
JMR* JOBNAME=SJJE650D JOB25218 DATE=12314 TIME=20:45:31 PLOS ABEND=0222
JMRSEP4 SYSOUT STEP010 JSTEP010S001 LOCAL ....
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R10 - 20:45 ON FRI NO
OPTION COPY
OUTFIL INCLUDE=(1,2,PD,EQ,1),
IFTRAIL=(HD=YES,TRLID=(1,2,PD,EQ,999),
£
ICE213A 0 INVALID OUTFIL STATEMENT OPERAND
TRLUPD=(12:COUNT=(TO=PD,LENGTH=05)))
£
ICE005A 0 BLANK NEEDED IN COLUMN 1 OR OPERATION NOT DEFINED CORRECTLY
ICE751I 0 C5-K51707 C6-K51707 C7-K54603 C8-K51707 E7-K51707
ICE052I 3 END OF DFSORT

by **skolusu** » Tue Nov 20, 2012 11:30 pm

Looks like your shop hasn't installed the PTF UK90025. Ask your System Programmer to install it (it's free). In earlier posts you mentioned the fields are binary and now you are checking for Packed decimal?

Assuming you are still validating Binary fields use the following control cards

Select all

//SYSIN DD *
INCLUDE COND=(1,2,BI,NE,0)
SORT FIELDS=(1,2,BI,A)
INREC IFOUTLEN=34,
IFTHEN=(WHEN=INIT,OVERLAY=(35:SEQNUM,4,BI,START=0)),
IFTHEN=(WHEN=(1,2,BI,EQ,999),OVERLAY=(11:35,4))
//*

by **Prasanna G** » Wed Nov 21, 2012 8:39 am

Hi Kolusu

We had two sort cards in two different jobs using IFTRAIL. The abend details that I have provided is for one of the jobs. But the other job is yet to run in production as of now. Hence we wanted to fix the issue before the abend occurs. Right now the production has the below sort card.

Select all

SORT FIELDS=(1,2,BI,A)
OUTFIL INCLUDE=(1,2,BI,NE,0),
IFTRAIL=(HD=YES,TRLID=(1,2,BI,EQ,999),
TRLUPD=(11:COUNT=(TO=BI,LENGTH=04)))

There will be header and trailer in each of the input files identified by 0 and 999 respectively (in BI format of first two bytes). The output file should have only one header and trailer with trailer count updated with total detailed records of the input files.

I tried to use the sort card provided by you. There are no header available in the output file. It writes two trailers at the end.

Thanks
Prasanna G.

by **skolusu** » Mon Nov 26, 2012 11:47 pm

Prasanna G wrote:There will be header and trailer in each of the input files identified by 0 and 999 respectively (in BI format of first two bytes). The output file should have only one header and trailer with trailer count updated with total detailed records of the input files.

I tried to use the sort card provided by you. There are no header available in the output file. It writes two trailers at the end.

Thanks
Prasanna G.

The control cards I provided are mimicking your existing control cards. Your INCLUDE condition is eliminating the header with (1,2,BI,NE,0).

As for the additional trailer record, IFTRAIL stops processing when the condition is met. And looks like you have more than 1 trailer in your input which you did not mention. You need to do a better job of explaining your data as we cannot see your data or read your mind.

by **Prasanna G** » Tue Nov 27, 2012 8:50 am

Hi Kolusu

Sorry.. for not providing you the data. I actually shared the layout, sample input and output files in my previous posts of this thread.
Below are the details you are looking for. Right now we feed two input files. In future it may increase to three or four.
Please let me know if you need any other details.

Select all

Header Layout:
Partition number: s9(4) comp.
Header ID:x(8) Low values
Current Date:s9(9) comp-3.
Filler X(19).

Detail Record:
Partition number:s9(4) comp.
Branch Number:s9(9) comp.
Account Number:s9(9) comp.
Item Type: S9(4) comp.
Txn Count: s9(11)v9(02) comp.
Filler X(14)

Trailer:
Partition Number:s9(4) comp.
Trailer ID:x(8) High Values.
Record Count: s9(9) comp.
Filler x(20)

Input File 1:
0X'00000000000000'20110921
1-10004-1000438-1203-5.00
1-10004-1000942-1203-5.00
2-10014-1027875-1203-5.00
999X'FFFFFFFFFFFFF'3

Input File 2:
0X'00000000000000'20110921
1-10004-1030438-1211-5.00
1-10024-1060942-1211-5.00
2-10034-1027875-1211-5.00
999X'FFFFFFFFFFFFF'3

Output File:
0X'00000000000000'20110921
1-10004-1000438-1203-5.00
1-10004-1000942-1203-5.00
1-10004-1030438-1211-5.00
1-10024-1060942-1211-5.00
2-10014-1027875-1203-5.00
2-10034-1027875-1211-5.00
999X'FFFFFFFFFFFFF'6

Note: I have given the hyphens explicitly to demarcate each of the fields in the input and output files for readability. Hyphens will not be present both in the input and output files.

Thanks
Prasanna G.

IBM Mainframe Forum

Sort Card required for DFSORT V1R10

Re: Sort Card required for DFSORT V1R10

Re: Sort Card required for DFSORT V1R10

Re: Sort Card required for DFSORT V1R10

Re: Sort Card required for DFSORT V1R10

Re: Sort Card required for DFSORT V1R10

Re: Sort Card required for DFSORT V1R10

Re: Sort Card required for DFSORT V1R10

Re: Sort Card required for DFSORT V1R10

Re: Sort Card required for DFSORT V1R10

Re: Sort Card required for DFSORT V1R10