Reader Feedback and Insights: Copying Records in RPG

September 6, 2002 Timothy Prickett Morgan

Hey, Ted:

I’m writing about the August 23 Midrange Guru Tech Tips regarding moving records between files with different field names. One option that I didn’t see, and the one I now prefer, with RPG IV is using the prefix keyword to rename the fields from one of the files.

Here’s an example:

Fpaywork   if   e           k disk
Fpayhist   o    e             disk     prefix(pw : 2)

C                   read      paywork
C                   dow       not %eof(paywork)
C                   write     histrec
C                   read      paywork
C                   enddo

C                   eval      *inlr = *on

— Scott

Good idea, Scott. A few other readers suggested the same thing. That

Convert J.D. Edwards Dates to Other Formats

September 6, 2002 Timothy Prickett Morgan

Hey, Howard:

I want to convert a J.D. Edwards date, (CYYDDD where C represents the century, YY represents the year, and DDD represents the day of the year) to a more readable format, (like YYYY-MM-DD). I can do this in Crystal Reports, but is there a way to do it in SQL?

— Domenic

This is a good one, Domenic, as I first thought it was impossible, but on further reading of the IBM documentation, I found a little known use for the DATE function. I found that DATE can take a variety of arguments. As I was reading the

Edit with Parentheses in Query/400, Take Two

September 6, 2002 Timothy Prickett Morgan

Hey, Ted:

I read your response to the question posted in the August 28 issue of Midrange Guru, and since I don’t work much with negative numbers, I changed data to try your solution. I think I found something, but I don’t know why or how it works..

I changed the Describe Numeric Field Editing display, as follows: I changed the Replace leading zeroes field with a Y and changed the Replace with field with a 3 (Floating currency symbol). Here’s an example:

Describe Numeric Field Editing                      
                                                                             
 Field . . . . . . :   JEAMT                                                 
                                                                             
 Type choices,