DSN8CCG
PROVIDES THE CICS® COBOL BMS MAP FOR THE GENERAL SCREENS OF THE SAMPLE APPLICATION.
**********************************************************************
* *
* MODULE NAME = DSN8CCG *
* *
* DESCRIPTIVE NAME = CICS COBOL BMS MAP FOR SAMPLE PROGRAM, GENERAL*
* *
* 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 GENERAL 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 = REENTERABLE *
* *
* ENTRY POINT = DSN8CCG *
* *
* 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
DSN8CCG DFHMSD TYPE=MAP, X
MODE=INOUT, X
LANG=COBOL, X
TERM=3270-2, X
CTRL=(FREEKB,FRSET), X
STORAGE=AUTO, X
TIOAPFX=YES
DSN8CCG DFHMDI SIZE=(24,80), X
LINE=1, X
COLUMN=1
ATITLE DFHMDF POS=(1,15), X
ATTRB=PROT, X
LENGTH=50
DFHMDF POS=(2,1), X
ATTRB=PROT, X
INITIAL='MAJOR SYSTEM ...:', X
LENGTH=17
AMAJSYS 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
AACTION DFHMDF POS=(3,19), X
ATTRB=(UNPROT,BRT,IC,FSET), X
LENGTH=1
DFHMDF POS=(3,21), X
ATTRB=ASKIP, X
LENGTH=1
ADESCL2 DFHMDF POS=(3,30), X
ATTRB=PROT, X
LENGTH=50
DFHMDF POS=(4,1), X
ATTRB=PROT, X
INITIAL='OBJECT .........:', X
LENGTH=17
AOBJECT DFHMDF POS=(4,19), X
ATTRB=(UNPROT,BRT,FSET), X
LENGTH=2
DFHMDF POS=(4,22), X
ATTRB=ASKIP, X
LENGTH=1
ADESCL3 DFHMDF POS=(4,30), X
ATTRB=PROT, X
LENGTH=50
DFHMDF POS=(5,1), X
ATTRB=PROT, X
INITIAL='SEARCH CRITERIA.:', X
LENGTH=17
ASEARCH DFHMDF POS=(5,19), X
ATTRB=(UNPROT,BRT,FSET), X
LENGTH=2
DFHMDF POS=(5,22), X
ATTRB=ASKIP, X
LENGTH=1
ADESCL4 DFHMDF POS=(5,30), X
ATTRB=PROT, X
LENGTH=50
DFHMDF POS=(6,1), X
ATTRB=PROT, X
INITIAL='DATA ...........:', X
LENGTH=17
ADATA DFHMDF POS=(6,19), X
ATTRB=(UNPROT,BRT,FSET), X
LENGTH=60
AMSG DFHMDF POS=(7,1), X
ATTRB=(PROT,BRT), X
LENGTH=79
ALINE DFHMDF POS=(9,1), X
ATTRB=PROT, X
LENGTH=79, X
OCCURS=15
APFKEY DFHMDF POS=(24,1), X
ATTRB=PROT, X
LENGTH=79
DFHMSD TYPE=FINAL
END