//KC03I98A JOB 'xxxxxxxx',MSGCLASS=H,MSGLEVEL=(1,1),REGION=8M,
//             NOTIFY=&SYSUID
//CICSPROC JCLLIB ORDER=(TSOECCC.CICSTS12.PROCLIB)
//*
//*********************************************************************
//*   THIS IS THE JCL REQUIRED FOR SUBMITTING YOUR BMS CODE
//*   1. CHANGE THE ?? ON LINE 000012 TO YOUR USER ID
//*   2. CHANGE THE MAPNAME AND THE DSCTLIB TO EQUAL YOUR MAPSET NAME
//*   3. COPY THE BMS CODE AFTER THE SYSUT1 DD * STATEMENT
//*   4. ADD A NULL STATEMENT
//*********************************************************************
//**
//MAP  EXEC DFHMAPS,OUTC='*',RMODE=24,
//  DSCTLIB='KC03I98.COMP35.CNTL',
//  MAPLIB='TSOECCC.CICSTS12.STUDENT.LOADLIB',
//  MAPNAME=ADDM98,
//  DSCTLIB=ADDM98
//COPY.SYSUT1 DD *
         PRINT NOGEN
***********************************************************************
ADDM98   DFHMSD TYPE=&SYSPARM,                                         X
               LANG=COBOL,                                             X
               MODE=INOUT,                                             X
               TERM=3270-2,                                            X
               CTRL=FREEKB,                                            X
               STORAGE=AUTO,                                           X
               DSATTS=(COLOR,HILIGHT),                                 X
               MAPATTS=(COLOR,HILIGHT),                                X
               TIOAPFX=YES
ADDMAP  DFHMDI SIZE=(24,80),                                           X	
               LINE=1,                                                 X	
               COLUMN=1
***********************************************************************
         DFHMDF POS=(1,1),                                             X
               LENGTH=6,                                               X
               COLOR=GREEN,                                            X
               ATTRB=(NORM,PROT),                                      X
               INITIAL='ADDM98'
         DFHMDF POS=(1,18),                                            X
               LENGTH=45,                                              X	
               ATTRB=(NORM,PROT),                                      X	
               COLOR=GREEN,                                            X		
               INITIAL='Bidding Information System - Add Bids Program'
TRANID   DFHMDF POS=(1,76),                                            X	
               LENGTH=4,                                               X	
               ATTRB=(NORM,PROT),                                      X	
               COLOR=BLUE
         DFHMDF POS=(2,26),                                            X
               LENGTH=26,                                              X
               ATTRB=(NORM,PROT),                                      X
               COLOR=GREEN,                                            X
               INITIAL='Written by me'
***********************************************************************
INSTR    DFHMDF POS=(3,1),                                             X	
               LENGTH=79,                                              X	
               ATTRB=(NORM,PROT),                                      X	
               COLOR=NEUTRAL
         DFHMDF POS=(5,1),                                             X
               LENGTH=30,                                              X
               ATTRB=(NORM,PROT),                                      X	
               COLOR=GREEN,                                            X
               INITIAL='Customer Bid number. . . . . .'
CUSTNO   DFHMDF POS=(5,32),                                            X
               LENGTH=7,                                               X	
               ATTRB=(NORM,UNPROT,IC),                                 X	
               COLOR=TURQUOISE,                                        X
               INITIAL='_______'
         DFHMDF POS=(5,40),                                            X
               LENGTH=1,                                               X
               ATTRB=(NORM,ASKIP)
***********************************************************************
         DFHMDF POS=(7,1),                                             X
               LENGTH=30,                                              X
               ATTRB=(NORM,PROT),                                      X
               COLOR=GREEN,                                            X
               INITIAL='Name . . . . .  . . . . .  . :'
FIRSTNAME DFHMDF POS=(7,32),                                           X
               LENGTH=20,                                              X
               COLOR=TURQUOISE,                                        X
               ATTRB=(NORM,PROT)
LASTNAME DFHMDF POS=(8,32),                                            X
               LENGTH=30,                                              X
               COLOR=TURQUOISE,                                        X
               ATTRB=(NORM,PROT)
***********************************************************************
         DFHMDF POS=(10,1),                                            X
               LENGTH=30,                                              X
               ATTRB=(NORM,PROT),                                      X
               COLOR=GREEN,                                            X
               INITIAL='Number of items. . . . . . . :'
NOBIDS   DFHMDF POS=(10,32),                                           X
               LENGTH=6,                                               X
               COLOR=TURQUOISE,                                        X
               ATTRB=(NORM,PROT)
