MQCFBS-字节字符串参数

使用本页可查看 MQCFBS 参数的结构以及下列编程语言的声明:C、 COBOL、 PL/I、RPG/ILE 和 S/390 汇编程序

MQCFBS 结构描述字节字符串参数。 在声明的链接之后是构成 MQCFBS 结构的字段的描述:

Type
StrucLength
Parameter
StringLength
String

C 语言声明



struct tagMQCFBS {
  MQLONG  Type;          /* Structure type */
  MQLONG  StrucLength;   /* Structure length */
  MQLONG  Parameter;     /* Parameter identifier */
  MQLONG  StringLength;  /* Length of string */
  MQBYTE  String[1];     /* String value -- first character */
 } MQCFBS;

COBOL 语言声明

**   MQCFBS structure
  10 MQCFBS.
**    Structure type
   15 MQCFBS-TYPE         PIC S9(9) BINARY.
**    Structure length
   15 MQCFBS-STRUCLENGTH  PIC S9(9) BINARY.
**    Parameter identifier
   15 MQCFBS-PARAMETER    PIC S9(9) BINARY.
**    Length of string
   15 MQCFBS-STRINGLENGTH PIC S9(9) BINARY.

PL/I 语言声明 ( ) z/OS

dcl
 1 MQCFBS based,
  3 Type         fixed bin(31), /* Structure type */
  3 StrucLength  fixed bin(31), /* Structure length */
  3 Parameter    fixed bin(31), /* Parameter identifier */
  3 StringLength fixed bin(31); /* Length of string */

RPG/ILE 语言声明 (仅限 IBM i )

     D*..1....:....2....:....3....:....4....:....5....:....6....:....7..
     D* MQCFBS Structure
     D*
     D* Structure type 
     D  BSTYP                  1      4I 0 INZ(9)
     D* Structure length 
     D  BSLEN                  5      8I 0 INZ(16)
     D* Parameter identifier 
     D  BSPRM                  9     12I 0 INZ(0)
     D* Length of string 
     D  BSSTL                 13     16I 0 INZ(0)
     D* String value -- first byte 
     D  BSSRA                 17     17    INZ

S/390 汇编语言声明 (仅限 z/OS )

MQCFBS               DSECT
MQCFBS_TYPE          DS   F  Structure type
MQCFBS_STRUCLENGTH   DS   F  Structure length
MQCFBS_PARAMETER     DS   F  Parameter identifier
MQCFBS_STRINGLENGTH  DS   F  Length of string
*
MQCFBS_LENGTH        EQU  *-MQCFBS
                     ORG  MQCFBS
MQCFBS_AREA          DS   CL(MQCFBS_LENGTH)