Ü  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       

 

 

 

 


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.

                                                                                                

                                      

 



 

 







User Comments:



Subscribe

  Email:



Copyright © www.go4as400.com, 2013-2017. Copyright notice