× 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.



This should work:

DSPF: (call it FIRSTV)

                            DSPSIZ(24 80 *DS3)         
R FIRST                                                
                            CA03(03)                   
                        3  6'Library to list:'         
  FLD001         9A  B  3 24CHECK(VN)                  
                            DSPATR(MDT)                
                       12  3'F3=Exit'                  

and the CL:

        PGM                                     
        DCLF       FILE(FIRSTV)                       
        DCL        VAR(&FILE) TYPE(*CHAR) LEN(10)     
 LOOP:  SNDRCVF                                       
        IF     COND(&IN03 *EQ '1') THEN(GOTO CMDLBL(EXIT))
        CHGVAR VAR(&FILE) VALUE(&FLD001 *TCAT 'O')         
        DSPOBJD    OBJ(&FLD001/*ALL) OBJTYPE(*ALL) +     
              OUTPUT(*OUTFILE) OUTFILE(*CURLIB/&FILE)     
        GOTO    CMDLBL(LOOP)                               

 EXIT:  ENDPGM

HTH
Marco
--- Murali  dhar <hydchap1@xxxxxxxxxxxxxx> wrote:
> Vern,
> I have more than 300 libraries(around1000) ...But I ve to
> analyse 
> and prepare report for only to this 300 libraries ..I ve
> xl sheet 
> which is containing this 300 list of libraries which
> needs to be 
> analysed based on the command DSPOBJD...
> 1.as per your advise i ve converted xl sheet by doing FTP
> to a 
> flat file FILE1.
> 
> 2. i wrote a cl program as per the advise given here
> which is as 
> following....
> BEGIN
> 
> 
>       DCL     &LIBFILE        *CHAR LEN(10)
>       DCLF    FILE1
>       BEGIN:
> 
>               RCVF   FILE1
>               CHGVAR   &LIBFILE    VALUE(FLD)
>               MONMSG     EXEC(GO To CMDLBL(END))
> 
>               DSPOBJD (&LIBFILE/*ALL)    *OUTFILE(*curlib/ATXFILEO)
> 
>               GOTO CMDLBL(BEGIN)
>       END:
>       ENDPGM
> 



__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
http://sitebuilder.yahoo.com

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.