This structure is available in the following languages:
typedef struct tagMQCFST { MQLONG Type; /* Structure type */ MQLONG StrucLength; /* Structure length */ MQLONG Parameter; /* Parameter identifier */ MQLONG CodedCharSetId; /* Coded character set identifier */ MQLONG StringLength; /* Length of string */ MQCHAR String[1]; /* String value - first character */ } MQCFST;
** MQCFST structure 10 MQCFST. ** Structure type 15 MQCFST-TYPE PIC S9(9) BINARY. ** Structure length 15 MQCFST-STRUCLENGTH PIC S9(9) BINARY. ** Parameter identifier 15 MQCFST-PARAMETER PIC S9(9) BINARY. ** Coded character set identifier 15 MQCFST-CODEDCHARSETID PIC S9(9) BINARY. ** Length of string 15 MQCFST-STRINGLENGTH PIC S9(9) BINARY.
dcl 1 MQCFST based, 3 Type fixed bin(31), /* Structure type */ 3 StrucLength fixed bin(31), /* Structure length */ 3 Parameter fixed bin(31), /* Parameter identifier */ 3 CodedCharSetId fixed bin(31), /* Coded character set identifier */ 3 StringLength fixed bin(31); /* Length of string */
MQCFST DSECT MQCFST_TYPE DS F Structure type MQCFST_STRUCLENGTH DS F Structure length MQCFST_PARAMETER DS F Parameter identifier MQCFST_CODEDCHARSETID DS F Coded character set * identifier MQCFST_STRINGLENGTH DS F Length of string MQCFST_LENGTH EQU *-MQCFST Length of structure ORG MQCFST MQCFST_AREA DS CL(MQCFST_LENGTH)
Type MQCFST Type As Long ' Structure type StrucLength As Long ' Structure length Parameter As Long ' Parameter identifier CodedCharSetId As Long ' Coded character set identifier StringLength As Long ' Length of string End Type Global MQCFST_DEFAULT As MQCFST
D* MQCFST Structure D* D* Structure type D STTYP 1 4I 0 INZ(4) D* Structure length D STLEN 5 8I 0 INZ(20) D* Parameter identifier D STPRM 9 12I 0 INZ(0) D* Coded character set identifier D STCSI 13 16I 0 INZ(0) D* Length of string D STSTL 17 20I 0 INZ(0) D*
Notices |
Downloads |
Library |
Support |
Feedback
![]() ![]() |
csqzac04310 |