CONTROL BLOCK NAME = DFHMGM TYPE=DSECT
NAME OF MATCHING PLS CONTROL BLOCK = None
DESCRIPTIVE NAME = CICS TS MGM Format of Prototype Messages
Licensed Materials - Property of IBM
Restricted Materials of IBM
5655-Y04
(C) Copyright IBM Corp. 1981, 2008
FUNCTION =
The MGT entry describes the message to be issued.
This DSECT maps the MGT entry.
NOTES :
DEPENDENCIES = S/370
RESTRICTIONS = none
MODULE TYPE = Control block definition
Table 1.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
0 |
ETMGDSCT |
| (0) |
BITSTRING |
1 |
ETMGCTYP |
TYPE 0 NO TCTTE PASSED 1 TCTTE PASSED 2 IST TCTTE = SENT MSG TCTTE, 2ND TCTTE = TERM IN INSERTS |
THE OPTIONS SPECIFIED WITH THE MSG ARE ADDED TO THOSE PASSED
BY THE CALLER
NORMALLY NOTHING SHOULD BE SET
|
| (1) |
ADDRESS |
1 |
ETMGDEST |
DESTINATION |
FIELD SAME AS MGMGDEST
|
| (1) |
..1. .... |
|
ETMDTERM |
"X'20'" DEST TERM |
| (1) |
.... 1... |
|
ETMDRETN |
"X'08'" DEST RETURN TO CALLER |
| (1) |
.... .1.. |
|
ETMDNNUM |
"X'04'" PRODUCE NO NUMBER |
| (1) |
.... ..1. |
|
ETMDTIOA |
"X'02'" OBTAIN A TIOA |
| (2) |
HALFWORD |
2 |
ETMGMGNO |
MSG NO |
| (4) |
BITSTRING |
1 |
ETMGMCOD |
I/A/ TYPE ETC |
FIELD SAME AS MGMOPTN1
|
| (4) |
1... .... |
|
ETMGMCDI |
"X'80'" I TYPE MESSAGE |
| (4) |
.1.. .... |
|
ETMGMCDA |
"X'40'" A TYPE MESSAGE |
| (4) |
..1. .... |
|
ETMGMNLS |
"X'20'" NLS MESSAGE |
| (4) |
...1 .... |
|
ETMGRESP |
"X'10'" response required |
| (4) |
.... 1... |
|
ETMG1CID |
"X'08'" Component id specified |
| (4) |
.... .1.. |
|
ETMGMCNX |
"X'04'" ERRATT=NEXT |
| (4) |
.... ..1. |
|
ETMGMCNL |
"X'02'" ERRATT=LASTLINE |
| (4) |
.... ...1 |
|
ETMGMCNE |
"X'01'" ERRATT=NO |
| (5) |
ADDRESS |
1 |
ETMGINS2 |
INSERT INFO - MGMOPTN2 |
FIELD SAME AS MGMOPTN2
|
| (5) |
...1 .... |
|
ETMDDUMP |
"X'10'" DUMP ON THIS MESSAGE |
| (6) |
ADDRESS |
1 |
ETMGPTN3 |
SWITCHES - MGMOPTN3 |
FIELD SAME AS MGMOPTN3
|
| (6) |
1... .... |
|
ETMG3PID |
"X'80'" Product id specified |
| (7) |
BITSTRING |
1 |
ETMOFFV |
OFFS OF MSG IN STG AREA |
| (8) |
ADDRESS |
1 |
ETMGDESX |
DESTINATION EXTENTION BYTE |
| (9) |
CHARACTER |
2 |
ETMGCOMP |
Component id |
| (B) |
CHARACTER |
3 |
ETMGPROD |
Product id |
| (E) |
HALFWORD |
2 |
ETMGTLEN |
TOTAL L OF MSG TEXTS. |
| (10) |
CHARACTER |
1 |
ETMGTSRT (0) |
START OF TEXT |
| (10) |
...1 .... |
|
TEXTOFF |
"*-ETMGDSCT" MSG TXT OFFSET |
THIS DSECT DESCRIBES PARTIAL MESSAGES IN PROTOTYPE MSGS
Table 2.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
0 |
ETMGTEXT |
MSG TEXT. |
| (0) |
HALFWORD |
2 |
ETMGTYPL (0) |
TYPE/LENGTH OF MSG TEXT |
| (0) |
CHARACTER |
1 |
ETMGTYPE |
TYPE OF MSG TEXT. |
| (1) |
CHARACTER |
1 |
ETMGLEN |
LENGTH OF MSG TEXT. |
| (2) |
CHARACTER |
1 |
ETMGMGDA |
ACTUAL MSG |
THIS DSECT DESCRIBES THE INPUT PLIST
Table 3.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
0 |
MGMAMAP |
*** MAP THE FW ADCONS IN DFHINS *** |
| (0) |
ADDRESS |
4 |
MGMAMSG |
A(MGMMDEST) |
| (4) |
ADDRESS |
4 |
MGMAPARM |
A(INSERT/MSG TABLE) |
| (4) |
1... .... |
|
MGMAMLST |
"X'80'" LAST FLAG |
THIS DSECT DESCRIBES THE FIRST PARAMETER,WHICH IS ALWAYS PRESENT
Table 4.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
0 |
MGMMDEST |
*** MESSAGE NO AND DESTINATION CODE *** |
| (0) |
BITSTRING |
1 |
MGMGTYPE |
TYPE OF MESSAGE |
| (0) |
.... ...1 |
|
MGMGTCTE |
"X'01'" MGMAPARM = A(TCTTE) |
| (1) |
CHARACTER |
1 |
MGMGDEST |
DESTINATION/ACTION. |
| (1) |
..1. .... |
|
MGMDTERM |
"X'20'" DEST TERM |
| (1) |
.... 1... |
|
MGMDRETN |
"X'08'" DEST RETURN TO CALLER |
| (1) |
.... .1.. |
|
MGMDNNUM |
"X'04'" NO MSG NO. TO BE PRODUCED |
| (1) |
.... ..1. |
|
MGMDTIOA |
"X'02'" OBTAIN A TIOA |
| (1) |
.... ...1 |
|
MGMDIPIC |
"X'01'" PLACE IN IPIC BUFFER |
| (2) |
ADDRESS |
2 |
MGMGNO |
MSG NO |
| (4) |
BITSTRING |
1 |
MGMOPTN1 |
TYPE /I/A RESERVED |
| (4) |
1... .... |
|
MGMD1CDI |
"X'80'" I TYPE MESSAGE |
| (4) |
.1.. .... |
|
MGMD1CDA |
"X'40'" A TYPE MESSAGE |
| (4) |
..1. .... |
|
MGMD1NLS |
"X'20'" NLS MESSAGE |
| (4) |
...1 .... |
|
MGMDRESP |
"X'10'" MGP Response code required |
| (4) |
.... 1... |
|
MGMD1CID |
"X'08'" COMP ID PRESENT |
| (4) |
.... .1.. |
|
MGMD1CNX |
"X'04'" ERRATT=NEXT |
| (4) |
.... ..1. |
|
MGMD1CNL |
"X'02'" ERRATT=LASTLINE |
| (4) |
.... ...1 |
|
MGMD1CNE |
"X'01'" ERRATT=NO |
| (5) |
BITSTRING |
1 |
MGMOPTN2 |
OPTION TWO |
| (5) |
1... .... |
|
MGMTERAS |
"X'80'" ERASE REQUIRED * |
| (5) |
.1.. .... |
|
MGMTFMHP |
"X'40'" FMH PRESENT |
| (5) |
..1. .... |
|
MGMTCONV |
"X'20'" CONVERSE REQUIRED |
| (5) |
...1 .... |
|
MGMDDUMP |
"X'10'" DUMP REQUIRED |
| (5) |
.... 1... |
|
MGMDOFFS |
"X'08'" PUT MESSAGE AT AN OFFSET (GIVEN BY VALUE OF MGMOFFV) WITHIN STORAGE AREA * |
| (5) |
.... .1.. |
|
MGMTUNLK |
"X'04'" UNLOCK OPTION REQUIRED |
| (5) |
.... ..1. |
|
MGMTLAST |
"X'02'" LAST OPTION REQUIRED |
| (5) |
.... ...1 |
|
MGMTWAIT |
"X'01'" WAIT OPTION REQUIRED * |
| (6) |
BITSTRING |
1 |
MGMOPTN3 |
OPTION THREE |
| (6) |
1... .... |
|
MGMO3PID |
"X'80'" PRODUCT ID SPECIFIED |
| (7) |
BITSTRING |
1 |
MGMOFFV |
VALUE OF OFFSET WITHIN STG AREA FOR START OF MSG |
| (8) |
CHARACTER |
1 |
MGMGDESX |
DESTINATION EXTENTION BYTE |
| (9) |
BITSTRING |
1 |
MGMRESP |
MGP Response code |
| (A) |
CHARACTER |
2 |
MGMGCOMP |
COMPONENT ID |
| (C) |
CHARACTER |
3 |
MGMGPROD |
PRODUCT ID |
| (C) |
.... 1111 |
|
MGMMDLN |
"*-MGMMDEST" LENGTH OF MGMMDEST PARM |
Table 5.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
0 |
MGINSERT |
*** LENGTH AND 'TEXT' OF INSERT *** |
| (0) |
ADDRESS |
2 |
MGINSRL |
LENGTH OF INSERT IF ANY |
| (2) |
CHARACTER |
1 |
MGINSRD |
INSERT IF ANY |