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



Good morning Bob

What you need to do is build a new dfu

Upddta will show you all the fields defined in the file in the order defined
... if that's ok, use it. Otherwise do the following.

So, you need to enter the command .... strdfu and use the option to create a
new dfu. It is not totally different from the old days but read the screens
1st. Save you dfu pgm when you are done. You need to use the dds file
definition to get your fields etc. So, the dds name might be w2files or
something else you called it when you converted your database.

If you do not have dds for it, you're out of luck. But you should have
something somewhere that can tell you the defenion.

Now in you cl, instead of update, you need to use

CHGDTA     DFUPGM(KW2200D) FILE(W2FILES)
... KW2200D being the display format name you gave


DSPDTA will not list a file

You need to either write an rpg program to list your file or use Runqry 

Terry Nonamaker
Exterior Wood Inc.  


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Bob Anderson
Sent: Wednesday, November 03, 2004 7:43 AM
To: RPG programming on the AS400 / iSeries
Subject: S36 OCL to CLLE conversion

Good Morning,
        I am converting some old OCL36 to CLLE and I have run into a few
small problems. 

in the following line 
 // UPDATE W2FILES,KW2200P,W2FILES,100,,,KW2200S,,,KW2200D

I believe that this is related to a DFU36 file that I have but I'm not sure
how.

Also
 
// IF  &PM06 =Y   IF  &PM01 =9W29    LIST
W2FILES,KW2200P5,W2FILES,SORT,,,KW2200S5 

I think this means it is building a print file using a certain sort
criteria.

For anyone out there that has done this before, am I on the right track???


Thanks in advance
Bob Anderson
EDI Coordinator
Kent Sporting Goods Inc.
New London OH 44851
419-929-7021 x315
419-929-1380 FAX 

-- 
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.280 / Virus Database: 264.12.7 - Release Date: 11/1/2004
 


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.







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.