|For the Database Administrator (DBA)||DBD, PSB and MFS Statements|
This chapter describes the IMS Option support for a variety of TM and MFS features. The chapter DBD, PSB and MFS Statements has additional information.
Some of the descriptions only require a moderate understanding of MFS and IMS/ESA TM. Others require interpretation by an expert.
IMS Option supports a large number of FMT, MID and MOD definitions in a single input data set. The actual limit is 16,535 of any one type. IBM 3270 terminal MFS descriptions must contain the MID, MOD and FMT in the same input data set. IBM 3270 printer formats require the FMT and the MOD to be in the same input data set.
The same MOD-name cannot be used to describe more than one device type, for example, both a printer and a display device. You can set Device model to gen by selecting the Advanced page on the MFS page of the Build Settings for Project dialog box on the Project menu. In the case where the same MOD is used to send a message to a display device and a printer within the same scheduling, you must remove one of the devices from the original MFS and regenerate it with a new name. Then, change the program's ISRT call to reference the new MOD-name.
The processing sequence for MFS source data sets is:
If no NXT operand is found, the first MID in the data set is used. The SOR operand is required but the optional IGNORE operand is ignored.
The LPAGE and DPAGE statements are supported. See the other sections in this chapter for details on logical paging, operator paging control and multiple device pages.
The first-phase preprocessor handles the presence of LPAGE and DPAGE statements very much like the occurrence of multiple FMTs, MIDs or MODs. The presence of more than one LPAGE within a MID, more than one LPAGE in a MOD or more than one DPAGE in a FMT, triggers this support. The presence of only one LPAGE and only one DPAGE requires no special support.
If the multiple LPAGE/DPAGE condition is met, the SCAN phase is invoked just as if more than one MID, MOD or FMT was encountered. Although in this case, the first MOD/LPAGE is selected instead of just the first MOD. This LPAGE is aligned with its FMT/DPAGE using the MSG statement's SOR keyword to determine the FMT and the MOD's LPAGE statement's SOR keyword to determine the DPAGE. The MID is selected using the MOD's MSG statement's NXT operand. The MID's LPAGE statement's SOR operand is matched to the FMT/DPAGE selected. Multiple DPAGE-names are supported in the MID's LPAGE statement's SOR operand. If no NXT appeared in the MOD, the first MID is used. After this alignment, the rest of the MFSGEN proceeds normally. If more LPAGEs are present for this MOD, the scan phase is re-invoked for each MOD/LPAGE combination, with processing occurring for each set independently. When processing of all LPAGEs in the MOD is complete, control returns to the first-phase preprocessor for selection of the next MOD, if present, and its LPAGEs, if any, are processed and so forth until the entire MFS is processed.
Physical paging is indicated in the MFS source by use of a third positional operand on the DFLD statement's POS keyword. For example, POS=(03,14,02) to indicate a DFLD which is on line 3, column 14, on physical page number 2. One output message causes multiple physical pages (or screens) to be displayed.
Physical paging is supported for 3270 display devices only. Physical paging is not available when logical paging is also used. Logical and physical paging are mutually exclusive in IMS Option.
When an application returns control to IMS Option, the first physical page is displayed. Pressing Enter causes the next physical page to be displayed (NEXTPP equivalent). When you press Enter on the last physical page, the data from the screens is transmitted, the input message is formatted and the next transaction scheduled.
A PF key may also advance the physical page display. For all PF keys other than the ENDMPPI command, pressing the PF key causes the next physical page to be displayed. If pressed on the last screen, the screen data is transmitted for input message formatting. The ENDMPPI command terminates the screen display and begins input message formatting.
If the PF key is associated with an IMS/ESA command, such as /RCL, the command is processed when the screens are transmitted. Unless ENDMPPI is used, the value for the first PF key pressed in a series of physical pages takes effect when the input message is formatted.
Multi-segmented messages are defined in MFS with multiple SEG statements between the MSG (TYPE=INPUT or TYPE=OUTPUT) and corresponding MSGEND statement. The support for multi-segmented messages within IMS Option is:
The ALPHA statement in MFS source is supported differently in IMS Option than with IMS/ESA. Only one form is supported and it is any ALPHA statement which contains the string "abcdefghijklmnopqrstuvwxyz". When this statement is present, you can enter lower case characters in the MFS DFLD unprotected fields if the SEG statement for the input message also specifies GRAPHIC=NO. The assumption is that if you wanted to use lower case in the MFS, you would also want to use lower case in the entry fields.
IMS Option always permits any characters, including lower case, in the construction of labels and literals, whether the ALPHA statement is present or not.
The EQU (equate) statement is supported with the following constraints:
Unsupported EQU example:
AYJR EQU 'ATTR=YES,JUST=R'
Supported EQU examples:
AY EQU 'ATTR=YES' JR EQU 'JUST=R' A EQU 'ATTR' P EQU 'PROT' AE EQU 'ATTR=' EP EQU '=PROT' PO EQU 'POS=' L EQU 'LTH='
MFLD FLD1,L.4,AY,JR FLD1 DFLD L.4,PO.(01,03),A.EP FLD2 DFLD L.4,PO.(02,03),AE.P FLD3 DFLD L.4,PO.(03,03),ATTR=P
Note: The specification of A.P or AE.EP is not valid. However, IMS Option makes the substitution assuming one and only one "=" (equal sign) was present - no warning message is issued.
The documentation here of multiple logical paging with multiple device pages is mostly a reiteration of IMS/ESA support unless specifically noted otherwise. As the terminology used for this area of MFS is not always understood, the best way to document our supported features is to describe it by example.
Multiple logical paging with multiple device paging is indicated in the MFS source statements by the presence of a COND=(mfldlabel,relational operator,value) operand on the MOD's LPAGE statement. The "mfldlabel" may also be specified as an integer value indicating an offset in the MOD. The application program indicates which screen (actually, which device page) is to be displayed by both the MOD-name parameter and the COND value. The application program may insert more than one screen in this manner, although only the first ISRT call is permitted to have a MOD-name parameter. IMS Option does not support multiple logical paging using different MOD-names.
Sample MFS source:
FMT1 FMT DPAGE1 DPAGE ... DFLD ... DFLD ... DPAGE2 DPAGE ... DFLD ... FMTEND MOD1 MSG TYPE=OUTPUT, SOR=(FMT1,IGNORE),NXT=MID1 LPAGE SOR=(DPAGE1), COND=(PAGENO,=,'01') SEG MFLD ... PAGENO MFLD LTH=2 LPAGE SOR=(DPAGE2), COND=(PAGENO,=,'02') SEG MFLD ... PAGENO MFLD LTH=2 MSGEND MSG TYPE=INPUT, SOR=(FMT1),NXT=MOD1,... LPAGE SOR=(DPAGE1) SEG MFLD ... MFLD ... LPAGE SOR=(DPAGE2) SEG MFLD ... MFLD ... MSGEND
From this sample MFS, the first insert call by a COBOL application would appear something like this:
MOVE 'MOD1' TO MOD-NAME. MOVE '01' TO MOD-PAGENO. CALL 'CBLTDLI' USING ISRT IO-PCB MOD-AREA MOD-NAME.
Although subsequent insert calls are not required, they would appear something like this:
MOVE '02' TO MOD-PAGENO. CALL 'CBLTDLI' USING ISRT IO-PCB MOD-AREA.
The page numbers do not have to be inserted in the order they appear in the MOD or the FMT. They can be in any order, repeated, alternated or in any other combination. The only requirement is that after the first insert call, the MOD-name parameter is omitted.
If the COND value provided in the MOD's I/O area does not match any COND value specified in the MFS MOD LPAGE statement, the last LPAGE in the MOD is used. If a MOD contains only one LPAGE with a COND value, it has no meaning. The IMS Option MFSGEN process ignores these LPAGEs as they always cause the same screen to be inserted and no special processing is required.
Operator paging control consists of the commands and mechanisms by which the terminal operator controls multi-paged output. This operator control facility is used whenever logical paging is used, whether for a single DPAGE or for multiple DPAGEs.
The paging control is indicated by the use of:
|=nnnn||Indicates the specific page number to be displayed next. An "nnnn" value of 1 causes the first page of the set to be displayed|
|=+nnnn||Indicates the number of the page to be displayed as a number of pages forward from the current page. A value of +2, for example, would cause the second page, after the current displayed page, to be displayed next.|
|=-nnnn||The same as "+" except the movement is backward instead of forward|
|=L||Indicates the last page is displayed|
These control statements can be entered from one of the following:
To use the cleared screen technique, press Alt+F2 from an MFS screen, type the paging command and press Enter to process the page request.
When a /FOR command is issued for a MOD which contains multiple LPAGEs, the last LPAGE in the MOD determines which DPAGE is displayed. With IMS/ESA, it is possible under some constraints, to issue a /FOR command with the COND value following the MOD-name. For example, /FOR MOD1 01. This is not supported by IMS Option.
MFS input MFLD (MID) field exits can be re-written from Assembler to COBOL or the Assembler routines from IMS/ESA may be used if you have Micro Focus 370. You can use the TM/MFS configuration option Invoke input message edit routines to specify whether COBOL or Assembler routines should be called. To access this, select the TM/MFS page on the IMS System Properties dialog box. The default is unselected, with field exits not invoked.
Note: You can access the IMS System Properties dialog box by selecting the IMS View of the project and right-clicking IMS System. Then click Properties.
If you select COBOL, IMS Option calls the exit using standard COBOL linkage conventions. The calling parameters are otherwise the same as on IMS/ESA. A sample COBOL field exit is provided with IMS Option and is named dfsme000.cbl. This program has comments in it which further describe the use of COBOL field exits. When you add this source to your project and compile it, the load module is added to the Project's default Load Library folder defined in the Workgroup tab.
If you select Assembler, you must also preprocess, assemble and link the ims2asm.mlc program provided with IMS Option. The IMS2ASM routine is a "glue" module and converts the COBOL standard linkage parameters from IMS Option into the non-standard form which IMS/ESA uses for Assembler. See the ims2asm.mlc program for further details.
The naming convention is the same as IMS/ESA. The field exit program name is always "DFSME" followed by the field exit number expressed as a three digit decimal number. For example, for field exit number "zero", the name would be DFSME000.
The field exit can be debugged as any other application program. When a transaction program issues the GU or GN for the input message, the field exit is invoked and is debugged if it has been prepared for debugging. To do this:
IMS Option now supports MFS input message segment edit routines (DFSMExxx). This support is similar to the existing support of MFS field exit routines but is limited to single segment messages. MFS segment and field exits can not be configured independently. As in the existing field exit support, there is no support for IMS callable services and no emulation of IMS control blocks.
These edit routines can be written in COBOL or Assembler:
The exit language configuration option specifies the exit language and allows exit routines to be disabled. You can find this option on the TM/MFS page of the IMS System Properties dialog box.
FILL=NULL can be specified on any MFLD. This support is provided with single-segment and multi-segment messages, with or without logical paging.
There are two restrictions with FILL=NULL. They are:
Copyright © 1999 MERANT International Limited. All rights reserved.
This document and the proprietary marks and names used herein are protected by international law.
|For the Database Administrator (DBA)||DBD, PSB and MFS Statements|