Re: DSPOBJD in loop-continuation- Attention needed fromVERN&BUCK

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