gtpg2m1eGeneral Macros

DATEC-Compute Date Stamp

This general macro stores a date in the storage area specified by the caller. The date will be returned in one of several forms, as specified by the caller.

Format




label
A symbolic name can be assigned to the macro statement.

AREA=addr
The address of the storage area in which the date is to be placed. The address can be any valid assembler expression. If used, the base or index registers must be in the range 0-9.

FORMAT
The pattern of the date that is to be returned. Acceptable values are:

STANDARD
An 8-byte date is to be returned in the format YYYYMMDD.

JULIAN
A 5-byte date is to be returned in the pattern YYDDD, where YY is the last two digits of the year and DDD is the number of days so far this year, including the current day (e.g., 27 August 1989 would be 89239).

EJULIAN
A 6-byte date is to be returned in the pattern CYYDDD, where C is an indicator of the thousands and hundreds positions of the year (X'40' = 19, '0' = 20, '1' = 21, etc.), YY is the last two digits of the year, and DDD is the number of days so far this year, including the current day.

SYS
A system or subsystem date is returned. Acceptable values are:

YES
The system local standard date is to be returned. This is the default.

NO
The subsystem local date is to be returned.

BSS
The subsystem for which the subsystem local date is to be returned. This parameter is valid only when a CP expansion is generated and SYS=NO is specified or defaulted. Acceptable values are:

YES
The subsystem local date is to be returned for the BSS.

NO
The subsystem local date is to be returned for the subsystem whose index is contained in R15.

MODE
The kind of macro expansion to generate. Acceptable values are:

NORM
The type of expansion is to be determined based on the value of a global variable that is set when the BEGIN macro is invoked.

CP
A CP expansion is to be generated.

ECB
An ECB expansion is to be generated.

Entry Requirements

Return Conditions

Programming Considerations

Examples

None.