*  Copyright (C) 1991-2007 Micro Focus International Ltd.
*  All rights reserved.
*
         PRINT NOGEN
INDEMO90 MSG   TYPE=INPUT,SOR=(DEMO90,IGNORE),NXT=OTDEMO90
         SEG
         MFLD  FLD0000,LTH=0079
         MSGEND   END OF INPUT MFLDS
OTDEMO90 MSG   TYPE=OUTPUT,SOR=(DEMO90,IGNORE),FILL=NULL,PAGE=NO,      X
               NXT=INDEMO90
         SEG
         MFLD  FLD0000,LTH=0079,ATTR=YES
         MFLD  FLD0001,LTH=0060
         MFLD  FLD0002,LTH=0060
         MFLD  FLD0003,LTH=0060
         MFLD  FLD0004,LTH=0060
         MFLD  FLD0005,LTH=0060
         MFLD  FLD0006,LTH=0060
         MSGEND   END OF OUTPUT MFLDS
DEMO90   FMT
         DEV   TYPE=(3270,2),FEAT=IGNORE,DSCA=X'00C0'
         STACK ON
         DIV   TYPE=INOUT
DPAGE01  DPAGE CURSOR=((01,02,CURS01))
FLD0000  DFLD  LTH=0079,POS=(01,02),ATTR=(NOPROT,NOMOD)
         DFLD  ' Micro Focus International Ltd.',POS=(03,25)
         DFLD  '               ',POS=(04,32)
FLD0001  DFLD  LTH=0060,POS=(07,11),ATTR=(NUM,PROT,NOMOD,HI)
FLD0002  DFLD  LTH=0060,POS=(09,11),ATTR=(NUM,PROT,NOMOD,HI)
FLD0003  DFLD  LTH=0060,POS=(11,11),ATTR=(NUM,PROT,NOMOD,HI)
FLD0004  DFLD  LTH=0060,POS=(13,11),ATTR=(NUM,PROT,NOMOD,HI)
FLD0005  DFLD  LTH=0060,POS=(15,11),ATTR=(NUM,PROT,NOMOD,HI)
FLD0006  DFLD  LTH=0060,POS=(17,11),ATTR=(NUM,PROT,NOMOD,HI)
         STACK OFF  
         DEV   TYPE=3270-A7,FEAT=IGNORE,DSCA=X'00C0'
         UNSTACK
         FMTEND
         END
