Re: QSPRJOBQ sample code -- RPG400-L

      // 
****************************************************************************************
 //
      // *  Compile Options                                                     
                * //
      // 
****************************************************************************************
 //
     H Option(*SRCSTMT:*NODEBUGIO)
     H Indent('|')
     H ExprOpts(*ResDecPos)
      /IF  DEFINED(*CRTBNDRPG)
     H   DFTACTGRP(*NO)
     H   ActGrp(*NEW)
      /ENDIF
     H BndDir('QC2LE')

      // 
****************************************************************************************
 //
      // *  Definition Specifations                                             
                * //
      // 
****************************************************************************************
 //
      // 
----------------------------------------------------------------------------------------
 //
      // - External Prototypes                                                  
                - //
      // 
----------------------------------------------------------------------------------------
 //
     D GETJOBQ         PR                  EXTPGM('QSPRJOBQ')
     D  RECIEVER                    144A
     D  RCVRLEN                      10I 0 const
     D  FORMAT                        8A   const
     D  JOBQ                         20A   conST
     D  ERROR                       116A

      // 
----------------------------------------------------------------------------------------
 //
      // - Data Structures/Arrays                                               
                - //
      // 
----------------------------------------------------------------------------------------
 //
      /INCLUDE QSYSINC/QRPGLESRC,QSPRJOBQ
      /INCLUDE QSYSINC/QRPGLESRC,QUSEC
     D QUSED01                      100A

      // 
****************************************************************************************
 //
      // *  Main Calculations                                                   
                * //
      // 
****************************************************************************************
 //
      /Free

       GETJOBQ(QSPQ010000:%SIZE(QSPQ010000):'JOBQ0100':
                   'QBATCH    QGPL':QUSEC);
       DSPLY QSPSN;
       *INLR = *oN;

>>> RJoubert@xxxxxxxxxxxxxxxxxxxx 04/22/04 11:58AM >>>
Hi the list.
 
I would appreciate it if anyone could steer me towards  any sample code on
the API QSPRJOBQ (check jobs in a job queue).  I have searched the archive &
Googled to no avail.
 
Thanks.
 
 
 
Rob Joubert
Warnaco Swimwear Inc.
(323) 837-6486
rjoubert@xxxxxxxxxxxxxxxxxxxx 
 
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx 
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l 
or email: RPG400-L-request@xxxxxxxxxxxx 
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

-------------------------------------------------

This email transmission and any documents, files or previous

email messages attached to it may contain information that is

confidential or legally privileged. If you are not the intended

recipient, you are hereby notified that any disclosure, copying,

printing, distributing or use of this transmission is strictly

prohibited. If you have received this transmission in error,

please immediately notify the sender by telephone or return

email and delete the original transmission and its attachments

without reading or saving in any manner.



The Evangelical Lutheran Good Samaritan Society.

---------------------------------------------------------