/***********************************************************************/       
/*                                                                     */       
/*   TESTCALL :  任意のプログラムをポインターで呼びだす                */       
/*                                                                     */       
/***********************************************************************/       
#include <stdio.h>                                                              
#include <stdlib.h>                                                             
#include <string.h>                                                             
#include <miptrnam.h>                                                           
                                                                                
#define TRUE         0                                                          
#define FALSE       -1                                                          
typedef void (OS_fct_t)(void);                                                  
#pragma linkage(OS_fct_t, OS);                                                  
                                                                                
void main(void){                                                                
  OS_fct_t* os_fct_ptr;                                                         
  char  pgmname[10];                                                            
                                                                                
  printf(" プログラム名を入れなさい \n");                                       
  scanf("%s", pgmname);                                                         
                                                                                
  os_fct_ptr = rslvsp(_Program, pgmname, "*LIBL     ", _AUTH_OBJ_MGMT);         
  os_fct_ptr();                                                                 
}