*# Last Updated by IBMUSER at 18/04/2018 12:42:23 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='CICS2S',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
EFLD8    DFHMDF POS=(3,33),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST9    DFHMDF POS=(3,35),LENGTH=5,ATTRB=(NORM,ASKIP),INITIAL='OR =>',X
               COLOR=GREEN
CNST10   DFHMDF POS=(3,41),LENGTH=5,ATTRB=(NORM,ASKIP),INITIAL='Name.',X
               COLOR=GREEN
Name     DFHMDF POS=(3,47),LENGTH=30,ATTRB=(NORM,UNPROT),              X
               COLOR=TURQUOISE
EFLD11   DFHMDF POS=(3,78),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST12   DFHMDF POS=(4,1),LENGTH=3,ATTRB=(NORM,ASKIP),INITIAL='and',   X
               COLOR=GREEN
Function DFHMDF POS=(5,11),LENGTH=1,ATTRB=(NORM,UNPROT,FSET),          X
               COLOR=TURQUOISE
EFLD13   DFHMDF POS=(5,13),LENGTH=7,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST14   DFHMDF POS=(5,21),LENGTH=13,ATTRB=(NORM,ASKIP),               X
               INITIAL='E, U, A, or D',COLOR=GREEN
CNST15   DFHMDF POS=(5,35),LENGTH=15,ATTRB=(NORM,ASKIP),               X
               INITIAL='and press Enter',COLOR=GREEN
CNST16   DFHMDF POS=(7,25),LENGTH=7,ATTRB=(NORM,ASKIP),                X
               INITIAL='Region.',COLOR=GREEN
Region   DFHMDF POS=(7,41),LENGTH=4,ATTRB=(NORM,UNPROT,NUM),           X
               COLOR=TURQUOISE
EFLD17   DFHMDF POS=(7,46),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST18   DFHMDF POS=(8,25),LENGTH=9,ATTRB=(NORM,ASKIP),                X
               INITIAL='District.',COLOR=GREEN
District DFHMDF POS=(8,41),LENGTH=4,ATTRB=(NORM,UNPROT,NUM),           X
               COLOR=TURQUOISE
EFLD19   DFHMDF POS=(8,46),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST20   DFHMDF POS=(9,25),LENGTH=15,ATTRB=(NORM,ASKIP),               X
               INITIAL='SalesThisMonth.',COLOR=GREEN
SalesThisMonth DFHMDF POS=(9,41),LENGTH=12,ATTRB=(NORM,UNPROT,NUM),    X
               COLOR=TURQUOISE
EFLD21   DFHMDF POS=(9,54),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST22   DFHMDF POS=(10,25),LENGTH=9,ATTRB=(NORM,ASKIP),               X
               INITIAL='SalesYTD.',COLOR=GREEN
SalesYTD DFHMDF POS=(10,41),LENGTH=12,ATTRB=(NORM,UNPROT,NUM),         X
               COLOR=TURQUOISE
EFLD23   DFHMDF POS=(10,54),LENGTH=1,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST24   DFHMDF POS=(11,25),LENGTH=13,ATTRB=(NORM,ASKIP),              X
               INITIAL='Billingcycle.',COLOR=GREEN
Billingcycle DFHMDF POS=(11,41),LENGTH=2,ATTRB=(NORM,UNPROT,NUM),      X
               COLOR=TURQUOISE
EFLD25   DFHMDF POS=(11,44),LENGTH=9,ATTRB=(NORM,ASKIP),COLOR=YELLOW
CNST26   DFHMDF POS=(12,25),LENGTH=14,ATTRB=(NORM,ASKIP),              X
               INITIAL='DateCommenced.',COLOR=GREEN
DateCommenced DFHMDF POS=(12,41),LENGTH=9,ATTRB=(NORM,UNPROT,NUM),     X
               COLOR=TURQUOISE
EFLD27   DFHMDF POS=(12,51),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