SORT to add (replace) date in Julian format

zh_lad · Active User Joined: 06 Jun 2009 Posts: 115 Location: UK

Hi,

I have a static file which I want to use daily. However, I want to change the date (julian format) to current date before I use it.

apart from other records, I have three records where I have date in julina formant and I want to change the date using sort.

----+----1----+----2----+----3----+----4
90Ðå48408514100 000014100N0300TEST00000
91 004840851410000000000000000000000000
92 004840851410000000000000000000000000

Date is on record type (column 1, length2, CHAR) 90, 91 and 92
File is FB and LRECL 170
above julian date is 14100 (YYDDD). It occurs twice on record type 90 (column 11 and 22) and once on record type 91 and 92, column 13.

I want to write a sort card to change this date to current system date.

Thanks,
zh_lad

zh_lad · Active User Joined: 06 Jun 2009 Posts: 115 Location: UK

It's a temporary fix to handle 'file not arriving' scenario. Will be taken off once sending system is ready.

Once I know the solution, I will try to get this date from a date file.

Hope I have answered your questions.

Bill Woodger · Posted: Mon May 12, 2014 3:46 pm

You missed the irony.

I think the generate-the-symbol approach is easiest, even for a once-off.

Have one step with SYSIN DD * and "SOMETHING, NOT RELEVANT" as the data.

OPTION COPY,STOPAFT=1
INREC to get julian date, and format it as a symbol on a symbol file.

Remember to create 80-byte records, so have 80:X at the end of your BUILD.

In your actual step, include DD for SYMNAMES which dataset from SORTOUT from above step, SYMNOUT DD so that you can see what is being used.

Then, on INREC, just identify each record, and OVERLAY the symbol's value in the appropriate place(s) for each record.

If it is a once-off, why not hard-code it, but that is another question....

zh_lad · Active User Joined: 06 Jun 2009 Posts: 115 Location: UK

I will come back to above solution. Mean while, I have used below sort card to extract current system date:

Input:

Bill Woodger · Posted: Mon May 12, 2014 5:06 pm

Y4 means a four-digit year. Y2 means a two-digit year. Is that the only problem? "It does not work" is never very helpful if we don't know exactly how it didn't work for you. I'm sure that Y4U does work.

zh_lad · Active User Joined: 06 Jun 2009 Posts: 115 Location: UK

It was giving below error:

Bill Woodger · Posted: Mon May 12, 2014 6:53 pm

Bill Woodger · Posted: Mon May 12, 2014 6:58 pm

Perhaps you should look here and cut out the middleman, just using system symbols. Give it a whirl.

zh_lad · Active User Joined: 06 Jun 2009 Posts: 115 Location: UK

Thanks Bill. While you replied, worked on solution you suggested initially, using SYMNAMES. So far I had never used SYMNAMES, though I have seen people using it.

SYMNAMES is the easiest solution. Here is my JCL

Step one to extract julian date from calender file (pos 15, L 5)