*  Copyright (C) 1991-2007 Micro Focus International Ltd.
*  All rights reserved.
*
         PRINT NOGEN
INDEMO92 MSG   TYPE=INPUT,SOR=DEMO92,NXT=OTDEMO92
         SEG
         MFLD  FLD0000,LTH=0079,JUST=L,FILL=C' '
         MFLD  FLD0001,LTH=0008,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0002,LTH=0007,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0003,LTH=0032,JUST=L,FILL=C' '
         MFLD  FLD0004,LTH=0035,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0005,LTH=0036,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0006,LTH=0050,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0007,LTH=0002,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0008,LTH=0002,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0009,LTH=0008,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0010,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0011,LTH=0008,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0012,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0013,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0014,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0015,LTH=0020,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0016,LTH=0050,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0017,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0018,LTH=0020,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0019,LTH=0050,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0020,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0021,LTH=0020,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0022,LTH=0050,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0023,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0024,LTH=0020,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0025,LTH=0050,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0026,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0027,LTH=0020,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0028,LTH=0050,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0029,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0030,LTH=0020,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0031,LTH=0050,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0032,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0033,LTH=0020,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0034,LTH=0050,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0035,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0036,LTH=0020,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0037,LTH=0050,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0038,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0039,LTH=0020,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0040,LTH=0050,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0041,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0042,LTH=0020,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0043,LTH=0050,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0044,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0045,LTH=0020,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0046,LTH=0050,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0047,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0048,LTH=0020,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0049,LTH=0050,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0050,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0051,LTH=0020,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0052,LTH=0050,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0053,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0054,LTH=0020,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0055,LTH=0050,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0056,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0057,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0058,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0059,LTH=0020,JUST=L,FILL=C' '
         MSGEND   END OF INPUT MFLDS
OTDEMO92 MSG   TYPE=OUTPUT,SOR=(DEMO92,IGNORE),FILL=NULL,PAGE=YES,     X
               NXT=INDEMO92
         SEG
         MFLD  FLD0000,LTH=0079
         MFLD  FLD0001,LTH=0008
         MFLD  FLD0002,LTH=0009,ATTR=YES
         MFLD  FLD0003,LTH=0034,ATTR=YES
         MFLD  FLD0004,LTH=0035
         MFLD  FLD0005,LTH=0038,ATTR=YES
         MFLD  FLD0006,LTH=0052,ATTR=YES
         MFLD  FLD0007,LTH=0004,ATTR=YES
         MFLD  FLD0008,LTH=0004,ATTR=YES
         MFLD  FLD0009,LTH=0010,ATTR=YES
         MFLD  FLD0010,LTH=0003,ATTR=YES
         MFLD  FLD0011,LTH=0010,ATTR=YES
         MFLD  FLD0012,LTH=0003,ATTR=YES
         MFLD  FLD0013,LTH=0003,ATTR=YES
         MFLD  FLD0014,LTH=0003,ATTR=YES
         MFLD  FLD0015,LTH=0022,ATTR=YES
         MFLD  FLD0016,LTH=0052,ATTR=YES
         MFLD  FLD0017,LTH=0003,ATTR=YES
         MFLD  FLD0018,LTH=0022,ATTR=YES
         MFLD  FLD0019,LTH=0052,ATTR=YES
         MFLD  FLD0020,LTH=0003,ATTR=YES
         MFLD  FLD0021,LTH=0022,ATTR=YES
         MFLD  FLD0022,LTH=0052,ATTR=YES
         MFLD  FLD0023,LTH=0003,ATTR=YES
         MFLD  FLD0024,LTH=0022,ATTR=YES
         MFLD  FLD0025,LTH=0052,ATTR=YES
         MFLD  FLD0026,LTH=0003,ATTR=YES
         MFLD  FLD0027,LTH=0022,ATTR=YES
         MFLD  FLD0028,LTH=0052,ATTR=YES
         MFLD  FLD0029,LTH=0003,ATTR=YES
         MFLD  FLD0030,LTH=0022,ATTR=YES
         MFLD  FLD0031,LTH=0052,ATTR=YES
         MFLD  FLD0032,LTH=0003,ATTR=YES
         MFLD  FLD0033,LTH=0022,ATTR=YES
         MFLD  FLD0034,LTH=0052,ATTR=YES
         MFLD  FLD0035,LTH=0003,ATTR=YES
         MFLD  FLD0036,LTH=0022,ATTR=YES
         MFLD  FLD0037,LTH=0052,ATTR=YES
         MFLD  FLD0038,LTH=0003,ATTR=YES
         MFLD  FLD0039,LTH=0022,ATTR=YES
         MFLD  FLD0040,LTH=0052,ATTR=YES
         MFLD  FLD0041,LTH=0003,ATTR=YES
         MFLD  FLD0042,LTH=0022,ATTR=YES
         MFLD  FLD0043,LTH=0052,ATTR=YES
         MFLD  FLD0044,LTH=0003,ATTR=YES
         MFLD  FLD0045,LTH=0022,ATTR=YES
         MFLD  FLD0046,LTH=0052,ATTR=YES
         MFLD  FLD0047,LTH=0003,ATTR=YES
         MFLD  FLD0048,LTH=0022,ATTR=YES
         MFLD  FLD0049,LTH=0052,ATTR=YES
         MFLD  FLD0050,LTH=0003,ATTR=YES
         MFLD  FLD0051,LTH=0022,ATTR=YES
         MFLD  FLD0052,LTH=0052,ATTR=YES
         MFLD  FLD0053,LTH=0003,ATTR=YES
         MFLD  FLD0054,LTH=0022,ATTR=YES
         MFLD  FLD0055,LTH=0052,ATTR=YES
         MFLD  FLD0056,LTH=0003,ATTR=YES
         MFLD  FLD0057,LTH=0003,ATTR=YES
         MFLD  FLD0058,LTH=0003,ATTR=YES
         MFLD  FLD0059,LTH=0022,ATTR=YES
         MSGEND   END OF OUTPUT MFLDS
