CICS 下建立MAP

起这个标题的时候，自己都还是迷迷糊糊的，因为 我到现在还搞不清楚CICS和MAP 要怎么联系。据说，开发主机联机程序的得力搭配是CICS+DB2+COBOL+MAP，据说而已，但很明显，这次主机大赛都必须用到这些知识。对于一个主机菜鸟（特别是主机编程）的我来说，在CICS下建一个MAP就已经把我折腾得不成样子。还好有句“万事开头难”来安慰下自己，不然恐怕偶信心会受大大的打击。

在CICS下建立一个MAP步骤如下：

1、进入9.6界面。键入8，在specify lib 里 键入两个LIB的名字：'STRB.BMS'、'STRB.BMS.L2'

2、回到9.6界面。键入1，建立MAP。输入MAP的名字，LIB输入的是LIB ID。DEVICE TYPE的内容是3279-3B。OPTION 里选的是2，回车即可。

3、在MAP设置界面。键入2，编辑我们的MAP截面。技巧性的东东是，”/A“表示将A靠右，”/A/“表示将A居中。此外，9.6.3-9.6.8有相关功能，9.6界面有相关的说明，可以自己去修改一些内容。

4、回到9.6界面。键入7，生成刚才建立的MAP的源代码（这个说法尚有争议，我也不是很清楚）。输入MAP NAME 和LIB ID ，键回车进入下一界面。在目标MAP那行用“G”命令开始生成代码。在接下的提示界面中，按F8翻屏下来，在“output lib....for data set” 中键入'STRB.CPY'，在“output lib ..for BMS..”中键入'STRB.SRC'。 回车。

5、进入3.4界面，打开STRB.JCL，以VIEW的模式（如果用EDIT的话别人在这个时候就不能使用这个文件）打开@COMPMAP, 在里面需要修改的内容如下： 作业名、NOTIFY对应的ID，EXEC语句里的MEMBER改为自己建立的那个MAP NAME。最后SUB 即可。

@COMPMAP文件的内容如下：

000001 //ST018AJOB (DEV),'WILLIAM',CLASS=A,MSGLEVEL=(1,1),MSGCLASS=A,
==CHG> //NOTIFY=ST018
000003 //PROCLIB JCLLIB ORDER=ST002.PRC
000004 //*
000005 //****************************************************************
000006 //**
000007 //*COMPILE BMS/MAP*
000008 //**
000009 //*****************************************************************
000010 //STEP EXEC PROC=PRCMAPO,
000011 //SRCELIB='STRB.SRC',
000012 //COPYLIB='STRB.CPY',
000013 //LODLIB='STRB.CICS.LOAD',
000014 //MEMBER='TJST018'

怎么调用。。待续~~~

尝试过程中碰到的 错误：

1、添加LIB时忘了在名字上加引号，导致很RP的错误

2、系统可能在生成代码文件时会自作聪明的帮你改掉MAP NAME，所以最好 做最后一步前先到STRB.CPY、STRB.SRC里去确认一下MAP NAME的正确性。