| 
**************************************************************** * * * API: QMHRTVM * * FORMAT: RTVM0100 * * * **************************************************************** 01 RTVM0100-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-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-MSG-HELP-RETURNED PIC S9(9) COMP-4. 05 LENGTH-MSG-HELP-AVAILABLE PIC S9(9) COMP-4. * 05 MESSAGE PIC X( ). * 05 MESSAGE-HELP PIC X( ). I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTAVL I B 9 120MSGRTN I B 13 160MSGAVL I B 17 200MSGHRT |
|
I B 21 240MSGHAV I* 25 MSGDTA I* MSGHLP **************************************************************** * * * API: QMHRTVM * * FORMAT: RTVM0200 * * * **************************************************************** 01 RTVM0200-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 ALERT-INDEX PIC S9(9) COMP-4. 05 ALERT-OPTION PIC X(9). 05 LOG-INDICATOR PIC X(1). 05 RESERVED PIC X(2). 05 LENGTH-DEFAULT-RPY-RTND PIC S9(9) COMP-4. 05 LENGTH-DEFAULT-RPY-AVAIL 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 DEFAULT-REPLY 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 B 13 160ALTIDX I 17 25 ALTOPT I 26 26 LOGIND I 27 28 RESERV I B 29 320DFTRTN I B 33 360DFTAVL I B 37 400MSGRTN I B 41 440MSGAVL I B 45 480MSGHRT I B 49 520MSGHAV I* 53 DFTRPY I* MSGDTA I* MSGHLP |
