Mainframe, MVS and zOS Discussion

If it's a help, I see no way to thank anyone either.

And did you look at DATASORT?

We need all the questions answered, and sample input and expected output which cover the all the conditions. In the sameple you have shown, there are no duplicate records even,

Yes.

Can you post your code? I'm curious as to how you got it to work.

The advice was not to try to do it that way... yes? Good. If you need to make file accesses from more than one program, put all the io for a file into one sub-program and use that, Use a parameter to indicate required function, a second one to indicate success/failure of IO (along with diagnostic in...

That's one question in the title and a different one in the body. Is Natural "LE Compliant"? Does Natural use the standard /360 calling conventions? If not, what does it do? Can you call other languages from Natural? What is it exactly that you want to see? The call chain would normallyl b...

//SORTIN DD * with no data following it will give you want you want. When you say you've coded OUTREC, do you mean OUTREC or OUTFIL OUTREC? Either way, with no input data, neither OUTREC would have anything to process. You will need to use OUTFIL reporting features, HEADER1 or TRAILER1, and to remo...

Why would you want to? You'd suddenly start using a different loadmodule from a previous CALL, and not have the previous WORKING-STORAGE values.

Your understanding is correct. Your confusion would be nothing compared to that of the compiler if it did not know what sort of code to generate for something. Here's a CALL I want to have in a system which uses dynamic loading of modules: CALL "A". Here's the same CALL but for a system wh...

How about posting the other best explanations so others can benefit. Why did you ask again if you already have several best explanations?

We thought from your original post that you'd already done that.

There are other ways to get a S0C7.

If you are genuinely researching the subject, or entering a competition and doing the work solely on your own, then you should consult the Principles of Operation.

REDEDFINES B as PIC X(3). DISPLAY that field. Use SET HEX ON (or similar for what you use for looking at the spool) to see the hex value.

Or find a program that can display your storage in hex (I'd pass up on the horrible one Robert found, but it is from IBM...)

Why do you need a S0C7? Why post the same question elsewhere? Is it a contest of some type?

You're going to have to be clear about what you mean. You know what you want, but we don't. Why would you want a S0C7 particularly? If you want a S0C7 with USAGE DISPLAY instead of USAGE COMP-3, why not try some arithmetic?

Search this forum. You will find longer discussion on the subject.

Other than solving an abend, as Robert has said, you, yourself, do not need to do any calculations with an index. If you SET an index to 1, you can reference the first element of an OCCURS. If you SET it to 2, you can reference the second element. You don't have to do any calculation, the compiler d...

You mean you want to SORT but leave the first record where it is? First on input is first on output?

Look at ICETOOL's DATASORT operator.

3. The following step demonstrates the look-up function CHANGE. For the below example the input and output data-sets are assumed to be of FB/80. //STEP001 EXEC PGM=SORT //SORTIN DD DISP=SHR,DSN=HLQ.ORIGINAL.INPUT //SORTOUT DD DISP=SHR,DSN=HLQ.CHANGED.OUTPUT //SYSOUT DD SYSOUT=* //SYSIN DD * SORT FIE...

An ESDS just does not support a physical delete. Or an insertion within existing data. It is how it is designed. End of story. For a KSDS, records can be inserted in key order, and deleted. It is how it is designed. End of story. The KSDS has more processing and control-records, which in the normal ...