33 résultats trouvés
To be free or not ?
Bonjour, :D Outre le côté inéluctable de ces évolutions , le free apporte énormément de nouveautés et de facilités dans la rédaction des programmes et permet d'utiliser les fonctions de manipulation de dates, chaines de caractères, tableaux sans modération. Suppression des Klist en pouvant spécifier...
- mar. 28 juil. 2009, 10:26:42
- Forum : langages
- Sujet : Colonne auto incrémentée type Compteur
- Réponses : 2
- Vues : 12002
(sans texte)
en cherchant bien ...
la réponse est dans AF400 (Nouveautés syntaxiques SQL en V5R30) avec l'ordre CREATE SEQUENCE qui permet de créer un nouveau type d'objet pour SQL (en fait une Data Area) permettant de mémoriser à l'extérieur d'une table, une suite numérique.
la réponse est dans AF400 (Nouveautés syntaxiques SQL en V5R30) avec l'ordre CREATE SEQUENCE qui permet de créer un nouveau type d'objet pour SQL (en fait une Data Area) permettant de mémoriser à l'extérieur d'une table, une suite numérique.
- mar. 28 juil. 2009, 08:46:13
- Forum : langages
- Sujet : Colonne auto incrémentée type Compteur
- Réponses : 2
- Vues : 12002
Colonne auto incrémentée type Compteur
Bonjour,
Comment peut-on disposer d'une colonne auto incrémentée lors d'un Insert dans une table
Merci d'avance,
Comment peut-on disposer d'une colonne auto incrémentée lors d'un Insert dans une table
Merci d'avance,
- mer. 17 juin 2009, 08:52:01
- Forum : langages
- Sujet : SQL en format libre avec variables
- Réponses : 8
- Vues : 31056
(sans texte)
Bonjour,
Le nom de la table et la bibliothèque peuvent être stockés dans des variables du programme RPG et utilisés de la manières suivante :
SELECT COLUMN_NAME FROM SYSCOLUMNS WHERE TABLE_NAME = :NomTable AND TABLE_SCHEMA= :NomBib
Cordialement,
Le nom de la table et la bibliothèque peuvent être stockés dans des variables du programme RPG et utilisés de la manières suivante :
SELECT COLUMN_NAME FROM SYSCOLUMNS WHERE TABLE_NAME = :NomTable AND TABLE_SCHEMA= :NomBib
Cordialement,
- lun. 06 avr. 2009, 17:55:38
- Forum : langages
- Sujet : Erreur dans une donnée décimale (ENORME)
- Réponses : 6
- Vues : 22008
(sans texte)
:oops: SOLUTION (après ces échanges + 1 téléphone ) C'était forcément ENORME ! Ainsi va la vie et les changements dans nos environnements de travail, où en 5250 on a toujours une liste de bibliothèques valide pour tester ou debugger... Dans un contexte requêteur (Squirrel, Navigator) si on omet de q...
- lun. 06 avr. 2009, 14:51:25
- Forum : langages
- Sujet : Erreur dans une donnée décimale (ENORME)
- Réponses : 6
- Vues : 22008
(sans texte)
une dernière précision :
Je vois en debug sur le programme RPG les variables de la DS alimentées ! et pas sur Squirrel, ni sur Navigator...
Je vois en debug sur le programme RPG les variables de la DS alimentées ! et pas sur Squirrel, ni sur Navigator...
- lun. 06 avr. 2009, 14:30:48
- Forum : langages
- Sujet : Erreur dans une donnée décimale (ENORME)
- Réponses : 6
- Vues : 22008
(sans texte)
:? La problématique a changé, j'ai résolu mon problème en passant toutes les variables du programme appelant et de la fonction en Condensé. Le programme appelant étant en fait une procédure cataloguée, je me heurte maintenant (et depuis le début) au fait que le contenu de la colonne Résultat obtenue...
- lun. 06 avr. 2009, 10:52:22
- Forum : langages
- Sujet : Erreur dans une donnée décimale (ENORME)
- Réponses : 6
- Vues : 22008
Erreur dans une donnée décimale (ENORME)
Bonjour, Est ce que quelqu'un peut m'aider sur le problème suivant : :?: Stockage du résultat d'un count(*) dans un programme de service avec le prototype et les variables suivantes DRtvLigneBP pi 4 0 D pNoBP 8a D àLigneTotal s 4 0 select count(*) into :àLigneTotal from bpdetl1 where bdbon = :pNoBP ...
- mer. 26 nov. 2008, 22:30:18
- Forum : Système
- Sujet : Messages dans QSYSOPR
- Réponses : 4
- Vues : 21973
(sans texte)
voici un petit CLP qui vient lire une msgq Dans la commande Rcvmsg, on récupère des tas d'infos sur les variables messages. PGM DCL VAR(&MSGID1) TYPE(*CHAR) LEN(7) DCL VAR(&MSGID2) TYPE(*CHAR) LEN(7) DCL VAR(&TEXTE) TYPE(*CHAR) LEN(132) ALCOBJ OBJ((LIBSYS/QUPS *MSGQ *EXCL)) MONMSG CPF0000 EXEC(GOTO ...
- mar. 25 mars 2008, 09:29:18
- Forum : langages
- Sujet : Equivalent RETURN dans un CL
- Réponses : 2
- Vues : 14900
(sans texte)
Il existe une commande RETURN permettant de rendre le contrôle au programme appelant.
En revanche, je n'ai pas l'expérience d'un RETURN avec un fichier ouvert dans le programme et de savoir si le fichier reste ouvert.
à suivre...
En revanche, je n'ai pas l'expérience d'un RETURN avec un fichier ouvert dans le programme et de savoir si le fichier reste ouvert.
à suivre...
- lun. 05 nov. 2007, 16:49:19
- Forum : Client Access
- Sujet : Emulateur 5250 / Client Messagerie sur MAC OS
- Réponses : 3
- Vues : 22409
Emulateur 5250 / Client Messagerie sur MAC OS
Bonjour,
Avez-vous déjà réalisé les déploiements suivants sur MAC OS ?
1) un émulateur 5250 (solution choisie ?)
2) Un client Messagerie connecté à un serveur Lotus Notes
Merci par avance de votre retour,
Avez-vous déjà réalisé les déploiements suivants sur MAC OS ?
1) un émulateur 5250 (solution choisie ?)
2) Un client Messagerie connecté à un serveur Lotus Notes
Merci par avance de votre retour,
- ven. 19 oct. 2007, 13:57:01
- Forum : Système
- Sujet : Répertoire par défaut de l'utilisateur dans l'IFS
- Réponses : 2
- Vues : 13734
(sans texte)
merci Philippe,
Attention tout de même, si l'on spécifie un autre chemin que '/', il faut cependant que le répertoire existe, sinon '/' est pris par défaut... et là on peut chercher longtemps (à moins d'avoir lu l'aide de la commande CHGUSRPRF; ce qui n'était pas exactement mon cas).
- ven. 19 oct. 2007, 10:19:25
- Forum : Système
- Sujet : Répertoire par défaut de l'utilisateur dans l'IFS
- Réponses : 2
- Vues : 13734
Répertoire par défaut de l'utilisateur dans l'IFS
Comment est déterminé le répertoire par défaut de la commande WRKLNK
Sur certains profils de notre System I, le répertoire utilisé est :
/HOME/utilisateur
Merci par avance
Sur certains profils de notre System I, le répertoire utilisé est :
/HOME/utilisateur
Merci par avance
- mar. 02 oct. 2007, 21:47:34
- Forum : langages
- Sujet : Exemple code RPG pour rafraîchir automatiquement un écran
- Réponses : 0
- Vues : 12672
Exemple code RPG pour rafraîchir automatiquement un écran
Pour rafraîchir automatiquement un écran et permettre une entrée au clavier (pour interrompre le programme) Dans le CLP /* 60 est l'intervalle de rafraichissement */ OVRDSPF FILE(VSU021AD) WAITRCD(60) Dans le DSPF (au niveau du fichier écran) /* 34 est l'indicateur qui conditionne l'affichage du SFL...
Trigger
Bonjour,
J'aimerais pouvoir retrouver dans un programme RPG utilisé comme trigger, le nom du programme ayant effectué la transaction BD et déclenché l'appel au trigger...
Est ce que cette possibilité existe ?
Merci
J'aimerais pouvoir retrouver dans un programme RPG utilisé comme trigger, le nom du programme ayant effectué la transaction BD et déclenché l'appel au trigger...
Est ce que cette possibilité existe ?
Merci