DEMO92   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=(NUM,PROT,MOD)
         DFLD  'Micro Focus International Ltd. TABLE FILE MAINTENANCE',X
               POS=(02,12),ATTR=(HI)
FLD0002  DFLD  LTH=0007,POS=(02,68),ATTR=(NOPROT,NOMOD)
         DFLD  'TABLE-ID:',POS=(03,02)
FLD0003  DFLD  LTH=0032,POS=(03,12),ATTR=(NOPROT,NOMOD)
FLD0004  DFLD  LTH=0035,POS=(03,46),ATTR=(NUM,PROT,NOMOD,HI)
         DFLD  'DESCRIPTION:',POS=(04,02)
FLD0005  DFLD  LTH=0036,POS=(04,15),ATTR=(NOPROT,NOMOD)
FLD0006  DFLD  LTH=0050,POS=(05,02),ATTR=(NOPROT,NOMOD)
         DFLD  'NUMBER OF CHARACTERS IN ELEMENT KEY:',POS=(06,03)
FLD0007  DFLD  LTH=0002,POS=(06,40),ATTR=(NOPROT,NOMOD)
         DFLD  'NUMBER OF CHARACTERS IN ELEMENT:',POS=(06,43)
FLD0008  DFLD  LTH=0002,POS=(06,76),ATTR=(NOPROT,NOMOD)
         DFLD  'LAST ACTIVITY DATE',POS=(07,03)
FLD0009  DFLD  LTH=0008,POS=(07,22),ATTR=(NOPROT,NOMOD)
         DFLD  'PASSWORD PROTECT:',POS=(07,31)
FLD0010  DFLD  LTH=0001,POS=(07,49),ATTR=(NOPROT,NOMOD)
         DFLD  'PASSWORD:',POS=(07,51)
FLD0011  DFLD  LTH=0008,POS=(07,61),ATTR=(NOPROT,NOMOD)
         DFLD  'NUMERIC KEY:',POS=(08,03)
FLD0012  DFLD  LTH=0001,POS=(08,16),ATTR=(NOPROT,NOMOD)
         DFLD  'NUMERIC ELEMENT VALUE:',POS=(08,18)
FLD0013  DFLD  LTH=0001,POS=(08,41),ATTR=(NOPROT,NOMOD)
         DFLD  'FUNC ELEMENT KEY          ELEMENT VALUE/DESCRIPTION',  X
               POS=(09,02)
