MFS formats

This is shipped as copy code in data set MFSSISC0 in IMS.ADFSMAC.

  //MFSUTL JOB ACCT,NAME,CLASS=A,MSGLEVEL=(1,1)       
  //JOBLIB  DD  DSN=IMS.SDFSRESL,DISP=SHR
  //         PROC RGN=360K,SOUT=A,SNODE=IMSVS,
  //             SOR=NOLIB,MBR=NOMBR,PXREF=NOXREF,
  //             PCOMP=NOCOMP,PSUBS=NOSUBS,PDIAG=NODIAG,
  //             COMPR=NOCOMPRESS,COMPR2=COMPRESS,
  //             LN=55,SN=8,DEVCHAR=0
  //S1       EXEC PGM=DFSUPAA0,REGION=&RGN,
  //  PARM=(&PXREF,&PCOMP,&PSUBS,&PDIAG,&COMPR,
  //  'LINECNT=&LN,STOPRC=&SN,DEVCHAR=&DEVCHAR')
  //SYSLIB   DD   DSN=IMS.SDFSMAC,DISP=SHR
  //SYSIN    DD   DSN=&SNODE..&SOR.(&MBR),DISP=SHR
  //REFIN    DD   DSN=IMS.REFERAL,DISP=OLD
  //REFOUT   DD   DSN=IMS.REFERAL,DISP=OLD
  //REFRD    DD   DSN=IMS.REFERAL,DISP=OLD
  //SYSTEXT  DD   DSN=&&TXTPASS,UNIT=SYSDA,
  //             SPACE=(CYL,(1,1)),DCB=BLKSIZE=800
  //SYSUT3   DD   UNIT=SYSDA,SPACE=(CYL,(1,1))
  //SYSUT4   DD   UNIT=SYSDA,SPACE=(CYL,(1,1))
  //UTPRINT  DD   SYSOUT=&SOUT
  //SYSPRINT DD   SYSOUT=&SOUT,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330)
  //SYSUDUMP DD   SYSOUT=&SOUT
  //SEQBLKS  DD   DSN=&&BLKS,DISP=(NEW,PASS),
  //             UNIT=SYSDA,SPACE=(CYL,(1,1))
  //S2       EXEC PGM=DFSUNUB0,REGION=&RGN,
  //             PARM='&COMPR2,DEVCHAR=&DEVCHAR',
  //             COND=(8,LT,S1)
  //SEQBLKS  DD   DSN=&&BLKS,DISP=(OLD,DELETE)
  //UTPRINT  DD   SYSOUT=&SOUT,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330)
  //SYSUDUMP DD   SYSOUT=&SOUT
  //FORMAT   DD   DSN=IMS.FORMAT,DISP=OLD
  //SYSPRINT DD   SYSOUT=&SOUT
  //SYSUT3   DD   UNIT=SYSDA,SPACE=(CYL,(1,1))
  //SYSUT4   DD   UNIT=SYSDA,SPACE=(CYL,(1,1))
  //  PEND
  //MFSUTL   EXEC MFSUTL,SOUT=A
  //S1.SYSIN DD *
         PRINT ON,NOGEN
FMTA     FMT
         SPACE 3
         DEV   TYPE=DPM─B1,FEAT=IGNORE,DSCA=X'00A0'
         SPACE 2
         DIV   TYPE=OUTPUT,OPTIONS=(DPAGE,NODNM)
         SPACE 3
DPAGE01  DPAGE FILL=NULL
PPAGE01  PPAGE
         DFLD  'PAGE'
LPGNO    DFLD  LTH=04
         DFLD  ' '
         SPACE 2
DATA01   DFLD  LTH=20
         SPACE 3
         FMTEND
         EJECT
MODA     MSG   TYPE=OUTPUT,SOR=(FMTA,IGNORE),PAGE=YES
         SPACE 3
         SEG
         SPACE 2
         MFLD  (LPGNO,LPAGENO)
         MFLD  DATA01,LTH=20
         SPACE 3
         MSGEND
         END
/*