Examples: storage class ACS routines for read-only variables

Figure 1 shows an example of a storage class ACS routine for read-only variables:

Figure 1. Example of a Storage Class ACS Routine for Read-Only Variables

PROC  &STORCLAS

SELECT(&UNIT)
  WHEN('STK=SMSD')
    SET &STORCLAS = 'POOLSC'
  WHEN('STK=NSMS')
    SET &STORCLAS = ''
  OTHERWISE

The storage group ACS routine could then do something like what is shown in Figure 2:

Figure 2. Example of a Storage Group ACS Routine for Read-Only Variables

PROC  &STORGRP

SELECT(&UNIT)
  WHEN('STK=SMSD')
    SET &STORGRP = 'S1P03'
  WHEN('STK=NSMS')
    SET &STORGRP = 'POOLSG'
  OTHERWISE