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

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.

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,

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

%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

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)

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

+ 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

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

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