整理了一套编程语言的一般结构,供大家参考 ** * Copyright(C) 2009 CMMISOFT Co.,Ltd.All rights reserved. * **************************************************************** * IDENTIFICATION DIVISION START * * PROGRAM-ID : SAMPLE.pco * * PROGRAM FILENAME: SAMPLE SOURCE * * DESCIPTION : The purpose of this Pragram Is To * * Provide A Sample SOURCE * * AUTHOR : MAQL * * CREATE TIME : 2005/02/24 * * UPDATE TIME : 2005/02/24 * * VERSION : 0.1 * * MAINTANE HISTERY: * * IDENTIFICATION DIVISION END * ****************************************************************** ENVIRONMENT DIVISION. ****************************************************************** ENVIRONMENT IMPROT ****************************************************************** DATA DIVISION. ****************************************************************** * CONSTANT DECLEAR * ****************************************************************** CONST-AREA. ****************************************************************** * DB AREA * ****************************************************************** DB-AREA ****************************************************************** * COUNTER AREA * ****************************************************************** CNT-AREA. ****************************************************************** * FLAG AREA * ****************************************************************** FLG-AREA. ****************************************************************** * WORK VARIABLE AREA * ****************************************************************** WK-AREA. ****************************************************************** * PROCEDURE DIVISION * ****************************************************************** M000-CONTROL-RTN. *** --< START SECTION >-- *** *** --< MAIN SECTION >-- *** *** --< END SECTION >-- *** M000-CONTROL-EX. ****************************************************************** * START SECTION * ****************************************************************** M100-INIT-RTN. M100-INIT-EX. ****************************************************************** * MAIN SECTION * ****************************************************************** M200-MAIN-RTN. M200-MAIN-EX. ****************************************************************** * END SECTION * ****************************************************************** M300-END-RTN. M300-END-EX. ****************************************************************** * EXCEPTION SETION * ****************************************************************** E400-ERR-RTN. E400-ERR-EX.