QSPRJOBQ - Retrieve job queue information

Retrieve job queue information // ****************************************************************** // // * Compile Options * // // ****************************************************************** // H Option(*SRCSTMT:*NODEBUGIO) Indent('|') 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; /End-Free Thanks to Chris Beck