MVSFORUMS.com

vkrishna2001 · Posted: Thu Dec 18, 2003 4:13 pm Post subject: JCL to execute DFSORT

This is the request of one of my friend

The input file record layout

01 I1-REC.
10 WS-SORT-KEY.
15 WS-USER-NUMBER PIC 9(06).
15 WS-PERIOD.
20 WS-CC PIC 9(02).
20 WS-YY PIC 9(02).
20 WS-QQ PIC 9(02).
10 WS-RT-PCT PIC S9(04)V9.
10 WS-OPERATION PIC X(02).
10 WS-REGION PIC X(02).
10 WS-ASM PIC X(02).
10 IND-RT-PCT PIC S9(04)V9.

Sample record in the input file
5218022003030120B8204UD0120B

Output expected

52180220030301202+204UD001202+ (The amount fields with trailing sign)

What is the jcl with DFSORT? At my shop we use SYNCSORT and that JCL won't work as the other shop has DFSORT.

Thanks,
Vijayakrishna

Frank Yaeger · Posted: Thu Dec 18, 2003 4:49 pm Post subject:

To convert a ZD number like 120B to 1202+ you can use the following in INREC, OUTREC or OUTFIL OUTREC:

kolusu · Posted: Thu Dec 18, 2003 4:58 pm Post subject:

Vijay,

You can use DFSORT's editing Masks to get the desired results.

Frank Yaeger · Posted: Thu Dec 18, 2003 5:31 pm Post subject:

Vijayakrishna,

We really need to see your Syncsort statements. M0 is equivalent to I...ITS and M1 is equivalent to T...TS. Your data does not have any leading zeros, so it's not clear what needs to be done with leading zeros (keep them or suppress them?).

I'd also like to see the Syncsort statements in order to determine why DFSORT is producing a different result.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

vkrishna2001 · Posted: Fri Dec 19, 2003 11:33 am Post subject:

Kolusu,
Thanks for the control statement. I thought that for DFSORT the control statement and DDNames would be different from those of SYNCSORT. Atleast for this function they are same.

Frank,
My friend was getting error messages which say error in control statement. I closely observed his JCL. The control statements in the instream data are starting from first column which is making them unrecognizable to SORT tool. I asked him to start typing in control statements from second column and submit jcl. It worked.

Frank and Kolusu,

Thanks a lot for the help.

Regards,
Vijayakrishna

Frank Yaeger · Posted: Fri Dec 19, 2003 1:19 pm Post subject:

Vijayakrishna,

We've tried very hard over the years to recognize the control statements, parameters and DD names the other product uses so as to make migration easier.

The reason control statements must start after column 1 is that you can put a label in column 1 before the "verb", e.g.

kolusu · Posted: Fri Dec 19, 2003 1:28 pm Post subject:

Frank,

While we are on it , I noticed that TOOLIN statements does not have the above mentioned limitation. Sort does not complain even if the statements start from pos '1'. I would like to know as to why TOOLIN statements are exception.

Thanks,

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

Frank Yaeger · Posted: Fri Dec 19, 2003 2:15 pm Post subject:

When I "invented" DFSORT's ICETOOL, I decided that labels were not needed for ICETOOL operators since people didn't generally use labels. So I allowed ICETOOL operators to start in column 1. The syntax for ICETOOL and DFSORT are intentionally different. I tried to give ICETOOL a more "modern" look for it's syntax.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort