Objkrn

Commande de compilation


javac -g -classpath ${UPS_HOME}/upsjav/upsjav/french/upsvtm.jar objkrn.java

Commande d'exécution


java -classpath ${UPS_HOME}/upsjav/upsjav/french/upsvtm.jar;. -Djava.library.path=${UPS_HOME}/upsvtm/bin;${UPS_HOME}/upsnet/bin;${UPS_HOME}/upscmp/bin;${UPS_HOME}/upscom/bin;${UPS_HOME}/upscrb/bin;${UPS_HOME}/upsjav/bin;${UPS_HOME}/upsjav/bin/french objkrn

Fichier source


import UpsKrn.Caractere;

import UpsKrn.Entier;

import UpsKrn.Type;

import UpsKrn.MUpsKrn;

import UpsKrn.UpsException;

import UpsSys.Fichier;

import UpsSys.MUpsSys;



public class type

/******************/

{

public static void main(String s[])

/*********************************/

{

Caractere A;

Entier L;

UpsSys.PFlux.LireUneLigne PLireUneLigne;

Fichier Map;



try


   {

   if (!MUpsKrn.Demarrer())
   
      return;
   
   if (!MUpsSys.Demarrer())
   
      return;
   
   

   MUpsSys.Ecran().Ecrire3(MUpsKrn.JavaString2Caractere("Entrer une ligne :"));

   PLireUneLigne=new UpsSys.PFlux.LireUneLigne();

   L=MUpsSys.Clavier().LireUneLigne(PLireUneLigne);

   A=PLireUneLigne.C;

   MUpsSys.Ecran().Ecrire3(MUpsKrn.JavaString2Caractere("Ligne lue : ").Additionner(A).Additionner(MUpsKrn.JavaString2Caractere(" de taille ")).Additionner(Caractere.Caractere5(L)));

   MUpsSys.Journal().Ecrire3(MUpsKrn.JavaString2Caractere("Ligne lue : ").Additionner(A).Additionner(MUpsKrn.JavaString2Caractere(" de taille ")).Additionner(Caractere.Caractere5(L)));

   Map=MUpsSys.MiseAuPoint();

   if (Map!=null)
   
      Map.Ecrire3(MUpsKrn.JavaString2Caractere("Ligne lue : ").Additionner(A).Additionner(MUpsKrn.JavaString2Caractere(" de taille ")).Additionner(Caractere.Caractere5(L)));
   
   MUpsSys.Imprimante().Ecrire3(MUpsKrn.JavaString2Caractere("Ligne lue : ").Additionner(A).Additionner(MUpsKrn.JavaString2Caractere(" de taille ")).Additionner(Caractere.Caractere5(L)));

   MUpsSys.Imprimante().Vider();

   

   MUpsSys.Arreter();

   MUpsKrn.Arreter();

   }

catch (java.lang.Throwable e)

   {

   try
   
      {

      System.out.println("Erreur UpsKrn-0 : L'exception suivante a été envoyée dans le source '"

      
         +e.NomSourceEnErreur+"' ligne "+e.NumeroLigne+", colonne "+e.NumeroColonne+" :");
      
      System.out.println(e.MessageErreur);

      }
   
   catch (java.lang.Throwable e2)
   
      {

      System.out.println(e2.toString());

      }
   
   }

}

}