1.4.1 IMS MFS Control Block Support
The definition of message formats and device formats is accomplished with separate hierarchic sets of definition statements. The following table 11 shows all the definition statements and their descriptions.
Table 1-12 Definition Statements and Descriptions
| Definition Statement Sets Name | Statement Name | Description |
|---|---|---|
| Message Definition Statement Set
---- Used to define message formats. |
MSG
|
Initiates and names a message input or output definition. |
LPAGE
|
The optional LPAGE statement defines a group of segments comprising a logical page. | |
PASSWORD
|
Identifies a field or fields to be used as an IMS password. | |
SEG
|
Identifies a message segment. | |
DO
|
Requests iterative processing of the subsequent MFLD statements. | |
MFLD
|
The MFLD statement defines a message field as it will be presented to an application program as part of a message output segment. At least one MFLD statement must be specified for each MSG definition. | |
ENDDO
|
Terminates iterative processing of the preceding MFLD statements. | |
MSGEND
|
Identifies the end of a message definition. | |
| Format Definition Statement Set
---- Used to define device formats. |
FMT
|
Identifies the beginning of a format definition. |
DEV
|
Identifies the device type and operational options. | |
DIV
|
Identifies the format as input, output, or both. | |
DPAGE
|
Identifies a group of device fields corresponding to an LPAGE group of message fields. | |
PPAGE
|
Identifies a group of logically related records that can be sent to a remote application program at one time. | |
DO
|
Requests iterative processing of the subsequent DFLD statements. | |
DFLD
|
Defines a device field. Iterative processing of DFLD statements can be invoked by specifying DO and ENDDO statements. To accomplish iterative processing, the DO statement is placed before the DFLD statements and the ENDDO after the DFLD statements. | |
ENDDO
|
Terminates iterative processing of the previous DFLD statements. | |
FMTEND
|
Identifies the end of a format definition. | |
| END | Defines the end of the input file. | |
The “END” statement in above table defines the end
of input file. All contents after it will be ignored. If the input
file doesn’t have an “END”, MFSGEN
will give an warning message and add one for the input file.
For each statement name, there are several fields. The detailed field name and value requirements are listed in the following tables 12 and table 13. All other statements are assumed unsupported fields currently (listed in the following table).
Table 1-13 Message Definition Statement Set Fields
| Statement Name | Field | Possible Value | Note |
|---|---|---|---|
MSG
|
TYPE
|
INPUT
|
Support |
SOR=
|
(formatname, IGNORE)
|
"IGNORE" is a mandatory | |
OPT=
|
1 or 2 or 3
|
Warning | |
NXT=
|
msgcontrolbl ockname
|
Support | |
PAGE=
|
No or YES
|
Warning | |
FILL=
|
C' '
|
Warning if fill is not space. | |
C'c'
|
|||
NULL
|
|||
PT
|
|||
LPAGE
|
SOR=
|
dpagename
|
|
COND=
|
(mfldname | mfldname(pp) | Segoffset, > |<| | | = |
!= , ‘value’ ) |
Error | |
NXT=
|
msgcontrolbl ockname
|
||
PROMPT=
|
(dfldname,'l iteral')
|
||
PASSWORD
|
PASSWORD
|
blanks
|
Error |
SEG
|
EXIT=
|
(exitnum,exi tvect)
|
Warning |
GRAPHIC=
|
YES or NO
|
Warning | |
DO
|
count
|
Support | |
SUF=
|
number
|
Support | |
MFLD
|
dfldname
|
Support | |
‘literal’
|
|||
G`literal`
|
|||
(dfldname, 'literal')
|
|||
(dfldname, G'literal')
|
|||
(dfldname, system-liter al)
|
|||
(,SCA)
|
TBD | ||
LTH=
|
1
|
Support | |
nn
|
Support | ||
(pp, nn)
|
Warning | ||
JUST=
|
L or R
|
Support | |
ATTR=
|
YES or NO, nn
|
Support | |
FILL
|
X'40'
|
Warning | |
X'hh'
|
Warning | ||
C'c'
|
Support only when c=SPACE | ||
NULL
|
Warning | ||
EXIT=
|
(exitnum, exitvect)
|
Warning | |
ENDDO
|
Support | ||
MSGEND
|
Support |
Note:
system-literals include:TIME, DATE1, DATE2, DATE3, DATE4, DATE1Y4, DATE2Y4, DATE3Y4, DATE4Y4, YYDDD, MMDDYY, DDMMYY, YYMMDD, YYYYDDD, MMDDYYYY, DDMMYYYY, YYYYMMDD, DATEJUL, DATEUSA, DATEEUR, DATEISO, LTSEQ, LTNAME.
For LTMSG and LPAGENO, a warning
message is displayed and will not take any effect. For other
strings not in the following table 12, a syntax error. is
displayed
Table 1-14 Format Definition Statement Set Fields
| Statement Name | Field | Possible Value | Support or Other |
|---|---|---|---|
FMT
|
Support | ||
DEV
|
TYPE=
|
3270
|
Support |
3270-A2 | | (3270,2)
|
Support | ||
(3270,1) | Other values
|
Error | ||
FEAT=
|
IGNORE
|
Support | |
(CARD | NOCD | PFK | NOPFK | DEKYBD | PEN | NOPEN) |
Warning | ||
1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10
|
Warning | ||
PEN=
|
dfldname
|
Warning | |
CARD=
|
dfldname
|
Warning | |
SYSMSG=
|
dfldlabel
|
Support | |
DSCA=
|
X'value'
|
Support | |
number
|
Support | ||
PFK=
|
(dfldname, 'literal'…)
|
Support | |
(dfldname, integer='literal'…)
|
Support | ||
(dfldname, NEXTPP |NEXTMSG | NEXTMSGP | NEXTLP | ENDMPPI …. ) |
Warning | ||
(dfldname, integer= NEXTPP |NEXTMSG | NEXTMSGP | NEXTLP | ENDMPPI …. ) |
Warning | ||
SUB=
|
X'hh'
|
Warning | |
C'c'
|
Warning | ||
PDB=
|
pdbname
|
Warning | |
DIV
|
|
INOUT
|
Support |
OUTPUT
|
|||
DPAGE
|
CURSOR=
|
(lll, ccc)
|
Support; cursor > 1: Warning |
MULT=
|
YES
|
Warning | |
PD=
|
pdname
|
Warning | |
FILL=
|
PT or X'hh'
|
Warning | |
C'c'
|
Support only when c=SPACE | ||
NULL
|
Warning | ||
NONE
|
Warning | ||
ACTVPID=
|
(for the 3290 in partition formatted mode)
|
Warning | |
PPAGE
|
comments
|
Error | |
DO
|
Count
|
Support | |
1, MAX
|
Support | ||
line-inc, column-inc
|
Support | ||
Position-inc
|
Warning | ||
SUF=
|
number
|
Support | |
BOUND=
|
LINE | FIELD
|
Support | |
DFLD
|
'literal'
|
Support | |
G'literal'
|
Support | ||
PASSWORD
|
Error | ||
POS=
|
(lll,ccc)
|
Support | |
(lll,ccc,pp)
|
Warning | ||
LTH=
|
nnn
|
Support | |
PEN=
|
‘literal
|
Warning | |
NEXTPP
|
Warning | ||
NEXTMSG
|
Warning | ||
NEXTMSGP
|
Warning | ||
NEXTLP
|
Warning | ||
ENDMPPI
|
Warning | ||
ATTR=
|
ALPHA|NUM
|
Support | |
NOPROT|PROT
|
Support | ||
NODET|DET|IDET
|
Warning | ||
NORM|NODISP|HI
|
Support | ||
NOMOD|MOD
|
Support | ||
STRIP|NOSTRIP
|
Warning | ||
OPCTL=
|
tablename
|
Warning | |
EATTR=
|
HD | HBLINK | HREV | HUL CD | BLUE | RED | PINK | GREEN | TURQ | YELLOW | NEUTRAL |
Support | |
PX'00' | PX'hh' | PC'c'
|
Warning | ||
EGCS | EGCS'hh'
|
Support, For EGCS'hh', only 'hh' value of X'00' and X'F8' are supported | ||
VDFLD | VMFILL, VMFLD | VMFILL | VMFLD
|
Warning | ||
OUTL | OUTL'hh' | BOX | RIGHT | LEFT | UNDER | OVER |
Support | ||
MIX | MIXD
|
Support | ||
ENDDO
|
Support | ||
FMTEND
|
Support | ||
For the last column in above tables, “Support” means the field is supported; “Warning” means the field is not supported, and the tool ignores this field just like it is not specified, meanwhile a warning is generated; “Error” means the field is not supported, the tool reports an error and fails parsing current definition statement set.
Table 1-15 Other definition statements and compilation statements which we don’t support
| Statement Name | Fields | Support or other |
|---|---|---|
| END | Support | |
PDB
|
LUSIZE
|
WARNINGS |
SYSMSG
|
||
PAGINGOP
|
||
LUDEFN
|
||
PD
|
PID
|
|
VIEWPORT
|
||
VIEWLOC
|
||
PRESPACE
|
||
WINDOWOF
|
||
CELLSIZE
|
||
SCROLLI
|
||
PDBEND
|
comments
|
|
TABLE
|
comments
|
|
IF
|
DATA
|
|
LENGTH
|
||
'literal'
|
||
NOFUNC
|
||
NEXTP
|
||
NEXTMSG
|
||
NEXTMSGP
|
||
NEXTLP
|
||
PAGEREQ
|
||
ENDMPPI
|
||
TABLEEND
|
comments
|
|
ALPHA
|
'EBCDIC literal character string'
|
|
COPY
|
member-name
|
|
EQU
|
number
|
Error |
alphanumeric identifier
|
||
literal
|
||
symbol
|
||
RESCAN
|
OFF | ON
|
WARNING |
number
|
||
STACK
|
ON | OFF
|
|
id
|
||
UNSTACK
|
DELETE |KEEP
|
|
id
|
||
TITLE
|
literal
|
|
PRINT
|
ON | OFF
|
|
GEN | NOGEN
|
||
SPACE
|
number
|
|
EJECT
|
comments
|
For the last column in above tables, “Support” means the field is supported; “Warning” means the field is not supported, and the tool ignores this field just like it is not specified, meanwhile a warning is generated; “Error” means the field is not supported, the tool reports an error and fails parsing current definition statement set.
Table 1-16 Message Dynamic Attribute Modification Support
| Byte | Bit | Detail | Support |
|---|---|---|---|
| 0 | 0-1 | If both bits are on, requests that the cursor be placed on the first position of this field on the device. The first cursor-positioning request encountered in an LPAGE series (first MFLD with cursor attribute or cursor line/column value) that applies to a physical page is honored; these bits must be 00 or 11. | Yes |
| 0 | 2-7 | Must be off | Yes |
| 1 | 0 | Must be on | Yes |
| 1 | 1 | If on, replace If off, addition | Yes |
| 1 | 2 | Protected | Yes |
| 1 | 3 | Numeric | Yes |
| 1 | 4 | High-intensity | Yes |
| 1 | 5 | Non-displayable | Yes |
| 1 | 6 | Detectable | Yes |
| 1 | 7 | Premodified | Yes |
Table 1-17 Message Dynamic Modification of Extended Field Attributes Support
| Type | Value | Detail | Support |
|---|---|---|---|
| 01 | 0 – 4 bit Reserved
5 bit Mandatory fill 6 bit Mandatory field 7 bit Reserved |
Validation replacement. | No |
| 02 | As above | Validation addition | No |
| 03 | 0 – 3 bit Reserved
4 bit Left line 5 bit Over line 6 bit Right line 7 bit Under line X'00' Default (no outline) |
Field outlining replacement | Yes |
| 04 | As above | Field outlining addition | Yes |
| 05 | 0 – 6 bit Reserved
7 bit SO/SI creation X'00' Default (no SO/SI creation) |
Input control replacement | No |
| 06 | As above | Input control addition | No |
| C1 | X'00' Device default
X'F1' Blink X'F2' Reverse video X'F4' Underline |
Highlighting | Yes |
| C2 | X'00' Device default
X'F1' Blue X'F2' Red X'F3' Pink X'F4' Green X'F5' Turquoise X'F6' Yellow X'F7' Neutral |
Color | Yes |
| C3 | Valid local ID values are in the range X'40'--X'FE', or X'00' for the device default. | Programmed Symbols | Yes |
Table 1-18 Bit Settings for DSCA Field Support
| Byte | Bit | Detail | Support |
|---|---|---|---|
| 0 | 0-7 | Should be 0 | Yes |
| 1 | 0 | Should be 1 | Yes |
| 1 | 1 | Force format write (erase device buffer and write all required data). | Yes |
| 1 | 2 | Erase unprotected fields before write. | Yes |
| 1 | 3 | Sound device alarm. | Yes |
| 1 | 4 | Copy output to candidate pointer. | Yes |
| 1 | 5 | Bit 1 - protect the screen when output is sent. Bit 1 - do not protect the screen when output is sent. | Yes |
| 1 | 6-7 | Should be 0 | No |
Parent topic: Tuxedo ART for IMS MFS Support