*  Copyright (C) 1991-2007 Micro Focus International Ltd.
*  All rights reserved.
*
         PRINT NOGEN
INTEST01 MSG   TYPE=INPUT,SOR=TEST01,NXT=OTTEST01
         SEG
         MFLD  FLD0000,LTH=0079,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0001,LTH=0020,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0002,LTH=0004,JUST=L,FILL=C' '
         MFLD  FLD0003,LTH=0008,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0004,LTH=0007,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0005,LTH=0005,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0006,LTH=0005,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0007,LTH=0007,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0008,LTH=0070,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0009,LTH=0070,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0010,LTH=0070,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0011,LTH=0070,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0012,LTH=0070,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0013,LTH=0070,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0014,LTH=0070,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0015,LTH=0070,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0016,LTH=0070,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0017,LTH=0070,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0018,LTH=0070,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0019,LTH=0070,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=0015,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0023,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0024,LTH=0007,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0025,LTH=0001,JUST=L,FILL=C' '
         MSGEND   END OF INPUT MFLDS
OTTEST01 MSG   TYPE=OUTPUT,SOR=(TEST01,IGNORE),FILL=NULL,PAGE=YES,     X
               NXT=INTEST01
         SEG
         MFLD  FLD0000,LTH=0079
         MFLD  FLD0001,LTH=0022,ATTR=YES
         MFLD  FLD0002,LTH=0006,ATTR=YES
         MFLD  FLD0003,LTH=0008
         MFLD  FLD0004,LTH=0009,ATTR=YES
         MFLD  FLD0005,LTH=0007,ATTR=YES
         MFLD  FLD0006,LTH=0007,ATTR=YES
         MFLD  FLD0007,LTH=0009,ATTR=YES
         MFLD  FLD0008,LTH=0072,ATTR=YES
         MFLD  FLD0009,LTH=0072,ATTR=YES
         MFLD  FLD0010,LTH=0072,ATTR=YES
         MFLD  FLD0011,LTH=0072,ATTR=YES
         MFLD  FLD0012,LTH=0072,ATTR=YES
         MFLD  FLD0013,LTH=0072,ATTR=YES
         MFLD  FLD0014,LTH=0072,ATTR=YES
         MFLD  FLD0015,LTH=0072,ATTR=YES
         MFLD  FLD0016,LTH=0072,ATTR=YES
         MFLD  FLD0017,LTH=0072,ATTR=YES
         MFLD  FLD0018,LTH=0072,ATTR=YES
         MFLD  FLD0019,LTH=0072,ATTR=YES
         MFLD  FLD0020,LTH=0003,ATTR=YES
         MFLD  FLD0021,LTH=0022,ATTR=YES
         MFLD  FLD0022,LTH=0017,ATTR=YES
         MFLD  FLD0023,LTH=0003,ATTR=YES
         MFLD  FLD0024,LTH=0009,ATTR=YES
         MFLD  FLD0025,LTH=0003,ATTR=YES
         MSGEND   END OF OUTPUT MFLDS
TEST01   FMT
         DEV   TYPE=(3270,2),FEAT=IGNORE,DSCA=X'00C0'
         DIV   TYPE=INOUT
DPAGE01  DPAGE CURSOR=((01,02,CURS01))
FLD0000  DFLD  LTH=0079,POS=(01,02),ATTR=(NOPROT,NOMOD,HI)
         DFLD  '=======================================================X
               ========================',POS=(02,02)
         DFLD  '|',POS=(03,02)
         DFLD  '* * * * * * T E S T I N G  S E R V I C E S  R E Q U E SX
                T * * *',POS=(03,05),ATTR=(HI)
         DFLD  '|',POS=(03,80)
         DFLD  '=======================================================X
               ========================',POS=(04,02)
         DFLD  'YOUR NAME',POS=(06,02)
FLD0001  DFLD  LTH=0020,POS=(06,12),ATTR=(NOPROT,NOMOD)
         DFLD  'PHONE/EXT',POS=(06,33)
FLD0002  DFLD  LTH=0004,POS=(06,43),ATTR=(NOPROT,NOMOD)
         DFLD  'DATE',POS=(06,48)
FLD0003  DFLD  LTH=0008,POS=(06,53),ATTR=(NUM,PROT,MOD)
         DFLD  'TEST NUMBER',POS=(06,62)
FLD0004  DFLD  LTH=0007,POS=(06,74),ATTR=(NOPROT,NOMOD)
         DFLD  'DEPARTMENT',POS=(08,02)
FLD0005  DFLD  LTH=0005,POS=(08,13),ATTR=(NOPROT,NOMOD)
         DFLD  'TESTING   LOCATION',POS=(08,19)
FLD0006  DFLD  LTH=0005,POS=(08,38),ATTR=(NOPROT,NOMOD)
         DFLD  'PRODUCT ABBREVIATION--',POS=(08,44)
FLD0007  DFLD  LTH=0007,POS=(08,67),ATTR=(NOPROT,NOMOD)
         DFLD  'DESCRIBE FAILURE BELOW:',POS=(10,02),ATTR=(HI)
FLD0008  DFLD  LTH=0070,POS=(11,02),ATTR=(NOPROT,NOMOD)
FLD0009  DFLD  LTH=0070,POS=(12,02),ATTR=(NOPROT,NOMOD)
FLD0010  DFLD  LTH=0070,POS=(13,02),ATTR=(NOPROT,NOMOD)
FLD0011  DFLD  LTH=0070,POS=(14,02),ATTR=(NOPROT,NOMOD)
FLD0012  DFLD  LTH=0070,POS=(15,02),ATTR=(NOPROT,NOMOD)
FLD0013  DFLD  LTH=0070,POS=(16,02),ATTR=(NOPROT,NOMOD)
FLD0014  DFLD  LTH=0070,POS=(17,02),ATTR=(NOPROT,NOMOD)
FLD0015  DFLD  LTH=0070,POS=(18,02),ATTR=(NOPROT,NOMOD)
FLD0016  DFLD  LTH=0070,POS=(19,02),ATTR=(NOPROT,NOMOD)
FLD0017  DFLD  LTH=0070,POS=(20,02),ATTR=(NOPROT,NOMOD)
FLD0018  DFLD  LTH=0070,POS=(21,02),ATTR=(NOPROT,NOMOD)
FLD0019  DFLD  LTH=0070,POS=(22,02),ATTR=(NOPROT,NOMOD)
         DFLD  'PRIORITY:',POS=(23,02)
FLD0020  DFLD  LTH=0001,POS=(23,12),ATTR=(NOPROT,NOMOD)
         DFLD  'ASSIGNED TO TESTER---:',POS=(23,14)
FLD0021  DFLD  LTH=0020,POS=(23,37),ATTR=(NOPROT,NOMOD)
         DFLD  'STATUS:',POS=(23,58)
FLD0022  DFLD  LTH=0015,POS=(23,66),ATTR=(NOPROT,NOMOD)
         DFLD  'RETURN TO PRIMARY MENU',POS=(24,02),ATTR=(HI)
FLD0023  DFLD  LTH=0001,POS=(24,27),ATTR=(NOPROT,NOMOD)
         DFLD  'NEXT TEST NO.',POS=(24,30),ATTR=(HI)
FLD0024  DFLD  LTH=0007,POS=(24,46),ATTR=(NOPROT,NOMOD)
         DFLD  'EXIT',POS=(24,55),ATTR=(HI)
FLD0025  DFLD  LTH=0001,POS=(24,62),ATTR=(NOPROT,NOMOD)
         FMTEND
         END
