#if HP || IBM
#define jdbopen_ jdbopen
#define jdbreada_ jdbreada
#define jdbread_ jdbread
#define jdbclose_ jdbclose
#define jdbcomments_ jdbcomments
#define jdblevel_ jdblevel
#define jdbattributes_ jdbattributes
#endif
#include <stdio.h>
#include <string.h>
#define NVAR 250

int jdbopen_();
int jdblevel_();
int jdbclose_();

main(argc,argv)
int argc;
char *argv[];
{
char obj[1025];
int unit,maxlev,i,j;
char names[NVAR][40];
int num;
int namesize=40;

num= -NVAR;
unit=1;
strcpy(obj,argv[1]);
maxlev=jdbopen_(&unit,obj,names,&namesize,&num);
if(maxlev<0){
  exit(1);
};

for(i=0;i<num;i++) {
  j=jdblevel_(&unit,&i);
  printf("%*.*s%s\n",j*2,j*2," ",names[i]);
};

jdbclose_(&unit);

}