COBOL文法書 - software.fujitsu.com

1 B1WW-6981-01Z0(00) Microsoft Windows 98 Microsoft Windows 2000 Microsoft Windows Me Microsoft Windows XP Microsoft Windows NT Microsoft Windows Server 2003 NetCOBOL for Windows cobol i Microsoft(R) Windows(R) operating system Version Windows(R) Microsoft(R) Windows(R) 95 operating system Windows(R) 95 Microsoft(R) Windows(R) 98 operating system Windows(R) 98 Microsoft(R) Windows(R) Millennium Edition Windows(R) Me Microsoft(R) Windows NT(R) Workstation operating system Version Windows NT(R) Microsoft(R) Windows NT(R) Server Network operating system Version Windows NT(R) Microsoft(R) Windows NT(R) Server Network operating system Version , Terminal Server Edition Windows NT(R) Microsoft(R) Windows NT(R) Server Network operating system, Enterprise Edition Version Windows NT(R) Microsoft(R) Windows(R) 2000 Professional operating system Windows(R) 2000 Microsoft(R) Windows(R) 2000 Server operating system Windows(R) 2000 Microsoft(R) Windows(R) 2000 Advanced Server operating system Windows(R)

2 2000 Microsoft(R) Windows(R) XP Professional operating system Windows(R) XP Microsoft(R) Windows(R) XP Home Edition operating system Windows(R) XP Microsoft(R) Windows Server(TM) 2003, Standard Edition Windows Server(TM) 2003 Microsoft(R) Windows Server(TM) 2003, Enterprise Edition Windows Server(TM) 2003 fujitsu NetCOBOL fujitsu COBOL97 fujitsu COBOL85 cobol (COmmon Business Oriented Language) fujitsu NetCOBOL fujitsu COBOL97 fujitsu COBOL85 NetCOBOL NetCOBOL NetCOBOL COBOL97 COBOL85 ii fujitsu NetCOBOL fujitsu COBOL97 fujitsu COBOL85 fujitsu NetCOBOL fujitsu COBOL97 fujitsu COBOL85 JIS cobol (JIS X 3002-1992)

3 fujitsu NetCOBOL fujitsu COBOL97 fujitsu COBOL85 fujitsu NetCOBOL fujitsu COBOL97 fujitsu COBOL85 fujitsu NetCOBOL fujitsu COBOL97 fujitsu COBOL85 JIS cobol (2, 1,2) (2, 1,2) (2, 0,2) (2, 0,2) (2, 1,2) (1, 0,1) (2, 0,2) (1, 0,1) (1, 0,1) (2, 0,2) * (2, 0,2) * fujitsu NetCOBOL fujitsu COBOL97 fujitsu COBOL85 ** Micro Focus **.

4 NET * ** COBOL2002 JIS cobol ( ) fujitsu NetCOBOL fujitsu COBOL97 fujitsu COBOL85 cobol cobol cobol cobol (SQL)

5 10 Micro Focus Micro Focus 11 cobol iii cobol 1 2 cobol 3 11 cobol iv cobol PICTURE VALUE IS -1 VALUE IS "XXXX" VALUE 12345

6 -1 FILLER -1 -1 v COMMON INITIAL COMMON INITIAL INITIAL COMMON .. -1 -1 SECTION fujitsu NetCOBOL fujitsu COBOL97 fujitsu COBOL85 fujitsu NetCOBOL fujitsu COBOL97 fujitsu COBOL85 fujitsu NetCOBOL fujitsu COBOL97 fujitsu COBOL85

7 cobol vi 1985 ANSI cobol NetCOBOL COBOL97 COBOL85 DS UXP/DS COBOL85 V20L11 HP HP-UX COBOL85 V20L11 Sun Solaris Operating System NetCOBOL Win Windows(R) 98 NetCOBOL Windows(R) Me NetCOBOL Windows NT(R) NetCOBOL Windows(R) 2000 NetCOBOL Windows(R) XP NetCOBOL Windows Server(TM) 2003 NetCOBOL Windows(R) COBOL85 V20L11 Windows(R) 95 COBOL85 V20L11 Win16 Windows(R) 95 COBOL85 V20L11 Windows(R) COBOL85 V20L11 Win32 Windows(R) 98 NetCOBOL Windows(R) Me NetCOBOL Windows NT(R) NetCOBOL Windows(R) 2000 NetCOBOL Windows(R) XP NetCOBOL Windows Server(TM)

8 2003 NetCOBOL Linux Linux NetCOBOL IPFL inux IPFL inux Linux for Itanium NetCOBOL .NET Windows(R) XP NetCOBOL Windows(R) 2000 NetCOBOL Windows Server(TM) 2003 NetCOBOL E HP HP-UX Hewlett-Packard Company Micro Focus Micro Focus International Limited. Sun Sun Microsystems Sun Solaris Solaris Sun Microsystems, Inc. Windows Windows NT Windows Server MSDN Visual Studio .NET Microsoft Corporation Linux Linus Torvalds UNIX Intel Itanium Intel Corporation vii 2005 6 All Rights Reserved,Copyright(C) 1992-2005 viii ix cobol (COnference on DAta SYstems Languages)

9 cobol cobol cobol FLOW-MATIC( ),Programming for the Univac (R) I and II,Data Automation Systems, 1958 ,1959 , . IBM Commercial Translator, F28-8013, IBM 1959 , . FACT, 27A5260-2760, 1960 , . x xi 1 .. 1 .. 2 .. 4 .. 4 cobol .. 5 .. 11 .. 15 .. 16.

10 17 PICTURE .. 17 .. 17 .. 18 .. 18 .. 18 .. 18 .. 20 .. 20 .. 25 .. 25 .. 28 .. 30 .. 31 .. 33 .. 33 .. 34 .. 35 1 .. 35 A B .. 36 .. 36 .. 36 .. 37 .. 37 .. 38 .. 38 .. 40 .. 41 2 cobol .. 43 .. 44 .. 45 .. 46 .. 47 .. 48 .. 49 .. 52 .. 53 .. 54 .. 54 .. 54 .. 55 xii .. 57 .. 57 .. 59 .. 59.