× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Yes of course it is, but why not just use SPLF0100 which is much easier to
control... either way, just create the DLTSPLF command and evoke QCMDEXC.


Bob Cozzi
Cozzi Consulting
www.rpgiv.com


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of A. Sivasubrahmanian
Sent: Tuesday, June 24, 2003 5:57 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: QUSLSPL API question
Importance: High


Hi Scott

Thanks much. It worked. 

"Key for the fields to return" and "Number of Fields to return"
parameters were not passed. 

With the spool file information that is retrieved, is it possible to
call QCMDEXC to execute DLTSPLF command? I used QCMDEXC for issue
DLTSPLF. But, It errors out. 

Thanks & Regards
Sivasubrahmanian. A
Project Engineer
Wipro Technologies (Finance & Insurance)
Electronics City, Bangalore, India
Phone - 8520408/8520416 x - 4364.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Scott Klement
Sent: Tuesday, June 24, 2003 12:39 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: QUSLSPL API question



On Tue, 24 Jun 2003, A. Sivasubrahmanian wrote:
>
> You have mentioned that this API accepts up to 16 parameters. Why am I
> not able to pass 8 parameters?
>

I don't know?  What release of OS/400 are you on?

> My task here is to get the list of spools for a specific job. What
> values needs to be passed to the parameters?

Your parameters look okay from your description.   Except that you must
pass the Error Code parameter, and if you pass the Job Name parameter,
you
need to also pass the "Key for the fields to return" and "Number of
Fields
to return" parameters because they're part of the same optional group.

