Go4AS400-Image

The Web Ask Go4AS400
Share  
Homepage
See Sitemap
as400_FAQ
See Videos here
Contact me



Ü  ERRSFL (Error Subfile)

 

·         This keyword is used at file level to specify the subfile error messages.

 

 

 

Example

 

Below are the messages that we are going to use for the sample program.

 

 

                         Work with Message Descriptions                        

                                                             System:   PUB1    

 Message file:   MSGF001        Library:   IROBO1                              

                                                                                

 Position to . . . . . . .             Message ID                              

                                                                               

 Type options, press Enter.                                                    

   2=Change   4=Delete   5=Display details   6=Print                           

                                                                               

 Opt  Message ID  Severity  Message Text                                       

       ID00001        0     FIELD1 CAN NOT BE BLANK                            

       ID00002        0     FIELD2 CAN NOT BE BLANK                            

       ID00003        0     FIELD3 CAN NOT BE BLANK                            

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

                                                                         Bottom

 Parameters or command                                                         

 ===>                                                                          

 F3=Exit   F5=Refresh   F6=Add   F12=Cancel   F24=More keys                    

                                                                               

 (C) COPYRIGHT IBM CORP. 1980, 2003.                                           

 

 

 

 

Columns . . . :    1 100                 Browse                         IROBO1/QRPGLESRC

 SEU==>                                                                             DSP1

 FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions++++++++++++++++++ ...+...

        *************** Beginning of data **********************************************

0001.00      A                                      DSPSIZ(24 80 *DS3)

0002.00      A                                      CA03(03 'EXIT')

0003.00      A                                      ERRSFL

0004.00      A          R DETAIL

0005.00      A            FLD1          10Y 3B  3 12

0006.00      A  10                                  ERRMSGID(ID00001 IROBO1/MSGF001)

0007.00      A                                  3  2'FIELD-1: '

0008.00      A            FLD2          20Y 3B  4 12

0009.00      A  20                                  ERRMSGID(ID00002 IROBO1/MSGF001)

0010.00      A                                  4  2'FIELD-1: '

0011.00      A            FLD3          30Y 3B  5 12

0012.00      A  30                                  ERRMSGID(ID00003 IROBO1/MSGF001)

0013.00      A                                  5  2'FIELD-1: '

        ****************** End of data *************************************************

                                                                                                                                   

                                                                                                                                    

 

 

Columns . . . :    6 100                    Browse                    IROBO1/QRPGLESRC

 SEU==>                                                                      EXFMT_PGM

 FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords++++++++++++++++++Comments++++++

        *************** Beginning of data ********************************************

0001.00 FDSP1      CF   E             WORKSTN

0002.00 C                   eval      fld1=1122334.455

0003.00 C                   eval      fld2=111222333444555.455

0004.00 C                   eval      fld3=11112222333344445555.455

0005.00 C                   dow       *in03=*off

0006.00 C   03              leave

0007.00 C                   if        fld1=*zeros

0008.00 C                   seton                                        10

0009.00 C                   endif

0010.00 C                   if        fld2=*zeros

0011.00 C                   seton                                        20

0012.00 C                   endif

0013.00 C                   if        fld3=*zeros

0014.00 C                   seton                                        30

0015.00 C                   endif

0016.00 C                   write     Detail

0017.00 C                   read      Detail

0018.00 C                   SETOFF                                       102030

0019.00 C                   enddo

0020.00 C                   seton                                        lr

        ****************** End of data ************************************************

                                                                                                                                   

                                                                                                                                    

                                                                                                                                   

OUTPUT                                                                                                                                   

                                                                               

 

 

 FIELD-1:  1122334455                                                          

 FIELD-1:  00111222333444555455                                                

 FIELD-1:  000000011112222333344445555455                                      

                                                                                

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

                                                                                

                                                                                                                                   

                             

Now we clear all the fields one by one and then press enter.

                                                                  

                                                                               

 

 FIELD-1:    _________________                                                                  

 FIELD-1:    ________________________________                                                                  

 FIELD-1:    _______________________________________________                                                                  

                                                                               

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

 FIELD1 CAN NOT BE BLANK                        +      >>> this message appears at line 24.

 FIELD1 CAN NOT BE BLANK                        +      >>> this message appears at line 24 when we press page down on the + sign above.

 FIELD1 CAN NOT BE BLANK                                >>> this message appears at line 24 when we press page down on the + sign above.

 

                                                                                                

                                      

 


Comments:


Copyright © Go4as400.com, 2014. Copyright notice