*# Last Updated by IBMUSER at 28/12/2014 8:19:37 a.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
CNST5    DFHMDF POS=(1,33),LENGTH=14,ATTRB=(NORM,ASKIP),               X
               INITIAL='CustF Enquiry ',COLOR=GREEN
SCNST4   DFHMDF POS=(1,76),LENGTH=4,ATTRB=(NORM,ASKIP),INITIAL='@Trn', X
               COLOR=BLUE
CNST6    DFHMDF POS=(3,1),LENGTH=8,ATTRB=(NORM,ASKIP),                 X
               INITIAL='Enter =>',COLOR=GREEN
CNST7    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
EFLD9    DFHMDF POS=(3,33),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST10   DFHMDF POS=(3,35),LENGTH=8,ATTRB=(NORM,ASKIP),                X
               INITIAL='   OR =>',COLOR=GREEN
CNST11   DFHMDF POS=(3,44),LENGTH=5,ATTRB=(NORM,ASKIP),INITIAL='Name.',X
               COLOR=GREEN
Name     DFHMDF POS=(3,50),LENGTH=15,ATTRB=(NORM,UNPROT),              X
               COLOR=TURQUOISE
EFLD13   DFHMDF POS=(3,66),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST14   DFHMDF POS=(4,8),LENGTH=15,ATTRB=(NORM,ASKIP),                X
               INITIAL='and press Enter',COLOR=GREEN
CNST15   DFHMDF POS=(6,26),LENGTH=7,ATTRB=(NORM,ASKIP),                X
               INITIAL='Region.',COLOR=GREEN
Region   DFHMDF POS=(6,42),LENGTH=4,ATTRB=(NORM,UNPROT,NUM),           X
               COLOR=TURQUOISE
EFLD17   DFHMDF POS=(6,47),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST18   DFHMDF POS=(7,26),LENGTH=9,ATTRB=(NORM,ASKIP),                X
               INITIAL='District.',COLOR=GREEN
District DFHMDF POS=(7,42),LENGTH=4,ATTRB=(NORM,UNPROT,NUM),           X
               COLOR=TURQUOISE
EFLD20   DFHMDF POS=(7,47),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST21   DFHMDF POS=(8,26),LENGTH=15,ATTRB=(NORM,ASKIP),               X
               INITIAL='SalesThisMonth.',COLOR=GREEN
SalesThisMonth DFHMDF POS=(8,42),LENGTH=10,ATTRB=(NORM,UNPROT,NUM),    X
               COLOR=TURQUOISE
EFLD23   DFHMDF POS=(8,53),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST24   DFHMDF POS=(9,26),LENGTH=9,ATTRB=(NORM,ASKIP),                X
               INITIAL='SalesYTD.',COLOR=GREEN
SalesYTD DFHMDF POS=(9,42),LENGTH=10,ATTRB=(NORM,UNPROT,NUM),          X
               COLOR=TURQUOISE
EFLD26   DFHMDF POS=(9,53),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST27   DFHMDF POS=(10,26),LENGTH=13,ATTRB=(NORM,ASKIP),              X
               INITIAL='Billingcycle.',COLOR=GREEN
Billingcycle DFHMDF POS=(10,42),LENGTH=2,ATTRB=(NORM,UNPROT,NUM),      X
               COLOR=TURQUOISE
EFLD29   DFHMDF POS=(10,45),LENGTH=9,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST30   DFHMDF POS=(11,26),LENGTH=14,ATTRB=(NORM,ASKIP),              X
               INITIAL='DateCommenced.',COLOR=GREEN
DateCommenced DFHMDF POS=(11,42),LENGTH=10,ATTRB=(NORM,UNPROT),        X
               COLOR=TURQUOISE
EFLD32   DFHMDF POS=(11,53),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
Error    DFHMDF POS=(23,1),LENGTH=80,ATTRB=(BRT,ASKIP),COLOR=YELLOW
JZAidHelp DFHMDF POS=(24,2),LENGTH=77,ATTRB=(NORM,ASKIP),              X
               INITIAL='PF Keys.  PF3=Return, PF12 = Exit              X
                                            .',COLOR=BLUE
         DFHMSD TYPE=FINAL
         End