#include <stdio.h>
#include<iostream.h>
#include<string.h>
#include<time.h>
#include <stdlib>
#include<pthread.h>
#include<ssdef.h>
#include<descrip.h>
#include<stdlib.h>
#include<lib$routines.h>
#include<starlet.h>

int main(void)
{
struct dsc$descriptor_s systim_dsc = { 0, DSC$K_DTYPE_T, DSC$K_CLASS_S };
$DESCRIPTOR(str_dsc,"5 sec");

int status,a;
a=8;
/*printf ("Print the value of a is %d\n",a);*/
lib$put_output("Value \n ",&str_dsc);
lib$put_output("Value \n ",&a);
status = lib$date_time(&systim_dsc);
/*printf ("Status %d \n",status);*/
lib$put_output(&systim_dsc);
lib$put_output(&status);
lib$put_output(&a);
}