Help

TIRFNUMT

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

TIMENUM converts a numeric value into a valid time.

TIMENUM generates the following COBOL statements:

Statement

Quantity

Call

1

Compute

2

Move

2

Initialize

1

IF

1

Heavy use of TIMENUM can drastically increase CPU costs.

Hints

If a CA Gen action diagram uses TIMENUM more than once for the same numeric value:

  • use TIMENUM once for the desired numeric value

  • save the time returned in a local view

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

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

If TIMENUM is used in an action diagram that uses several CA Gen functions, or the action diagram has high CPU usage due to TIMENUM, 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 numeric value into a valid time.

 

LINKAGE SECTION.

01 IMPORT-0001EV.

03 WORK-VIEW-0001ET.

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

05 INTEGER-FLD1-0001 PIC S9(0006).

05 INTEGER-FLD1-0001XX REDEFINES INTEGER-FLD1-0001

PIC X(0006).

01 EXPORT-0002EV.

03 WORK-VIEW-0002ET.

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

05 TIME-FLD1-0002 PIC S9(0006).

05 TIME-FLD1-0002XX REDEFINES TIME-FLD1-0002

PIC X(0006).

PROCEDURE DIVISION.

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