I'm lost on what you doing with the CRTDUPOBJ and which LF you are using? We always just let the command create a file. DSPFD FILE(FILE1) TYPE(*BASATR) OUTPUT(*OUTFILE) OUTFILE(QTEMP/AFILE). Then process that file. Usually read the whole thing, but It would be easy enough to slice and dice records with sql.
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Frank Kolmann
Sent: Tuesday, November 27, 2018 11:27 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: RPG UDDS Generic File Display/Update (CRTDUPOBJ)
Hi
To get the detail information about the files, I am using DSPFD DSPFFD DSPDBR to outfiles.
I know I can use APIs to retrieve the info into User Spaces, I have written and published some examples.
But it would be a big rewrite to convert the programs to use the API data, so I persevere the old way.
I used to be able to do CRTDUPOBJ from QSYS into QTEMP for the outfiles but it seems this is now locked down to secofr.
I dont want to use secofr owner programs. Is there a better way, I seem to recollect there was something?
So I created a temp file in QTEMP then used DSPFD DSPFFD DSPDBR it to make the outfiles.
I can do a CRTPF without a source but I also need a LF and I cant create a LF without source.
So I need access to a source file for the utility to work, I would prefer to not need a source file.
I set up a data area to soft code the name of the source file.
A consequence is that the code is version dependant, so I coded a make CL so I can quickly recompile everything.
Regards
Frank Kolmann
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-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.
midrange.com
