Réf. : Error Messages in WINDOW SUBFILE usingMessage Subfile

[YJacqueline@xxxxxxxxxxxxxx]

Try this

0001.00      A                                      DSPSIZ(24 80 *DS3)
0002.00      A                                      CF03
0003.00      A          R GDT11500
0004.00      A                                      ASSUME
0005.00      A                                      OVERLAY
0006.00      A                                      PROTECT
0007.00      A            FLD001         1A  O  3 80
0008.00      A          R GDT11510
0009.00      A                                      WINDOW(5 15 16 60)
0010.00      A                                      WDWBORDER((*DSPATR BL))
0011.00      A                                 14  2'F3'
0012.00      A                                      DSPATR(HI)
0013.00      A                                 14  5': EXIT'
0014.00      A          R GDT11511                  SFL
0015.00      A  41                                  SFLNXTCHG
0016.00      A            POS            1A  B  4  2DSPATR(CS)
0017.00      A                                      VALUES(' ' 'X')
0018.00      A                                      DSPATR(HI)
0019.00      A            W10DSF        30   O  4  6COLOR(WHT)
0020.00      A          R GDT11512                  SFLCTL(GDT11511)
0021.00      A                                      SFLSIZ(0034)
0022.00      A                                      SFLPAG(0010)
0023.00      A                                      WINDOW(GDT11510)
0024.00      A                                      OVERLAY
0025.00      A  42                                  SFLCLR
0026.00      A  43                                  SFLDSPCTL
0027.00      A  44                                  SFLDSP
0028.00      A  45                                  SFLEND
0029.00      A N45                                  ROLLUP(46)
0030.00      A            DSPRE0         4S 0H      SFLRCDNBR
0031.00      A                                  1  2'GDT115'
0032.00      A                                  1 52DATE
0033.00      A                                      EDTCDE(Y)
0034.00      A                                  2 52TIME
0035.00      A                                  3  2'X'
0036.00      A                                  3 10'DESIGNATION'
0037.00
A*****************************************************************
0038.00      A*  MESSAGE SUBFILE AND SUBFILE CONTROL
0039.00      A          R MSGSF1                    SFL
 0040.00      A                                      SFLMSGRCD(15)
0041.00      A            MSGKEY                    SFLMSGKEY
0042.00      A            PGMQ                      SFLPGMQ
0043.00      A          R MSGCT1                    SFLCTL(MSGSF1)
0044.00      A                                      OVERLAY
0045.00      A                                      WINDOW(GDT11510)
0046.00      A                                      SFLSIZ(2)
0047.00      A                                      SFLPAG(1)
0048.00      A                                      SFLDSP SFLINZ
0049.00      A  99                                  SFLEND
0050.00      A            PGMQ                      SFLPGMQ

0001.00      H             /J
0002.00      FGDT115FMCF  E                    WORKSTN
0003.00      F                                        RANG0 KSFILE GDT11511
0004.00      C                     WRITEGDT11510
0005.00      C                     MOVEL'GDT115  'PGMQ
0006.00      C                     MOVE '1'       *IN99
0007.00      C                     WRITEMSGCT1
0008.00      C                     SETON                     42
0009.00      C                     WRITEGDT11512
0010.00      C                     SETOF                     4247
0011.00      C                     Z-ADD1         RANG0   50
0012.00      C                     MOVEL'TEST'    W10DSF
0013.00      C                     WRITEGDT11511
0014.00      C                     Z-ADD1         DSPRE0
0015.00      C                     SETON                     4344
0016.00      C                     EXFMTGDT11512
0017.00      C                     SETON                         LR

Cordialement.

Yannick.Jacqueline
Service Informatique
Tél : 02-31-66-46-69
E-Mail : yjacqueline@guydegrenne.fr
Visitez notre site Web à : http://www.guydegrenne.fr/




                    "Siva Kumar ,
                    Gurgaon"                 Pour :  rpg400-l@midrange.com
                    <sivak@ggn.hcltec        cc :
                    h.com>                   Objet :      Error Messages in 
WINDOW SUBFILE using Message Subfile
                    Envoyé par :
                    rpg400-l-admin@mi
                    drange.com


                    28/08/02 17:30
                    Veuillez répondre
                    à rpg400-l






I need to display Error Messages in Window Subfile using Message
Subfile.Can
any one guide me on this?

-Shiv



_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.