OOCOBOL ±[È[

¡Í¶ßÉ

ÈOÍ COBOL97Ì¤ÌÅeµÜêÄ¢½¤ÌOOCOBOLÍ»ÝCOBOL2000ÆÄÎêÄ¢é»¤Å·B
»ë»ëOOCOBOLà¶Áè©Ä¨©È¯êÎ¢¯È¢È Æl¦Ä¢ÄL¯ÉæêÎISOªÅVDocumentðcopyãàÌÝÅ$70ç¢ÅzÁÄ¢½EEE³ÄÇ±¾Á½©È ÆWWWðpjµÄ¢½ç
wISO/IEC CD 1.1 1989xIssued August 1,1997
ÈéàÌª]ªÁÄ¢½ÌÅ,ví¸bL[IIÆgetµÄ«Üµ½B±Ì¶EEE³®ÈoªÈÉàÌ©ÍæÍí©çÈ¢ÌÅ·ª,©¬èÈ»êÁÛ¢ÌÅMp³¹Ä¢½¾¢Ä,©ªªðµÄ¢±¤©È ÆvÁÄ¢Ü·EEE ÜÅªðµÄ®µ½¢ÌªÚIÅ·(Î)
±êÍ MicrofocusÌHPÅ©Â©èÜµ½!!
http://www.microfocus.com/Standards/
ÌÆãëÌûÉ Electronic draft for downloading - new version as of 19 March 1998 Æ¢¤Æ±ëÉ èÜ·©çÖSÌ éûÍGETÅ·!!

¡Ü¸ÍAEgC`ÇñÈàÌÈÌ Object-Oriented COBOLÁÄ`

±êÍ»ÝISOÅW»ìÆÜÁ½¾È©Ì»sCOBOL85Ìúo[WÅ·BÜ¸ÍISOÅWðìÁÄÅàÁÄANSIÉÈÁÄ,ÅàÁÄÅàÁÄJIS-XEEEÆÈÁÄEEE»¤ÈéÆeÐH/W[J[Í±¼ÁÄÌRpCðñµÄEEE{®ÉÍLàÛqàwOOCOBOLüåxwOOCOBOLTàxwºÁ½¢í©é!OOCOBOLxÈ`ñÄ{ªíçíçíçÁÆoÄéñÅ·æ(Î) ú{ÅÍÜ¾Ü¾~bVNeBJÈªÉÍCOBOLªgíêÄ¢Ä,võàÎ©ÉÍÈèÜ¹ñB¢ÜÜÅ¾Á½çOOPÆ¢¦ÎC++Æ©JAVAÆ©SmalltalkÆ© éÉÍ éñÅ·ª,½¨É³¨ÌVXe¨¶³ñBÉÍn[hªÄ(Î) âÁÆoÄ«½ÌªCOBOLÖÌKpÆ¢¤±ÆÉÈèÜ·B

½¾µ²Ó!!½èOÌbÅ·ªCOBOL2000ÁÄIuWFNgwüêpÌCOBOLÅÍ èÜ¹ñB»ÝÌCOBOLÉÎ·é½ÌüP@\âV@\ª½³ñ·èÜêÄ¢Ü·BÂlIÈD«¢Í¡É¨¢ÄàrWlXªìÅÌCOBOLÆ¢¤¾êÌ®¬xÍ¢!Æ¾ÁÄæ¢Åµå¤!!³mÉÍCOBOL2000ÌV@\Ì´ÚÊ@\Ì1ÂªIuWFNgwüÌ@\ÈÌÅ·B

_©ç¾ÁÄµÜ¦ÎEEEOOPÆµÄÅæ[EEEÈÇÆÍ¾¦Ü¹ñBÅæ[É·é½ßÉÍßÌµªçÝðØèÌÄéKvª èÜ·BÅàCOBOLÍßÌµªçÝEEEÆ¢¤©Yp³ªå«ÈÁ¥ÈÌÅ·B±êÍOOCOBOLð±üµ½êÉCOBOL85ÌYª»ÌÜÜgpÅ«é±ÆðÓ¡µÄ¢Ü·BåKÍ\tgEGAÆ¢¤ÌÍ¶Y«âg£«Ì¢¾êªJ³ê½©çÆ¾ÁÄ¨¢»êÆÍÚs·éí¯ÉÍ¢«Ü¹ñBÅàOOCOBOL¾Á½çEEE\tgEGAYðiKIÉÄ\zÅ«éÌÅ·BVKJÄÉµ½ÁÄA»óÅÍOOAâOODªÅ«évõâÀÑª\ªÆÍ¾¦È¢Åµå¤!!»ñÈóµÅÍî²Æ±É¢«Èèu¤[Õ!!v(OOP:ObjectOrientedPrograming Ì¹)Æ¢¤í¯ÉÍ¢«Ü¹ñËBÅàCOBOL85ÌÝvÒâvO}Í¤¶á¤¶á¢éÅµå¤©ç(Î) COBOL2000ð±üµÄàÙÆñÇÍCOBOL85¶@ÅLqµÄAu±±ÍIuWFNgwüÅ`WµÄÝæ¤!!vÆ¢¤Av[`ªæêéí¯Å·!!âè©½ðÔáíÈ¯êÎ¢½êèÂ¹èÁÄ´¶Å·Ë!±ê±»ªW»³êÄ¢é¾êÌÝ¾Æ¾¦éÅµå¤!!

´ÁèOOCOBOLÌdlðßÄÝéÆC++âSmaltalkâEiffelÉ©òè·é@\ª èÜ·EEE¯êÇàÁÄ¢é@\à èÜ·BêÔÍú{ê»ÌâèÅ·!ú{ÌJISÅ§è³êéCOBOLÅÍ¼OÉ¿ªg¦Ä¿ÅV{bNfobOÅ«éÂ«ª¾ê[J[©çñ³êÜ·EEE»ñÈÌ ½èÜ¦ÈñÅ·ªCOBOLÈOÌ¾êÅÍ\[ÈâèÅ·B©òè·éªÍEEEÜ µ©½ªÈ¢ÌÅÍÈ¢Åµå¤©?ÅàÚIÍ¶Y«âg£«ð¢©Éüã³¹é©Ai¿ðüã³¹é© Å·©çEEEOOPÌæ[ðé±ÆÅÍÈ¢Í¸Å·!!IuWFNgwüÆ¢¤l¦ûªà½ç·bgð@\ÆµÄñÅ«êÎ¢¢Í¸Å·B_IÉÍêÊèÌ±ÆªÅ«Ü·BÆ¢¤©êÊIÈOMTâUMLðgpµÄOOAAOODµ½êÌ¬Ê¨ÆµÄÌIuWFNgfðOOCOBOLÍ\»·é±ÆªÅ«Ü·B¾¢½¢Å«é±ÆðÓð«ÉµÄÝÜµå¤!!

NXÆCX^XÌTO
p³Éæé·ªvO~O
\bhÌÕÁè`
½Ô«ÉæéÌ¤Ê»
SELFAthisànj

ÆÜ EEEÈ©È©ÈàÌÅµå¤?(Î) ¢â§Àà éñÅ·ª¡ÍGêÈ¢Æ¢¤±ÆÅ(Î)

SECTION.1 OOCOBOL\¢ÌTª

¡C++ÅÌTv

ÝÈ³ñ C++ç¢ÍmÁÄ¢éÅµå¤!!(Î)Æ¢¤Oñð¨©¹ÄàçÁÄNXè`ÌÈPÈáðàÆÉA»êªOOCOBOLÅÍÇÌæ¤ÉÈéÌ©ðà¾µÜ·B

#include "¬®«aà.h"
#include "Úq.h"
class Êaà :¬®«aà{
private:
string XÔ;
string ûÀÔ;
int x¥Â\c;
Úq myCIF;
//»Ì¼Ì®«
public:
int üà(int INüàz);//¬®«aàÌüàðoverride(ÕÁè`)µÄ¢é
int oà(int INoàz);
//»Ì¼Ì\bh
};

·±µà¾µÜ·Æ ±±ÅÍÊaàÆ¢¤NXðè`·éEEEpÒªV½ÉÊaàÆ¢¤f[^^ðìéÆl¦Ä¾³¢Bclass Æ¢¤ÌÍC++Ì\ñêÅuclass ©ç }; ÜÅªNXè`¾æ!!vÆ¢¤Ó¡Å·B±±ÌáÅÍ üàÆ¢¤\bhÍè`¾¯ÅÀÍ³êÄÍ¢Ü¹ñªEEEÜ ×©¢Æ±ëÍ¡É¨¢Ä¨«Üµå¤B
class Êaà Æ¢¤ÌÍNX¼ª Êaà Æ¢¤±ÆÅ·BÇ¤âÁÄg¤©?Å·ª á¦Îlâ¶ñ¾Á½ç

int i1,i2;
string s;

Æ©¢Ä ®^(int)ÌÏi1Æi2 ¶ñ^(string)ÌÏs Æð·éÌÆ¯¶æ¤É

Êaà ft1,ft2;

Æ©¯Î Êaà^(Êaà)ÌÏft1,ft2 ªpÓ³ê½!! Æ¢¤±ÆÉÈèÜ·B
ÊaàNXàIuWFNgwüÌl¦É]¦ÎA®«ÆUé¢ðJvZ»µ½àÌÆ¢¤±ÆÉÈèÜ·B®«(=CX^XÏ)ÆµÄXÔAûÀÔAx¥Â\c»µÄ¿åÁÆÏíÁÄ¢éÚq^ÌmyCIFÆª èÜ·B±êç®«Í private: Æ¾¦IÉwè³êÄ¢Ü·ÌÅO©ç¼ÚQÆ·é±ÆÍÅ«Ü¹ñB±êªJvZ»Å èîñBÁÆ¾íêé@\Å·B

Úq^ª¿åÁÆÏíÁÄ¢éÆ¢¤ÌÍA±êªOOA/OODÅ¾¤Æ±ëÌ HAS-AÖW(WñÖW) Æ¾íêÄ¢éàÌÅAÚqÆ¢¤NXªÇ±©Åè`³êÄ¢ÄÊaàNXÅÍ»êðiÆµÄÄpµÄ¢éÆ¢¤±ÆÉÈéÌÅ·B¯¶æ¤ÉÊaàNXàN©Ù©ÌNXªÄp·é±Æªl¦çêÜ·B
ÉUé¢(=\bh)Å·ªAüà()Æoà() ªè`³êÄ¢Ü·B±êçÌ\bhÍ public: Æwè³êÄ¢Ü·B±ÌÓ¡ÍöJ³êÄ¢ÄO©çQÆ·é±ÆªÅ«éÆ¢¤Ó¡Å·B
üà Æ¢¤\bhÌRgÉ
u¬®«aàÌüàðoverride(ÕÁè`)µÄ¢év
Æ¢¤Lqª èÜ·ªÀÍ ÊaàÍ[©çè`µÄ¢éÌÅÍÈÄ¬®«aàÆ¢¤NXè`ðx[XÉµÄì¬µÄ¢éÌÅ·B»êÍ

class Êaà :¬®«aà{

Ì :¬®«aà Æ¢¤Æ±ëÅ·B±±ðÇñÅÝéÆ
uclass ÆµÄè`·é Êaà Í ¬®«aà ©çp³µÄè`³êév
Æ¢¤±ÆÉÈèÜ·B»±Å üà\bhªoverrideÆRgµÄ¢éÌÍAüà\bhÍeNXÅ é¬®«aàÅè`³êÄ¢éÌÅÊaàÅÍAüà\bhðè`µÈÄà¬®«aàÌüà\bhÍp³µÄàÁÄ¢é±ÆÉÈéÌÅ·ªAÜ »ÌÜÜÅÍg¦È¢EEEÆ¾Á½RÅ ÊaàpÌüà\bhðè`µ¼·!!Æ¢¤±ÆÉÈèÜ·BÅEEEoà\bhÍ¬®«aàÅÍè`³êÄ¢È©Á½±ÆÉµÜ·BÈº±ñÈââ±µ¢áÉ·éÌ©?Æ¾¤ÆOOCOBOLÅÍ\bhðVKÉè`·éêÆAè`µ¼·(ÕÁè`)êÅÍ¿åÁÆ¾¯«ûªá¤©çÈñÅ·B
ÅãÉæªÌ

#include "¬®«aà.h"
#include "Úq.h"

Æ¢¤ÌÍÊaàð¬®«aà©çp³·é½ßA¬®«aàÉÍÇñÈ®«â\bhªè`³êÄ¢é©ðRpCªméKvª é½ßÉKvª éÌÅ·BmyCIFÌÚqNXà¯lÅ·BÚqNXÌè`Í
Úq.h Æ¢¤wb_t@CÉè`³êÄ¢éÆ¢¤±ÆÉÈèÜ·B
(1998/4/29)

¡TvðOOCOBOLÅ¢½ê

ÅÍ³³ÁÆ

IDENTIFICATION DIVISION.
CLASS-ID. Êaà INHERITS ¬®«aà.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
REPOSITORY.
CLASS ¬®«aà.
CLASS Úq.

FACTORY.
PROCEDURE DIVISION.
METHOD-ID. ûÀJÝ.
DATA DIVISION.
LINKAGE SECTION.
01 INXÔ PIC X(3).
01 INûÀÔ PIC X(7).
01 INmyCIF USAGE IS OBJECT REFERENCE Úq.
01 RESULT PIC 9(3).
PROCEDURE DIVISION USING INXÔ INûÀÔ INmyCIF RETURNING RESULT.
ûÀJÝ-start.

EXIT METHOD.

END METHOD.
END FACTORY.

OBJECT.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 INSTANCE-DATA.

03 XÔ
03 ûÀÔ
03 x¥Â\c
03 myCIF USAGE IS OBJECT REFERENCE Úq.

PROCEDURE DIVISION.
METHOD-ID. üà OVERRIDE.
DATA DIVISION.
LINKAGE SECTION.
01 INüàz PIC 9(12).
01 RESULT PIC 9(3).
PROCEDURE DIVISION USING INüàz RETURNING RESULT.
üà-start.

EXIT METHOD.

END METHOD.

METHOD-ID. oà.
DATA DIVISION.
LINKAGE SECTION.
01 INoàz PIC 9(12).
01 RESULT PIC 9(3).
PROCEDURE DIVISION USING INoàz RETURNING RESULT.
oà-start.

EXIT METHOD.

END METHOD.

END OBJECT.
END CLASS.

C++Æä×éÆEEE·ÈÁÄµÜÁÄ¢Ü·(Î) Ü µ©½ªÈ¢Å·ª ¯éÆ¢¤±ÆÅ·!!
(1998/5/6)

¡TvOOCOBOLÌðà

CLASS-ID. Êaà INHERITS ¬®«aà.

OOCOBOLÅÍ]Ìæ¤ÉCvOð±ÆàÅ«Ü·BC++ÌáÉÍNXè`Í ÁÄà void main() Æ¢Á½vOÌJn_Í èÜ¹ñÅµ½BOOCOBOLà¯lÅACLASS-ID ÆÆNXè`¾¯ª³êÄ¢évOÆ¢¤±ÆÉÈèÜ·B

CLASS-ID É± Êaà ªNX¼ÆÈèÜ·B

CLASS-ID. Êaà.

Æ¯Î ÊaàNXð[©çè`·é±ÆÉÈèÜ·BáÅÍ INHERITS Æ èÜ·ÌÅ ¬®«aà Æ¢¤NX©çp³µÄ Êaà NXðè`·é±ÆÉÈèÜ·B

REPOSITORY.
CLASS ¬®«aà.
CLASS Úq.

C++Ì#includeÉµÜ·BÊaà NXÅÄp·éNXið·×ÄREPOSITORYåÅé¾µÜ·BÎÛÆÈéÌÍHASAÖWÆµÄïÜ·éNXi(Úq)¾¯ÅÍÈISAÖWÌãÊNX(¬®«aà)à©È¯êÎÈèÜ¹ñBÇÌNXðiÆµÄÄp·é©ðRpCÉ³¦Ä °È¯êÎ¬®«aàªÇÌæ¤Èå®«ðè`µÄ¢éÌ©Æ©ÇÌæ¤È\bhª éÌ©ªí©ç¸ARpCÉ¸·é±ÆªÅ«È¢½ßÅ·B

FACTORY.
OBJECT.

CLASS-IDÅnÜÁ½NXè`Í END CLASS. ÅIíèÜ·ªA³çÉ»ÌàÍå« FACTORY©çEND FACTORY.ÜÅÌFACTORYå Æ OBJECT©çEND OBJECTÜÅÌOBJECTå Ì2ÂÌå©ç¬è§ÁÄ¢Ü·B
OOCOBOLÅÍNXÉÖíé®«âìÌè`Æ CX^X(=IuWFNg)ÉÖíé®«âìÌè`ªÅ«Ü·BNXÉÖ·éªªFACTORYÅACX^XÉÖ·éªªOBJECTÆÈèÜ·B

FACTORYÅÍNXÉÖ·é®«ÆìªÅ«Ü·ªAáÅÍNX®«Ìè`ª èÜ¹ñBàµNX®«ªKvÈç

FACTORY.
DATA DIVISION.
WORKING-STARAGE SECTION.
01 ÊaàûÀ PIC 9(5).

Æ¢Á½´¶ÉÈèÜ·BáÅÍ

FACTORY.
PROCEDURE DIVISION.

ÆÈÁÄ¢éÌÅNX\bhªè`³êÄ¢é±ÆÉÈèÜ·B

METHOD-ID. ûÀJÝ.

\bh¼ÍMETHOD-IDÅwèµA±±ÅÍuûÀJÝvÆÈèÜ·B

DATA DIVISION.
LINKAGE SECTION.
01 INXÔ PIC X(3).
01 INûÀÔ PIC X(7).
01 INmyCIF USAGE IS OBJECT REFERENCE Úq.
01 RESULT PIC 9(3).

±DATA DIVISIONÅÍ\bhÌøâßèlAûÀJÝ\bhàÅgp³êéÇÏðè`µÜ·B
INmyCIFÍÚqNXÌCX^XªøÅn³êÄ«Ü·BOOCOBOLÅÍC++ÆÍÙÈèÚqCX^X»ÌàÌðßÞÌÅÍÈ IuWFNgQÆ(OBJECT REFERENCE)ðgpµÜ·BIuWFNgQÆÍIuWFNg»ÌàÌÅÍÈIuWFNgðwµ¦·àÌ Æ¢¤C[WÉÈèÜ·BIuWFNgQÆÆµÄè`µ½©çÆ¾ÁÄÚqCX^XªpÓ³êÄ¢éí¯ÅÍ èÜ¹ñBN©ªÚqNXÌNX\bhðÄÑoµÄCX^Xð¶¬µÄA»Ì ÆIuWFNgQÆª¶¬³ê½CX^Xðwµ¦·æ¤Éú»·éKvª èÜ·B¿åÁÆæéÆ SET statementðgpµÜ·B

01 INmyCIF USAGE IS OBJECT REFERENCE Úq.

OBJECT REFERENCEÌãëÉNX¼ÆµÄ Úq Æ©êÄ¢Ü·ªA±êÍINmyCIFªÚqCX^XêpÌIuWFNgQÆÆ¢¤±ÆÅ·BINmyCIFðÊaàNXâ¾×NXÌIuWFNgQÆÆµÄÍg¦È¢æ¤ÉAÂÜè^t¯ð§À·é±ÆªÅ«Ü·Bàµà

01 INmyCIF USAGE IS OBJECT REFERENCE.

Ìæ¤ÉNX¼ªwè³êÄ¢È¢ÆAINmyCIFÍCÓÌCX^XÌIuWFNgQÆÉÈé±ÆªÅ«éÆ¢¤±ÆÉÈèÜ·B

PROCEDURE DIVISION USING INXÔ INûÀÔ INmyCIF RETURNING RESULT.

±±ÅÍAINXÔAINûÀÔAINmyCIFªüÍø
RESULTªßèlÉÈèÜ·B

END METHOD.

±±ÜÅª1ÂÌ\bhÆ¢¤±ÆÉÈèÜ·B

END FACTORY.

±±ÜÅªFACTORYÅANXÌCX^Xâ\bhÌè`ªIíèÜ·B
Â¬ÍEEE

OBJECT.ÉÍ¶ÜÁÄ
END OBJECT.ÜÅ

±±ÍCX^XÉÖ·éè`ªÅ·BCX^XÏÆCX^X\bhªè`³êÜ·ªA

DATA DIVISION.

¢«ÈèDATA DIVISION©çÍ¶ÜÁÄ¢Ü·ªA±êªCX^XÏðLq·éêÅ·B»Ì9s ½èºÉàDATA DIVISIONª èÜ·ª±êÍ\bhÌàÉ éDATA DIVISIONÅ\bhÌÇÏâ\bhÌøðè`·éàÌÅ·B¡ñÌuüàvuoàvÅÍLINKAGE-SECTIONÈÌÅøÌTvÆ¢¤±ÆÉÈèÜ·B

WORKING-STORAGE SECTION.
01 INSTANCE-DATA.
03 XÔ
03 ûÀÔ
03 x¥Â\c
03 myCIF USAGE IS OBJECT REFERENCE Úq.

CX^XÏÆµÄÍXÔAûÀÔAx¥Â\cAmyCIFªè`³êÄ¢Ü·B±êÍÊaàNXÌCX^X²ÆÉ±êçÌCX^XÏÌæªmÛ³êÄ¢éÆ¢¤±ÆÉÈéÌÅ·B

PROCEDURE DIVISION.

±êªCX^X\bhÌè`ÌnÜèÅ·B

METHOD-ID. üà OVERRIDE.

±±ÌOVERRIDEÆÍãÊNXÉ ½é¬®«aàÉàüà\bhªè`³êÄ¢ÄA¬®«aà©çh¶µÄì¬µ½ÊaàNXÍÈÉàè`µÈÄà¬®«aàÌüà\bhðÁÄ¢é±ÆÉÍÈèÜ·EEEªA½Æ¦Îªá¤Æ¢Á½RÅÊaàpÉìè¼·(±êðÕÖ¢è`Æ¾¢Ü·)½ßÉOVERRIDEÆ¢Ä¢éÌÅ·B
Æoà\bhàè`³êÄ¢Ü·B

END CLASS.

±±ÅCLASSè`ªIíéÆ¢¤í¯Å·B
ÈPÅ·ËEEE¿åÁÆ·¢Å·¯Ç(Î)

(1998/5/17)

¡vO\¢

COBOLÉÍ6ÂÌRpCO[vªpÓ³êÜ·B

Eprogram-prototype
Efunction-prototype
Eprogram-definition
Efunction-definition
Eclass-definition
Einterface-definition

ÅAÊí©©¯éCOBOLÍprogram-definitionÆÈèAOOCOBOLÌêÍclass-definitionÆ¢¤±ÆÉÈèÜ·B6ÂÍ»ê¼êRpCPÊÆµÄÊ¨Å·©çIuWFNgÌi(NXè`)Æ»Ìiðgp·éNCAgvO(Êí©©¯éCOBOL)ÆÍÊ¨ÉÈèÜ·B
C++Ìæ¤Éclassè`Æmain()Æª¤¶·é«ûÍoÈ¢±ÆÉÈèÜ·B

á)classè`Æmain()ª¤¶
class OrdinaryAccount{
}
void main(){
OrdinaryAccount myAccount;
}

Ü½C++ÅÍ1ÂÌ¿°½t@CÉCÓÌÌclassè`ªÂ\Å·ªAOOCOBOLÅÍ1ÂÌvOÉ1ÂÌclassè`µ©oÜ¹ñB
µ§É¾¤ÆEEEãLRpCO[vÍ

[{program-definitionâclass-definitionÈÇ}¥¥¥]

Æè`³êÄ¢éÌÅ1ÂÌt@CÉÍANXè`ð3ÂÆ©mainÉ·éNCAgvOð2ÂÆ©ð í¹ÄLqÅ«»¤Å·B

à¾ãAprogram-definitionÌ±ÆðvOè`COBOLAclass-definitionÌ±ÆðNXè`COBOLÆÄÔ±ÆÉ·éÆA
vOè`COBOLÌvO\¢Í

[IDENTIFICATION DIVISION.]
PROGRAM-ID. program-name-1 [AS literal-1][IS {[COMMON] PROGRAM].
EEE

ÆÈè
NXè`COBOLÌvO\¢Í

[IDENTIFICATION DIVISION.]
CLASS-ID. class-name-1 [AS literal-1]
[INHERITS FROM {class-name-2}¥¥¥]
[USING {parameter-name-1}¥¥¥].
[environment-division]
[[IDENTIFICATION DIVISION.]
FACTORY.
[options-paragraph]
[environment-division]
[data-division]
[PROCEDURE DIVISION.
[method-definition]¥¥¥]
END FACTORY.
[[IDENTIFICATION DIVISION.]
OBJECT.
[options-paragraph]
[environment-division]
[data-division]
[PROCEDURE DIVISION.
[method-definition]¥¥¥]
END OBJECT.
END CLASS class-name-1.

ÆÈèÜ·B

[IDENTIFICATION DIVISION.]

Ì[]ÍÈªÅ«éÆ¢¤±ÆÅ·BÈªµÄµÜÁÄ¢«Èè

CLASS-ID. class-name-1

CLASS-ID. class-name-1.
FACTORY.
END FACTORY.
OBJECT.
END OBJECT.
END CLASS class-name-1.

ÆÈéÍ¸Å·B±±Å¾Å·ªPROCEDURE DIVISIONª¶ÝµÄ¢Ü¹ñ(³mÉÍAFACTORYâOBJECTÌiÉÍLqÅ«Ü·)©çvOÀsJn_ÆÈéCÍ¶ÝµÈ¢Æ¢¤±ÆÉÈèÜ·B
ÍNXè`Ì\¢ðDIVISION²ÆTÏµÄ¢«Üµå¤B

IDENTIFICATION DIVISION.

PROGRAM-IDÌãíèÉCLASS-IDðgp·éBÆ¢¤±ÆÍC++Ìæ¤ÉNXè`Æmain()Æª¯êvOÉÍLqÅ«È¢Æ¢¤±ÆÅ·B

p³ÌêÍINHERITSÅwèµÜ·B½dp³ÍÂ\ÅANX¼ÌwèÍ¯êÌ\bh¼ª\ê½êÉæÉLqµÄ éNXÌàÌªLøÆÈèÜ·B

CLASS-ID. Êaà INHERITS ¬®«aà .

 ENVIRONMENT DIVISION.
NXðÄp·éêÍCONFIGURATION SECTIONÌREPOSITORYiÉNXðLqµÜ·BHASAÖWÌNX¾¯ÅÍÈISAÖWÆµÄÌeNXàwè·éKvª èÜ·B

REPOSITORY.
CLASS ¬®«aà.
CLASS Úq IS 'CIF'.

Úqªinternal nameÅACIF ªexternal nameÆÈèÜ·B
ÊíÌCOBOLâIuWFNgÌNCAgAvP[VªNXè`COBOLÌIuWFNgðgpµ½¢êàREPOSITORYiðLqµÈ¯êÎÈèÜ¹ñB±ÌRIPOSITORYÍIR(InterfaceRepository)ÆÄÎêÄ¢Ü·B

 DATA DIVISION.
è`Å«éêÍ3© èÜ·B

EFACTORYiÌDATA DIVISION
±±Åè`³êéÆNXÏÆÈèÜ·B
EOBJECTiÌDATA DIVISION
±±Åè`³êéÆCX^XÏÆÈèÜ·B
EMETHODè`ÌÌDATA DIVISION
±±Åè`³êéÆ\bhÌÅÌÇÏÆÈèÜ·B

LOCAL-STORAGE SECTION.
i±@\ÍÈ¢
WORKING-STORAGE SECTION.
i±@\ è:\bhðEXITµÄàlÍcÁÄ¢Ü·BÄx¯¶\bhÉENTERµ½êOñÌlªcÁÄ¢Ü·B
LINKAGE SECTION.
øâßèlðè`µÄ¨«Ü·B

NXÌÄp

01 vÊaà USAGE IS OBJECT REFERENCE.
01 vÀaà USAGE IS OBJECT REFERENCE Àaà.

f[^ÚÆµÄIuWFNgðp·éêAOOCOBOLÅÍOBJECT REFERENCEðgpµÜ·BC++Ìæ¤ÉCX^X»ÌàÌð¼ÚßñÅg¤±ÆÍÅ«Ü¹ñBIuWFNgÍFACTORYÌnew\bhÌæ¤ÈCX^X¶¬\bhÉæÁÄì¬µÄ¨«A»ÌCX^Xð³·æ¤ÉOBJECT REFERENCEðú»µÜ·B
OBJECT REFERENCEÉÍtypedÆuntypedª èAtypedÅÍwè³ê½NX¾¯ÅÍÈºÊÌNXðwµ¦·±ÆªÂ\Å·BuntypedÌêÍÇÌæ¤ÈNXÅàwµ¦·±ÆªÅ«Ü·B

 PROCEDURE DIVISION.
\bhè`
OOCOBOLÌ\bhÍC++Å¾¤Æ±ëÌvirtual©ÂpublicÆÈèÜ·B

METHOD-ID. üà OVERRIDE.

ãÊNXÌ\bhð«·¦éê(ÕÁè`)ÍAOVERRIDEðwèµÜ·BÜ½e\bhÍ\bh¼(áÅÍuüàv)Æ©ª©gÌDATA DIVISIONÆPROCEDURE DIVISIONðÁÄ¢Ü·BDATA DIVISIONÍY\bhÌÇÏðè`µÜ·B\bhÖÌøâßèlà±±Åè`µÜ·B

IuWFNgQÆ(OBJECT REFERENCE)ÌÝèû@
å«Í2Êè èÜ·B
(1)FACTORYÌnew\bhÌßèlÆµÄÝè·éB

01 vÊ USAGE IS OBJECT REFERENCE Êaà.
EEE
INVOKE Êaà "new" RETURNING vÊ.

vÊÉÍ¶¬³ê½ÊaàNXÌCX^XÖÌIuWFNgQÆªãü³êÄ¢Ü·B
(2)SET¶ÅÝè·éB

ESET A TO B.

IuWFNgQÆAðIuWFNgQÆBªwµÄ¢éàÌÉÝè·é

ESET A TO NULL.

IuWFNgQÆAðNULLÉÝè·é(Ç±àwµ¦µÄ¢È¢æ¤É·é)

ESET A TO SELF.

EINVOKE Êaà "üà" USING PARAM.
EÊaà::üà(PARAM).

invokeÅÍ\bh¼îñðÏÉi[·é±ÆàÂ\Å·BeÅ êÎstatic linkÆÈèAdatanameÅ êÎdynamic linkÆÈèÜ·B

¡Èã

OOCOBOL ±[È[

¡Í¶ßÉ

¡Ü¸ÍAEgC`ÇñÈàÌÈÌ Object-Oriented COBOLÁÄ`

SECTION.1 OOCOBOL\¢ÌTª

¡C++ÅÌTv

¡TvðOOCOBOLÅ¢½ê

¡TvOOCOBOLÌðà

¡vO\¢

 IDENTIFICATION DIVISION.