Help

TIRFYRTS

TIRFYRTS is a called module supplied with CA Gen. TIRFYRTS is called every time an CA Gen action diagram uses the YEARTIMESTAMP function.

YEARTIMESTAMP extracts the year part of a timestamp. The numeric value returned will be a number between 1 and 9999 inclusive.

YEARTIMESTAMP generates the following COBOL statements:

Statement

Quantity

Call

1

Compute

2

Move

2

Initialize

1

IF

1

Heavy use of YEARTIMESTAMP can drastically increase CPU costs.

Hints

If an action diagram uses YEARTIMESTAMP more than once for the same timestamp:

  • use YEARTIMESTAMP once for the desired timestamp

  • save the year returned in a local view

  • use the local view instead of YEARTIMESTAMP for the remaining instances

  • pass the local view to the import view of any called action diagrams that need it.

If YEARTIMESTAMP is used in an action diagram that uses several CA Gen functions, or the action diagram has high CPU usage due to YEARTIMESTAMP, consider converting the action diagram to an external action block.

Example (COBOL External Action Block)

In this example, only two COBOL statements are needed to extract the year part of a timestamp into a numeric value.

WORKING-STORAGE SECTION.

01 WS-FIELDS.

03 WS-DATE PIC 9(08).

03 WS-DATE-X REDEFINES WS-DATE.

05 WS-DATE-CENTURY PIC 9(02).

05 WS-DATE-YEAR PIC 9(02).

05 WS-DATE-MONTH PIC 9(02).

05 WS-DATE-DAY PIC 9(02).

LINKAGE SECTION.

01 IMPORT-0001EV.

03 WORK-VIEW-0001ET.

05 TIMESTAMP-FLD1-0001AS PIC X(0001).

05 TIMESTAMP-FLD1-0001.

07 FILLER-ZERO-DATE PIC 9(0008).

07 FILLER-ZERO-TIME PIC 9(00

TIMESTAMP-FLD1-0001XX RED REDEFINES TIMESTAMP-FLD1-0001

PIC X(0020).

01 EXPORT-0002EV.

03 WORK-VIEW-0002ET.

05 INTEGER-FLD1-0002AS PIC X(0001).

05 INTEGER-FLD1-0002 PIC S9(0004).

05 INTEGER-FLD1-0002XX REDEFINES INTEGER-FLD1-0002

PIC X(0004).

PROCEDURE DIVISION.

MOVE FILLER-ZERO-DATE TO WS-DATE.

MOVE WS-DATE-YEAR TO INTEGER-FLD1-0002.