Manuals / IBM / TV and Video / Universal Remote

IBM Version 4 manual 128System API Programming V4R1

Models: Version 4

1 505
Download 505 pages 30.92 Kb
Page 406
Image 406

C

 

eval

pdr(x) = %addr(qpdspgm)

C

 

eval

x = x + 1

C\

 

 

 

C\ Record the failing source statement number

C\

 

 

 

C

 

eval

qpdkð7 = 2ðð

C

 

eval

qpdkl = %SIZE(rc)

C

 

eval

qpddl = %SIZE(src_line)

C

 

eval

qpddt = 'C'

C

 

eval

qpdkð8 = %ADDR(rc)

C

 

eval

qpdd = %ADDR(src_line)

C\

 

 

 

C\

and record

the key:

 

C\

 

 

 

C

 

eval

pdr(x) = %addr(qpds)

C

 

eval

x = x + 1

C\

 

 

 

C\ Record the status code as data

C\

 

 

 

C

 

eval

qpdk11 = 3ð1

C

 

eval

qpddlðð = %SIZE(status)

C

 

eval

qpddi = 1

C

 

eval

qpddðð = %ADDR(status)

C\

 

 

 

C\

and record

the key:

 

C\

 

 

 

C

 

eval

pdr(x) = %addr(qpds)

C

 

eval

x = x + 1

C\

 

 

 

C\ For illustration

purposes,

dump the program object

C\

 

 

 

C

 

eval

qpdk12 = 3ð2

C

 

eval

qpdobjn = pgm_name

C

 

eval

qpdobjlib = lib_name

C

 

eval

qpdobjt = '\PGM'

C\

 

 

 

C\

and record

the key:

 

C\

 

 

 

C

 

eval

pdr(x) = %addr(qpdnsot)

C

 

eval

x = x + 1

C\

 

 

 

C\ Call the Report Software Error API

C\

 

 

 

C

 

callb

qpdrse

C

 

parm

pdr

C

 

parm

x

C

 

parm

qusec

C\

 

 

 

C\ If an error on the API call, then indicate a terminal erro￿r

C\

C qusbavl ifgt ð

C'Terminal err'dsply

C

end

C

else

C\

C\ If error within \PSSR, then indicate \PSSR error

C\

C'\PSSR error' dsply

B-128System API Programming V4R1

Page 405 Page 407
Page 406
Image 406
IBM Version 4 manual 128System API Programming V4R1
Page 405 Page 407