|
Hi Buck,
I get an escape message.
I/O error CPF5037 was detected in file MYDSPF(C G D F).
I have attached all the prototypes used for RPG (Rxxx_H.txt).
I have also tried to add a signal() on my code but I don't know if this is
relevant or coded properly. This (or the way it is coded) doesn't change
anything
Line added at the very beginning of the code:
signal(SIGIO : %paddr(SignalHandler));
Here the procedure:
P signalHandler b
D signalHandler pi
D sig 10i 0 Value
/free
dsply ('signalHandler called');
return;
/end-free
P signalHandler e
To test it, you simply need to run a READC without having any record
changed in your subfile (Normally a simple Enter on a SFL display to a pgm
that uses / checks for readc).
Pascal
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.