Programme de base - Basic Program

page d'accueil
Boite à outils

Cette page a été mise à jour le 15 décembre 2007
Contact

Welcome page
Tools box

Versioning :

last version : How to upload to my 400

CHGPFM FILE(JPL/QPGMSRC) MBR(JPL020FM ) SRCTYPE(DSPF ) EXPDATE(*NONE) SHARE(*NO) TEXT('sous-fichier et mise à jour ') 
CHGPFM FILE(JPL/QPGMSRC) MBR(JPL020HP ) SRCTYPE(PNLGRP ) EXPDATE(*NONE) SHARE(*NO) TEXT('Aide par PNLGRP ')
CHGPFM FILE(JPL/QPGMSRC) MBR(JPL020L1 ) SRCTYPE(LF ) EXPDATE(*NONE) SHARE(*NO) TEXT('create file JPL020P ')
CHGPFM FILE(JPL/QPGMSRC) MBR(JPL020P ) SRCTYPE(PF ) EXPDATE(*NONE) SHARE(*NO) TEXT('create file JPL020P ')
CHGPFM FILE(JPL/QPGMSRC) MBR(JPL020R2 ) SRCTYPE(RPGLE ) EXPDATE(*NONE) SHARE(*NO) TEXT('Sous-fichier et mise à jour R4free+jp4inc')
CHGPFM FILE(JPL/QPGMSRC) MBR(JPL021FM ) SRCTYPE(DSPF ) EXPDATE(*NONE) SHARE(*NO) TEXT('sous-fichier SQL et mise à jour ')
CHGPFM FILE(JPL/QPGMSRC) MBR(JPL021P ) SRCTYPE(EXECSQL ) EXPDATE(*NONE) SHARE(*NO) TEXT('create file JPL021P ')
CHGPFM FILE(JPL/QPGMSRC) MBR(JPL021R2 ) SRCTYPE(SQLRPGLE ) EXPDATE(*NONE) SHARE(*NO) TEXT('Sous-fichier SQL et mise à jour R4free+jp4inc')
Caractéristiques
  • FMTA + FMTKA : modèle pour critère de sélection
  • SFLB + CTLB + FMTKB : modèle pour sous-fichier de 15 lignes
  • FMTC + FMTP : modèle pour le détail d'une ligne de sous-fichier
  • PMQSFL + PMQCTL : modèle de sous-fichier de message
Features
  • FMTA + FMTKA: model for selection criterias
  • SFLB + CTLB + FMTKB: model for 15 lines subfile 
  • FMTC + FMTP: model for the detail 
  • PMQSFL + PMQCTL: message subfile
DSPF Caractéristiques :
  • Implantation dans le DSPF maintenable "à la main" (HLPARA(*NONE))
  • L'utilisation de fichiers de messages (*MSGF) permet la traduction à la volée de l'aide ; juste en changeant de liste de bibliothèque (ce qui suppose de fournir plusieurs bibliothèques contenant chacune une traduction différente des fichiers de messages)

détails : F1 Aide en ligne

DSPF Feature: 
  • Implantation in the DSPF "handly" maintenable (HLPARA(*NONE)) 
  • messages file usage (*MSGF) permits the translation to the flight of help; just while changing list of library (that supposes to provide several libraries each containing  a different translation of the messages files) 

details : F1 Inline help

RPGLE Caractéristiques:
  • Free-RPG
  • sous-fichier de message
  • messages avec variables intégrées
  • Affichage "A partir de" comme PDM
  • Page de critères de sélection
  • Page de liste ( sous-fichier et son entête)
  • Page de détail
RPGLE Feature: 
  • Free-RPG 
  • message subfile
  • messages with built-in variables 
  • Display " from " as PDM 
  • selection criterias page
  • list page (subfile and heading) 
  • detail page

Aperçu : page 1


JPL020R2 TITRE 10/06/05 ECOMAT JPL020A jp jpltools 16:44:48 EB10168 Type de source. RPG













F3=Quitter F12=Abandonner F5=Rafraichir
BONJOUR

page 2 


