Mine
public text v1 · immutable//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