Fᑍ logged as a software error.
Fᑍ
Fᑍ APIs used: QPDLOGER
Fᑍ
Fᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Dᑍ
Dᑍ Include Error Code Parameter
Dᑍ
D/COPY QSYSINC/QRPGLESRC,QUSEC
Dᑍ
Dᑍ Misc. data elements
Dᑍ
Dfactor1 S 5B INZ(1)
Dfactor2 S 5B INZ()
Dresult S 5B
Dline_nbr S 9B
Ddata DS 496
Ddatapt DS
D data_off 9B
D data_len 9B
Ddata# S 9B
Dobjl DS 259
Dobjl# S 9B
Dᑍ
Dᑍ Program status data structure
Dᑍ
DPSDS SDS
D pgm_name 1 1
D status 11 15
D src_line 21 28
D exception 4 46
D lib_name 81 9
Cᑍ
Cᑍ Attempt to divide by
Cᑍ
C factor1 div factor2 result
Cᑍ
Cᑍ Should not get here due to divide by exception
Cᑍ
C move '1' ᑍINLR
C return
Cᑍ
Cᑍ Program exception subroutine:
Cᑍ
C ᑍPSSR BEGSR
Cᑍ
Cᑍ Make sure we are not catching an exception due to the ᑍPSSR
Cᑍ subroutine itself
Cᑍ
C switch ifeq ' '
C move '1' switch 1
Cᑍ
Cᑍ Set API error code to work in non-exception mode
Cᑍ
C eval qusbprv = %size(qusec)
Cᑍ
Cᑍ Record line number where error happened
Cᑍ
B-120 System API Programming V4R1