MFS definitions for intersystem communication

The following prototype MFS definitions can be used in an intersystem communication (ISC) system between IMS and CICS®.

In this example:

CICS can request MFS editing with either 8-byte or 4-byte names.
Messages from CICS can be multiple-page input or single-page input.
Output to CICS can be one message of one page or multiple pages with one or more segments.
Demand paged or autopaged output can be requested of IMS.

These formats can also be used by a 3270 terminal operator who wants to send a message to CICS using an IMS message switch. Or, for example, an IMS message switch can be invoked by a user at a 3270 terminal, the message can be switched to CICS, and a reply is returned from CICS to IMS and then to the 3270 terminal. The routing is handled by MFS. The following samples show the MFS definition format.

FMTDIS    FMT
          DEV    TYPE=3270-A2,FEAT=IGNORE
          DIV    TYPE=INOUT
DFLDIND1  DFLD   LTH=5,POS=(1,2)
DFLDIND2  DFLD   LTH=100,POS=(1,8)
          FMTEND
FMTDP2    FMT
          DEV    TYPE=DPM-B1,FEAT=IGNORE,
                 MODE=RECORD,DSCA=X'00A0'                       X
          DIV    TYPE=OUTPUT,OPTIONS=(MSG,NODNM)
PPAGE1    PPAGE
DFLDOUT1  DFLD   LTH=5
DFLDOUT2  DFLD   LTH=100
          FMTEND
FMTDPM    FMT
          DEV    TYPE=DPM-B1,FEAT=IGNORE,MODE=RECORD
          DIV    TYPE=INPUT,OPTIONS=(DPAGE,NODNM),                      X
                 PRN=DFLDINP3,                                          X
                 RDPN=DFLDINP4,                                         X
                 RPRN=DFLDINP5
PPAGE2    PPAGE
DFLDINP1  DFLD   LTH=5
DFLDINP2  DFLD   LTH=100
          DIV    TYPE=OUTPUT,OPTIONS=(DPAGE,NODNM)
DPAGE2    DPAGE
DPAGE3    PPAGE
DFLDOUT3  DFLD   LTH=5
DFLDOUT4  DFLD   LTH=100
          DFLD   SCA,LTH=2
          FMTEND
MFSMOD1   MSG    TYPE=OUTPUT,SOR=(FMTDP2,IGNORE),                       X
                 NXT=MFSMID1
          SEG
          MFLD   DFLDOUT1,LTH=5
          MFLD   DFLDOUT2,LTH=100
          MSGEND

MFSMODE2  MSG    TYPE=OUTPUT,SOR=(FMTDPM,IGNORE),                       X
                 NXT=MFSMID1
          SEG
          MFLD   DFLDOUT3,LTH=5
          MFLD   DFLDOUT4,LTH=100
          MFLD   (,SCA),LTH=2
          MSGEND
MFSMID1   MSG    TYPE=INPUT,SOR=(FMTDPM,IGNORE),                        X
                 NXT=MFSMODD
          SEG
          MFLD   DFLDINP1,LTH=5
          MFLD   DFLDINP3,LTH=8
          MFLD   DFLDINP4,LTH=8
          MFLD   DFLDINP5,LTH=8
          MFLD   DFLDINP2,LTH=100
          MSGEND
MFSMIDD   MSG    TYPE=INPUT,SOR=(FMTDIS,IGNORE),                        X
                 NXT=MFSMOD1
          SEG
          MFLD   DFLDIND1,LTH=5
          MFLD   DFLDIND2,LTH=100
          MSGEND
MFSMODD   MSG    TYPE=INPUT,SOR=(FMTDIS,IGNORE),
                 NXT=MFSMIDD
          SEG
          MFLD   DFLDIND1,LTH=5
          MFLD   DFLDIND2,LTH=100
          MSGEND
          END