Re: Problem with "Write-name-ds"

Scott Klement wrote:
...

The following is a trivial example program:

FITMMAST IF A E K DISK

D BEFORE          DS                  LIKEREC(ITMMASTF:*INPUT)  INZ
D AFTER           DS                  LIKEREC(ITMMASTF:*OUTPUT) INZ

/free

// copy an item, changing only the item number and description:

     chain myItem ITMMASTF before;
     after = before;
     after.Item = myNewItem;
     after.Desc = myNewDescription;
     write ITMMASTF after;

*inlr = *on;

/end-free