TLMDATE Macro - Common Date Processing Routines › Coding the TLMDATE Macros › TLMDATE TO_EXTERNAL Macro—Convert Internal Date

TLMDATE TO_EXTERNAL Macro—Convert Internal Date

Use the TO_EXTERNAL form of the TLMDATE macro to convert from an internal date to a CA TLMS external date.

This function uses registers 0, 1, 14 and 15. These registers cannot be used to pass information to the macro.

This macro has the following format:

label TLMDATE TO_EXTERNAL

,TODATE=external
,FRDATE=internal
,FMT=format
,ANCHOR=anchor
,PARM=plist
[,NORMAL=branch]
[,ERROR=branch]
[,FAIL=branch]
[,ZEROS=branch]
[,JDATE=branch]
[,KEYWORD=branch]
[,USER=branch]
[,CATLG=branch]
[,CATLGDD=branch]
[,CYCLE=branch]
[,FOREIGN=branch]
[,LDATE=branch]
[,PERM=branch]
[,STATS=branch]
[,AGE=branch]
[,MSG=branch]

TODATE

Specifies the field to receive the translated date.

Type: RX-type label, external character date (10 bytes)

FRDATE

Specifies the date to be converted.

Type: RX-type label, (Rn), internal packed (4 bytes)

FMT

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

The following branches are performed only if the return from CTSDATE is NORMAL. If neither is specified, the default is to NORMAL.

ZEROS=branch

(Optional) Specifies the label to get control if the resulting date is equal to zeros.

Type: RX-type label

JDATE=branch

(Optional) Specifies the label to get control if the resulting date is a Julian date.

Type: RX-type label

The following branches are performed only if the return from CTSDATE is NORMAL. They represent dates that are CA TLMS keywords. If the value KEYWORD= is coded, all branches default to this value. If KEYWORD= is not coded, the default is to NORMAL.

AGE=branch

(Optional) Specifies the label to get control if the resulting date is the CA TLMS keyword AGE/ddd.

Type: RX-type label

CATLG=branch

(Optional) Points to the label to get control if the resulting date is the CA TLMS keyword CATLG or CATALOG.

Type: RX-type label

CATLGDD=branch

(Optional) Specifies the label to get control if the resulting date is the CA TLMS keyword CATLG/ddd.

Type: RX-type label

CYCLE=branch

(Optional) Specifies to the label to get control if the resulting date is the CA TLMS keyword CYCLE/ccc.

Type: RX-type label

FOREIGN=branch

(Optional) Specifies the label to get control if the resulting date is the CA TLMS keyword FOREIGN.

Type: RX-type label

KEYWORD=branch

(Optional) Specifies the label to get control if the resulting date is a CA TLMS keyword (associated branch for that keyword was not coded).

Type: RX-type label

LDATE=branch

(Optional) Specifies the label to get control if the resulting date is the CA TLMS keyword LDATE/ddd.

Type: RX-type label

MSG=branch

(Optional) Specifies the label to get control if the resulting date is the CA TLMS keyword MSG/mmm.

Type: RX-type label

PERM=branch

(Optional) Specifies the label to get control if the resulting date is the CA TLMS keyword PERM or PERMANENT.

Type: RX-type label

STATS=branch

(Optional) Specifies the label to get control if the resulting date is the CA TLMS keyword STATS/nnn.

Type: RX-type label

USER=branch

(Optional) Specifies the label to get control if the resulting date is the CA TLMS keyword USER/nnn.

Type: RX-type label

Example: TLMDATE TO_EXTERNAL Macro

                                                                  Pos. 72
                                                                  |
TLMDATE  TO_EXTERNAL,TODATE=PERFDATE,FMT=WORKDATE,                X
      FRDATE=(R5),ANCHOR=DAANCHOR,PARM=DATEPARM