MVSFORUMS.com

Chuck, that was the result Santosh got and was querying. My post was to point him in the right direction to get the explanation.

If you had cared to look up how date arithmetic is performed in DB2 you would have found this:
If a duration of years is added or subtracted, only the year portion of the date is affected.

Now go ...

No access to a mainframe at the moment
COBOL compilers are available, for free, for Windows and Linux.

I believe Quickref is a vendor prodct not IBM so your shop may not have purchased it. If they have, we do not work at your shop so we would not know what your internl problems are. Ask your colleagues ...

It helps if you show the error messages.

You have an Easytrieve problem not a JCL problem so why post in the JCL part of the forum instead of the Application Programming section the description of which specifically mentions Easytrieve?

Kolusu

I was suggesting adding it in the program that created the data in the first place so it would be one pas of both programs as is your solution.

As it is an extract and not an unload why not have the extract add an extra field at the beginning of each record to hold the account number, sort on that and remove it in the output phase of sort?

You can clarify easily enough by yourself. Write a little program to declare a variable with a floating - and move a positive number into it and display it. Repeat with a negative number.

Which language are you using as that does not look like COBOL, PL/1 or assembler?

Are your FTP control statements in-line in your FTP job or a PDS member? If in-line then you should be able to simply use system symbols in your JCL otherwise you cannot do it with JCL but will have t ...

And how about blank lines or lines with multiple statements or statements crossing multiple lines?

I do see it but didn't look to see if I could - I thought I was only allowed to edit within 10 minutes of posting. Now tht it is mentioned I seem to vaguely remember that this was granted some eons ag ...

Ah.
Point 1 - this is rexx on a windows OS hence "CLS". I cut out a load of code that was related as I only use Windows. It is still in the original post.
2 - that would be the NOT symbo ...

And here is the updated Rexx version:
/*- Rexx ------------------------------------------------------------*/
/* */
/* Name ...