如何在z/OS上使用CICS BMS处理屏幕输入输出

本示例展示如何使用CICS BMS（Basic Mapping Support）处理z/OS系统中的屏幕输入输出。BMS可以帮助用户在z/OS系统中创建、管理和操作可控制的屏幕。

CBL BMSMAP                                                            
         DFHMSD(TYPE=MAP,MODE=UPDATE)                               
         DFHMSL(TYPE=UNPROT)                                         
         01  DFHMSINIT,   * DFHMSD的控制块                         
             PICTURE=X(80)                                            
         01  HEADER,                                                 
             COLOR=UL,                  * Color变量                     
             DC  X'03',YELLOW,          * 颜色代码                         
             OVERLAY=(UL,COLOR),        * 覆盖当前行的颜色                         
             ATTRB=(BOLD,UNDERLINE),    * 样式变量       
             'Transaction Summary'                                   
         01  DETAIL,                                                 
             FIELD=(COLUMN 1,ROW 5,LENGTH 80),                        /* 映射字段 */ 
             ATTRIBUTE=(PROT)                                        /* 属性 */ 
         01  DFHMSD END

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com