TLMDATE Macro - Common Date Processing Routines › Coding the TLMDATE Macros › TLMDATE SET_KEYWORD Macro—Define Keyword Value

TLMDATE SET_KEYWORD Macro—Define Keyword Value

Use the SET_KEYWORD form of the TLMDATE macro to define a keyword value.

This macro has the following format:

label TLMDATE SET_KEYWORD

,TODATE=internal1
,KEYWORD=keyword
,ANCHOR=anchor
,PARM=plist
[,NORMAL=branch]
[,ERROR=branch]
[,FAIL=branch]
[,VALUE=value] 

TODATE=internal1

Specifies an internal date to be set to the keyword specified by the KEYWORD= operand.

KEYWORD=keyword

Represents the CA TLMS keyword to which TODATE will be set (CATALOG, LDATE and so on). When specified as a constant, the value coded is the actual keyword (KEYWORD='LDATE'). When specified as an RX-type label or (Rn), KEYWORD points to a fullword containing the feedback code associated with the keyword, such as A(DAFBLDAT) for LDATE. (See TLMDATE_ANCHOR.)

Type: RX-type label, (Rn) or constant (in single quotes)

ANCHOR=anchor

Points to the label specified by the ANCHOR form of the TLMDATE macro.

Type: RX-type label or (Rn)

PARM=plist

Points to the label specified by the PARM form of the TLMDATE macro.

Type: RX-type label or (Rn)

NORMAL=branch

(Optional). Specifies the instruction to receive control on return from the CTSDATE module when no errors occurred. If not defined, the next instruction after the macro is executed.

Type: RX-type label

ERROR=branch

(Optional) Specifies the instruction to receive control on return from the CTSDATE module when a date or range error occurred. If not defined, the next instruction after the macro is executed.

Type: RX-type label

FAIL=branch

(Optional) Specifies the instruction to receive control on return from the CTSDATE module when a critical error has occurred. If not defined, the next instruction after the macro is executed.

Type: RX-type label

VALUE

Specifies a number to be associated with the keywords ZEROS, LDATE, CYCLE, CATLG, USER, FOREIGN, PERM and STATS. VALUE= cannot be coded if the KEYWORD= value is coded as a constant and the keyword specified is not a value. For example, KEYWORD='PERM' and VALUE= are invalid. VALUE= is not validated if KEYWORD= is specified as an RX-type label or (Rn) value.

Type: RX-type label, (Rn) or constant (in single quotes), packed (4 bytes)

Example: TLMDATE SET_KEYWORD Macro

                                                                  Pos. 72
                                                                  |
TLMDATE  SET_KEYWORD,KEYWORD='PERM',TODATE=TMEXPDT,               X
      ANCHOR=XWANCHOR,PARM=XWPARM