RPG4 et format date [Résolu]

[BBert]

Bonjour,

Je travaille actuellement avec des formats date en RPG4, et il est vrai qu'ils sont plus facile à manipuler qu'en RPG3, je me pose juste une question a savoir est-il possible de passer une date en paramétre (entrée ou sortie)?

Je n'arrive qu'a passer des type Char ou Dec.

Dans le cas ou cela ne serais pas possible, peut-on convertir un format date en Char sans passer par la fonction %SUBDT?

Pour le moment je pose beaucoup de questions et je ne suis pas en mesure d'aider, mais j'espère que la tendance va s'inverser !!!

Merci à tous pour vos conseils !!!

[DevDX]

Bonsoir,

As-tu essayé la BIF %DATE ?

Variables à déclarer :
Pdat 8A (paramètre reçu format yyyymmjj)
PdatN 8s0 inz(0)
Wdate type D (cette variable sera ton résultat, ne pas lui définir de longueur)

Move Pdat PdatN
Eval Wdate = %date(PdatN:*ISO)
Wdate sera de type yyyy-mm-jj (c'est le format ISO)

Pour plus d'infos, va sur
http://publib.boulder.ibm.com/infocenter/iseries/v5r4/

J'espère que cela t'aidera.
Salut.

[BBert]

Merci pour ton aide, pour être franc je n'avais même pas pensé a aller sur ce site !!!

Je vais essayer ta solution, je te dirai ce qu'il en est.

A+

[Green Hornet]

dans websphere developpement studio, il y a une aide trés efficace et surtout un petit % suivi "Ctrl+Space" permet d'afficher la liste des fonction intégrées et de lire les explications s'y rapportant... et si besoin, de compléter via F1 pour avoir plus de détail et d'exemples

[BBert]

Envoyé par Green Hornet

dans websphere developpement studio, il y a une aide trés efficace et surtout un petit % suivi "Ctrl+Space" permet d'afficher la liste des fonction intégrées et de lire les explications s'y rapportant... et si besoin, de compléter via F1 pour avoir plus de détail et d'exemples

Merci,

Malheuresement je ne travaille pas en environnement Websphere...

[BBert]

Envoyé par DevDX

Bonsoir,

As-tu essayé la BIF %DATE ?

Variables à déclarer :
Pdat 8A (paramètre reçu format yyyymmjj)
PdatN 8s0 inz(0)
Wdate type D (cette variable sera ton résultat, ne pas lui définir de longueur)

Move Pdat PdatN
Eval Wdate = %date(PdatN:*ISO)
Wdate sera de type yyyy-mm-jj (c'est le format ISO)

Pour plus d'infos, va sur
http://publib.boulder.ibm.com/infocenter/iseries/v5r4/

J'espère que cela t'aidera.
Salut.

Cette solution fonctionne, merci, mais en réalité je voulais faire l'inverse, c'est a dire passer d'un format Date à un format Char, l'idée étant de pouvoir passer la date en paramètre (sortie).

J'ai récupérer de la doc sur le site, je vais essayer de me débrouiller avec ça...

Encore merci.
Bertrand

[Mercure]

Pour passer d'un format Date à un format Char, fais simplement :

Code :

1
2
3
d MadateChar                s                   10a
/free
   MaDateChar = %CHAR( MaDate );

[BBert]

Envoyé par Mercure

Pour passer d'un format Date à un format Char, fais simplement :

Code :

Merci, je suis tombé dessus dans la doc que j'ai pu trouver sur le site publiboulder. Du coup mon programme est fonctionnel !

Merci à tous