Writing the ACS Routines

If you do not have the starter set, allocate a fixed-block PDS or PDSE with LRECL=80 to contain your ACS routines. Otherwise, go to the next step.

Enter a 7 (AUTOMATIC CLASS SELECTION) on the ISMF Primary Option Menu to display the ACS Application Selection panel shown in Figure 1.

Figure 1. Writing an ACS Routine

   Panel  Utilities  Help
 ------------------------------------------------------------------------------
                           ACS APPLICATION SELECTION
 Command ===>

 Select one of the following options:
 1  1. Edit            - Edit ACS Routine source code
    2. Translate       - Translate ACS Routines to ACS Object Form
    3. Validate        - Validate ACS Routines Against Storage Constructs
    4. Test            - Define/Alter Test Cases and Test ACS Routines
    5. Display         - Display ACS Object Information
    6. Delete          - Delete an ACS Object from a Source Control Data Set



 If Display Option is Chosen, Specify:

   CDS Name  . . 'YOUR.OWN.SCDS'
                                (1 to 44 Character Data Set Name or 'Active')



 Use ENTER to Perform Selection;
 Use HELP Command for Help; Use END Command to Exit.

Select option 1 (Edit), and press Enter to display the Edit-Entry panel shown in Figure 2.

Figure 2. Accessing the ISPF/PDF Editor

  Menu  RefList  RefMode  Utilities  Workstation  Help
------------------------------------------------------------------------------
                               Edit Entry Panel
Command ===>

ISPF Library:
   Project . . . IBMUSER
   Group . . . . IMPLACTV  . . .          . . .          . . .
   Type  . . . . ACSLIB	
   Member  . . . STORCLAS        (Blank or pattern for member selection list)

Other Partitioned, Sequential or VSAM Data Set:
   Data Set Name . . .
   Volume Serial . . .           (If not cataloged)

Workstation File:
   File Name . . . . .
                                        Options
Initial Macro  . . . .                  /  Confirm Cancel/Move/Replace
Profile Name . . . . .                     Mixed Mode
Format Name  . . . . .                     Edit on Workstation
Data Set Password  . .                     Preserve VB record length

Type in the appropriate data set name for the ACS routines. We have shown the name of the PDS or PDSE corresponding to the sample ACS routines for this milestone. The storage class ACS routine is allocated in the STORCLAS member.
Press Enter to access the ISPF/PDF editor.

On this screen, enter the source code for the storage class ACS routine, as shown in Figure 3. This routine sets a null storage class and exits. No data is system-managed.

Figure 3. Sample Storage Class ACS Routine for the Minimal Configuration

  Menu  Functions  Utilities  Help
------------------------------------------------------------------------------
EDIT ---- IBMUSER.IMPLACTV.ACSLIB(STORCLAS) - 01.00 ----- COLUMNS 001 072
COMMAND ===>                                             SCROLL ===> PAGE
***************************** TOP OF DATA ******************************
PROC STORCLAS

/**********************************************************************/
/*                    C H A N G E    H I S T O R Y         */
/*                    ============================                    */
/*    DATE     RESP   DESCRIPTION OF CHANGE                           */
/*  --------   ----   ----------------------------------------------- */
/*  91/03/24   EG     Initial routine created.                        */
/*  PURPOSE:   This routine assigns a null storage class to           */
/*             all data sets.                                         */
/*  INPUT:     The following ACS variables are referenced:  NONE      */
/*  OUTPUT:    Null storage class.                                    */
/*  RETURN     Zero is the only return code. Data set allocations are */
/*  CODES:     not failed in this routine.                            */
/**********************************************************************/

SET &STORCLAS = ''

END  /* END OF STORAGE CLASS ROUTINE PROC */
**************************** BOTTOM OF DATA ****************************

Enter the END command to save the routine and return to the Edit-Entry panel shown in Figure 2.
Enter the name of your storage group ACS routine as the new member name in the Member field. The sample routine uses the name STORGRP. The ISPF/PDF editor appears again.

On this screen, enter the source code for the storage group ACS routine, as shown in Figure 4. This source code assigns the previously defined storage group. Because this particular storage group contains a non-existent volume, no volumes are system-managed.

Figure 4. Sample Storage Group ACS Routine for the Minimal Configuration

  Menu  Functions  Utilities  Help
------------------------------------------------------------------------------
EDIT ---- IBMUSER.IMPLACTV.ACSLIB(STORGRP) - 01.00 ------ COLUMNS 001 072
COMMAND ===>                                             SCROLL ===> PAGE
***************************** TOP OF DATA ******************************
PROC STORGRP

/**********************************************************************/
/*                    C H A N G E    H I S T O R Y         */
/*                    ============================                    */
/*                                                                    */
/*    DATE     RESP   DESCRIPTION OF CHANGE                           */
/*  --------   ----   ----------------------------------------------- */
/*                                                                    */
/*  91/03/24   EG     Initial routine created.                        */
/*                                                                    */
/*  PURPOSE:   This routine is never run for the minimal              */
/*             SMS configuration.  It only exists to satisfy the      */
/*             requirement for storage group ACS routine              */
/*             for every valid SMS configuration.  A storage          */
/*             group containing no real DASD volumes is assigned,     */
/*             NOVOLS.                                                */
/*                                                                    */
/*  INPUT:     The following ACS variables are referenced:  NONE      */
/*                                                                    */
/*  OUTPUT:    The NOVOLS storage group is assigned.                  */

  Menu  Functions  Utilities  Help
------------------------------------------------------------------------------
EDIT ---- IBMUSER.IMPLACTV.ACSLIB(STORGRP) - 01.00 ------ COLUMNS 001 072
COMMAND ===>                                             SCROLL ===> PAGE
/*                                                                    */
/*  RETURN     Zero is the only return code. Allocations are not      */
/*  CODES:     failed in this routine.                                */
/*                                                                    */
/**********************************************************************/
/**********************************************************************/
/*  Start of FILTLIST Statements                                      */
/**********************************************************************/
/**********************************************************************/
/*  End of FILTLIST Statements                                        */
/**********************************************************************/
/**********************************************************************/
/*  Start of Mainline SELECT                                          */
/**********************************************************************/

SET &STORGRP = 'NOVOLS'                    /* Assign to storage group  */
                                           /* with no 'real' volumes   */
/***********************************************************************/
/*  End of Mainline SELECT                                             */
/***********************************************************************/
END                                        /* End of storage group proc*/
**************************** BOTTOM OF DATA ****************************

Enter the END command to save the routine and return to the Edit-Entry panel (see Figure 2). From this panel, enter the END command again to return to the ACS Application Selection panel (see Figure 1).