Top articles
-
aide memoire SQL
Définition de longueur : Decimal(zone, 15, 5) Concatener 2 zones numériques DIGITS(a.CCNVSI)!!DIGITS(a.CCNVDT) Localiser un ou une chaîne de caractères LOCATE(';',zone,1) LOCATE( charactère(s) , nom zone , position début) RRN par SQL select rrn(lefichier)...
-
Heure courante dans zone 6,0 via SQL
Comment faire pour mettre l’heure courante dans une zone de longueur 6 numérique via SQL ? UPDATE fichier SET ZONEHEURE = DECIMAL ( DIGITS ( DECIMAL ( ( HOUR ( CURRENT TIME )) , 2, 0 ) ) !! DIGITS ( DECIMAL ( ( MINUTE(CURRENT TIME )) , 2, 0 ) ) !! DIGITS...
-
*INZSR et *PSSR
L’*INZSR : sert pour l’initialisation d’un programme. Cette routine est automatiquement appelée à l’entrée du programme, mais ne l’ai plus si le programme est géré en mode RETURN (*INRT = *ON et *INLR = *OFF) et non en mode CLOTURE (*INLR = *ON). Une...
-
Carte H et ses mots clés :
+ OPTION(*SRCSTMT | *NOSRCSTMT)avec *SRCSTMT le compilateur génère une table de DEBUGou chaque instruction porte le N° de ligne sourceavec *NOSRCSTMT les lignes dans l'objet sont numérotées en séquence + OPTION(*DEBUGIO | *NODEBUGIO) avec *DEBUGIO le...
-
touche de fonction DSPF - RPG
Ceci vous permettra de tester à l'issu d'un EXFMT : EXFMT ecranSELECTWHEN KEY = àF01EXSR ECR01F01 (touche de fonction F1) .... dans le RPG :FTFSIAIDEE CF E WORKSTN INFDS(INFECR) le /COPY INFECR **-------------------------------------------------------------**...
-
DS SDS
DPsds SDS * Nom de la procédure D PROCEDURE *PROC * code status D ERROR *STATUS * code status précédent D PRV_STATUS 16 20S 0 * numéro line selon source D LINE_NUM 21 28 * nom routine D ROUTINE *ROUTINE * nombre de paramètres reçus D PARMS *PARMS * type...
-
2ème valeur minimum via SQL
Comment retrouver la deuxième valeur minimum d’une zone précise d’un fichier via SQL SELECT * FROM Fichier WHERE ZoneNum = (SELECT MIN(ZoneNum) FROM Fichier WHERE ZoneNum > (SELECT MIN(ZoneNum) FROM Fichier)) Sélectionne tous les enregistrements dont...
-
Code Opération RPGLE (%EDITC .) :
%ABS (Absolute Value of Expression) %ADDR (Get Address of Variable) %CHAR (Convert to Character Data) %DEC (Convert to Packed Decimal Format) %DECPOS (Get Number of Decimal Positions) %DIV (Return Integer Portion of Quotient) %EDITC (Edit Value Using...
-
Debuguer un batch
2 méthodes Il faut placer le batch dans une jobq non reliée à un sous-systemefaire un STRSRVJOB avec le nom du travail, utilisateur et numérofaire un STRDBG (pour les programme ILE ou OPM compiler avec le paramètre OPTION(*SRCDBG)Libérer le batchfaire...
-
Codes hexa des couleurs
20 VERT 21 VERT INVERSE VIDEO 22 BLANC 23 BLANC INVERSE VIDEO 24 VERT SOULIGNE 25 VERT SOULIGNE INVERSE VIDEO 26 BLANC SOULIGNE 27 28 ROUGE 29 ROUGE INVERSE VIDEO 2A ROUGE CLIGNOTANT 2B ROUGE CLIGNOTANT INVERSE VIDEO 2C ROUGE SOULIGNE 2D ROUGE SOULIGNE...
-
les commentaires
Veuillez utiliser le "commentaire" comme un complément d'information, ou une correction de l'article et non comme un "forum". Toutes questions seront supprimées. Ce blog sert surtout pour "aide mémoire" de trucs et astuces AS400. Merci de votre compr...
-
CRYPTER - DECRYPTER via SQL
Pour crypter :UPDATE MABIB/MONFICHIER SET MAZONE = XOR(MAZONE,'CLEDECRYPTAGE') Pour décryptage :utiliser la même commande NB : 'CLEDECRYPTAGE' étant votre cle libre, attention de bien s'en souvenir !
-
Liste de fichiers utilisables de QSYS et QUSRSYS
QSYS QADBFDEP Dépendance fichier QSYS QADBIFLD Référenciel des zones de fichiers QSYS QADBKFLD Référenciel des zones clés des fichiers logiques QSYS QADBPKG SQL package QUSRSYS QATOCHOST Liste des hosts et adresses IP QSYS QADBXREF Infos global sur f...
-
Changer la mire de connexion AS400 :
La mire par défaut se trouve dans le fichier source : QGPL/QDDSSRC membre QDSIGNON Respecter le nom des champs (SYSNAME, PASSWRD…) La mise en place se fait par sous système par un CHGSBSD SBSD(xxx) SGNDSPF(mabib/mamire) Chaque sous-système peut donc avoir...