> -----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
