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
*
*
Face aux failles de résilience des tenants M365 (configurations, privilèges, sauvegarde). Découvrez 5 piliers pour durcir, segmenter et surveiller vos environnements afin de limiter l’impact des attaques. Prioriser vos chantiers cyber et améliorer la résilience de vos tenants Microsoft 365.
Analyse Patch Tuesday Mai 2026
Les coûts cachés des merge requests générées par l’IA
Femmes et métiers de la tech : une attractivité réelle freinée par des stéréotypes persistants
Moderniser le développement logiciel : de la fragmentation à l’intégration
Analyse Patch Tuesday Avril 2026
