Re: Source (Change) Management

["Jim Anderson" <criinc@xxxxxxxxx>]

why not use WRKMBRPDM  instead of DSPPFM? that will give the wildcard
capability...
----- Original Message -----
From: "Steve Martin" <smartin@carefreeofcolorado.com>
To: <MIDRANGE-L@midrange.com>
Sent: Monday, March 27, 2000 5:37 PM
Subject: 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
> +---

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