MVSFORUMS.com :: View topic - rexx stem and macro

MVSFORUMS.com
A Community of and for MVS Professionals

FAQ

Quick Manuals

Profile

rexx stem and macro
Goto page Previous 1, 2

MVSFORUMS.com Forum Index -> TSO and ISPF

View previous topic :: View next topic

Author

Message

jim haire
Beginner

Joined: 30 Dec 2002
Posts: 140
Topics: 40

Posted: Wed Sep 10, 2008 1:47 pm Post subject:

This should work:

Code:

/* REXX */
/* Determine dataset & member names */
ADDRESS ISPEXEC
"ISREDIT MACRO"
"ISREDIT (CURRDSET) = DATASET"
"ISREDIT (CURRMBR) = MEMBER"

/* Build the full dataset name */
IF MEMBER > " " THEN
FULL_NAME = CURRDSET || "(" || CURRMBR || ")"
ELSE
FULL_NAME = CURRDSET

/* Allocate the dataset name to DDNAME DSET */
ADDRESS TSO
"ALLOC DA('"FULL_NAME"') F(DSET) SHR"

/* Write the lines from the dataset to stem MYSTEM.*/
"EXECIO * DISKR DSET (STEM MYSTEM. FINIS"

/* Free the dataset.*/
"FREE F(DSET)"

/* Show what was written to the stem.*/
DO I = 1 TO MYSTEM.0
SAY MYSTEM.I
END

EXIT

cyberuser
Beginner

Joined: 15 Oct 2005
Posts: 29
Topics: 12

Posted: Wed Sep 10, 2008 5:31 pm Post subject:

thanks jim haire !! i got the workaround concept ! it worked perfectly !

Display posts from previous:

	MVSFORUMS.com Forum Index -> TSO and ISPF	All times are GMT - 5 Hours Goto page Previous 1, 2
Page 2 of 2

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum