NetCOBOL V10.2 COBOL ファイル ... - …

1 J2UL-1174-02Z0(00)2011 4 Linux(64) NetCOBOL COBOL COBOL C API(Application Program Interface) COBOL / COBOL C COBOL C COBOL COBOL NetCOBOL Linux Linus Torvalds UNIX X Window System Red Hat RPM Red Hat Red Hat, Inc. 2011 4 Copyright 2009-2011 FUJITSU LIMITED- i - 1 COBOL .. COBOL ..1 2 .. C.

2 C ..2 3 API .. cobfa_open().. cobfa_close().. cobfa_rdkey().. cobfa_rdnext().. cobfa_rdrec().. cobfa_wrkey().. cobfa_wrnext().. cobfa_wrrec().. cobfa_delcurr().. cobfa_delkey().. cobfa_delrec().. cobfa_rewcurr().. cobfa_rewkey().. cobfa_rewrec().. cobfa_stkey().. cobfa_strec().. cobfa_release().. cobfa_indexinfo().. cobfa_errno().. cobfa_stat().. cobfa_reclen().. cobfa_recnum().. LOCK_cobfa().. UNLOCK_cobfa().. struct struct struct ..41- ii ..42 4 ..44 5 ..46 6 ..48 A .. API .. API ..52 ..53- iii - 1 COBOL COBOL COBOL COBOL COBOL C API(Application Program Interface) COBOL COBOL COBOL / COBOL COBOL / / / COBOL C COBOL COBOL COBOL COBOL LD_LIBRARY_PATH COBOL COBOL /opt/FJSVcbl64/lib - 1 - 2 C C COBOL C 6 C #include " " C C C -I

3 (/opt/FJSVcbl64/include) -I /opt/FJSVcbl64/include C C COBOL COBOL / / - 2 - 3 API API API cobfa_open() long cobfa_open ( const char *fname, /* */ long openflgs, /* */ const struct fa_keylist *keylist, /* */ long reclen /* */ ); fname openflgs reclen keylist fname COBOL ,DUMMY ,DUMMY ,BSAM openflgs a.

4 H. 8 b. h. (* )a. COBOL FA_INPUTINPUT OPEN INPUT FA_OUTPUTOUTPUT OPEN OUTPUT FA_INOUTI-O OPEN I-O FA_EXTENDEXTEND OPEN EXTEND (FA_LSEQFILE) I-O (FA_INOUT) b. COBOL *FA_SEQFILE ORGANIZATION IS SEQUENTIAL FA_LSEQFILE ORGANIZATION IS LINE SEQUENTIAL FA_RELFILE ORGANIZATION IS RELATIVE FA_IDXFILE ORGANIZATION IS INDEXEDc. - 3 - COBOL *FA_FIXLEN RECORD CONTAINS integer CHARACTERS FA_VARLEN RECORD IS VARYING IN SIZEd. COBOL *FA_SEQACC ACCESS MODE IS SEQUENTIAL FA_RNDACC ACCESS MODE IS RANDOM FA_DYNACC ACCESS MODE IS DYNAMIC (FA_SEQACC) - (FA_LSEQFILE)- (FA_SEQFILE)e.

5 COBOL FA_AUTOLOCK LOCK MODE IS AUTOMATIC FA_MANULOCK LOCK MODE IS MANUAL FA_EXCLLOCK LOCK MODE IS EXCLUSIVE OPEN WITH LOCK OUTPUT (FA_OUTPUT) (FA_EXCLLOCK) INPUT (FA_INPUT) (FA_AUTOLOCK) (FA_MANULOCK) INPUT (FA_INPUT) INPUT (FA_INPUT) (FA_EXCLLOCK) (FA_MANULOCK) - (FA_LSEQFILE)- (FA_SEQFILE) API - 4 - (a. e.)

6 FA_INPUTFA_OUTPUTFA_INOUTFA_EXTEND FA_AUTOLOCK FA_MANULOCKFA_EXCLLOCK I-O (FA_INOUT) cobfa_rdkey() cobfa_rdnext() cobfa_rdrec() - (cobfa_release)- (cobfa_close) (FA_AUTOLOCK) - (cobfa_rdkey/cobfa_rdnext/cobfa_rdrec)- (cobfa_wrkey/cobfa_wrnext/cobfa_wrrec)- (cobfa_delcurr/cobfa_delkey/cobfa_delrec )- (cobfa_rewcurr/cobfa_rewkey/cobfa_rewrec )- (cobfa_stkey/cobfa_strec)f. COBOL *FA_NOTOPT SELECT filename FA_OPTIONAL SELECT OPTIONAL filenameg. *FA_ASCII Unicode FA_UCS2 UCS-2 ( )FA_UCS2BE UCS-2( ) FA_UCS2LE UCS-2( ) FA_UTF8 UTF-8 (FA_LSEQFILE) Unicode COBOL FA_UCS2 FA_UCS2BE FA_UCS2LE FA_UTF8 - 5 - Unicode COBOL FA_ASCII h.

7 FA_USEKPFLAGS struct fa_keypart kp_flags keylist struct fa_keypart kp_flags struct fa_keypart struct fa_keydesc (FA_IDXFILE) Unicode COBOL kp_flags (FA_FIXLEN) reclen (FA_VARLEN) reclen FA_NRECSIZE(32760) keylist (FA_IDXFILE) keylist struct fa_keylist structfa_keylist keylist NULL INPUT OUTPUT I-O EXTEND 1 - 6 - -1 FA_ENOERR0 FA_ENOERR5 INPUT

8 (FA_INPUT) ( ) FA_EBADACC90 FA_EFNAME35 FA_EFLOCKED93 FA_EFNAME90 FA_EFNAME91 FA_EBADFLAG39 FA_EBADKEY39 FA_EBADKEY90 FA_EBADLENG39 FA_EBADFILE90 API API cobfa_close() long cobfa_close ( long fd /* */ ); - 7 - fd INPUT OUTPUT I-O EXTEND 0 -1 FA_ENOERR0 ( ) FA_ENOTOPEN42 API API - 8 cobfa_rdkey() ( )

9 Long cobfa_rdkey ( long fd, /* */ long readflgs, /* */ char *recarea, /* */ const struct fa_keydesc *keydesc, /* */ long keynum /* */ ); fd recarea recarea readflgs 2 (* )a. *FA_EQUAL b. COBOL FA_LOCK READ WITH LOCK FA_NOLOCK READ WITH NO LOCK (FA_AUTOLOCK) (FA_LOCK) (FA_NOLOCK) keydesc struct fa_keydesc struct fa_keydesc NULL keynum 1 2 2 2 3 INPUT OUTPUT I-O EXTEND - 9 - 0 -1 FA_ENOERR0 FA_ENOERR2 ( )

10 FA_ENOTOPEN47 INPUT I-O FA_EBADACC90 FA_EBADFLAG90 FA_ENOREC23 FA_EBADKEY90 FA_ELOCKED99 cobfa_rdnext() ( )long cobfa_rdnext ( long fd, /* */ long readflgs, /* */- 10 - char *recarea /* */ ); fd ( ) recarea readflgs 2 (* )a. COBOL *FA_NEXT READ NEXT RECORD FA_PREV READ PREVIOUS RECORD (FA_PREV) - (FA_LSEQFILE)- (FA_SEQFILE)b.