On Thu, Aug 27, 2015 at 10:45 AM, Walt Farrell <walt.farr...@gmail.com> wrote:
> On Thu, 27 Aug 2015 09:02:57 -0400, Scott Ford <idfzos...@gmail.com> > wrote: > > >All: > > > >I need a sanity check on a design I am wanting to do. We have a Cobol STC > >running with a Assembler Operator Interface, single thread. > >I understand I could redo in Assembler and multi-task, redo in C or C++ > and > >thread, but this isnt what I am looking for. Inside the STC we maintain > >a secondary index of data items. If the Operator issues a 'P ......' or > > 'C ........' we will loose the secondary index. > > If I remember correctly, the P command has no effect unless you accept the > command and act on it. Your action could be to save your secondary index, > and then terminate. > > You can trap the abend generated by a C command and, again, write out your > index. Alternatively, you could probably mark your program non-cancelable > via the PPT. > Does making something non-cancelable via the PPT disable the FORCE command as well? IIRC, it does _not_ disable the facility in RESOLVE (BMC product) to do an EXIT. This monster basically directly uses RTM to murder an address space. Basically, if it is critical enough, Scott really needs something which is ASID, in the data base sense. Personally, I ain't talented 'nuf to be writing such. Perhaps the dual, alternating DSNs suggested by Elardus is the way to go. Write index to DSNn, then update record #1 in it (directly) with the STCKE value, making sure to flush buffers in order to "harden" the values. When the STC is started, it checks the STCKE value in record #1 and starts using the one with the larger value. I guess it would copy that entire DSN to the other to ensure that it is also undamaged. > > -- > Walt > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- Schrodinger's backup: The condition of any backup is unknown until a restore is attempted. Yoda of Borg, we are. Futile, resistance is, yes. Assimilated, you will be. He's about as useful as a wax frying pan. 10 to the 12th power microphones = 1 Megaphone Maranatha! <>< John McKown ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN