Les commandes de l'AS400 !!! Retour au menu de navigation
COMMANDE DESCRIPTIF EN ANGLAIS
     
QBOOKPATH Appel des aides Book path
     
QKBDTYPE Jeux Caractères Langue Clavier keyboard type
STRCTL Démarrer le contrôleur start controller
ENDCTL Fin du contrôleur end
PWRDWNSYS Éteindre power down
SIGNOFF Fermer la cession session off
QABNORMSW Arrêt anormal abnormal switch
QCCSID Identifier les jeux de caractères  
QCMNARB
(Arbitre)		 Choisit les directives lorsque plusieurs solutions s'offrent à la machine. Fr : jjmmaaaa
Ang : mmjjaaaa
BDD : aaaammjj
     
QIPLDATTIM Date / heure redémarrage auto  
QIPLSTS S'il boot, il est à 1  
QIPLTYPE Choix source de démarrage  
     
QLMTDEVSSN Limiter les sessions écran concurrentes  
     
CRTUSRPRF Créer un profil utilisateur create user profil
CHGUSRPRF Modifier un profil utilisateur change
DLTUSRPRF Supprimer un profil utilisateur delete
WRKUSRPRF Gérer, travailler sur un profil work user profil
CHGUSRPRF Gestion des profils change user profil
QMAXSIGN Nombre maximum d'essai d'ouverture de session  
QPWEXPITY Durée limitée d'un mot de passe  
DSPJOBLOG Historique de travail  
JOBD Façon dont se déroule le travail priorité, imprimante par défaut
CHGJOBD Changer la jobd, ajouter une bibliotheque au path
  
     
GO MAIN Aller vers le menu main
GO HARDWARE Vers les ressources matérielles hardware
GO CMDPFR Voir les commandes perf. command
WRKACTJOB Ouvre Gestionnaire des tâches action job
     
SNDMSG Envoyer messages send message
DSPMSG Réception de messages display
     
DSPSYSVAL Montrer valeurs système display system
CHGSYSVAL Changer les valeurs système system value
WRKSYSVAL Modifier valeurs système work
     
CRTLIB Créer une bibliothèque  
QGPL Bibliothèque. Le programme cherche dans la bibliothèque courante puis dans les bibliothèques générales
LIBL Bibliothèque général  
QTEMP Bibliothèque temporaire valide le temps d'une session
     
CHGLIB Nom de la Bibliothèque pour faire une modification
DLTLIB Supprimer une bibliothèque  
EDTLIBL Mettre en forme la bibliothèque, l'éditer de manières temporaire
DSPLIB Affiche les biblothèques *ALL  
ADDLIBLE Mettre une bibliothèque dans la liste de bibliothèque pour une session. Pour un effet permanent, Modifier la job D
     
CPYF Pour copier une table ou des lignes  
     
Les autres commandes de Thierry  
     
QDECFMT Format décimal  
QSRTSEQ Séquence de tri où l'on détermine l'affichage Aa Bb 01
QSRVDMP Dump  
QSTRUPPGM Programme de démarrage  
QDBRCVYWT Stoppe la base s'il y a un problème lors de la manipulation
     
     
     
Les commandes DB2 - Programmer en GAP / RPG  
WRKSPLF Vider son cash de spool  
CLRPFM Vide la memoire temporaire si un programme est lancé trop de fois.
     
CRTDTAARA    
DLTDTAARA    
CHGDTAARA    
RTVDTAARA    
DSPDTAARA    
     
STRPDM Accéder à QCLSRC QDDSSRC et QRPGSRC  
     
     
     

Un maximum d'informations
Un travail est appelé JOB

L'AS400 ne fait pas de différence entre le disque dur et la mémoire vive. La RAM et le disque travail de la même manière dans l'AS400. Disque dur 1 vers disque dur 2 plus la mémoire vive. C'est l'espace adressable unique. Si l'espace disque libre est inférieur à 30 % on perd de plus en plus de temps de réponse.

L'AS400 connait la charge d'utilisation des ressources d'un logiciel spécifique.

La liste de bibliothèque est un paramètre d'environnement.

Un fichier physique peu contenir des données. Un fichier logique ne peu contenir de données. QDDSSRC est un fichiers physique. Il peu contenir plusieurs membres.

Une bibliothèque ne contient pas d'autres bibliothèques. Tout est au même niveau.
La liste des bibliothèques peut contenir la bibliothèque courante.

Un contrôleur peut permettre de connecté une unité de disquette.

Les valeurs système sont liées à l'AS400 sur lesquelles elles se trouvent.

Client Access permet le transfert d'un fichier Excel d'un AS400 vers un PC.

La touche '+' recadre les valeurs à droite sous certain menu de programmation CL, RPG ...

Configurer la JobD pour mettre en place la liste des bibliothèques. <--> USRPRF ???

Les infos utiles pour utiliser son clavier
F1 Aide sur l'utilisation de l'AS400
F3 Arrêter ou sauvegarder un programme
F4 Valider une commande
F9 Rappel des dernières commandes exécutées au clavier
F12 Revient en arrière
F24 Affiche toutes les commandes (Touche Maj + F12)

D'autres petites astuces pour travailler sur un AS400
XXX* CRT* affiche toutes les commandes qui commencent par CRT
* Saisie du texte et mots de passe, pas d'étoile. Ce n'est pas un mot clé.
X Un X rouge qui empêche d'écrire? On appuie sur CTRL de gauche.
   
   
   

Rappel de certains paramètres
QTIME Paramètre de WRKSYSVAL pour changer l'heure de l'AS400
MSGQ Lors de la création d'un profil, une messagerie est créée.
MW au bas de l'écran? Messages à réceptionner avec DSPMSG
   
   
   

Info 1 - Préparer un AS400 pour un nouvel utilisateur
  Profil utilisateur : PGMR
  Créer une bibliothèque
  Créer une JobD

Info 2 -
   
   
   

Info 3 -
   
   
   

RGZPFM Réorganiser un membre d'un fichier physique
EDTLIBL équivalent à ADDLIBLE

CRTDUPOBJ Changer une table de la biblio1 vers la biblio2

En cas d'erreur :
C : Cancel
D : Dump (Inutil)
R : Retry (Réessayer)
I : Ignore






Voir l'intérieur d'un fichier DSPPFM
Profil du fichier DSPPF
Query est un langage de 4ème génération qui crée un langage SQL.

WRKQRY crée un programme

CPYF copier un fichier
STRSQL démarrer sql

DSPWRKLIB Voir les fichiers dans la bibliothèque
WRKLIB Travailler sur un fichiers dans la bibliothèque

STRPDM : Début du programme , on dit dans quel bibliothèque on travail.
ENDPDM : Fin du programme

STRTCP Démarrer TCP/IP, démarrer un réseau
ENDTCP Fin de la connexion réseau

WRKOBJ travailler sur les objets.
Modifier via DFU Crée automatiquement un programme de mise à jour de fichiers.
WRKSPLF Voir les fichiers générés par un utilisateur
WRKOUTQ Tout ce qu'il y a dans un OUTQ pour différents utilisateurs
WRKWTR idem avec quelques différences
WRKSPLF Montre les spools de l'utilisateur actif
= EQ différent NE > GT > LT Sup ou = GE Inf ou = LE


PDM : Logiciel de développement sur AS400
JOBQ
File d'attente en entrée.
OUTQ
File d'attente de sortie.
Un travail ne peut exister sans description, façon dont le travail devrait se dérouler. DSTJOBD
On gère la bibliothèque LIB avec WRKLIB

Travailler sur un travail existant : WRKJOBQ
Voir un travail existant en attente : DSPJOBQ
Caractéristique d'un travail : DSPJOBD
Créer une définition d'un travail : CRTJOBD
Créer un travail: CRTJOBQ

DSPPFM (Physical File Member)
Synonyme de fichier, donc, equivalent à une table
Si physique, c'est que réel existe.
Physical (Lecteur C) différent de Logique (Lecteur G)


MULT ADD DIV SUB
GE >= GT > LE <= LT <




' note AS400 : PFILE : fichier logique JFILE : logique joint


PROGRAMMER EN CL SOUS AS400 - STRPDM pour accéder à QCLSRC

AFFICHE UN MESSAGE EN BAS DE L'ECRAN QUAND ON LE LANCE.
************** Début des données ************************************
0001.00 PGM
0002.00 DCL VAR(&TOTO) TYPE(*CHAR) LEN(10)
0003.00 RTVJOBA USER(&TOTO)
0004.00 IF COND(&TOTO = 'IGBASS') THEN(SNDPGMMSG +
0005.00 MSG('Le message'))
0006.00 ENDPGM
*************** Fin des données *************************************

