Got it sorted finally...here a part of the code which might help others in case
they try same
/* POSITION TO THE START OF THE RETURNED VARIABLE INFORMATION */
POS1 = POS1 + 46
LEN = C2D(SUBSTR(DWORK,POS1+4,2))
/* POSITION TO THE START OF THE RETURNED DATA *
POS2 = POS1 + 6
NVSMATTR = SUBSTR(DWORK,POS2,LEN)
IF NVSMATTR = 'M' THEN DO
S = S + 1
STEM.S = DNAME
END
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
