Producing Customized Reports Using CA Earl › CA Earl Components Description › CTSEPM Advanced Pattern Masking Subroutine › CONVERT Function

CONVERT Function

Use the CONVERT function to convert a pattern mask into its internal format. Use the CONVERT function to improve the performance of later MATCH function calls. Internal format pattern masks can also be directly compared to determine which is more specific. This can replace a COMPARE function call.

A return code of zero indicates that the function successfully converted the pattern. The original pattern mask is replaced by its 44-character internal format.

Non-zero return codes are accompanied by a 24-character error message.

DEF PM_FUNC            (X 8) =  ' ' 'FUNCTION'
DEF PM_PAT1           (X 88) =  ' ' 'PATTERN MASK1'
DEF PM_MSG            (X 24) =  ' ' 'ERROR MESSAGE'

SET PM_FUNC = 'CONVERT'
SET PM_PAT1 = 'SYS#.DDA####.-'
CALL CTSEPM USING PM_FUNC
                  PM_PAT1
                  PM_MSG

CONVERTX Function

Use the CONVERTX function to convert a pattern mask from its internal format to its external format for display purposes.

If the return code is zero, then an 88-character external pattern mask replaces the original 44-character internal format.

Non-zero return codes are accompanied by a 24-character error message.

DEF PM_FUNC            (X 8) =  ' ' 'FUNCTION'
DEF PM_PAT1           (X 88) =  ' ' 'PATTERN MASK1'
DEF PM_MSG            (X 24) =  ' ' 'ERROR MESSAGE'
DEF INTERNAL_PAT      (X 44) =  ' ' 'INTERNAL PATTERN'

SET PM_FUNC = 'CONVERTX'
SET PM_PAT1 = INTERNAL_PATTERN
CALL CTSEPM USING PM_FUNC
                  PM_PAT1
                  PM_MSG