Help
TIRFDTEC
TIRFDTEC is a called module supplied with CA Gen. TIRFDTEC is called every time an CA Gen action diagram uses the DATETEXT function.
DATETEXT converts a text value (in a valid date or Julian date format) into a valid date.
DATETEXT generates the following COBOL statements:
| Statement |
Quantity |
| Call |
1 |
| Compute |
1 |
| Move |
3 |
| Initialize |
1 |
| IF |
1 |
Heavy use of DATETEXT can drastically increase CPU costs.
Hints
If an action diagram uses DATETEXT more than once for the same text value:
-
use DATETEXT once for the desired text value
-
save the date returned in a local view
-
use the local view instead of DATETEXT for the remaining instances
-
pass the local view to the import view of any called action diagrams that need it.
If DATETEXT is used in an action diagram that uses several CA Gen functions, or the action diagram has high CPU usage due to DATETEXT, consider converting the action diagram to an external action block.
Example (COBOL External Action Block)
In this example, five COBOL statements are needed to convert a text value into a valid date.
WORKING-STORAGE SECTION.
01 WS-FIELDS.
03 WS-DATE-X.
05 WS-DATE-X-YEAR PIC 9(04).
05 FILLER PIC X(01) VALUE '-'.
05 WS-DATE-X-H MONTH PIC 9(02).
05 FILLER PIC X(01) VALUE '-'.
05 WS-DATE-X-DAY PIC 9(02).
03 WS-DATE PIC 9(08).
03 WS-DATE-R REDEFINES WS_DATE.
05 WS-DATE-YEAR PIC 9(04).
05 WS-DATE-MONTH PIC 9(02).
05 WS-DATE-DAY PIC 9(02).
LINKAGE SECTION.
01 IMPORT-0001EV.
03 WORK-VIEW-0001ET.
05 TEXT-10-0001AS PIC X(0001).
05 TEXT-10-0001 PIC X(0010).
05 TEXT-10-0001XX REDEFINES TEXT-10-0001
PIC X(0010).
01 EXPORT-0002EV.
03 WORK-VIEW-0002ET.
05 DATE-FLD1-0002AS PIC X(0001).
05 DATE-FLD1-0002 PIC S9(0008).
05 DATE-FLD1-0002XX REDEFINES DATE-FLD2-0001
PIC X(0008).
PROCEDURE DIVISION.
MOVE TEXT-10-0001 TO WS-DATE-X.
MOVE WS-DATE-X-YEAR TO WS-DATE-YEAR.
MOVE WS-DATE-X-MONTH TO WS-DATE-MONTH.
MOVE WS-DATE-X-DAY TO WS-DATE-DAY.
MOVE WS-DATE TO DATE-FLD1-0002.