*# Last Updated by IBMUSER at 23/01/2015 2:25:42 p.m.
         PRINT  NOGEN
CICS2S   DFHMSD TYPE=&SYSPARM,LANG=COBOL,MODE=INOUT,TERM=3270-2,       X
               CTRL=FREEKB,STORAGE=AUTO,MAPATTS=(COLOR,HILIGHT),       X
               DSATTS=(COLOR,HILIGHT),TIOAPFX=YES
CICS2S   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,34),LENGTH=12,ATTRB=(NORM,ASKIP),               X
               INITIAL='UPDATE CustF',COLOR=GREEN
SCNST4   DFHMDF POS=(1,76),LENGTH=4,ATTRB=(NORM,ASKIP),INITIAL='TRN2', 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=(3,68),LENGTH=3,ATTRB=(NORM,ASKIP),INITIAL='and',  X
               COLOR=GREEN
CNST15   DFHMDF POS=(4,8),LENGTH=9,ATTRB=(NORM,ASKIP),                 X
               INITIAL='Function.',COLOR=GREEN
Function DFHMDF POS=(4,18),LENGTH=1,ATTRB=(NORM,UNPROT,FSET),          X
               COLOR=TURQUOISE
EFLD17   DFHMDF POS=(4,20),LENGTH=7,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST18   DFHMDF POS=(4,28),LENGTH=13,ATTRB=(NORM,ASKIP),               X
               INITIAL='E, U, A, or D',COLOR=GREEN
CNST19   DFHMDF POS=(4,42),LENGTH=15,ATTRB=(NORM,ASKIP),               X
               INITIAL='and press Enter',COLOR=GREEN
CNST20   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
EFLD22   DFHMDF POS=(6,47),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST23   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
EFLD25   DFHMDF POS=(7,47),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST26   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
EFLD28   DFHMDF POS=(8,53),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST29   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
EFLD31   DFHMDF POS=(9,53),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST32   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
EFLD34   DFHMDF POS=(10,45),LENGTH=9,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST35   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
EFLD37   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),COLOR=BLUE
         DFHMSD TYPE=FINAL
         End