DSPOBJD in loop-continuation- Attention needed fromVERN&BUCK -- MIDRANGE-L

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

This program is nt working ...Can you correct me where iam going wrong? I ve list of libraries in xl sheet ..their names are ATXFILE,ATXPGM,MSFILE,MSPGM etc...My outfiles which im generating should ve the coresponding names like ATXFILEO,ATXPGMO,MSFILEO,MSPGMO etc... Can you advise me on this

On Fri, 25 Jul 2003 Vern Hamberg wrote :

Hi. Murali

I don't know your final needs, can you say more about the final use? SQL, RPG, CL, or ? That often helps determine what should be done initially.

So just a few thoughts in a slightly different direction--

Is it necessary to have distinct files? Especially with a name that is different (albeit, derived) from the actual name? The reason I ask is, the outfile already has the library names as one of the fields - ODLBNM.

Or are the 300 libraries in some list? How was it derived? Can it be converted into a physical file? Then that file could be read in CL, using DSPOBJD on each. Otherwise, Buck's suggestion of using a user options in PDM sounds good to me. Even the trailing '0' could be a part of the option - but it won't work with 10-character file names (this is another problem with this kind of naming plan). Still, your command on the use option could have OUTMBR(mbr *ADD) instead of *REPLACE - if you use the same name for the outfile.

Also, do these happen to be all the non-IBM libraries on your system? Then DSPOBJD *ALLUSR/*ALL OUTPUT(*OUTFILE) would do them all in one stroke.

HTH

Vern

At 06:04 PM 7/24/2003 +0000, you wrote:
This is in continuation to my earlier mail....I ve to repeat the same command DSPOBJD for 300 libraries with same options on this command...Iam looking for any simple way of doing this(like writing a program) instead of executing this command for each and everylibrary on command line ....everytime the library name and its outfile name changes... for example ATXFILE lib will have outfile name ATXFILEO for exampple ATXPGM lib will have outfile name ATXPGMO...
Thanks in advance,
mURALI
_______________________________________________ This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/midrange-l or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.

___________________________________________________ Download the hottest & happening ringtones here! OR SMS: Top tone to 7333 Click here now: http://sms.rediff.com/cgi-bin/ringtone/ringhome.pl