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) :

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. 

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. 

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é, ....