Reader Feedback and Insights: Displaying Menu Options

September 25, 2002 Timothy Prickett Morgan

Hey, Ted:

In regards to your tip on displaying menu options, which published in the “Odds and Ends” column in the September 18 issue of Midrange Guru, OS/400 Edition, I have a suggestion. Use the Work with Message Descriptions (WRKMSGD) command instead of Display Message Descriptions (DSPMSGD) command. WRKMSGD MSGF(menuname) will display all the options in a panel.

— Michael

Thanks, Michael. You are right.

— Ted

Sponsored By WORKSRIGHT SOFTWARE

On June 30, 2002, $$$$$$$$    Postal Rates went UP!    $$$$$$$$ On July 1, 2002, $$$$$    you wanted your postage bill to go down.    $$$$$ We have

FTP’ing a Library

September 25, 2002 Timothy Prickett Morgan

Hey, Ted:

I think there is a way to FTP an entire library to a PC file and then restore the PC file to another iSeries machine. I just don’t know where to look. Can you tell me what to do?

— Darrell

FTP only transfers files, Darrell, so the only way to FTP a library is to put the library into a file. In this case, you need to use a save file.

First, create a save file and then save the desired objects to it:

CRTSAVF   FILE(bbb/XYZ)
SAVLIB   LIB(aaa) DEV(*SAVF) +
   SAVF(bbb/XYZ) TGTRLS(*CURRENT)

Be sure to specify the

OPNQRYF Date Arithmetic

September 25, 2002 Timothy Prickett Morgan

Hey, Ted:

I need to select records for the period beginning 210 days ago and ending 30 days ago using Open Query File (OPNQRYF). The date field is eight digits packed, in YYYYMMDD format.

I thought this was going to be easy, but I am a little tired and stumped.

So how do I do this?

— David

You’ll have to convert that numeric date to a date data type in order to use OPNQRYF’s date duration functions.

Here’s an example that illustrates the conversion:

DCL        VAR(&QRYSLT) TYPE(*CHAR) LEN(512)
                                                         
DCL        VAR(&QRYSLT) TYPE(*CHAR) LEN(512)

CHGVAR     VAR(&QRYSLT) + 
             VALUE('DtDate *ge (%curdate -