SRAM Usermod

SRAM uses four-character years in dates. If the data to be sorted includes two-character years, dates after the year 2000 can be sorted before some dates in the 1900s. You can use CCCSJCL member ASRIOPTN to solve this problem.

USERMOD(ASR0001) is available to customize SRAM to handle two-digit year sort key types. The following lists the key types:

Key	Type	Size
Y2C	Character Year	2 Bytes
Y2Z	Zoned Year	2 Bytes
Y2P	Packed Year	2 Bytes
Y2S	Character Year	2 Bytes
Y2D	Decimal Year	1 Byte
Y2B	Binary Year	1 Byte

The usermod defines the century value that is attached to the two-digit year based on the generated Y2K windowing rules.

Either a fixed or a sliding Y2K window can be defined. In the SRAMCNFG member of the CCCSOPTN data set, the CAISRAM macro is invoked with the keyword parameter Y2PAST=. A fixed window is defined by specifying a four-digit year. A sliding window is defined by specifying a two-digit year.

CAISRAM Y2PAST=1967 fixed

CAISRAM Y2PAST=88 sliding

In the fixed window mode, dates greater than or equal to the two-digit year are converted to the specified century and dates less than the two-digit year are converted to the following century.

In the sliding window mode, the dates are converted relative to the current date returned from the system by the TIME macro.

An assembled SRAMCNFG is distributed with a default fixed-format value of Y2PAST=1967. This means a two-digit date, xx < 67 is converted to 20xx and xx >= 67 is converted to 19xx.

If the provided default does not fit the needs of your installation, modify the Y2PAST value and submit this job to receive, apply, and accept this usermod.