***********************************************************************
         DFHMDF POS=(12,1),                                            X
               LENGTH=46,                                              X
               COLOR=GREEN,                                            X
               ATTRB=(NORM,PROT),                                      X
               INITIAL='Item Code        Description            Status'
***********************************************************************
ITEM1  DFHMDF POS=(14,1),                                              X
               LENGTH=8,                                               X
               COLOR=TURQUOISE,                                        X
               ATTRB=(NORM,UNPROT),                                    X
               INITIAL='________'
DESC1   DFHMDF POS=(14,10),                                            X
               LENGTH=30,                                              X	
               COLOR=TURQUOISE,                                        X	
               ATTRB=(NORM,ASKIP)
STATUS1  DFHMDF POS=(14,41),                                           X
               LENGTH=20,                                              X
               COLOR=TURQUOISE,                                        X
               ATTRB=(NORM,PROT)
***********************************************************************
ITEM2  DFHMDF POS=(15,1),                                              X
               LENGTH=8,                                               X
               COLOR=TURQUOISE,                                        X
               ATTRB=(NORM,UNPROT),                                    X
               INITIAL='________'
DESC2   DFHMDF POS=(15,10),                                            X
               LENGTH=30,                                              X
               COLOR=TURQUOISE,                                        X
               ATTRB=(NORM,ASKIP)
STATUS2  DFHMDF POS=(15,41),                                           X
               LENGTH=20,                                              X
               COLOR=TURQUOISE,                                        X
               ATTRB=(NORM,PROT)
***********************************************************************
ITEM3  DFHMDF POS=(16,1),                                              X
               LENGTH=8,                                               X
               COLOR=TURQUOISE,                                        X
               ATTRB=(NORM,UNPROT),                                    X
               INITIAL='________'
DESC3   DFHMDF POS=(16,10),                                            X
               LENGTH=30,                                              X
               COLOR=TURQUOISE,                                        X
               ATTRB=(NORM,ASKIP)
STATUS3  DFHMDF POS=(16,41),                                           X
               LENGTH=20,                                              X
               COLOR=TURQUOISE,                                        X
               ATTRB=(NORM,PROT)
***********************************************************************
ITEM4  DFHMDF POS=(17,1),                                              X
               LENGTH=8,                                               X
               COLOR=TURQUOISE,                                        X
               ATTRB=(NORM,UNPROT),                                    X
               INITIAL='________'
DESC4   DFHMDF POS=(17,10),                                            X
               LENGTH=30,                                              X
               COLOR=TURQUOISE,                                        X
               ATTRB=(NORM,ASKIP)
STATUS4  DFHMDF POS=(17,41),                                           X
               LENGTH=20,                                              X
               COLOR=TURQUOISE,                                        X
               ATTRB=(NORM,PROT)
***********************************************************************
ITEM5  DFHMDF POS=(18,1),                                              X
               LENGTH=8,                                               X
               COLOR=TURQUOISE,                                        X
               ATTRB=(NORM,UNPROT),                                    X
               INITIAL='________'
DESC5   DFHMDF POS=(18,10),                                            X
               LENGTH=30,                                              X
               COLOR=TURQUOISE,                                        X
               ATTRB=(NORM,ASKIP)
STATUS5  DFHMDF POS=(18,41),                                           X	
               LENGTH=20,                                              X	
               COLOR=TURQUOISE,                                        X	
               ATTRB=(NORM,PROT)
***********************************************************************
ITEM6  DFHMDF POS=(19,1),                                              X
               LENGTH=8,                                               X
               COLOR=TURQUOISE,                                        X
               ATTRB=(NORM,UNPROT),                                    X
               INITIAL='________'
DESC6   DFHMDF POS=(19,10),                                            X
               LENGTH=30,                                              X	
               COLOR=TURQUOISE,                                        X	
               ATTRB=(NORM,ASKIP)
STATUS6  DFHMDF POS=(19,41),                                           X
               LENGTH=20,                                              X	
               COLOR=TURQUOISE,                                        X	
               ATTRB=(NORM,PROT)
***********************************************************************
MESSAGE  DFHMDF POS=(23,1),                                            X	
               LENGTH=79,                                              X	
               ATTRB=(BRT,PROT),                                       X	
               COLOR=YELLOW
FKEYS    DFHMDF POS=(24,1),                                            X	
               LENGTH=40,                                              X	
               ATTRB=(NORM,PROT),                                      X	
               COLOR=BLUE
DUMMY    DFHMDF POS=(24,79),                                           X	
               LENGTH=1,                                               X	
               ATTRB=(DRK,PROT,FSET),                                  X	
               INITIAL=' '
***********************************************************************
         DFHMSD TYPE=FINAL
         END