One of the manuals I use is z/OS DFSMS Implementing System-Managed Storage
Lots of information on how things work and samples. I think there is also a sample in SYS1.SAMPLIB. I have not verified that, but I think there is something called a starter set. Lizette > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of retired mainframer > Sent: Wednesday, March 01, 2017 9:34 AM > To: [email protected] > Subject: Re: Sample ACS routine > > > -----Original Message----- > > From: IBM Mainframe Discussion List [mailto:[email protected]] > > On Behalf Of Nathan Astle > > Sent: Wednesday, March 01, 2017 12:27 AM > > To: [email protected] > > Subject: Sample ACS routine > > > > Hi > > > > Would someone help me with a sample STOGROUP, DATACLAS and STORCLAS. > > > > I.am trying to create ACS routine for one of my sandbox. > > > > Just trying to push a USERID allocation to a SMS volume > > PROC 1 DATACLAS > IF (&DATACLAS = '') > THEN > SET &DATACLAS = &DEF_DATACLAS > END > > PROC 1 STORCLAS > IF (&STORCLAS = '') AND /* USER DID NOT SPECIFY CLASS */ > (&DEF_STORCLAS ^= 'NOSMS') THEN /* RESOURCE OWNER IS MANAGED */ > SET &STORCLAS = &DEF_STORCLAS /* GET DEFAULT FROM OWNER */ > END > > PROC 1 MGMTCLAS > IF (&MGMTCLAS = '') THEN > DO > SET &MGMTCLAS = &DEF_MGMTCLAS > END > END > > PROC 1 STORGRP > WHEN (&DSTYPE = 'TEMP' && &UNIT='VIO') > SET &STORGRP = 'VIO','USERN28','USERN18','USERN13','USERN09' > WHEN (&DSTYPE = 'TEMP' && &UNIT ^='VIO') > SET &STORGRP = 'USERN28','USERN18','USERN13','USERN09' > END /* PROC */ > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
