IBM Version 4 Universal Remote User Manual


 
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 496
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