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

TLMDATE TO_PREFERRED Macro—Convert From Internal Date

Use the TO_PREFERRED form of the TLMDATE macro to convert from an internal date to the CA TLMS Preferred date.

This macro has the following format:

label TLMDATE TO_PREFERRED

TODATE=external
FRDATE=internal
,ANCHOR=anchor
,PARM=plist
[,NORMAL=branch]
[,ERROR=branch]
[,FAIL=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 date (10 bytes)

FRDATE

Specifies the internal date to be converted.

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

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 they are omitted, NORMAL is assumed.

JDATE=branch

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

Type: RX-type label

ZEROS=branch

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

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_PREFERRED Macro

                                                                  Pos. 72
                                                                  |
TLMDATE  TO_PREFERRED,TODATE=C1IDATE,FRDATE=TMHDDATE,             X
      ANCHOR=ANCHOR,PARM=DATEPARM