| 
**************************************************************** * * * Data Structure For API: QMHRDQM * * Format: RDQM0100 * * Language: Cobol * * * **************************************************************** **************************************************************** * * * NOTE: This structure defines the fixed portion of format * * RDQM0100. You will also need to define a structure * * to contain the returned message entries. * * * **************************************************************** 01 RDQM0100-FORMAT. 05 BYTES-RETURNED PIC S9(9) BINARY. 05 BYTES-AVAILABLE PIC S9(9) BINARY. 05 NUMBER-MSGS-ENQUEUED PIC S9(9) BINARY. 05 NUMBER-MSGS-AVAILABLE PIC S9(9) BINARY. 05 MSG-KEY-LEN-RETURNED PIC S9(9) BINARY. 05 ACTUAL-MSG-KEY-LEN PIC S9(9) BINARY. |
|
05 MSG-TXT-LEN-RETURNED PIC S9(9) BINARY. 05 ACTUAL-MSG-TXT-LEN PIC S9(9) BINARY. 05 ENTRY-LEN-RETURNED PIC S9(9) BINARY. 05 ENTRY-LEN-AVAILABLE PIC S9(9) BINARY. 05 OFFSET-TO-FIRST-ENT PIC S9(9) BINARY. 05 RETURNED-LIB-NAME PIC X(10). 05 RESERVED PIC X(02). 05 LE-RESTE PIC X(9999). 01 UNE-ENTREE 05 OFFSET-TO-NEXT-ENT PIC S9(9) BINARY. 05 DATE-AND-TIME PIC X(8). 05 KEY-VALUE PIC X(??). 05 TEXTE-VALUE PIC X(??). MOVE OFFSET-TO-FIRST-ENT TO OFFSET BOUCLE. MOVE LE-RESTE(OFFSET-LEN-ENTRY:(BYTES-RETRUN - OFFSET-TO-FIRST-ENT) TO UNE-ENTREE. * TRAITEMENT * ...... MOVE OFFSET-NEXT-ENTRY TO OFFSET GO TO BOUCLE |
|
I**************************************************************** I* * I* DATA STRUCTURE FOR API: QMHRDQM * I* FORMAT: RDQM0100 * I* LANGUAGE: RPG * I* * I**************************************************************** I* I**************************************************************** I* * I* NOTE: This structure defines the fixed portion of format * I* RDQM0100. You will also have to define a structure to * I* hold the message entries. * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTAVA I B 9 120NMRET I B 13 160NMAVL |
|
I B 17 200NKBRET I B 21 240ANKBYT I B 25 280NMBRET I B 29 320ANMBYT I B 33 360NEBRET I B 37 400ANEBYT I B 41 440OFFFST I 45 54 RETLIB I 55 56 RESER1 I 579999 RESTE IENTREE DS I B 1 40OFFNXT I 5 12 DATTIM I 13 X CLE I X+1 Y TXT **************************************************************** * * * Data Structure For API: QMHRDQM * * Format: RDQS0100 * * Language: Cobol * * * **************************************************************** |
|
01 RDQS0100-FORMAT. 05 TYPE PIC X(01). 05 RESERVED PIC X(03). 05 NUMBER-MSG-BYTES-TO-RTN PIC S9(9) BINARY. I**************************************************************** I* * I* DATA STRUCTURE FOR API: QMHRDQM * I* FORMAT: RDQS0100 * I* LANGUAGE: RPG * I* * I**************************************************************** IRDQS0100 DS I 1 1 TYPE I 2 4 RESER1 I B 5 80NMBRET **************************************************************** * * * Data Structure For API: QMHRDQM * * Format: RDQS0200 * * Language: Cobol * |
|
* * **************************************************************** 01 RDQS0200-FORMAT. 05 TYPE PIC X(01). 05 SEARCH-ORDER PIC X(02). 05 RESERVED PIC X(01). 05 NUMBER-MSG-BYTES-T0-RET PIC S9(9) BINARY. 05 NUMBER-KEY-BYTES-T0-RET PIC S9(9) BINARY. 05 LENGTH-OF-KEY PIC S9(9) BINARY. 05 KEY-VALUE PIC X(256). I**************************************************************** I* * I* DATA STRUCTURE FOR API: QMHRDQM * I* FORMAT: RDQS0200 * I* LANGUAGE: RPG * I* * I**************************************************************** IRDQS0200 DS I 1 1 TYPE I 2 3 SORDER |
|
I 4 4 RESER1 I B 5 80NMBRET I B 9 120NKBRET I B 13 160KEYLEN I 17 272 KEYVAL |
