> 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 gratuitement cette ressource

IBMi et Cloud : Table ronde Digitale

IBMi et Cloud : Table ronde Digitale

Comment faire évoluer son patrimoine IBMi en le rendant Cloud compatible ? Comment capitaliser sur des bases saines pour un avenir serein ? Faites le point et partagez l'expertise Hardis Group et IBM aux côtés de Florence Devambez, DSI d'Albingia.

Tech - Par iTPro - Publié le 24 juin 2010