*  Copyright (C) 1991-2007 Micro Focus International Ltd.
*  All rights reserved.
*
         PRINT NOGEN
INTEST00 MSG   TYPE=INPUT,SOR=TEST00,NXT=OTTEST00
         SEG
         MFLD  FLD0000,LTH=0079,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0001,LTH=0001,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0002,LTH=0007,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0003,LTH=0007,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0004,LTH=0020,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0005,LTH=0005,JUST=L,FILL=C' '
         MFLD  LTH=0002
         MFLD  FLD0006,LTH=0001,JUST=L,FILL=C' '
         MSGEND   END OF INPUT MFLDS
OTTEST00 MSG   TYPE=OUTPUT,SOR=(TEST00,IGNORE),FILL=NULL,PAGE=YES,     X
               NXT=INTEST00
         SEG
         MFLD  FLD0000,LTH=0079
         MFLD  FLD0001,LTH=0003,ATTR=YES
         MFLD  FLD0002,LTH=0009,ATTR=YES
         MFLD  FLD0003,LTH=0009,ATTR=YES
         MFLD  FLD0004,LTH=0022,ATTR=YES
         MFLD  FLD0005,LTH=0007,ATTR=YES
         MFLD  FLD0006,LTH=0003,ATTR=YES
         MSGEND   END OF OUTPUT MFLDS
TEST00   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,MOD,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  'SELECT',POS=(06,02)
         DFLD  'ONE',POS=(06,10),ATTR=(HI)
         DFLD  'OF THE FOLLOWING OPTIONS:',POS=(06,15)
         DFLD  '<A>DD',POS=(08,03),ATTR=(HI)
         DFLD  'A TESTING SERVICE REQUEST ===============>',           X
               POS=(08,10)
FLD0001  DFLD  LTH=0001,POS=(08,57),ATTR=(NOPROT,NOMOD)
         DFLD  '<U>PDATE',POS=(10,03),ATTR=(HI)
         DFLD  'A TESTING SERVICE REQUEST ============>',              X
               POS=(10,13)
FLD0002  DFLD  LTH=0007,POS=(10,57),ATTR=(NOPROT,NOMOD)
         DFLD  '<I>NQUIRE',POS=(12,03),ATTR=(HI)
         DFLD  'ABOUT A TESTING SERVICE REQUEST =====>',               X
               POS=(12,14)
FLD0003  DFLD  LTH=0007,POS=(12,57),ATTR=(NOPROT,NOMOD)
         DFLD  '<R>EVIEW',POS=(14,03),ATTR=(HI)
         DFLD  'TEST DATA BY TESTER   ',POS=(14,13)
FLD0004  DFLD  LTH=0020,POS=(14,36),ATTR=(NOPROT,NOMOD)
         DFLD  'OR',POS=(14,58),ATTR=(HI)
         DFLD  'BY DEPARTMENT',POS=(14,62)
FLD0005  DFLD  LTH=0005,POS=(14,76),ATTR=(NOPROT,NOMOD)
         DFLD  '<E>XIT',POS=(16,03),ATTR=(HI)
         DFLD  '============================================>',        X
               POS=(16,11)
FLD0006  DFLD  LTH=0001,POS=(16,57),ATTR=(NOPROT,NOMOD)
         FMTEND
         END
