RE: Source (Change) Management

This code will certainly help locate occurances of a specific member... what
about LIKE 'SLS067%'?

Also, how to I DCL a *VARCHAR variable in CL? Should I write the same
routine in ILE?

Thanks for your replies! Keep them coming, I'm not done yet.

> -----Original Message-----
> From: Jim Anderson [SMTP:criinc@avana.net]
> Sent: Monday, March 27, 2000 1:28 PM
> To:   MIDRANGE-L@midrange.com
> Subject:      Re: Source (Change) Management
> 
> Steve,
>     There is probably a quicker way to do this but it works for me: there
> is
> a system file called QADBXREF in QSYS - use query to create a database
> file
> (MYLIB/SOURCEFIL) with these selects:(DBXATR            EQ     'PF'  &
> DBXTYP            EQ     'S'   ) Now you know all the source physical
> files
> on your box.
> 
> From there, write a quick CL loop to display physical file members
> matching
> a passed parm. This will net you all the occurances of the source on your
> system.
>              PGM        PARM(&MBR)
>              DCL        VAR(&MBR) TYPE(*CHAR) LEN(10)
>              DCLF       FILE(MYLIB/SOURCEFIL)
> LOOP1:      RCVF
>              MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDJOB))
>              DSPPFM         FILE(&DBXLIB/&DBXFIL) MBR(&MBR)
>              MONMSG     MSGID(CPF9845) EXEC(GOTO CMDLBL(loop1))
>              GOTO       CMDLBL(LOOP1)
>  ENDJOB:     ENDPGM
> 
> 
> 
> ----- Original Message -----
> From: "Steve Martin" <smartin@carefreeofcolorado.com>
> To: <MIDRANGE-L@midrange.com>
> Sent: Monday, March 27, 2000 11:43 AM
> Subject: Source (Change) Management
> 
> 
> > I don't have any Change or Source Management utilities loaded on our
> AS/400;
> > however, I have strict rules to follow, AND I'm (essentially) the only
> > full-time programmer on-site. Problem... we have a contract programmer
> come
> > in once in a while to help on the work load during our busy season - and
> I
> > find multiple versions of the same source in non-production libraries.
> >
> > My question is: Does anyone have a short-cut (command) that will tell me
> > where all occurances of a Source Member reside (by name*, i.e. SLS067*)
> > sorted by "last changed date" (perfect world)?
> >
> > I use CMPPFM and WRKOBJ OBJ(*ALLUSR/SLS067*) to determine what, where
> and
> > when, but this can get redundant and time consuming.
> >
> > TIA!
> >
> >
> > Steve Martin
> > Programmer/Analyst
> > Carefree of Colorado
> > 303/410.6239
> > smartin@carefreeofcolorado.com
> >
> > +---
> > | 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
> > +---
> 
> +---
> | 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
> +---
+---
| 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
+---