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

[Douglas Handy <dhandy1@xxxxxxxxxxxxx>]

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