随笔分类 -  MVS

摘要：下面是数组的例子： 01 RECORD-X. 03 MONTH OCCURS 12 TIMES. 05 NAME PIC X(12). 05 DAYS OCCURS 31 TIEMS. 07 COMMENT PIC X(20). 07 TEMP-HI PIC S999. 07 TEMP-LO PIC S999. 77 CURRENT-DAY PIC 99. 调用表示如下： MONTH(5) : 包... 阅读全文

摘要：cobol源程序的格式如下：每行开头有6个字符的序号区。可以输入000010，000020等表示行，也可以不输。序号区后面是一个字符（第7位）的指示符区，如第一行所示。可以用*和/表示注释，_表示续行，D表示调试。 指示符区后面是4个字符（8~11位）的A区。可以放入部，节，段标题，段名，层指示符和层号01与77， 关键字DECLARATIVES和END DECLARATIVES,程序结束标题。A... 阅读全文

摘要：计息是银行的一项重要业务，包括日常代理客户收、付计算客户利息和年度计息等。目前，这些工作大多数是在IBM ES9000主机的SAFE应用系统平台上进行，该系统联机程序和联机计息程序是用IBM 370汇编语言实现的。为方便汇编语言读写，在VSAM文件存储的数据中，数据存放格式进行了特殊的定义。如日期存放采用X(3)型，01年03月15日，存入EBCD码为X‘010315’。在进行年度计息时，为了实现... 阅读全文

摘要：REDEFINES 可以用不同的变量描述同一内存。 01 PART_RECODE USAGE DISPLAY 03 PART-TYPE PICTURE... 03 PART_TYPE_A. 05 PART_NUMBER PICTURE... 05 PART_COST PICTURE... 03 PART_TYPE_... 阅读全文