Code pour extraire la file d'attente de données
C EndDo H Debug(*yes)
*
* Calls QRCVDTAQ for a data queue associated with a spool file.
* The wait time is negative so it always waits for an entry.
*
* Parameters
*
D dataq S 10A inz('SPOOL')
D Library S
10a inz(‘*LIBL ‘)
D Length S 5 0 inz(132)
D Wait S 5 0
*
D Spool_Num_Dec S 5 0
*
* Outq Information returned to the Dataq
*
D Data DS
D Function 10a
D Type 2a
D Job_Name 10a
D User_Name 10a
D Job_Number 6a
D Spool_File 10a
D Spool_Num_Bin 8b 0
D Outq_Name 10a
D Outq_Library 10a
D Reserved 56a
*
*
* Set Wait time
*
C Eval Wait = -1
*
C Do *hival
*
C Call ‘QRCVDTAQ’
C Parm dataq
C Parm Library
C Parm Length
C Parm Da ta
C Parm Wait
*
* Use a control Spool File to terminate the program
*
C If Spool_File = ‘EXIT’
C Leave
C End
*
C z-add Spool_Num_Bin Spool_Num_Dec
*
* Call send CLP
*
C Callb ‘SPLSEND’
C Parm Spool_File
C Parm Job_name
C Parm User_name
C Parm Job_Number
C Parm Spool_Num_Dec
*
*
C Eval *inlr = *on
*
*
Insight vous guide dans l’utilisation de la nouvelle expérience de création d’agents dans Microsoft Copilot Studio, disponible dans Copilot Chat. Découvrez les étapes clés pour concevoir, configurer et déployer ces nouveaux agents et injecter la puissance de l’IA directement dans le flux de travail.
CES 2026 : l’IA physique et la robotique redéfinissent le futur
Les 3 prédictions 2026 pour Java
Semi-conducteurs : comment l’Irlande veut contribuer à atténuer la pénurie mondiale de puces
Face à l’urgence écologique, l’IT doit faire sa révolution
D’ici 2030, jusqu’à 90 % du code pourrait être écrit par l’IA, pour les jeunes développeurs, l’aventure ne fait que commencer
