Ü
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.