|
midrange.com
Change 4B 0 to 9B 0. When the manuals state binary 4 they mean a binary
number that will fit into 4 bytes. Here's how to define the binary 4 and
binary 2 parameters you will come across.
D Binary4 S 9B 0
D Binary2 S 4B 0
Or this way
D BinaryNumber DS
D Binary4Char 1 4
D Binary4 1 4B 0
D Binary2Char 5 6
D Binary2 5 6B 0
----- Original Message -----
From: Mike Silvers <msilvers@hbs-inc.com>
To: <RPG400-L@midrange.com>
Sent: Thursday, August 10, 2000 2:45 PM
Subject: QCAPCMD API help
> I am trying to use the QCAPCMD API. I keep having a problem...one that
just
> does not make sense to me. The error is that the length of Parm 2 is not
> valid. I have tried different length values for this parm, but no luck.
> Now I have the length defined as the size of the command parm. The
problem
> parm is $$CmdLth. The error message is as follows:
>
> Message ID . . . . . . : CPF3C1D Severity . . . . . . . : 30
> Message type . . . . . : Escape
> Date sent . . . . . . : 08/10/00 Time sent . . . . . . :
17:44:59
>
> Message . . . . : Length specified in parameter 2 not valid.
> Cause . . . . . : The length of 19660801 for parameter 2 is not valid.
> Values for this parameter must be greater than 0 and less than 32703.
> Recovery . . . : Correct the length and call the API again.
>
> When I run it in debug and check the value of the parm, the value shows
300.
> I am confused by this one. Does anyone have any helpful advice? My code
is
> as follows:
>
> P CLCommand B Export
> D CLCommand PI 10I 0
> D Command 300A Const
> *
> D CommandExc PR ExtPgm('QCAPCMD')
> D Command 300A Const
> D Length 4B 0
> D OptCtlBlck2 Like(OptCtlBlock)
> D OptCtlLngth 4B 0
> D OptFormat 8A
> D ChgCommand 300A
> D ChgLgthIn 4B 0
> D ChgLgthOut 4B 0
> D Error2 Like(Error)
> *----------------------------------------------------*
> * API Call Options Control Breakdown *
> *----------------------------------------------------*
> D OptCtlBlock DS
> D CmdType 4B 0 Inz(0)
> D DBCSDta 1A Inz('0')
> D Prmptr 1A Inz('0')
> D Syntax 1A Inz('0')
> D MsgKey 4A Inz
> D Resvd 9A
> *----------------------------------------------------*
> * API Call Error Information Breakdown *
> *----------------------------------------------------*
> D Error DS
> D BytPrv 9B 0 Inz
> D BytAva 9B 0 Inz
> D MsgId 7 Inz
> D Err### 1 Inz
> D MsgDta 200 Inz
> *----------------------------------------------------*
> * Miscellaneous Variables *
> *----------------------------------------------------*
> D $$CmdLth S 4B 0 Inz(%Size(Command))
> D $$OptLen S 4B 0 Inz(%Size(OptCtlBlock))
> D $$OptFmt S 8A Inz('CPOP0100')
> D $$ChgCmd S 300A Inz
> D $$ChgLI S 4B 0 Inz(%Size($$ChgCmd))
> D $$ChgLO S 4B 0 Inz
> *
> C CallP CommandExc(Command:$$CmdLth:OptCtlBlock:
> C $$OptLen:$$OptFmt:$$ChgCmd:
> C $$ChgLI:$$ChgLO:Error)
> *
> * Check for the value to return
> *
> C If BytAva = 0
> C Return 0
> C Else
> C Return 1
> C EndIf
> *
> P E
> *
>
>
> Mike Silvers
>
> Hainey Business Systems
> 8 E. Canal St
> Dover, PA 17315
> Branch Office: (410) 397-8739
> Phone: (800) 932-3380
> Fax: (717) 292-9474
> Web: http:\\www.hbs-inc.com
> ________________________________
> Providing E-Commerce, EDI, AS/400
> Development and related services
> nationwide.
> ________________________________
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
