IBM Mainframe Forum

by **jvinoth** » Tue May 29, 2012 4:35 pm

Hi,
I need to count the number of records from the input file using sort.I have used the below sort card in the jcl and it works fine.
but i need to change the result into Zoned decimal please tel me how to do it.

Select all

SORT FIELDS=COPY
OUTFIL REMOVECC,NODETAIL,
TRAILER1=('NO OF RECORDS: ',COUNT=(M11,LENGTH=8))

and the output

=COLS> ----+----1----+----2----+----
****** *****************************
000001 NO OF RECORDS: 00000029
****** ****************************

by **BillyBoyo** » Tue May 29, 2012 4:39 pm

It is in Zoned Decimal. Unsigned.

by **jvinoth** » Tue May 29, 2012 5:08 pm

jvinoth wrote:Hi,
I need to count the number of records from the input file using sort.I have used the below sort card in the jcl and it works fine.
but i need to change the result into packed decimal please tel me how to do it.
Select all
SORT FIELDS=COPY
OUTFIL REMOVECC,NODETAIL,
TRAILER1=('NO OF RECORDS: ',COUNT=(M11,LENGTH=8))

and the output

=COLS> ----+----1----+----2----+----
****** *****************************
000001 NO OF RECORDS: 00000029
****** ****************************

by **BillyBoyo** » Tue May 29, 2012 6:54 pm

Have a look at the manual for TRAILER1, COUNT and see if it allows TO=PD,LENGTH=whatyou want

by **jvinoth** » Tue May 29, 2012 7:14 pm

Select all

i tried this but getting syntax error

TRAILER1=(3:COUNT=(M11,LENGTH=8),ZD,TO=PD)

by **dick scherrer** » Tue May 29, 2012 9:10 pm

Hello,

Is there some reason you did not post the complete error messsage (including the message id)?

by **skolusu** » Tue May 29, 2012 10:13 pm

Jvinoth,

Make up your mind. In one post you say zoned decimal and another you say Packed decimal. You just cannot make up your syntax and complain that it is not working.

Assuming you want packed decimal format, use the following DFSORT control cards.

Select all

//SYSIN DD *
OPTION COPY
OUTFIL REMOVECC,NODETAIL,
TRAILER1=('NO OF RECORDS: ',COUNT=(PD,LENGTH=8))
//*

IBM Mainframe Forum

Count the number of records from the input file

Count the number of records from the input file

Re: Count the number of records from the input file

Re: Count the number of records from the input file

Re: Count the number of records from the input file

Re: Count the number of records from the input file

Re: Count the number of records from the input file

Re: Count the number of records from the input file