JPL020R2 Mise à jour des paramètres de compilation 10/06/05 ECOMAT JPL020B jp jpltools 16:43:26 EB10168 Filtrer avec :
1=Ajouter 2=Modifier 3=Copier 4=Supprimer 5=Visualiser
S Compiler Seq Membre Library Action Commande ...
_ CLLE 400 * VBEL* proprio CHGOBJOWN OBJ(&O/&N) OBJTYPE(
_ CLLE 500 * * Compil CRTBNDCL PGM(&O/&N) SRCFILE(&
_ CLLE 500 * VBEL* Compiler CRTBNDCL PGM(&O/&N) SRCFILE(&
_ CLLE 500 CUSCLS * Compiler CRTCLMOD MODULE(&L/&N) SRCFIL
_ CLLE 500 DIRLIST JPLWWW Compiler CRTCLMOD MODULE(&L/DIRLIST) S
_ CLLE 500 EXECSQL* * Compil CRTBNDCL PGM(&O/&N) SRCFILE(&
_ CLLE 500 GPR* * Compiler CRTCLMOD MODULE(&L/&N) SRCFIL
_ CLLE 500 LAQ10* VBEL* Compiler CRTCLMOD MODULE(&O/&N) SRCFIL
_ CLLE 500 MAKE* * Compil CRTBNDCL PGM(&O/&N) SRCFILE(&
_ CLLE 550 LAQ10* VBEL* userattr CHGOBJATR OBJ(&O/&N) OBJTYPE(
_ CLLE 600 CUSCLS * Lier CRTPGM PGM(&O/&N) BNDSRVPGM(Q
_ CLLE 600 DIRLIST JPLWWW Lier CRTPGM PGM(&O/DIRLIST) BNDSRV
_ CLLE 600 GPR* * Lier CRTPGM PGM(&O/&N) BNDSRVPGM(Q
_ CLLE 650 * VBEL* ExecOwner CHGPGM PGM(&O/&N) USRPRF(*OWN
_ CLLE 650 LAQ10* VBEL* ExecOwner +
F3=Quitter F12=Abandonner F5=Rafraichir F14=Commandes paramétrées


update page


JPL020R2 Mise à jour des paramètres de compilation 10/06/05 ECOMAT JPL020C jp jpltools 16:44:18 EB10168 Compilateur CLLE
Sequence 400
Membre source * (= nom d'objet)
Bibliothèque source VBEL*

Action proprio (commentaire)
Commande AS400
CHGOBJOWN OBJ(&O/&N) OBJTYPE(*PGM) NEWOWN(OWNER)



Monmsg IGNORE (ESCAPE ou IGNORE)






F3=Quitter F12=Abandonner


 

JPL021. Cette version utilise la lecture de données par SQL au lieu du mode natif. Caractéristiques DSPF
  • Affichage des lignes correspondant à la clé, basé sur SELECT FROM WHERE ORDERBY au lieu de READE
  • Nombre de lignes sélectionnées sous contrôle de l'utilisateur
JPL021. This version uses the data access by SQL instead of the native mode

DSPF Feature 

  • Display of the lines corresponding to the key, based on SELECT FROM WHERE ORDERBY instead of READE 
  • Number of lines selected under user control 

 
Caractéristiques RPGLE :

SQL : PREPARE

RPGLE Features

SQL : PREPARE

Page 2 : with filter criterias instead of from criterias


JPL021R2 Mise à jour des paramètres de compilation 10/06/05 ECOMAT JPL021B jp jpltools 16:49:36 EB10168 Filtrer avec : 539 LIGNES
limiter à
1=Ajouter 2=Modifier 3=Copier 4=Supprimer 5=Visualiser 88 Lignes
S Compiler Seq Membre Library Action Commande ...
_ CLLE 400 * VBEL* proprio CHGOBJOWN OBJ(&O/&N) OBJTYPE(
_ CLLE 500 * * Compil CRTBNDCL PGM(&O/&N) SRCFILE(&
_ CLLE 500 * VBEL* Compiler CRTBNDCL PGM(&O/&N) SRCFILE(&
_ CLLE 500 CUSCLS * Compiler CRTCLMOD MODULE(&L/&N) SRCFIL
_ CLLE 500 DIRLIST JPLWWW Compiler CRTCLMOD MODULE(&L/DIRLIST) S
_ CLLE 500 EXECSQL* * Compil CRTBNDCL PGM(&O/&N) SRCFILE(&
_ CLLE 500 GPR* * Compiler CRTCLMOD MODULE(&L/&N) SRCFIL
_ CLLE 500 LAQ10* VBEL* Compiler CRTCLMOD MODULE(&O/&N) SRCFIL
_ CLLE 500 MAKE* * Compil CRTBNDCL PGM(&O/&N) SRCFILE(&
_ CLLE 550 LAQ10* VBEL* userattr CHGOBJATR OBJ(&O/&N) OBJTYPE(
_ CLLE 600 CUSCLS * Lier CRTPGM PGM(&O/&N) BNDSRVPGM(Q
_ CLLE 600 DIRLIST JPLWWW Lier CRTPGM PGM(&O/DIRLIST) BNDSRV
_ CLLE 600 GPR* * Lier CRTPGM PGM(&O/&N) BNDSRVPGM(Q
_ CLLE 650 * VBEL* ExecOwner CHGPGM PGM(&O/&N) USRPRF(*OWN
_ CLLE 650 LAQ10* VBEL* ExecOwner +
F3=Quitter F12=Abandonner F5=Rafraichir F14=Commandes paramétrées

The source code is provided as an open source tool under the GNU General Public License, version 2.  In summary, this license specifies:

By clicking the download link you acknowledge and agree to the terms of the license.

Download the (zipped) SAVF containing the JPLTOOLS : the source file, the message file, the bnddir

THIS TOOLBOX IS PROVIDED ''AS IS'' AND ANY EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PROVIDER OR ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS TOOLBOX, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.