Use the MATCH function to determine if a DSN matches a pattern mask. A return code of zero means that it matches. A return code of four means that the DSN does not match the pattern. Higher return codes indicate an error. A 24 character error message accompanies a nonzero return.
DEF PM_FUNC (X 8) = ' ' 'FUNCTION'
DEF PM_PAT1 (X 88) = ' ' 'PATTERN MASK1'
DEF PM_MSG (X 24) = ' ' 'ERROR MESSAGE'
DEF PM_DSN (X 44) = ' ' 'DATA SET NAME'
SET PM_FUNC = 'MATCH'
SET PM_PAT1 = 'SYS#.DDA####.-'
SET PM_DSN = DSN
CALL CTSEPM USING PM_FUNC
PM_PAT1
PM_DSN
PM_MSG
|
Copyright © 2014 CA.
All rights reserved.
|
|