一套编程语言的一般结构

 整理了一套编程语言的一般结构,供大家参考

 

 

*** 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.