TIRFCHR
TIRFCHR is a called module supplied with CA Gen. TIRFCHR is called every time an action diagram uses the TEXTNUM function.
TEXTNUM converts a numeric value into a text value (without the sign or decimal point).
TEXTNUM generates the following COBOL statements:
Statement |
Quantity |
Call |
1 |
Compute |
2 |
Move |
3 |
Initialize |
1 |
IF |
1 |
Heavy use of TEXTNUM can drastically increase CPU costs.
Hints
If an action diagram uses TEXTNUM more than once for the same value:
-
use TEXTNUM once for the desired value
-
save the text value returned in a local view
-
use the local view instead of TEXTNUM for the remaining instances
-
pass the local view to the import view of any called action diagrams that need it.
If TEXTNUM is used in an action diagram that uses several CA Gen functions, or the action diagram has high CPU usage due to TEXTNUM, 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 convert the numeric value into a text value.
WORKING-STORAGE SECTION.
01 WS-FIELDS.
05 WS-INTEGER-FIELD PIC 9(09).
05 WS-TEXT-FIELD REDEFINES WS-INTEGER-FIELD
PIC X(09).
LINKAGE SECTION.
01 IMPORT-0001EV.
03 WORK-VIEW-0001ET.
05 INTEGER-FLD1-0001AS PIC X(0001).
05 INTEGER-FLD1-0001 PIC S9(0009).
05 INTEGER-FLD1-0001XX REDEFINES INTEGER-FLD1-0001
PIC X(0009).
01 EXPORT-0002EV.
03 WORK-VIEW-0002ET.
05 TEXT-9-0002AS PIC X(0001).
05 TEXT-9-0002 PIC X(0009).
05 TEXT-9-0002XX REDEFINES TEXT-9-0002
PIC X(0009).
PROCEDURE DIVISION.
MOVE INTEGER-FLD1-0001 TO WS-INTEGER-FIELD.
MOVE WS-TEXT-FIELD TO TEXT-9-0002.