CREER UNE NOUVELLE BIBLIOTHEQUE / COPIE DE FICHIERS
************** Début des données ************************************
0001.00 PGM
0002.00 CRTLIB LIB(NEW_LIB_1) TEXT('Cette bibliothèque est +
0003.00 créé par un prog CL')
0004.00 MONMSG MSGID(CPF2111) EXEC(CLRLIB LIB(NEW_LIB_1))
0005.00 CRTDUPOBJ OBJ(ARTIPF) FROMLIB(IGBASS) OBJTYPE(*FILE) +
0006.00 TOLIB(NEW_LIB_1) NEWOBJ(ARTIPF_DUP) +
0007.00 DATA(*YES)
0008.00 MONMSG MSGID(CPF2130) EXEC(CLRLIB LIB(NEW_LIB_1))
0009.00 ENDPGM
*************** Fin des données *************************************

AFFICHE LIGNE PAR LIGNE LES ELEMENTS D'UN TABLEAU
************** Début des données ************************************
0001.00 PGM
0002.00 DCLF FILE(IGBASS/ARTIPF)
0003.00 CREATION: CRTDTAARA DTAARA(IGBASS/AFFICHE) TYPE(*CHAR)
0004.00 MONMSG MSGID(CPF1023)
0005.00 DEBUT: RCVF
0006.00 MONMSG MSGID(CPF1019)
0007.00
0008.00 CHGDTAARA DTAARA(IGBASS/AFFICHE) VALUE(&ARLIB)
0009.00 AFFICHE: DSPDTAARA DTAARA(IGBASS/AFFICHE)
0010.00 GOTO CMDLBL(DEBUT)
0011.00 FIN: ENDPGM
*************** Fin des données *************************************

UN COMPTEUR MULTI UTILISATEURS
************** Début des données ************************************
0001.00 PGM
0002.00 DCL VAR(&COMPTEUR) TYPE(*DEC) LEN(2 0) VALUE(0)
0003.00 CRTDTAARA DTAARA(IGBASS/AFFICHE) TYPE(*DEC) LEN(2) +
0004.00 VALUE(0)
0005.00 MONMSG MSGID(CPF1023)
0006.00 DEBUT: RTVDTAARA DTAARA(IGBASS/AFFICHE) RTNVAR(&COMPTEUR)
0007.00 CHGVAR VAR(&COMPTEUR) VALUE(&COMPTEUR + 1)
0008.00 CHGDTAARA DTAARA(IGBASS/AFFICHE) VALUE(&COMPTEUR)
0009.00 DSPDTAARA DTAARA(IGBASS/AFFICHE)
0010.00 IF COND(&COMPTEUR > 10) THEN(GOTO CMDLBL(FIN))
0011.00 GOTO CMDLBL(DEBUT)
0012.00 FIN: CHGDTAARA DTAARA(IGBASS/AFFICHE) VALUE(0)
0013.00 ENDPGM
*************** Fin des données *************************************

FAIRE UN CL QUI CREE UNE NOUVELLE BIBLIOTHEQUE
************** Début des données ************************************
0001.00 PGM
0002.00 CRTLIB LIB(NEW_LIB_1) TEXT('Cette bibliotheque est +
0003.00 créé par un prog CL')
0004.00 MONMSG MSGID(CPF2111) EXEC(CLRLIB LIB(NEW_LIB_1))
0005.00 CRTDUPOBJ OBJ(ARTIPF) FROMLIB(IGBASS) OBJTYPE(*FILE) +
0006.00 TOLIB(NEW_LIB_1) NEWOBJ(ARTIPF_DUP) +
0007.00 DATA(*YES)
0008.00 MONMSG MSGID(CPF2130) EXEC(CLRLIB LIB(NEW_LIB_1))
0009.00 ENDPGM
*************** Fin des données *************************************


PROGRAMMER EN RPG UN LANGAGE DE TROISIEME GENERATION

Créer un fichier source Type RPG : CRTSRCPF --> QRPGSRC

RTVDTAARA prend la valeur d'une DATAARA et la place dans une variable.

CPF4131 : Erreur de niveau
Une structure du programme et de ses tables est montée à la compilation. Il faut recompiler le programme si on modifie une table sinon, il y aura une erreur de niveau.

************** Début des données ************************************
0001.00 H
0002.00 FARTIPF UF E K DISK
0003.00 C DEBUT TAG
0004.00 C READ ARTIPF 10
0005.00 C *IN10 IFEQ '1'
0006.00 C GOTO FIN
0007.00 C ENDIF
0008.00 C ARPX MULT 4 ARPX
0009.00 C UPDATFARTI
0010.00 C GOTO DEBUT
0011.00 C FIN TAG
0012.00 C MOVE '1' *INLR
*************** Fin des données *************************************

Le I est pour dire, en entrée …
Le O est pour dire, en sortie…
Le U est pour dire, en entrée, et en sortie…
Le K on suit l'ordre ou non d'apparition des lignes du fichier…
Le A ajout de lignes dans un fichier…

************** Début des données ************************************
0001.00 H
0002.00 FARTIPF UF E K DISK
0002.01 C READ ARTIPF 10
0003.00 C *IN10 DOWEQ'0'
0005.00 C ARPX MULT 4 ARPX
0006.00 C UPDATFARTI
0006.01 C READ ARTIPF 10
0007.00 C ENDDO
0008.00 C MOVE '1' *INLR
*************** Fin des données *************************************

************** Début des données ************************************
0001.00 H
0002.00 FARTIPF UF E K DISK
0003.00 FPARAMPF IF E K DISK 20
0005.00 C 'AA' CHAINPARAMPF 66
0006.00 C READ ARTIPF 10
0007.00 C *IN10 DOWEQ'0'
0008.00 C ARPX MULT CHP1 ARPX
0009.00 C UPDATFARTI
0010.00 C READ ARTIPF 10
0011.00 C ENDDO
0012.00 C MOVE '1' *INLR
*************** Fin des données *************************************

************** Début des données ************************************
0001.00 H
0002.00 FARTIPF UF E K DISK
0003.00 FPARAMPF IF E K DISK
0004.00 C 'AA' CHAINPARAMPF 66
0005.00 C READ ARTIPF 10
0006.00 C *IN10 DOWEQ'0'
0007.00 C ARPX IFGT 50
0008.00 C ARPX MULT CHP1 ARPX
0009.00 C UPDATFARTI
0010.00 C ENDIF
0011.00 C READ ARTIPF 10
0012.00 C ENDDO
0013.00 C MOVE '1' *INLR
*************** Fin des données *************************************