C\

 

move

ReturnInt

Errnoval

9

C\

 

eval

PrintLine = 'Errno is ' + Errnoval

C\

 

except

 

 

 

C

 

eval

PrintLine = 'Program ended in error'

C

 

except

 

 

 

C

 

endsr

 

 

 

OQSYSPRT

E

 

 

1

 

O

 

PrintLine

1ðð

 

B-188System API Programming V4R1

Page 466
Image 466
IBM Version 4 manual Oqsysprt