*  Copyright (C) 1991-2007 Micro Focus International Ltd.
*  All rights reserved.
*
         PRINT NOGEN
INDEMO91 MSG   TYPE=INPUT,SOR=DEMO91,NXT=OTDEMO91
         SEG
*         MFLD  'MFDEMO ',LTH=09
*         MFLD  ' ',LTH=70
         MFLD  FLD0000,LTH=0079
         MFLD  'OTDEMO91',LTH=08
         MFLD  FLD0002,LTH=0035,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0003,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0004,LTH=0032,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0005,LTH=0020,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0006,LTH=0008,JUST=L,FILL=C' '
         MSGEND   END OF INPUT MFLDS
OTDEMO91 MSG   TYPE=OUTPUT,SOR=(DEMO91,IGNORE),FILL=NULL,PAGE=YES,     X
               NXT=INDEMO91
         SEG
         MFLD  FLD0000,LTH=0079
         MFLD  FLD0001,LTH=0008
         MFLD  FLD0002,LTH=0035
         MFLD  FLD0003,LTH=0003,ATTR=YES
         MFLD  FLD0004,LTH=0034,ATTR=YES
         MFLD  FLD0005,LTH=0022,ATTR=YES
         MFLD  FLD0006,LTH=0010,ATTR=YES
         MSGEND   END OF OUTPUT MFLDS
DEMO91   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,MOD,HI)
FLD0001  DFLD  LTH=0008,POS=(02,02),ATTR=(PROT,MOD)
         DFLD  'Micro Focus International Ltd. TABLE FILE MAINTENANCE',X
               POS=(02,12),ATTR=(HI)
FLD0002  DFLD  LTH=0035,POS=(03,46),ATTR=(NUM,PROT,NOMOD,HI)
         DFLD  'SELECT ONE OF THE FOLLOWING FUNCTION CODES:',          X
               POS=(04,02)
         DFLD  '<A>DD      - TABLE FILE',POS=(06,02)
         DFLD  '<C>HANGE   - TABLE FILE',POS=(07,02)
         DFLD  '<D>ELETE   - TABLE FILE',POS=(08,02)
         DFLD  '<I>NQUIRE  - TABLE FILE',POS=(09,02)
         DFLD  '<E>ND      - TRANSACTION CODE',POS=(12,02)
         DFLD  'FUNCTION CODE',POS=(14,02)
FLD0003  DFLD  LTH=0001,POS=(14,16),ATTR=(NOPROT,NOMOD)
         DFLD  'TABLE-ID',POS=(22,02)
FLD0004  DFLD  LTH=0032,POS=(22,13),ATTR=(NOPROT,NOMOD)
FLD0005  DFLD  LTH=0020,POS=(22,46),ATTR=(NOPROT,NOMOD)
         DFLD  'PASSWORD',POS=(23,02)
FLD0006  DFLD  LTH=0008,POS=(23,13),ATTR=(NOPROT,NODISP)
         STACK OFF  
         DEV   TYPE=3270-A7,FEAT=IGNORE,DSCA=X'00C0'
         UNSTACK
         FMTEND
         END
