Re: RTVCLSRC

[PaulMmn <PaulMmn@xxxxxxxxxxxxx>]

You need something like:

        PGM

        DCLF QSYS/QADSPOBJ
        ...
        DSPOBJD yourlib OUTFILE(somelib/somefile)
        ...
        OVRDBF QADSPOBJ somelib/somefile

LOOP:   RCVF
             MONMSG CPF0000 EXEC(GOTO QUIT)

        /* you need the retrieved field names for Object Lib and Object
Name            */
        /* I'm at home and forget them (I usually copy this part of the
program.  (:   )  */


        /* and I think the QCLRPGMI API will give you the information you
need    */
        /* the PGMI0100 format includes "Allow RTVCLSRC"                */

        CALL QCLRPGMI....   but this is left as an exercise for the
student.....

        GOTO LOOP

QUIT:   ENDPGM




>Rob,
>
>I was hoping for something that I could use to blast through a whole
>library and develop a list.
>
>I'm limited on manuals around here.  Anyone have a link to an API that
>would retrieve this attribute for an entire object list from a library?
>
>I tried DSPOBJD *FULL and didn't find anything in the record to indicate
>allow RTVCLSRC attribute.
>
>TIA,
>
>James W. Kilgore
>email@James-W-Kilgore.com
>
>Rob Berendt wrote:
>>
>> Doing a DSPPGM on a CL program should show you
>> Allow RTVCLSRC (CL program)  . . . . . . . . . . :   *YES
>> The command you would use is RTVCLSRC.
>>
>
>>
>> Subject:        Re: Backup - more questions and thanks
>>
>>
>> Is there a place to look this up or a method to find:
>> 1) retrievable CL
>> 2) the associated commands that use them?


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---