|
midrange.com
Hi,
This is a sample of OPM that you wanted.
H 1 Y/ 1
F******************************************************
F* D E F I N E F I L E S *
F******************************************************
FFILE UF F 1 DISK
FLOCKD CF E WORKSTN
I******************************************************
I* D E F I N E I N P U T F I E L D *
I******************************************************
IFILE AA 01
I 1 1 DTA
I******************************************************
I* D E F I N E D A T A - S T R U C T U R E *
I******************************************************
I* PROGRAM STATUS
I SDS
I 91 170 ERRMSG <--
C******************************************************
C* M A I N - R O U T I N E
C******************************************************
C 1 CHAINFILE 9091 ;
C* ;
B001 C *IN90 IFEQ *ON ;
001 C MOVEL'NO KEY!!'V1MSG ;
+001 C ELSE ;
B002 C *IN91 IFEQ *ON ;
002 C MOVELERRMSG V1MSG <-- ;
+002 C ELSE ;
002 C MOVEL'OK!!' V1MSG ;
E002 C END ;
E001 C END ;
C* ;
C EXFMTFMT01 ;
C* ;
B001 C *IN90 IFEQ *OFF ;
*001 C *IN91 ANDEQ*OFF ;
001 C EXCPT#UPD ;
E001 C END ;
C* ;
C MOVE *ON *INLR ;
C RETRN ;
O******************************************************
O* O U T P U T M O D U L E *
O******************************************************
OFILE E #UPD
You can get CPF message from ERRMSG in SDS. I got this tips from an
article of NEWS400(News3X/400?) several years ago.
CU
On Mon, 28 Jun 1999 10:30:36 -0700
"Rajeev Asthana" <Rajeev_Asthana@paramount.com> wrote as :
> Hi All,
>
> In my application, if someone is using a record and someone else is trying
to
> use it, a message should be displayed immediatly stating the same together
> with
> the user's name who is holding the record.
> What can be the better way to do this?
>
> Any help appreciated.
>
> Thanks in advance.
>
> Rajeev.
>
>
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * This is the RPG/400 Discussion Mailing List! To submit a new *
> * message, send your mail to "RPG400-L@midrange.com". To unsubscribe *
> * from this list send email to MAJORDOMO@midrange.com and specify *
> * 'unsubscribe RPG400-L' in the body of your message. Questions should *
> * be directed to the list owner / operator: david@midrange.com *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>
/* ---------------------------------------------------------*/
Tadashi Kakefuda
The Internet Mail Address ; tadashii@tk.airnet.ne.jp
* Home Page ; http://www2c.airnet.ne.jp/as400/
* Private page ; http://www2c.airnet.ne.jp/as400/private/
/*----------------------------------------------------------*/
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List! To submit a new *
* message, send your mail to "RPG400-L@midrange.com". To unsubscribe *
* from this list send email to MAJORDOMO@midrange.com and specify *
* 'unsubscribe RPG400-L' in the body of your message. Questions should *
* be directed to the list owner / operator: david@midrange.com *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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.
