OCIDescribeAny() to describe a package

Question

I tried to retrieve information about a package using
OCIDescribeAny(). My problem is when there is only one procedure
inside a package, my code doesn't work.If there are over two
procedures inside a package,my code can retrieve some of
proceures,then crashed. the following is part of code to
retrieve the information.Can any one help me to solve this
problem?
static void describe_package()
     // package to be described
     text *objptr;
     ub4 objp_len;
     OCIParam* parmh;//parameter handle
     OCIParam* arglst;     //level 0 arguemnt list handle
     OCIParam* arglst1;     //level 1 arguemnt list handle     
     OCIParam* arglst2;//level 2 arguemnt list handle
     OCIParam* arglst3;//level 3 arguemnt list handle
     OCIParam* arg;//level 0 arguemnt handle     
     OCIParam* arg1;//level 1 arguemnt handle
     OCIParam* arg2;//level 2 arguemnt handle
     OCIParam* arg3;//level 3 arguemnt handle
     ub2 numargs, numargs1,numargs2, numargs3;
     ub4 namelen, namelen1, namelen2, namelen3;
     ub4 i, j, k, m;
     //ub2     arglst_type;
     text* name;
     text* name1;
     text* name2;
     text* name3;
     sword retval;
     objptr = pkgname;
     objp_len = strlen(objptr);
     //describe handle
     checkerr (errhp, OCIHandleAlloc((dvoid *) envhp, (dvoid
**) &dschp,
(ub4) OCI_HTYPE_DESCRIBE,
(size_t) 0, (dvoid **) 0));
     if ((retval = (OCIDescribeAny(svchp, errhp, objptr,
objp_len, OCI_OTYPE_NAME,0,
                              OCI_PTYPE_PKG,
dschp))) != OCI_SUCCESS)
          if (retval == OCI_NO_DATA)
          printf("NO DATA: OCIDescribeAny on %s\n",
&objptr);
     else
/* OCI_ERROR */
          printf( "ERROR: OCIDescribeAny on %s\n",
&objptr);
          checkerr(errhp, retval);
          return;
     if (OCIAttrGet(dschp, OCI_HTYPE_DESCRIBE, &parmh, 0,
OCI_ATTR_PARAM, errhp))
          return ;
     if (OCIAttrGet(parmh, OCI_DTYPE_PARAM, &arglst, 0,
OCI_ATTR_LIST_SUBPROGRAMS, errhp))
          return ;
     //if (OCIAttrGet(arglst,OCI_DTYPE_PARAM, &numargs, 0,
OCI_ATTR_NUM_PARAMS, errhp))
     //     return ;
     if (arglst)
          OCIAttrGet(arglst,OCI_DTYPE_PARAM, &numargs, 0,
OCI_ATTR_NUM_PARAMS, errhp);
          for (i = 1; i <= numargs; i++)
               OCIParamGet (arglst, OCI_DTYPE_PARAM,
errhp, &arg, i);
               OCIAttrGet (arg, OCI_DTYPE_PARAM, &name,
&namelen, OCI_ATTR_NAME, errhp);
               OCIAttrGet (arg, OCI_DTYPE_PARAM,
&arglst1, 0, OCI_ATTR_LIST_ARGUMENTS, errhp);               
               if (arglst1)
                    OCIAttrGet
(arglst1,OCI_DTYPE_PARAM, &numargs1, 0, OCI_ATTR_NUM_PARAMS,
errhp);
                    for (j = 1; j <= numargs1; j++)
                         OCIParamGet (arglst,
OCI_DTYPE_PARAM, errhp, &arg1, j);
                         OCIAttrGet (arg1,
OCI_DTYPE_PARAM, &name1, &namelen1, OCI_ATTR_NAME, errhp);
                         OCIAttrGet (arg1,
OCI_DTYPE_PARAM, &arglst2, 0, OCI_ATTR_LIST_ARGUMENTS, errhp);
                         if (arglst2)
                              OCIAttrGet
(arglst2, OCI_DTYPE_PARAM, &numargs2, 0, OCI_ATTR_NUM_PARAMS,
errhp);
                              for (k = 1; k <=
numargs2; k++)
     OCIParamGet (arglst2, OCI_DTYPE_PARAM, errhp, &arg2, k);
     OCIAttrGet (arg2, OCI_DTYPE_PARAM, &arglst3, 0,
OCI_ATTR_LIST_ARGUMENTS, errhp);
     OCIAttrGet (arg1, OCI_DTYPE_PARAM, &name2, &namelen2,
OCI_ATTR_NAME, errhp);
     //OCIAttrGet (name1, OCI_DTYPE_PARAM, &arglst_type, 0,
OCI_ATTR_DATA_TYPE, errhp);                         
                                   if
(arglst3)
     OCIAttrGet (arglst3, OCI_DTYPE_PARAM, &numargs3, 0,
OCI_ATTR_NUM_PARAMS, errhp);
     for (m = 1; m <= numargs3; m++)
     OCIParamGet (arglst3, OCI_DTYPE_PARAM, errhp, &arg3, m);
     OCIAttrGet (arg3, OCI_DTYPE_PARAM, &name3, &namelen3,
OCI_ATTR_NAME, errhp);
     }//end for m
                                   }//end
arglst3
                              }//end for k
                         }//end arglst2
                    } //end for j
               }//end arglst1
          }//end for i
     }//end arglst
     //free the describe handle
     OCIHandleFree((dvoid *) dschp, (ub4) OCI_HTYPE_DESCRIBE);
Thanks a lot.

Answer 1

The arglist starts from 0th position for packages.
Try for (i=0; i<=numargs-1;++i).