*# Last Updated by IBMUSER at 11/11/2014 2:42:02 p.m.
         PRINT  NOGEN
CICS1S   DFHMSD TYPE=&SYSPARM,LANG=COBOL,MODE=INOUT,TERM=3270-2,       X
               CTRL=FREEKB,STORAGE=AUTO,MAPATTS=(COLOR,HILIGHT),       X
               DSATTS=(COLOR,HILIGHT),TIOAPFX=YES
CICS1S   DFHMDI SIZE=(24,80),LINE=1,COLUMN=1
SCNST1   DFHMDF POS=(1,1),LENGTH=6,ATTRB=(NORM,ASKIP),INITIAL='TMPL01',X
               COLOR=BLUE
CNST6    DFHMDF POS=(1,33),LENGTH=14,ATTRB=(NORM,ASKIP),               X
               INITIAL='CustF Enquiry ',COLOR=GREEN
SCNST4   DFHMDF POS=(1,75),LENGTH=4,ATTRB=(NORM,ASKIP),INITIAL='TRN1', X
               COLOR=BLUE
CNST7    DFHMDF POS=(3,1),LENGTH=8,ATTRB=(NORM,ASKIP),                 X
               INITIAL='Enter =>',COLOR=GREEN
CNST8    DFHMDF POS=(3,10),LENGTH=15,ATTRB=(NORM,ASKIP),               X
               INITIAL='Account Number.',COLOR=GREEN
Account  DFHMDF POS=(3,26),LENGTH=6,ATTRB=(NORM,UNPROT,NUM,IC),        X
               COLOR=TURQUOISE
EFLD10   DFHMDF POS=(3,33),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST11   DFHMDF POS=(3,35),LENGTH=15,ATTRB=(NORM,ASKIP),               X
               INITIAL='and press Enter',COLOR=GREEN
CNST12   DFHMDF POS=(5,24),LENGTH=7,ATTRB=(NORM,ASKIP),                X
               INITIAL='Region.',COLOR=GREEN
Region   DFHMDF POS=(5,40),LENGTH=4,ATTRB=(NORM,UNPROT,NUM),           X
               COLOR=TURQUOISE
EFLD14   DFHMDF POS=(5,45),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST15   DFHMDF POS=(6,24),LENGTH=9,ATTRB=(NORM,ASKIP),                X
               INITIAL='District.',COLOR=GREEN
District DFHMDF POS=(6,40),LENGTH=4,ATTRB=(NORM,UNPROT,NUM),           X
               COLOR=TURQUOISE
EFLD17   DFHMDF POS=(6,45),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST18   DFHMDF POS=(7,24),LENGTH=5,ATTRB=(NORM,ASKIP),INITIAL='Name.',X
               COLOR=GREEN
Name     DFHMDF POS=(7,40),LENGTH=15,ATTRB=(NORM,UNPROT),              X
               COLOR=TURQUOISE
EFLD20   DFHMDF POS=(7,56),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST21   DFHMDF POS=(8,24),LENGTH=15,ATTRB=(NORM,ASKIP),               X
               INITIAL='SalesThisMonth.',COLOR=GREEN
SalesThisMonth DFHMDF POS=(8,40),LENGTH=10,ATTRB=(NORM,UNPROT,NUM),    X
               COLOR=TURQUOISE
EFLD23   DFHMDF POS=(8,51),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST24   DFHMDF POS=(9,24),LENGTH=9,ATTRB=(NORM,ASKIP),                X
               INITIAL='SalesYTD.',COLOR=GREEN
SalesYTD DFHMDF POS=(9,40),LENGTH=10,ATTRB=(NORM,UNPROT,NUM),          X
               COLOR=TURQUOISE
EFLD26   DFHMDF POS=(9,51),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST27   DFHMDF POS=(10,24),LENGTH=13,ATTRB=(NORM,ASKIP),              X
               INITIAL='Billingcycle.',COLOR=GREEN
Billingcycle DFHMDF POS=(10,40),LENGTH=2,ATTRB=(NORM,UNPROT,NUM),      X
               COLOR=TURQUOISE
EFLD29   DFHMDF POS=(10,43),LENGTH=9,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST30   DFHMDF POS=(11,24),LENGTH=14,ATTRB=(NORM,ASKIP),              X
               INITIAL='DateCommenced.',COLOR=GREEN
DateCommenced DFHMDF POS=(11,40),LENGTH=10,ATTRB=(NORM,UNPROT),        X
               COLOR=TURQUOISE
EFLD32   DFHMDF POS=(11,51),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
Error    DFHMDF POS=(23,1),LENGTH=80,ATTRB=(BRT,ASKIP),COLOR=YELLOW
SCNST6   DFHMDF POS=(24,2),LENGTH=33,ATTRB=(NORM,ASKIP),               X
               INITIAL='PF Keys.  PF3=Return, PF12 = Exit',COLOR=BLUE
SCNST7   DFHMDF POS=(24,79),LENGTH=1,ATTRB=(NORM,ASKIP,FSET),          X
               INITIAL='@',COLOR=BLUE
         DFHMSD TYPE=FINAL
         End