Comment feriez-vous pour récupérer la date du jour pour l'afficher sur l'écran ? (je sais que je peux avoir une zone date sur l'écran mais...)
Mon cas est particulier....
Pour éviter de compiler l'écran et le programme lors de modification de titre ou de fonction en bas de page, j'ai 2 lignes pour le titre de 80car et 2 lignes pour les fonctions.
C'est dans mon programme que je formate (centrage & formatage du/des titre(s), ainsi que pour mes fonctions "F3=Exit, F12=Annuler" etc.
En RPGIII, je faisais des MOVE et MOVEL de *DATE dans ZONECHAR et je l'affichais comme ça. Et ma 1°ligne de titre était formatée du "nom du prog+ titre de l'écran+date"
Et ma 2° n'a que le user de connexion.
En free, je me heurte à un problème de cadrage avec des zéros non significatifs.
En effet,
si *date=02012007
j'ai date=%char(*date) qui donne '2012007b'
Quelques idées ? Merci
Mon cas est particulier....
Pour éviter de compiler l'écran et le programme lors de modification de titre ou de fonction en bas de page, j'ai 2 lignes pour le titre de 80car et 2 lignes pour les fonctions.
C'est dans mon programme que je formate (centrage & formatage du/des titre(s), ainsi que pour mes fonctions "F3=Exit, F12=Annuler" etc.
En RPGIII, je faisais des MOVE et MOVEL de *DATE dans ZONECHAR et je l'affichais comme ça. Et ma 1°ligne de titre était formatée du "nom du prog+ titre de l'écran+date"
Et ma 2° n'a que le user de connexion.
En free, je me heurte à un problème de cadrage avec des zéros non significatifs.
En effet,
si *date=02012007
j'ai date=%char(*date) qui donne '2012007b'
Quelques idées ? Merci
J'ai trouvé ! Comme quoi j'abandonne trop vite mes recherches !!
(mais bon somme toute ça faisait 2 bonnes heures que je coinçais sur ça)
J'édite ma trouvaillle si y en a qui ont une autre solution
D DateEur S D
*
D D_8A DS
D D_J 1 2
D D_M 3 4
D D_A 5 8
DateEur=%Date(*Date);
D_8A=%Char( DateEur : *Eur0 );
Date=D_J+'.'+D_M+'.'+D_A;
Il n'empêche que j'avais bien pensé au *Eur0 au niveau du format en sortie mais j'ai dû me tromper ailleurs...
--Message édité par Saavik le 02-01-07 à 16:42:58--
(mais bon somme toute ça faisait 2 bonnes heures que je coinçais sur ça)
J'édite ma trouvaillle si y en a qui ont une autre solution
D DateEur S D
*
D D_8A DS
D D_J 1 2
D D_M 3 4
D D_A 5 8
DateEur=%Date(*Date);
D_8A=%Char( DateEur : *Eur0 );
Date=D_J+'.'+D_M+'.'+D_A;
Il n'empêche que j'avais bien pensé au *Eur0 au niveau du format en sortie mais j'ai dû me tromper ailleurs...
--Message édité par Saavik le 02-01-07 à 16:42:58--
Plus simplement:
d datechar s 10a
datechar = %editC(*date : 'X');
d datechar s 10a
datechar = %editC(*date : 'X');
Merci beaucoup pour ce magnifique forum, je le trouve super bien, il y a toujours des réponses de la part des membres ou des administrateurs, je souhaite que ce forum grandira de plus en plus.
voyance gratuite en ligne
gay telephone
voyance gratuite en ligne
gay telephone
Votre forum est l'un des meilleurs que j'ai vu surtout vos publications et vos écrits qui sont très très intéressant.
voyance gratuite par mail
voyance gratuite par mail