ACS Routines for Defining Distributed FileManager SMS Classes

ACS routines determine the SMS classes for data sets. For data sets to be classified as SMS-managed, they must be defined in a storage class. DFM only permits remote creation of data sets when the resultant data set is SMS-managed. If a request to create a data set would result in a non-SMS-managed data set, DFM rejects the request.

DFM does not support the use of large format data sets, which are physical sequential data sets with the ability to grow beyond the previous size limit of 65 535 tracks per volume. To prevent attempts to create a large format data set, it is recommended that provide a storage class ACS routine to fail any DFM request to create an unsupported type, such as &DSNTYPE = EXR, EXC, or LARGE.

For more information about large format data sets, see SC26-7410z/OS DFSMS Using Data Sets.

Figure 1, Figure 2, and Figure 3 are sample ACS routines for defining data, management, and storage classes for data sets created by DFM.

Figure 1. Data Class Routine

 
/*                   DATACLAS ROUTINE                              */
/* DEFAULT DATACLASSES FOR DFM                                     */
/*                                                                 */
IF &JOB = 'GDEDFM' AND &DATACLAS = '' THEN
  DO
    SELECT
      WHEN (&RECORG = 'KS') SET &DATACLAS = 'KS000000'
      WHEN (&RECORG = 'ES') SET &DATACLAS = 'ES000000'
      WHEN (&RECORG = 'RR') SET &DATACLAS = 'RR000000'
      WHEN (&DSORG = 'PS') SET &DATACLAS = 'PS000000'
      WHEN (&DSNTYPE = 'LIBRARY') SET &DATACLAS = 'LIB00000'
      OTHERWISE WRITE 'NOT A SUPPORTED DFM DATASET TYPE'
    END /* SELECT */
    /* DEBUGGING STATEMENT FOLLOWS.  REMOVE IT WHEN ROUTINE IS OK. */
    IF &DATACLAS ^= '' THEN
      WRITE 'DATACLAS SET TO '&DATACLAS' FOR DFM'
    EXIT CODE(0)
  END /* DO */

If the logical record length for stream files is specified as zero (STREAM_LRECL(0)) in the system PARMLIB member DFM00, you must select a data class providing a nonzero record length.

Figure 2. Management Class Routine

 
 /*                 MGMTCLAS ROUTINE                               */
 /* IF JOB IS DFM                                                  */
 /* SET MGMTCLAS TO DFMMGMT.                                       */
 /*                                                                */
 IF &JOB = 'GDEDFM' THEN
   DO
     SET &MGMTCLAS = 'DFMMGMT'
    /* DEBUGGING STATEMENT FOLLOWS.  REMOVE IT WHEN ROUTINE IS OK. */
     WRITE '&MGMTCLAS SET TO '&MGMTCLAS' FOR DFM'
     EXIT CODE(0)
   END  /* GDEDFM  */
 /*                                                                */

Figure 3. Storage Class Routine

 
  /*                  STORCLAS ROUTINE                               */
  /* DEFAULT STORCLAS FOR DFM IS DFMCLASS.                           */
  /*                                                                 */
  /*                                                                 */
 IF &JOB = 'GDEDFM' AND &STORCLAS = '' THEN
      DO
        SET &STORCLAS = 'DFMCLASS'
    /* DEBUGGING STATEMENT FOLLOWS.  REMOVE IT WHEN ROUTINE IS OK.   */
        WRITE 'STORCLAS SET TO '&STORCLAS' FOR DFM'
        EXIT CODE(0)
     END
  /*                                                                 */
 /*                                                                  */

Data sets without a storage class cannot be SMS-managed.