| 
**************************************************************** * * * API: QMHRCVM et QMHRCVPM * * FORMAT: RCVM0100 * * * **************************************************************** 01 RCVM0100-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 MESSAGE-SEVERITY PIC S9(9) COMP-4. 05 MESSAGE-ID PIC X(7). 05 MESSAGE-TYPE PIC X(2). 05 MESSAGE-REF-KEY PIC X(4). 05 RESERVED PIC X(15). 05 LENGTH-MSG-RETURNED PIC S9(9) COMP-4. 05 LENGTH-MSG-AVAILABLE PIC S9(9) COMP-4. * 05 MESSAGE-DATA PIC X( ). I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTAVL I B 9 120MSGSEV |
|
I 13 19 MSGID I 20 21 MSGTYP I 22 25 MSGKEY I 26 40 RESERV I B 41 440DTARTN I B 45 480DTAAVL I* 49 MSGDTA **************************************************************** * * * API: QMHRCVM et QMHRCVPM * * FORMAT: RCVM0200 * * * **************************************************************** 01 RCVM0200-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 MESSAGE-SEVERITY PIC S9(9) COMP-4. 05 MESSAGE-ID PIC X(7). 05 MESSAGE-TYPE PIC X(2). 05 MESSAGE-REF-KEY PIC X(4). 05 QUALIFIED-MESSAGE-FILE PIC X(20). 07 MESSAGE-FILE PIC X(10). |
|
07 MESSAGE-LIBRARY PIC X(10). 05 SEND-MESSAGE-FILE-LIB PIC X(10). 05 ALERT-OPTION PIC X(9). 05 RESERVED PIC X(8). 05 LENGTH-MSG-DTA-RETURNED PIC S9(9) COMP-4. 05 LENGTH-MSG-DTA-RETURNED PIC S9(9) COMP-4. 05 LENGTH-MSG-RETURNED PIC S9(9) COMP-4. 05 LENGTH-MSG-AVAILABLE PIC S9(9) COMP-4. 05 LENGTH-MSG-HELP-RETURNED PIC S9(9) COMP-4. 05 LENGTH-MSG-HELP-AVAILABLE PIC S9(9) COMP-4. * 05 MESSAGE-DATA PIC X( ). * 05 MESSAGE PIC X( ). * 05 MESSAGE-HELP PIC X( ). I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTAVL I B 9 120MSGSEV I 13 19 MSGID I 20 21 MSGTYP I 22 25 MSGKEY I 26 45 QMSGF |
|
I 26 35 MSGF I 36 45 MSGLIB I 46 55 SNDLIB I 56 135 SNDINF I 136 144 ALTOPT I 145 152 RESERV I B 153 1560DTARTN I B 157 1600DTAAVL I B 161 1640TX1RTN I B 165 1680TX1AVL I B 169 1720TX2RTN I B 173 1760TX2AVL I* 177 MSGDTA I* MSG I* MSGHLP **************************************************************** * * * API: QMHRCVM et QMHRCVPM * * FORMAT: RCVM0300 (V2R30) * * * **************************************************************** 01 RCVM0300-RCVVAR. |
|
05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 MESSAGE-SEVERITY PIC S9(9) COMP-4. 05 MESSAGE-ID PIC X(7). 05 MESSAGE-TYPE PIC X(2). 05 MESSAGE-REF-KEY PIC X(4). 05 MESSAGE-FILE PIC X(10). 05 MESSAGE-FILE-LIB PIC X(10). 05 MESSAGE-FILE-SEND-LIB PIC X(10). 05 ALERT-OPTION PIC X(9). 05 RESERVED PIC X(16). 05 LENGTH-DATA-RETURNED PIC S9(9) COMP-4. 05 LENGTH-DATA-AVAILABLE PIC S9(9) COMP-4. 05 LENGTH-MSG-RETURNED PIC S9(9) COMP-4. 05 LENGTH-MSG-AVAILABLE PIC S9(9) COMP-4. 05 LENGTH-HELP-RETURNED PIC S9(9) COMP-4. 05 LENGTH-HELP-AVAILABLE PIC S9(9) COMP-4. 05 LENGTH-SNDR-RETURNED PIC S9(9) COMP-4. 05 LENGTH-SNDR-AVAILABLE PIC S9(9) COMP-4. * 05 MESSAGE-DATA PIC X( ). * 05 MESSAGE PIC X( ). * 05 MESSAGE-HELP PIC X( ). |
|
* 05 SENDER-INFO PIC X( ). I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTAVL I B 9 120MSGSEV I 13 19 MSGID I 20 21 MSGTYP I 22 25 MSGKEY I 26 45 QMSGF I 26 35 MSGF I 36 45 MSGLIB I 46 55 SNDLIB I 56 64 ALTOPT I 65 80 RESERV I B 81 840DTARTN I B 85 880DTAAVL I B 89 920TX1RTN I B 93 960TX1AVL I B 97 1000TX2RTN I B 101 1040TX2AVL I B 105 1080SNDRTN |
|
I B 109 1120SNDAVL I* 113 MSGDTA I* MSG I* MSGHLP I* SNDINF |
