> Tech > FIGURE 2

FIGURE 2

Tech - Par iTPro - Publié le 24 juin 2010
email

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

FIGURE 2

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
*
*

Téléchargez cette ressource

Microsoft 365 : HP Subscription Management Services en détail

Microsoft 365 : HP Subscription Management Services en détail

Collaboration à distance, environnements de travail et productivité optimisés, gestion évolutive des licences, accélérez la transformation de votre business pour le faire entrer dans l’ère de la collaboration hybride. Découvrez comment le service de gestion des abonnements HP peut vous aider à optimiser vos investissements et votre stratégie de gestion de vos abonnements Microsoft 365.

Tech - Par iTPro - Publié le 24 juin 2010

A lire aussi sur le site

Revue Smart DSI

La Revue du Décideur IT