RE: Is ALWDLT(*NO) to *YES possible?

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Was it COPYIN and COPYO?  Or was it INPUT and OUTPUT?  I don't recall...
I'll look for one that's already there in the S/36 procedure library.
Thanks! I'll try it.
-Bob


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Douglas Handy
Sent: Monday, August 09, 2004 9:19 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Is ALWDLT(*NO) to *YES possible?

Bob,

>It's an old S/36E "flat" file so there's no DDS to recreate it and cpyf,

Back when I worked on the S36, I wrote a CHGDFILE procedure to do that using
$COPY, and naming DFILE-YES | NO on the output file, then renaming the
output
file to the original filename.

Without error checks, it went something like this:

// LOAD $COPY
// FILE NAME-COPYIN,LABEL-?1?
// FILE NAME-COPYO,LABEL-?2?,DFILE-?3'YES'?
// RUN
// COPYFILE OUTPUT-SAME,REORG-YES
// END
// IFF ?CD?/0000 CANCEL
*
// IF DATAF1-?1?                  DELETE ?1?,F1
// IFF ?CD?/0000 CANCEL
*
//                                RENAME ?2?,?1?

Then I'd use use:

CHGDFILE oldname,tempname,YES

or NO to remove the delete capable status.

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