Pas encore inscrit ? Creez un Overblog!

Créer mon blog
i20i20

i20i20

Ses blogs

  le blog i20blog par : yvain

le blog i20blog par : yvain

Trucs et astuces pour developpeurs AS400 (I-Series)
i20i20 i20i20
Articles : 14
Depuis : 04/02/2007
Categorie : Technologie & Science

Articles à découvrir

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 compilateur génère dans la table de DEBUGune ligne par spécif I (ou O). ainsi un READ peut

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 F10 sur l'écran qui va s'afficher Ou utiliser la commande STRISDB (pour les programme OPM)

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 INVERSE VIDEO 2E ROUGE SOULIGNE CLIGNOTANT 30 TURQUOISE 31 TURQUOISE INVERSE VIDEO 32 JAUNE 33 JA

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 an Editcode) %EDITFLT (Convert to Float External Representation) %EDITW (Edit Value Using an Editwo

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) from bib/lefichier Récupère l’heure en alpha digits(decimal((hour(CURRENT TIME)), 2,

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 **-------------------------------------------------------------** * INFDS *DSPF * **-------------------------------------------------------------** D INFE

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éhension.

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 sa propre mire

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 d'exception D EXCP_TYPE 40 42 * numéro d'exception D EXCP_NUM 43 46 * bib du programme D

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 fichiers