I am trying to use the API QRZRRSI to retrieve the processor feature code. I keep getting the following error:
Message ID . . . . . . : CPA0702 Severity . . . . . . . : 99
Message type . . . . . : Inquiry
Date sent . . . . . . : 01/04/01 Time sent . . . . . . : 12:07:23
Message . . . . : CPF0B3F received by procedure RLS001C. (C D I R)
Cause . . . . . : ILE Control language (CL) procedure RLS001C in module
RLS001C in program RLS001C in library HBSPP detected an error at statement
number 0000008600. Message text for CPF0B3F is: The reserved area is not
set to binary zeros. Use F10 (if available) or the Display Job Log
(DSPJOBLOG) command to see the messages in the job log for a more complete
description of what caused the error. If you still are unable to solve the
problem, please contact your technical support person.
Recovery . . . : This inquiry message can be avoided by changing the
procedure. Monitor for the error (MONMSG command) and perform error recovery
within the procedure. To continue, choose a reply value.
Possible choices for replying to message . . . . . . . . . . . . . . . :
In the job log the message is just that a reserved area is not set to binary zeros. The API looks rather straight forward and I did not see any positions marked as reserved in the documentation. My request criteria variable is set to the following value:
&FCINFO *CHAR 64 'CEC01 '
+26 ' 000000000000000000'
+51 '0100570150 '
I know that my error variables are set correctly because I use them in other API calls in the same program. Does anyone have any ideas?
AS/400 Senior Programmer/Analyst
AS/400 IBM Certified RPG IV Developer
AS/400 IBM Certified Expert
Hainey Business Systems
8 E. Canal St
Dover, PA 17315
Branch Office: (410) 397-8739
Phone: (800) 932-3380
Fax: (717) 292-9474
Providing E-Commerce, EDI, AS/400
Development and related services