TLMDATE Macro - Common Date Processing Routines › Coding the TLMDATE Macros › TLMDATE TEST_FORMAT Macro—Test External Date Format

TLMDATE TEST_FORMAT Macro—Test External Date Format

Use the TEST_FORMAT form of the TLMDATE macro to test an external date format for CA TLMS compatibility.

This macro has the following format:

label TLMDATE TEST_FORMAT

,FMT=datefmt
,ANCHOR=anchor
,PARM=plist
[,NORMAL=branch]
[,ERROR=branch]
[,FAIL=branch]

FMT=datefmt

Specifies a 10-byte field containing a date pattern.

Type: RX-type label, (Rn), or constant (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

Example: TLMDATE TEST_FORMAT

                                                                  Pos. 72
                                                                  |
TLMDATE  TEST_FORMAT,ANCHOR=ANCHOR,FMT=PERFDATE,                  X
      PARM=DATEPARM,ERROR=ABEND004,FAIL=ABEND004