SEPCHAT consulting

Quelques Tips pour utiliser Java sur votre AS400 :

Pour connaître la version de la JVM en cours, il suffit de taper sur une ligne de commande : java *version

L'option 10 du menu LICPGM permet d'afficher aussi le niveau de version de la JVM, il permet surtout de vérifier la présence de plusieurs JVM sur votre système.

Il est possible d'activer une JVM par défaut. Par exemple, la commande suivante permet de définir la JVM 1.5 par défaut.

ADDENVVAR ENVVAR(JAVA_HOME) VALUE('/QOpenSys/QIBM/ProdData/JavaVM/jdk50/32bit') LEVEL(*SYS).

Bien entendu, celle ci est à utiliser à vos risques & péril, et en accord avec le responsable système.

Pour exécuter une classe Java présente dans l'IFS :

RUNJVA CLASS('/HOME/JAVA/SENDFILE.JAR') PARM(&TO &FROM &SUJET  &TXT  &SMTP  &FILE &DEBUG)          

Cette commande peut être intégrée dans un programme, comme dans l'exemple ci dessus,  ou lancée directement depuis une ligne de commande.

 Cet article vous a été utile, n'hésitez pas à le partager. 

Sur IMB i , il est possible de sauvegarder le contenu d'une session SQL en séléctionnant l'option 4  S"auvegarde session dans fichier source".

Pour accéder au mode sans échec de Windows 8, il faut acceder au menu "Modifier les paramètres, general, ...."

Récemment, j'ai eu affaire à un PC infecté par un virus qui m'empêchait d'accéder à ce menu. 

La touche de fonction F8 était elle aussi désactiver. 

Pour réactiver la touche de fonction F8 au demarrage du PC, il faut suivre la procédure suivante :

Positionner le curseur dans le coin en bas à gauche de l'écran,

Clic droit pour faire apparaitre le menu contextuel

Sélectionner "Invite de commandes (admin)

puis sair la ligne de commande suivante :  bcdedit /set {default} bootmenupolicy legacy et valider la saisie avec ENTREE

Au demarrage du PC, pressez la touche de fonction F8, le menu de demarrage de Windows va apparaitre ! 

Une analyse QUERY est un composant AS400 un peu obsolète, et peu maintenable.

Il est souvent plus intéressant (et plus standard) de gérer cette analyse au format SQL.

C'est à ce moment que la commande RTVQMQRY intervient. Celle ci permet de convertir une définition QUERY en requète SQL.

La commande suivante va créer un membre source appelé MONQRY dans QSQLSRC. 

RTVQMQRY QMQRY(QGPL/MONQRY) SRCFILE(QTEMP/QSQLSRC) ALWQRYDFN(*YES) 
 

Ce membre va contenir les informations suivantes :

H QM4 05 Q 01 E V W E R 01 03 09/02/09 09:50                              
V 1001 050 liste de tous les fic minitel à epurer                         
V 5001 004 *HEX                                                           
SELECT                                                                    
  ALL       MBLIB, MBFILE, MBFTYP, MBTXT, MBMXRL, MBNRCD, MBNDTR, MBDSZ2  
  FROM      QGPL/OBJ T01                                            
  WHERE     MBFTYP = 'P'                                                  
  ORDER BY  MBLIB ASC, MBFILE ASC                                         
 

Pour l'exemple, les 3 premières lignes sont du bruit et peuvent être supprimées.

 Cet article vous a été utile, n'hésitez pas à le partager.