Jay Willis <[log in to unmask]> asked:

> I have a NM KSAM file in which I need to change every
> occurrence of "AAA" to "BBB" in bytes 173-175 (not every
> record has this value in  these bytes - only a few).
> These bytes are not key. I have (and used)  Suprtool and
> Qedit to no avail. Any ideas?

A vanilla MPE plus freeware (Quad) solution:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
:listf,2
FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----
                  SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX

JDW                40B  FAK          3       1023  93      320  2  *

:print jdw
sakefhskahbaskl
zzzefhskahbaskl
zzzefhskahbaskl
:fcopy from=jdw;to=temp;new
HP31900A.05.04 FILE COPIER (C) HEWLETT-PACKARD CO. 1999

EOF FOUND IN FROMFILE AFTER RECORD 2

3 RECORDS PROCESSED *** 0 ERRORS

END OF SUBSYSTEM
:listf,2
FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----
                  SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX

JDW                40B  FAK          3       1023  93      320  2  *
TEMP               40B  FA           3       1023  93      144  1  6

:print temp
sakefhskahbaskl
zzzefhskahbaskl
zzzefhskahbaskl
:quad
QUAD -- JHK, Quest Software, KWS, Summit Information Systems, January, 1993
/t temp
  File unnumbered
  Nbr Rec: 3         Rec Size:   40 Bytes
  File code: 0       File Access: IN/OUT
/c'zzz'(1/3)'abc'@s
    2     abcefhskahbaskl
    3     abcefhskahbaskl
  2 lines changed
/k
  Unnumbered keep to text file TEMP
  Post back to old text file? y
  2  lines posted
/e
:fcopy from=temp;to=jdw
HP31900A.05.04 FILE COPIER (C) HEWLETT-PACKARD CO. 1999

EOF FOUND IN FROMFILE AFTER RECORD 2

3 RECORDS PROCESSED *** 0 ERRORS

END OF SUBSYSTEM
:print jdw
abcefhskahbaskl
abcefhskahbaskl
sakefhskahbaskl
:purge temp
:listf,2
FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----
                  SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX

JDW                40B  FAK          3       1023  93      320  2  *

:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

I hope that helps.

P.S.  It's been a long time, but I think I've used Quad to edit [CM]KSAM
files directly.  However, that didn't work when I tried it with a KSAMXL
file.
--
Jeff Woods
[log in to unmask]
Quintessential School Systems

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *