Re: Source (Change) Management

["Jim Anderson" <criinc@xxxxxxxxx>]

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
+---