× 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.



+100

All objects for an interface with a clinic or hospital for us would be IFxxxYYYYY where the XXX is the three character client code. It is so nice to have a little filter that looks in CL/DDS/CMD/RPG source files and groups them all together.

-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Rob Berendt
Sent: Thursday, January 17, 2019 3:21 PM
To: Midrange Systems Technical Discussion
Subject: RE: Sometime you need multiple members in a table.

One big thing I like about RDi's "member" functions is something not available in PDM. A member function across files. Sort of like the mythical options WRKMBRPDM FILE(MYLIB/*ALL) MBR(ORD100*) MBRTYPE(*ALL) FILETYPE(SRC*) To look up all the CL, RPG, etc related to that name.

-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Jon Paris
Sent: Thursday, January 17, 2019 4:14 PM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Sometime you need multiple members in a table.

Don';t know why clean up would be any harder with savefiles Darryl thee are still library band objects so you would simply use WRKLIBPDM instead of WRKMBRPDM no big difference. Admittedly you'd have to restore to run a query but how often doe that happen? Personally I just dislike multi-member files so much I'd do most anything to avoid them!

All of the WRKxxPDM commands have equivalence in RDi - particularly in the latest version with the PDM interface.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Jan 17, 2019, at 3:55 PM, a4g atl <a4ginatl2@xxxxxxxxx> wrote:

My objection to using SAVF's is, it becomes a management nightmare
with 30 or 60 days of files. Part of my process is to clean up older
members which I could not do with SAVF's but...

The advantage of the members has been that I use WRKMBRPDM file_name
and I see all the members. I can then use the option codes defined in
F16 to give me commands to manage the members. Example: RR - RUNQRY *N
file_name member_Name RCDSLT(*YES). Other commands I have are to
resend the member when its not received or a resend is requested.

Quite frankly, WRKMBRPDM was a great tool that does not have a replacement.

Darryl Freinkel
Assignment 400.


On Thu, Jan 17, 2019 at 12:58 PM Buck Calabro <kc2hiz@xxxxxxxxx> wrote:

On 1/17/2019 8:13 AM, a4g atl wrote:
I have a situation where I have a table defined. In the past I used PFs.
The table has a long and short name. This prevents me from using
CPYF or CRTDUPOBJ. I have used RUNSQL to do a Create Table ... as
(select..)
with
no data. This creates a table not a PF, okay.

I need a PF with Multiple members that is identical to the table. I
use
the
member to store copies of file we send to external systems as an archive.
The member functionality has been great for this and I do not want
to
have
hundreds of files in the library.

No lecture from me; this is a hard transition when the code base
expects multiple members. Do you already have an inquiry program that
knows how to switch members? When possible here, I've really, really
advocated to re-do that architecture to put the year (or whatever
each member is intended to segregate) into the archive table. So instead of (simplified):
ID
NAME
ADDRESS
SALES

I have:
YEAR
ID
NAME
ADDRESS
SALES

Extracting one 'member' of data is as easy as WHERE YEAR = :year;
comparing two arbitrary years is just as easy. Quite to do ugly with
multiple members.

To answer your actual question, search the web for RTVDDSSRC. Michael
Sansoterra posted a utility many years ago that will probably do what
you need: create DDS from DSPFD / DSPFFD.

--
--buck

http://wiki.midrange.com
Your updates make it better!

--
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@xxxxxxxxxxxx for any subscription related
questions.

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

--
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@xxxxxxxxxxxx for any subscription related questions.

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

--
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@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com
--
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@xxxxxxxxxxxx for any subscription related questions.

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


[https://www.medtronsoftware.com/img/MedtronMinilogo.bmp] Kevin Bucknum
Senior Programmer Analyst
MEDDATA / MEDTRON
120 Innwood Drive
Covington LA 70433
Local: 985-893-2550
Toll Free: 877-893-2550
https://www.medtronsoftware.com



CONFIDENTIALITY NOTICE

This document and any accompanying this email transmission contain confidential information, belonging to the sender that is legally privileged. This information is intended only for the use of the individual or entity named above. The authorized recipient of this information is prohibited from disclosing this information to any other party and is required to destroy the information after its stated need has been fulfilled. If you are not the intended recipient, or the employee of agent responsible to deliver it to the intended recipient, you are hereby notified that any disclosure, copying, distribution or action taken in reliance on the contents of these documents is STRICTLY PROHIBITED. If you have received this email in error, please notify the sender immediately to arrange for return or destruction of these documents.

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.