This Macro is used to save a member of a PDS in View mode

/*REXX*/
'ISREDIT MACRO'
ADDRESS ISREDIT
"(MEM) = MEMBER"
"(DSN) = DATASET"
IF MEM = '' THEN DO
SAY 'DESIGNED FOR PDS MEMBER'
EXIT
END
"ISREDIT SAVE"
IF RC = 0 THEN DO
SAY 'NOT IN VIEW MODE.USE SAVE'
EXIT PROGRAM
END
"ISREDIT REPL .ZF .ZL " MEM
IF RC = 0 THEN
SAY 'MEMBER SAVED.EXIT FROM VIEW MODE' ELSE
SAY 'MEMBER NOT SAVED.RETURN CODE ' RC
EXIT