IBM i - CLP - Définition d'une structure de données

Langages

AddThis Social Bookmark Button

 

Dans un CLP, il est possible de définir une DS comme c'est habituellement le cas en RPG

 Par exemple, pour découper la variable NIR (N° INSEE) :

Lire la suite...

 

RAZ d'un IBM i

AS/400, iseries, System i, IBM i, ....

AddThis Social Bookmark Button

 

Remise à l'état d'origine d'un AS400. (sauf le micro-code)

 

Sous QSECOFR ....  non, non, je ne vous dirai pas tout ... pour la suite contactez moi. 

 

 

Java sur Iseries

AS/400, iseries, System i, IBM i, ....

AddThis Social Bookmark Button

 

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. 

   

SQL - Controler l'existence d'un champ

SQL

AddThis Social Bookmark Button

 

Pour contrôler l'existence d'un champ dans un fichier DB2, il suffit de lancer la requête SQL suivante :

 

SELECT * FROM QSYS2/SYSCOLUMNS WHERE TABLE_NAME = 'ADRES01PF'  AND  COLUMN_NAME = 'IDADR'   

 

Cette requête permet de récupérer aussi toute la description d'un champ : Taille, type, libellé, ....

 

 

 

 

IBM i - Créer un source à partir d'un Query

AS/400, iseries, System i, IBM i, ....

AddThis Social Bookmark Button

 

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. 

   

Page 5 de 9

<< Début < Préc 1 2 3 4 5 6 7 8 9 Suivant > Fin >>