Reports › Producing Customized Reports Using CA Common Services for z/OS EARL Service › CTSEPM Advanced Pattern Masking Subroutine › CONVERTX Function

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. A 24-character error message accompanies a nonzero return code.

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