Help

TIRFDNUM

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

NUMDATE converts a valid date into a numeric value.

NUMDATE generates the following COBOL statements:

Statement

Quantity

Call

1

Compute

2

Move

2

Initialize

1

IF

1

Heavy use of NUMDATE can drastically increase CPU costs.

Example

The following example converts the current date (10/01/1996) into the numeric value 19961001.

SET local work_set date_nbr TO numdate(CURRENT_DATE)

Hints

If an action diagram uses NUMDATE more than once for the same date:

  • use NUMDATE once for the desired date

  • save the numeric value returned in a local view

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

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

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

Example (COBOL External Action Block)

In this example, only one COBOL statement is needed to convert a date into a numeric value.

 

LINKAGE SECTION.

01 IMPORT-0001EV.

03 WORK-VIEW-0001ET.

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

05 DATE-FLD1-0001 PIC S9(0008).

05 DATE-FLD1-0001XX REDEFINES DATE-FLD1-0001

PIC X(0008).

01 EXPORT-0002EV.

03 WORK-VIEW-0002ET.

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

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

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

PIC X(0008).

PROCEDURE DIVISION.

MOVE DATE-FLD1-0001 TO INTEGER-FLD1-0002.