MVSFORUMS.com

Are you sure that the file specified as the DSN actually exists.

You would get the OPEN/CLOSE FAILED message if your file was not defined.

Or, if fields are going to exist after WS-VAR6 then try:

01 WS-GROUP.
05 WS-GRP1.
10 WS-VAR1 ...

01 WS-GROUP.
05 WS-GRP1.
10 WS-VAR1 PIC X(5).
10 WS-V ...

As Kolusu mentioned you can substitute ICETOOL with SYNCTOOL if you are in a SYNCSORT shop.

Change your TRK parameter to CYL.

Bufferspace is nothing to do with your recordsize.

As you have not specified a recordsize I believe you should get a default
maximum of 32600 (spanned) or 4089 (non-spanned). The default is spanne ...

I wouldn't worry about the performance implications.

Anyway does it HAVE to look like that.

Coding $$$$$$$$$$$$$9.99- would give you $123.45-

Manas,

that gives fixed editing of -$spaces9.99.

Although the requirement seemed simple, I don't think you can get that result with a simple edit mask.

You can have floating currency symbols ...

Yes, but nobody will still be working on that version will they !?!?!?

I would refer to your scheduling package for accurate details of run frequency. (OPCA, CA-7 etc.)

Frank,

rest assured that I was merely making the point that XSUM is a SYNCSORT only statement, in the context of the solutions given in this (SYNCSORT) thread.

I am certainly not qualified to ta ...

03 WS-COMP-DATE PIC S9(9) COMP-3 VALUE 20021213.
03 WS-PIC-DATE PIC 9(9).
03 WS-PIC-DATE2 REDEFINES WS-PIC-DATE.
05 FILLER ...

For what it's worth my first thought had been to use two sort steps.
My first step would output all the type 010 and 020 records to the relevant file:

//SYSIN DD *
SORT FIELDS=(509,5, ...

That is exactly what I was guessing would happen.

Thanks (as ever) for your advice.

Kolusu,

I had come up with the following:

//TOOLIN DD *
SORT FROM(IN) TO(OUT1) USING(CTL1)
SORT FROM(IN) TO(OUT2) USING( ...