1. Input will be a PS which will have PDS name, member name and one more parameter
2. Rexx exec should check if the member is present. if not present it should create it
3. Then the rexx exec should call a macro to write the 3rd input passed in the member
i have coded the rexx exec and macro but it is not writing the third parameter in the PDS member. The PDS member is empty after execution. Also i want to know how to trace in Macro
Please find the rexx exec below
"ALLOC DA('"PS"') FI(INP) SHR REUSE"
"EXECIO * DISKR INP (FINIS STEM COUNT."
SAY 'NUMBER OF LINES: ' COUNT.0
DO I=1 UNTIL I = COUNT.0
X = COUNT.I
CALL SUBRTN X
PARSE ARG X
PARSE VALUE X WITH INP1 INP2 INP3 .
IF SYSDSN("'"INP1"("INP2")'")='OK' THEN
"LMINIT DATASET('"INP1"') DATAID("DATA1") ENQ(EXCLU)"
"LMOPEN DATAID("DATA1") OPTION(OUTPUT)"
"LMPUT DATAID("DATA1") MODE(INVAR) DATALOC(DATAVAR) DATALEN(80)"
"LMMADD DATAID("DATA1") MEMBER("INP2") STATS(NO)"