Here's a program written in free-form RPG which demonstrates a simple
use
of the QUSLSPL API.  Perhaps you can use this to help you understand
what
needs to be changed in your program...

     H DFTACTGRP(*NO)

     D QUSLSPL         PR                  ExtPgm('QUSLSPL')
      * required parameters
     D   UsrSpc                      20A   const
     D   Format                       8A   const
     D   UserName                    10A   const
     D   QualOutQ                    20A   const
     D   FormType                    10A   const
     D   UserData                    10A   const
      * optional group 1:
     D   ErrorCode                32766A   options(*nopass: *varsize)
      * optional group 2:
     D   QualJob                     26A   options(*nopass) const
     D   FieldKeys                   10I 0 options(*nopass: *varsize)
     D                                     dim(9999)
     D   NumFields                   10I 0 options(*nopass) const
      * optional group 3:
     D   AuxStgPool                  10I 0 options(*nopass) const
      * optional group 4:
     D   JobSysName                   8A   options(*nopass) const
     D   StartCrtDate                 7A   options(*nopass) const
     D   StartCrtTime                 6A   options(*nopass) const
     D   EndCrtDate                   7A   options(*nopass) const
     D   EndCrtTime                   6A   options(*nopass) const

     D QUSCRTUS        PR                  ExtPgm('QUSCRTUS')
     D   UsrSpc                      20A   CONST
     D   ExtAttr                     10A   CONST
     D   InitialSize                 10I 0 CONST
     D   InitialVal                   1A   CONST
     D   PublicAuth                  10A   CONST
     D   Text                        50A   CONST
     D   Replace                     10A   CONST
     D   ErrorCode                32766A   options(*nopass: *varsize)

     D QUSPTRUS        PR                  ExtPgm('QUSPTRUS')
     D   UsrSpc                      20A   CONST
     D   Pointer                       *

     D QUSDLTUS        PR                  ExtPgm('QUSDLTUS')
     D   UsrSpc                      20A   CONST
     D   ErrorCode                32766A   options(*varsize)

     D GetStatus       PR             4A
     D   StatusCode                  10I 0 value

     D p_UsrSpc        s               *
     D dsLH            DS                   BASED(p_UsrSpc)
     D                                      qualified
     D   Filler1                    103A
     D   Status                       1A
     D   Filler2                     12A
     D   HdrOffset                   10I 0
     D   HdrSize                     10I 0
     D   ListOffset                  10I 0
     D   ListSize                    10I 0
     D   NumEntries                  10I 0
     D   EntrySize                   10I 0

     D p_Entry         s               *
     D dsSF            DS                   BASED(p_Entry)
     D                                      qualified
     D   JobName                     10A
     D   UserName                    10A
     D   JobNumber                    6A
     D   SplfName                    10A
     D   SplfNbr                     10I 0
     D   SplfStatus                  10I 0
     D   OpenDate                     7A
     D   OpenTime                     6A
     D   Schedule                     1A
     D   SysName                     10A
     D   UserData                    10A
     D   FormType                    10A
     D   OutQueue                    10A
     D   OutQueueLib                 10A
     D   AuxPool                     10I 0
     D   SplfSize                    10I 0
     D   SizeMult                    10I 0
     D   TotalPages                  10I 0
     D   CopiesLeft                  10I 0
     D   Priority                     1A
     D   Reserved                     3A

     D dsEC            DS                  qualified
     D  BytesProvided                10I 0 inz(%size(dsEC))
     D  BytesAvail                   10I 0 inz(0)
     D  MessageID                     7A
     D  Reserved                      1A
     D  MessageData                 240A

     D MYSPACE         C                   CONST('SPLLIST   QTEMP     ')
     D Keys            s             10I 0 dim(1)
     D size            s             10I 0
     D sf              s             10I 0
     D msg             s             52A

      /free

         //
         // set this to zero to let OS/400 handle errors, instead
         //  of handling them ourselves...
         //
         dsEC.BytesProvided = 0;

         //
         // Create a user space.. make space for (approx) 300
         //  spooled files to be listed.
         //
         size = %size(dsLH) + 512 + (%size(dsSF) * 300);
         QUSCRTUS(MYSPACE: 'USRSPC': size: x'00': '*ALL':
                 'Temp User Space for QUSLSPL API':  '*YES': dsEC);

         //
         // List spooled files to the user space
         //
         QUSLSPL(MYSPACE: 'SPLF0300':  *blanks: *blanks: *blanks:
*blanks:
                 dsEC: '*': Keys: 0);

         //
         // Get a pointer to the returned user space
         //
         QUSPTRUS(MYSPACE: p_UsrSpc);

         //
         // Loop through list, for each spooled file, display the
         // spooled file name, number and status.
         //
         p_Entry = p_UsrSpc + dsLH.ListOffset;
         for sf = 1 to dsLH.NumEntries;
            if (dsSF.SplfStatus <> 10);
                msg = %trim(dsSF.SplfName) + ' ' +
                     %trim(%editc(dsSF.SplfNbr:'L')) + ' ' +
                     GetStatus(dsSF.SplfStatus);
                dsply msg;
            endif;
            p_Entry += dsLH.EntrySize;
         endfor;

         //
         //  delete user space, we're done with it
         //
         QUSDLTUS(MYSPACE: dsEC);

         //
         //  give user a chance to read the screen before ending
         //
         msg = 'Press ENTER to end';
         dsply '' '' msg;
         *inlr = *on;

      /end-free


 
*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
      *  get human-readable status code for a numeric status code:
 
*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
     P GetStatus       B
     D GetStatus       PI             4A
     D   StatusCode                  10I 0 value
      /free
         if (StatusCode = 1);
             return 'RDY';
         elseif (StatusCode = 2);
             return 'OPN';
         elseif (StatusCode = 3);
             return 'CLO';
         elseif (StatusCode = 4);
             return 'SAV';
         elseif (StatusCode = 5);
             return 'WTR';
         elseif (StatusCode = 6);
             return 'HLD';
         elseif (StatusCode = 7);
             return 'MSGW';
         elseif (StatusCode = 8);
             return 'PND';
         elseif (StatusCode = 9);
             return 'PRT';
         elseif (StatusCode = 10);
             return 'FIN';
         elseif (StatusCode = 11);
             return 'SND';
         elseif (StatusCode = 12);
             return 'DFR';
         else;
             return '???';
         endif;
      /end-free
     P                 E
_______________________________________________
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.


**************************Disclaimer************************************

Information contained in this E-MAIL being proprietary to Wipro Limited is 
'privileged' and 'confidential' and intended for use only by the individual
 or entity to which it is addressed. You are notified that any use, copying 
or dissemination of the information contained in the E-MAIL in any manner 
whatsoever is strictly prohibited.

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





As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.