James beat me to it, but that's exactly what we did at MSU wrt Segment
naming and SYSTEM SEGID. And I highly recommend the GENIPLER as a better
tool for the job than using an EXEC for loading different CMSes.
Stracka, James (GTI) wrote:
We use the GENIPLER program to create various CMS NSSes and map different
minidisks. For the other segments we give them unique names and update the
SYSTEM SEGID file. Then users can IPL CMS (current production), IPL CMS22TST
(test new code), IPL CMS22 (SFS and TCP/IP SVMs) and IPL CMS22OLD (just in
case).
samples:
Segment names used by the various CMS22 IPLers:
CMSFIL2A
INSTSGD2
SVM22
SCEE22
INSTSG22
SCEEX22
INSTSGB2
CMSFILB2
CMSPIP22
CMSVML2F
CMSVML22
CMSFILD2
SCEEX22E
CMSFIL22
GENSAVE EXEC extract:
select;
when iplername = 'CMS22TST' |,
iplername = 'CMS22' |,
iplername = 'CMS' then do
queue '/define console 009'
queue '/detach 190 19d 19e'
queue '/define reader 00c'
queue '&spool 00c class *'
queue '/define punch 00d'
queue '/define printer 00e'
queue 'defparm autocr'
queue 'SET IMSG OFF'
queue 'LINK $CMSLIVE 2F90 190 RR'
queue 'LINK $CMSLIVE 229D 19D RR'
queue 'LINK $CMSLIVE 2E9E 19E RR'
queue 'SET IMSG ON'
queue 'IPL CMS22F'
queue
'CONWAIT'
GENIPLER iplername function
end;
when iplername = 'CMS22OLD' then do
queue '/define console 009'
queue '/detach 190 19d 19e'
queue '/define reader 00c'
queue '&spool 00c class *'
queue '/define punch 00d'
queue '/define printer 00e'
queue 'defparm autocr'
queue 'SET IMSG OFF'
queue 'LINK $CMSLIVE 2E90 190 RR'
queue 'LINK $CMSLIVE 229D 19D RR'
queue 'LINK $CMSLIVE 2E9E 19E RR'
queue 'SET IMSG ON'
queue 'IPL CMS22E'
queue
'CONWAIT'
GENIPLER iplername function
end;
when iplername = 'CMS21TST' |,
I hope you get the idea.
