Fil d’Ariane du forum – Vous êtes ici :ForumForums techniques: AS/400Recupération de la date et heure …
Vous devez vous identifier pour créer des messages et des sujets.

Recupération de la date et heure système

12

Bonjour tout le monde
Y'a-t-il moyen de récupérer la date et l'heure d'un AS/400 à partir de VB, Delphi ou un fichier .BAT ?

Euh avec SQL il me semble via ton driver ODBC.
Select Current Date, Current Time from sysibm/sysdummy1

Citation de k2r400

Euh avec SQL il me semble via ton driver ODBC.
Select Current Date, Current Time from sysibm/sysdummy1

sysibm/sysdummy1 ???

Oui c'est une table commune à DB2 avec qu'un seul enreg dedans, utile quand on veut faire des SELECT sur un fichier "bateau".
Ce qui nous importe c'est CURRENT DATE ou CURRENT TIME voire USER etc...
ou encore mieux peut-être
SELECT CURRENT TIMESTAMP from sysibm/sysdummy1

Cela ne fonctionne pas.
En plus je n'ai pas de bibliothèque sysibm

????? essaye avec STRSQL

SELECT CURRENT TIMESTAMP from sysibm/sysdummy1
ou
SELECT CURRENT TIMESTAMP from sysibm.sysdummy1
selon la convention utilisée *SYS ou *SQL

Sinon, prend un autre fichier avec un seul enregistrement.

Citation de k2r400

????? essaye avec STRSQL

SELECT CURRENT TIMESTAMP from sysibm/sysdummy1

il n'y a aucune raison que celà ne fonctionne pas, même si tu n'as pas SYSIBM
Sinon, prend un autre fichier avec un seul enregistrement.

J'ai testé avec STRSQL ça me donne SYSDUMMY1 de type *FILE dans SYSIBM non trouvé.

Par contre avec un fichier quelconque d'une bibliothèque quelconque ça fonctionne. Merci beaucoup.

Mais là j'ai un petit problème.
Si cela fonctionne avec la date et l'heure comment faire pour une autre variable comme QCONSOLE ou QIPLTYPE.

Dans ce cas là, je pense que le plus simple serait de faire une procédure stockée qui recevrait le nom de la valeur à récupérer et renverrai les données.
Dans le détail il faudra attendre l'avis des gourous 🙂

Avec VB il n'y a aucun soucis... Tu peux récupérer çà par un appel à un CL (qui récupérera lui-même les dates et heures système) via le toolkit.

12