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

COMPARE Function

Use the COMPARE function to compare two pattern masks and determine which one is more specific. You can use the function to arrange a pattern masks group in an order that allows your program to find the 'best fit' pattern mask.

Higher return codes indicate an error.

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

A zero return code is accompanied by a message that matches the PM_MORE, PM_LESS, or PM_SAME values.

DEF PM_FUNC            (X 8) =  ' ' 'FUNCTION'
DEF PM_PAT1           (X 88) =  ' ' 'PATTERN MASK1'
DEF PM_PAT2           (X 88) =  ' ' 'PATTERN MASK2'
DEF PM_MSG            (X 24) =  ' ' 'ERROR MESSAGE'
DEF PM_MORE           (X 24) =  'MORE SPECIFIC           '
DEF PM_LESS           (X 24) =  'LESS SPECIFIC           '
DEF PM_SAME           (X 24) =  'SAME SPECIFIC           '

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

IF PM_MSG = PM_LESS
   SET FLG = 'Y'
ENDIF