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
*
*
Pourquoi la 5G est-elle faite pour votre entreprise ? La 5G peut améliorer la vitesse, la fiabilité et la capacité de votre réseau, permettant ainsi une meilleure collaboration, une productivité accrue et une prise de décision plus rapide. Notre livre blanc " The Big Book of Enterprise 5G" vous fournit les informations stratégiques dont vous avez besoin pour prendre des décisions éclairées et préparer votre entreprise à prospérer dans l'ère de la 5G. Cradlepoint, part of Ericsson est le leader mondial des solutions de réseau sans fil 4G LTE et 5G fournies via le cloud. Connectez vos employés, lieux et objets avec la 4G LTE et la 5G pour un WAN sans fil d'entreprise.
