Well, I guess this will do it:
//MYLIB JCLLIB ORDER=SYS1.SACBCNTL
//*
//STEP1 EXEC ACBJBAOB,
// TABL2=PROD.TEST.ISPTABL
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
PROFILE PREFIX(MYUSER)
ISPSTART CMD(ACBQBAJ2 +
ALTER +
SCDS('PROD.SMS.SCDS') +
STORGRP(SGDR) +
SGSTSALL(ENABLE) +
)
/*
//TEMPFILE DD DSN=&&TEMPFILE,DISP=(MOD,PASS),
// SPACE=(TRK,(1,1)),LRECL=300,RECFM=F,BLKSIZE=300
//*
//STEP2 EXEC ACBJBAOB,
// TABL2=PROD.TEST.ISPTABL
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD DSN=&&TEMPFILE,DISP=(OLD,DELETE,DELETE)
//*
//STEP3 EXEC PGM=ICEGENER
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=(*,INTRDR)
//SYSIN DD DUMMY
//SYSUT1 DD DATA,DLM='$$'
/*$VS,'SETSMS SCDS(PROD.SMS.SCDS)'
$$
/*
Ok, many thx to all and me, A.Cecilio.
On Mon, May 28, 2012 at 2:22 PM, af dc <[email protected]> wrote:
> Hello,
> I've a SG in the following status:
>
> SCDS Name . . . . : PROD.SMS.SCDS
> Storage Group Name : SGDR
> Storage Group Type : POOL
> To ALTER Storage Group System/
> Sys Group Status, Specify:
>
> System/Sys SMS SG System/Sys SMS SG
> Group Name Status Group Name Status
> ---------- ------ ---------- ------
> *PARTPLEX ===> DISNEW PA1 ===> DISNEW
> PA2 ===> DISNEW PB1 ===> DISNEW
>
> doing D SMS,SG(SGDR), I get:
> RESPONSE=PA1
> IGD002I 14:16:00 DISPLAY SMS 625
>
> STORGRP TYPE SYSTEM= 1 2 3 4
> SGDR POOL D D D D
>
> I want to ENABLE this SG onl all systems and I tried:
> V SMS,STORGRP(SGDR,ALL),ENABLE
> IGD010I STORAGE GROUP (SGDR,ALL ) STATUS IS NOW ENABLED
>
> then:
> SETSMS SCDS(PROD.SMS.SCDS)
> IGD008I NEW CONFIGURATION ACTIVATED FROM SCDS PROD.SMS.SCDS
>
> but after doing:
> D SMS,SG(SGDR), I get:
> RESPONSE=PA1
> IGD002I 14:16:00 DISPLAY SMS 625
>
> STORGRP TYPE SYSTEM= 1 2 3 4
> SGDR POOL D D D D
>
> Can you pls give me an help on what am I missing here ??
> Many thx, Antonio Cecilio.
>
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