FLD0014  DFLD  LTH=0001,POS=(10,05),ATTR=(NOPROT,NOMOD)
FLD0015  DFLD  LTH=0020,POS=(10,07),ATTR=(NOPROT,NOMOD)
FLD0016  DFLD  LTH=0050,POS=(10,28),ATTR=(NOPROT,NOMOD)
FLD0017  DFLD  LTH=0001,POS=(11,05),ATTR=(NOPROT,NOMOD)
FLD0018  DFLD  LTH=0020,POS=(11,07),ATTR=(NOPROT,NOMOD)
FLD0019  DFLD  LTH=0050,POS=(11,28),ATTR=(NOPROT,NOMOD)
FLD0020  DFLD  LTH=0001,POS=(12,05),ATTR=(NOPROT,NOMOD)
FLD0021  DFLD  LTH=0020,POS=(12,07),ATTR=(NOPROT,NOMOD)
FLD0022  DFLD  LTH=0050,POS=(12,28),ATTR=(NOPROT,NOMOD)
FLD0023  DFLD  LTH=0001,POS=(13,05),ATTR=(NOPROT,NOMOD)
FLD0024  DFLD  LTH=0020,POS=(13,07),ATTR=(NOPROT,NOMOD)
FLD0025  DFLD  LTH=0050,POS=(13,28),ATTR=(NOPROT,NOMOD)
FLD0026  DFLD  LTH=0001,POS=(14,05),ATTR=(NOPROT,NOMOD)
FLD0027  DFLD  LTH=0020,POS=(14,07),ATTR=(NOPROT,NOMOD)
FLD0028  DFLD  LTH=0050,POS=(14,28),ATTR=(NOPROT,NOMOD)
FLD0029  DFLD  LTH=0001,POS=(15,05),ATTR=(NOPROT,NOMOD)
FLD0030  DFLD  LTH=0020,POS=(15,07),ATTR=(NOPROT,NOMOD)
FLD0031  DFLD  LTH=0050,POS=(15,28),ATTR=(NOPROT,NOMOD)
FLD0032  DFLD  LTH=0001,POS=(16,05),ATTR=(NOPROT,NOMOD)
FLD0033  DFLD  LTH=0020,POS=(16,07),ATTR=(NOPROT,NOMOD)
FLD0034  DFLD  LTH=0050,POS=(16,28),ATTR=(NOPROT,NOMOD)
FLD0035  DFLD  LTH=0001,POS=(17,05),ATTR=(NOPROT,NOMOD)
FLD0036  DFLD  LTH=0020,POS=(17,07),ATTR=(NOPROT,NOMOD)
FLD0037  DFLD  LTH=0050,POS=(17,28),ATTR=(NOPROT,NOMOD)
FLD0038  DFLD  LTH=0001,POS=(18,05),ATTR=(NOPROT,NOMOD)
FLD0039  DFLD  LTH=0020,POS=(18,07),ATTR=(NOPROT,NOMOD)
FLD0040  DFLD  LTH=0050,POS=(18,28),ATTR=(NOPROT,NOMOD)
FLD0041  DFLD  LTH=0001,POS=(19,05),ATTR=(NOPROT,NOMOD)
FLD0042  DFLD  LTH=0020,POS=(19,07),ATTR=(NOPROT,NOMOD)
FLD0043  DFLD  LTH=0050,POS=(19,28),ATTR=(NOPROT,NOMOD)
FLD0044  DFLD  LTH=0001,POS=(20,05),ATTR=(NOPROT,NOMOD)
FLD0045  DFLD  LTH=0020,POS=(20,07),ATTR=(NOPROT,NOMOD)
FLD0046  DFLD  LTH=0050,POS=(20,28),ATTR=(NOPROT,NOMOD)
FLD0047  DFLD  LTH=0001,POS=(21,05),ATTR=(NOPROT,NOMOD)
FLD0048  DFLD  LTH=0020,POS=(21,07),ATTR=(NOPROT,NOMOD)
FLD0049  DFLD  LTH=0050,POS=(21,28),ATTR=(NOPROT,NOMOD)
FLD0050  DFLD  LTH=0001,POS=(22,05),ATTR=(NOPROT,NOMOD)
FLD0051  DFLD  LTH=0020,POS=(22,07),ATTR=(NOPROT,NOMOD)
FLD0052  DFLD  LTH=0050,POS=(22,28),ATTR=(NOPROT,NOMOD)
FLD0053  DFLD  LTH=0001,POS=(23,05),ATTR=(NOPROT,NOMOD)
FLD0054  DFLD  LTH=0020,POS=(23,07),ATTR=(NOPROT,NOMOD)
FLD0055  DFLD  LTH=0050,POS=(23,28),ATTR=(NOPROT,NOMOD)
         DFLD  'NEXT FUNCTION: RETURN',POS=(24,03)
FLD0056  DFLD  LTH=0001,POS=(24,25),ATTR=(NOPROT,NOMOD)
         DFLD  'CONTINUE',POS=(24,27)
FLD0057  DFLD  LTH=0001,POS=(24,36),ATTR=(NOPROT,NOMOD)
         DFLD  'ABORT',POS=(24,38)
FLD0058  DFLD  LTH=0001,POS=(24,44),ATTR=(NOPROT,NOMOD)
         DFLD  'NEXT-ELEMENT',POS=(24,46)
FLD0059  DFLD  LTH=0020,POS=(24,59),ATTR=(NOPROT,NOMOD)
         STACK OFF  
         DEV   TYPE=3270-A7,FEAT=IGNORE,DSCA=X'00C0'
         UNSTACK
         FMTEND
         END
