× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Ah, that never happens here! Huh!

We use Turnover, which gives us archived copies in another source member - of course, you can't guarantee that people will make such a copy on their own, right?

We have a practice of commenting out what was changed with a reference to a change order number. Eventually we might remove those old changes.

Everyone is different. BTW, I once saw a checkout/checkin tool that might have been from Midrange Computing or NEWS/3X or its later versions - I don't know everything it did, but it didn't cost like the commercial change management tools.

Cheers
Vern

On 4/28/2021 7:40 AM, a4g atl wrote:
The requirement is purely mine. If I need to compare then I would have the
source to do so. My problem is an unruly bunch who delete lines of code
rather than commenting lines out... so when something goes wrong, I can go
back and check. Source compare cannot handle the changes made and so is not
always helpful.

On Mon, Apr 26, 2021 at 4:33 PM Vern Hamberg <vhamberg@xxxxxxxxxxxxxxx>
wrote:

Back to Darryl - what are you trying to accomplish with an IFS copy? Is
that meant to be the source for compiling? Or documentation? Just
curious!! If trying to compile from IFS source, I don't know, do source
sequence and source date show up? Developers are kind of expected to get
used to using something like GIT and diffs, right?

OK, back to regular source PFs!

Regards
Vern

On 4/26/2021 3:13 PM, Mayer, Michael via MIDRANGE-L wrote:
Here's how I did it.
Went into STRPDM and printed out the source member via option 6.
QSYS/STRSEU SRCFILE(QGPL/QCLSRC) SRCMBR(ABC123) TYPE(*SAME)
OPTION('6') TEXT('*BLANK')
Member ABC123 has been printed.
Ran a CPYSPLF as follows:
CPYSPLF FILE(QPSUPRTF) TOFILE(*TOSTMF) JOB(jobnum/user/name) SPLNBR(1)
MBROPT(*ADD) TOSTMF('/temp/abc123.txt')
Spooled file copied to /temp/abc123.txt.
Then view the txt file - wrklnk '/temp' then abc123.txt
Code line #'s and dates are there.

Very Respectfully,
Michael Mayer
IBM I on Power System Admin.
IT Operations.
The Florida Bar
651 E. Jefferson St
Tallahassee, Florida 32399-2300
mmayer@xxxxxxxxxxxxxx
https://www.floridabar.org
Office: 850.561.5761
Cell: 518.641.8906


------------------------------

message: 7
date: Mon, 26 Apr 2021 14:36:22 -0400
from: a4g atl <a4ginatl2@xxxxxxxxx>
subject: Using CPYTOIMPF to copy a source member to the IFS does not
copy fields SRCSEQ and SRCDAT

Thought this would be simple....

How do I copy a source member to the IFS or a network drive?

I tried using CPYTOIMPF and CPYTOSTMF and get the data but the 2 fields
SRSEQ and SRCDAT (sequence number and date) do not get copied to the IFS.
What am I doing wrong?

TIA, Darryl Freinkel.



________________________________
Please note: Florida has very broad public records laws. Many written
communications to or from The Florida Bar regarding Bar business may be
considered public records, which must be made available to anyone upon
request. Your e-mail communications may therefore be subject to public
disclosure.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.