IBM Mainframe Forum

Hi All,

Could anyone help me to create a GDG base using REXX? I also want to check the return code that is whether the base is already catalouged or not.

Thanks,

DD

15.0 Topic 15. DEFINE GENERATIONDATAGROUP from the z/OS V1R7.0 DFSMS Access Method Services for Catalogs manual.

For example:

I would use a default of SCRATCH rather than NOSCRATCH, after all, we wouldn't like to leave the redundant generations on DASD, would we ?

i tried your code and it is working fine. but i want the input from user so i have written one code for it but it is not working.

the GDG is not getting created
can anyone suggest?

/* REXX */
ARG GDG
CLS
Y = MSG(OFF)
IF GDG = ' ' THEN
DO
SAY 'ENTER THE GDG NAME:'
PULL GDG
END
X = OUTTRAP(X.)
"DEF GDG (NAME('GDG') LIM(3) NEMP NSCR)"
X = OUTTRAP(OFF)
SAY RC

First, make sure your code is syntactiaclly correct (it isn't). Then, post a real runtime TRACE of your code.

do u want the error message? i didnt get what exactly you are asking for.

i checked my code and it is taking the gdg name from the user correctly.
but it is not allocating it. please advice.

Notice the content of your program when viewed from an ISPF Edit session:

/* REXX */
ARG GDG Notice that the REXX instruction is highlighted in RED while the variable is kept unhighlighted in the normal GREEN.
...
SAY 'ENTER THE GDG NAME:' Same here. Note how the instruction is highlighted in RED while the literal string is left highlighted in a contrasting white color.

PULL GDG Same highlighting here.
...

If GDG is the name of the variable that contains the actual name entered by the user, then it must remain outside of the literal string and be shown in it's correct unhighlighted state:

"DEF GDG (NAME('"GDG"') LIM(3) NEMP NSCR)"