Compiled a general structure of the programming language for your reference.
** <Br/> * copyright (c) 2009 cmisoft Co ., ltd. all rights reserved. <br/> * <br/> ******************************* * ******************************* <br/> * Identification Division start * <br/> * program-ID: sample. PCO * <br/> * program filename: sample source * <br/> * desciption: the purpose of this prpose is to * <br/> * provide a sample source * <br/> * Author: maql * <br/> * Create Time: 2005/02/24 * <br/> * Update Time: 2005/02/24 * <br/> * version: 0.1 * <br/> * maintane histery: * <br/> * Identification Division end * <br/> ************************** **************************************** <br/> Environment Division. <br/> ************************************ * *************************** <br/> environment improt <br/> **************************************** * ************************ <br/> Data Division. <br/> ************************************ * *************************** <br/> * constant declear * <br /> **************************************. <br/> ************************************ * *************************** <br/> * dB area * <br /> ************************************** *** **************************************** * ********************* <br/> * counter area * <br/> ***** **************************************** * <br/> CNT-AREA. <br/> ************************************ * *************************** <br/> * flag area * <br /> **************************************. <br/> ************************************ * *************************** <br/> * Work Variable Area * <br/> ************************************* * *************************** <br/> WK-AREA. <br/> ************************************ * *************************** <br/> * procedure Division * <br /> **************************************. <br/> *** -- <start section> -- *** <br/> *** -- <main section> -- *** <br/> ***-- <End Section> -- *** <br/> M000-CONTROL-EX. <br/> ************************************ * **************************** <br/> * Start Section * <br /> **************************************. m100-INIT-EX. <br/> ************************************ * *************************** <br/> * main section * <br /> **************************************. m200-MAIN-EX. <br/> ************************************ * *************************** <br/> * End Section * <br /> **************************************. m300-END-EX. <br/> ************************************ * *************************** <br/> * exception setion * <br /> **************************************. e400-ERR-EX.