DSN8CCD
PROVIDES THE CICS® COBOL BMS MAP FOR THE DETAIL SCREENS OF THE SAMPLE APPLICATION.
**********************************************************************
* *
* MODULE NAME = DSN8CCD *
* *
* DESCRIPTIVE NAME = CICS COBOL BMS MAP FOR SAMPLE PROGRAM, DETAIL *
* *
* COPYRIGHT = 5740-XYR (C) COPYRIGHT IBM CORP 1982, 1985 *
* REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083 *
* *
* STATUS = RELEASE 2, LEVEL 0 *
* *
* FUNCTION = *
* PROVIDES THE CICS COBOL BMS MAP FOR THE DETAIL SCREENS OF *
* THE SAMPLE APPLICATION. *
* *
* NOTES = *
* DEPENDENCIES = NONE *
* *
* RESTRICTIONS = NONE *
* *
* REGISTER CONVENTIONS = NONE, NO EXECUTABLE CODE *
* *
* MODULE TYPE = PROCEDURE *
* *
* PROCESSOR = ASSEMBLER XF OR H *
* *
* MODULE SIZE = SEE ASSEMBLER LISTING *
* *
* ATTRIBUTES = REUSABLE *
* *
* ENTRY POINT = DSN8CCD *
* *
* PURPOSE = SEE FUNCTION *
* *
* LINKAGE = NONE *
* *
* INPUT = NONE *
* *
* OUTPUT = NONE *
* *
* *
* EXIT-NORMAL = NONE *
* *
* EXIT-ERROR = NONE *
* *
* RETURN CODE = NONE *
* REASON CODE = NONE *
* *
* ABEND CODES = NONE *
* *
* ERROR-MESSAGES = NONE *
* *
* EXTERNAL REFERENCES = *
* ROUTINES/SERVICES = NONE *
* *
* DATA-AREAS = NONE *
* *
* CONTROL-BLOCKS = NONE *
* *
* MACROS = *
* DFHMDF - CICS BMS MAP FIELD DESCRIPTION *
* DFHMDI - CICS BMS MAP SCREEN DESCRIPTION *
* DFHMSD - CICS BMS MAP DESCRIPTION *
* *
* TABLES = NONE *
* *
* CHANGE-ACTIVITY = *
* NONE *
* *
* PSEUDOCODE = *
* *
* THIS MODULE CONTAINS NO EXECUTABLE CODE. *
* *
**********************************************************************
EJECT
DSN8CCD DFHMSD TYPE=MAP, X
MODE=INOUT, X
LANG=COBOL, X
TERM=3270-2, X
CTRL=(FREEKB), X
STORAGE=AUTO, X
TIOAPFX=YES
DSN8CCD DFHMDI SIZE=(24,80), X
LINE=1, X
COLUMN=1
BTITLE DFHMDF POS=(1,15), X
ATTRB=PROT, X
LENGTH=50
DFHMDF POS=(2,1), X
ATTRB=PROT, X
INITIAL='MAJOR SYSTEM ...:', X
LENGTH=17
BMAJSYS DFHMDF POS=(2,19), X
ATTRB=(PROT,BRT,FSET), X
INITIAL='O', X
LENGTH=1
DFHMDF POS=(2,21), X
ATTRB=ASKIP, X
LENGTH=1
DFHMDF POS=(2,30), X
ATTRB=PROT, X
INITIAL='ORGANIZATION', X
LENGTH=50
DFHMDF POS=(3,1), X
ATTRB=PROT, X
INITIAL='ACTION .........:', X
LENGTH=17
BACTION DFHMDF POS=(3,19), X
ATTRB=(UNPROT,BRT,IC,FSET), X
LENGTH=1
DFHMDF POS=(3,21), X
ATTRB=ASKIP, X
LENGTH=1
BDESCL2 DFHMDF POS=(3,30), X
ATTRB=PROT, X
LENGTH=50
DFHMDF POS=(4,1), X
ATTRB=PROT, X
INITIAL='OBJECT .........:', X
LENGTH=17
BOBJECT DFHMDF POS=(4,19), X
ATTRB=(UNPROT,BRT,FSET), X
LENGTH=2
DFHMDF POS=(4,22), X
ATTRB=ASKIP, X
LENGTH=1
BDESCL3 DFHMDF POS=(4,30), X
ATTRB=PROT, X
LENGTH=50
DFHMDF POS=(5,1), X
ATTRB=PROT, X
INITIAL='SEARCH CRITERIA :', X
LENGTH=17
BSEARCH DFHMDF POS=(5,19), X
ATTRB=(UNPROT,BRT,FSET), X
LENGTH=2
DFHMDF POS=(5,22), X
ATTRB=ASKIP, X
LENGTH=1
BDESCL4 DFHMDF POS=(5,30), X
ATTRB=PROT, X
LENGTH=50
DFHMDF POS=(6,1), X
ATTRB=PROT, X
INITIAL='DATA ...........:', X
LENGTH=17
BDATA DFHMDF POS=(6,19), X
ATTRB=(UNPROT,BRT,FSET), X
LENGTH=60
BMSG DFHMDF POS=(7,1), X
ATTRB=(PROT,BRT), X
LENGTH=79
LINE1F1 DFHMDF POS=(9,1), X
ATTRB=PROT, X
LENGTH=37
LINE1F2 DFHMDF POS=(9,40), X
ATTRB=(UNPROT,FSET), X
LENGTH=40
LINE2F1 DFHMDF POS=(10,1), X
ATTRB=PROT, X
LENGTH=37
LINE2F2 DFHMDF POS=(10,40), X
ATTRB=(UNPROT,FSET), X
LENGTH=40
LINE3F1 DFHMDF POS=(11,1), X
ATTRB=PROT, X
LENGTH=37
LINE3F2 DFHMDF POS=(11,40), X
ATTRB=(UNPROT,FSET), X
LENGTH=40
LINE4F1 DFHMDF POS=(12,1), X
ATTRB=PROT, X
LENGTH=37
LINE4F2 DFHMDF POS=(12,40), X
ATTRB=(UNPROT,FSET), X
LENGTH=40
LINE5F1 DFHMDF POS=(13,1), X
ATTRB=PROT, X
LENGTH=37
LINE5F2 DFHMDF POS=(13,40), X
ATTRB=(UNPROT,FSET), X
LENGTH=40
LINE6F1 DFHMDF POS=(14,1), X
ATTRB=PROT, X
LENGTH=37
LINE6F2 DFHMDF POS=(14,40), X
ATTRB=(UNPROT,FSET), X
LENGTH=40
LINE7F1 DFHMDF POS=(15,1), X
ATTRB=PROT, X
LENGTH=37
LINE7F2 DFHMDF POS=(15,40), X
ATTRB=(UNPROT,FSET), X
LENGTH=40
LINE8F1 DFHMDF POS=(16,1), X
ATTRB=PROT, X
LENGTH=37
LINE8F2 DFHMDF POS=(16,40), X
ATTRB=(UNPROT,FSET), X
LENGTH=40
LINE9F1 DFHMDF POS=(17,1), X
ATTRB=PROT, X
LENGTH=37
LINE9F2 DFHMDF POS=(17,40), X
ATTRB=(UNPROT,FSET), X
LENGTH=40
LINEAF1 DFHMDF POS=(18,1), X
ATTRB=PROT, X
LENGTH=37
LINEAF2 DFHMDF POS=(18,40), X
ATTRB=(UNPROT,FSET), X
LENGTH=40
LINEBF1 DFHMDF POS=(19,1), X
ATTRB=PROT, X
LENGTH=37
LINEBF2 DFHMDF POS=(19,40), X
ATTRB=(UNPROT,FSET), X
LENGTH=40
LINECF1 DFHMDF POS=(20,1), X
ATTRB=PROT, X
LENGTH=37
LINECF2 DFHMDF POS=(20,40), X
ATTRB=(UNPROT,FSET), X
LENGTH=40
LINEDF1 DFHMDF POS=(21,1), X
ATTRB=PROT, X
LENGTH=37
LINEDF2 DFHMDF POS=(21,40), X
ATTRB=(UNPROT,FSET), X
LENGTH=40
LINEEF1 DFHMDF POS=(22,1), X
ATTRB=PROT, X
LENGTH=37
LINEEF2 DFHMDF POS=(22,40), X
ATTRB=(UNPROT,FSET), X
LENGTH=40
LINEFF1 DFHMDF POS=(23,1), X
ATTRB=PROT, X
LENGTH=37
LINEFF2 DFHMDF POS=(23,40), X
ATTRB=(UNPROT,FSET), X
LENGTH=40
BPFKEY DFHMDF POS=(24,1), X
ATTRB=PROT, X
LENGTH=79
DFHMSD TYPE=FINAL
END