ADMIN_DS_LIST stored procedure

Example

The following C language sample shows how to invoke ADMIN_DS_LIST:

 #pragma csect(CODE,"SAMDLPGM")
 #pragma csect(STATIC,"PGMDLSAM")
 #pragma runopts(plist(os))
 
 #include    <stdio.h>
 #include    <stdlib.h>
 #include    <string.h>

/******************** DB2 SQL Communication Area ********************/
 EXEC SQL INCLUDE SQLCA;

 int main( int argc, char *argv[] )    /* Argument count and list    */
 {
   /****************** DB2 Host Variables ****************************/
   EXEC SQL BEGIN DECLARE SECTION;

   /* SYSPROC.ADMIN_DS_LIST parameters                               */
   char        dsname[45];             /* Data set name or filter    */
   char        listmbr[2];             /* List library members       */
   char        listgds[2];             /* List GDS                   */
   long int    maxresult;              /* Maximum result set rows    */
   char        dumpopt[2];             /* Dump option                */
   long int    retcd;                  /* Return code                */
   char        errmsg[1332];           /* Error message              */

   /* Result set locators                                            */
   volatile SQL TYPE IS RESULT_SET_LOCATOR *rs_loc1;

   /* Result set row                                                 */
   char        dsnamer[45];            /* Data set name,             */
                                       /* library member name, or    */
                                       /* absolute generation number */
   long int    createyr;               /* Create year                */
   long int    createday;              /* Create day                 */
   long int    type;                   /* Data set type              */
   char        volume[7];              /* Data set volume            */
   long int    primaryext;             /* Size of first extent       */
   long int    secondext;              /* Size of secondary extent   */
   char        measure[10];            /* Extent unit of measurement */
   long int    extinuse;               /* Current allocated extents  */
   char        dasduse[9];             /* DASD usage                 */
   char        harba[7];               /* High allocated RBA         */
   char        hurba[7];               /* High used RBA              */
   char        encrypttype[3];         /* Encryption type            */
   char        encryptkeylabel[65];    /* Encryption key label       */
   EXEC SQL END DECLARE SECTION;

   char * ptr;
   int i = 0;
   /******************************************************************/
   /* Assign values to input parameters to list all members of       */
   /* a library                                                      */
   /******************************************************************/
   strcpy(dsname, "USER.DATASET.PDS");
   strcpy(listmbr, "Y");
   strcpy(listgds, "N");
   maxresult = 1;
   strcpy(dumpopt, "N");

   /******************************************************************/
   /* Call stored procedure SYSPROC.ADMIN_DS_LIST                    */
   /******************************************************************/
   EXEC SQL CALL SYSPROC.ADMIN_DS_LIST
                        (:dsname,  :listmbr, :listgds, :maxresult,
                         :dumpopt, :retcd,   :errmsg);

   /******************************************************************/
   /* Retrieve result set when the SQLCODE from the call is +446,    */
   /* which indicates that result sets were returned                 */
   /******************************************************************/
   if (SQLCODE == +466)               /* Result sets were returned   */
   {
     /* Establish a link between the result set and its locator      */
     EXEC SQL ASSOCIATE LOCATORS (:rs_loc1)
              WITH PROCEDURE SYSPROC.ADMIN_DS_LIST;

     /* Associate a cursor with the result set                       */
     EXEC SQL ALLOCATE C1 CURSOR FOR RESULT SET :rs_loc1;

     /* Perform fetches using C1 to retrieve all rows from the       */
     /* result set                                                   */
     EXEC SQL FETCH C1 INTO :dsnamer, :createyr, :createday,
                            :type, :volume, :primaryext,
                            :secondext, :measure, :extinuse,
                            :dasduse, :harba, :hurba;
                            :encrypttype; :encryptkeylabel;

     while(SQLCODE==0)
     {
       EXEC SQL FETCH C1 INTO :dsnamer, :createyr, :createday,
                              :type, :volume, :primaryext,
                              :secondext, :measure, :extinuse,
                              :dasduse, :harba, :hurba;
                              :encrypttype; :encryptkeylabel;
     }

     EXEC SQL CLOSE C1;
   }

   return(retcd);
 }