untitled

Transcription

1 OpenVMS AA-PU8NF-TE : : OpenVMS V7.3 OpenVMS Integrity OpenVMS Alpha V7.3-2 OpenVMS VAX V7.3

2 2004, 2009 Hewlett-Packard Development Company, L.P. () Adobe Adobe Illustrator POSTSCRIPT Adobe Systems BITSTREAM Bitstream Microsoft MS MS DOS Microsoft Motif OSF OSF/1 OSF/Motif Open Software Foundation Open Software Foundation VAX DOCUMENT V 2.1

3 ... ix FORTRAN C MACRO JLB$NOF_BYTE JLB$NOF_CHAR JLB$POS_CURR JLB$POS_NEXT JLB$POS_PREV JLB$POSITION JLB$STR_EQUAL JLB$STR_START JLB$STR_SEARCH JLB$TRIM JLB$TRUNC JLB$LOCC JLB$SKPC JLB$RCHAR JLB$RNEXT JLB$WCHAR JLB$WNEXT iii

4 JLB$TRA_ROM_HALF JLB$TRA_ROM_FULL JLB$TRA_ROM_SIZE JLB$TRA_ROM_LOWER JLB$TRA_ROM_UPPER JLB$TRA_ROM_CASE JLB$TRA_ROM_KANA JLB$TRA_KANA_HIRA JLB$TRA_KANA_KATA JLB$TRA_KANA_KANA JLB$TRA_KANA_DAKU JLB$TRA_KANA_HALF JLB$TRA_KANA_FULL JLB$TRA_SYMBOL JLB$GET_COMMAND JLB$GET_INPUT JLB$RMS_USER_VTF JLB$RMS_VTF7_USER JSY$RMS_GET_ENCODING JSY$RMS_LIST_ENCODING JSY$RMS_SET_ENCODING JSY$RMS_USER_VTF JSY$RMS_VTF7_USER JLB$DATE_TIME JLB$DEV_KANJI JLB$DEV_KANJI_IN JSY$CH_NEXT JSY$CH_PREV JSY$CH_CURR JSY$POS_NEXT JSY$POS_PREV JSY$POS_CURR JSY$CH_RCHAR JSY$CH_RNEXT JSY$CH_WCHAR JSY$CH_WNEXT JSY$CH_GCHAR iv

5 JSY$CH_GNEXT JSY$CH_PCHAR JSY$CH_PNEXT JSY$CH_SIZE JSY$CH_NBYTE JSY$CH_NCHAR JSY$POSITION JSY$STR_EQUAL JSY$STR_START JSY$STR_SEARCH JSY$TRIM JSY$TRUNC JSY$LOCC JSY$SKPC JSY$CHG_ROM_HALF JSY$CHG_ROM_FULL JSY$CHG_ROM_SIZE JSY$CHG_ROM_LOWER JSY$CHG_ROM_UPPER JSY$CHG_ROM_CASE JSY$CHG_KANA_HIRA JSY$CHG_KANA_KATA JSY$CHG_KANA_KANA JSY$CHG_KANA_DAKU JSY$CHG_KANA_HALF JSY$CHG_KANA_FULL JSY$CHG_GENERAL JSY$CHG_JIS_KUTEN JSY$CHG_KEISEN JSY$TRA_ROM_HALF JSY$TRA_ROM_FULL JSY$TRA_ROM_SIZE JSY$TRA_ROM_LOWER JSY$TRA_ROM_UPPER JSY$TRA_ROM_CASE JSY$TRA_ROM_KANA JSY$TRA_KANA_HIRA JSY$TRA_KANA_KATA JSY$TRA_KANA_KANA JSY$TRA_KANA_DAKU JSY$TRA_KANA_HALF JSY$TRA_KANA_FULL JSY$TRA_SYMBOL v

6 JLB$CNV_OPEN_DICTIONARY JSY$CNV_OPEN_DICTIONARY JLB$CNV_CLOSE_DICTIONARY JSY$CNV_CLOSE_DICTIONARY JLB$CNV_CONVERT JSY$CNV_CONVERT JLB$CNV_ROM_CONVERT JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI JLB$CNV_NEXT_WORD JSY$CNV_NEXT_WORD JLB$CNV_PREV_WORD JSY$CNV_PREV_WORD JLB$CNV_GET_CLAUSE JSY$CNV_GET_CLAUSE JSY$CNV_GET_PHONETIC_CLAUSE JLB$CNV_SHORTEN_CLAUSE JSY$CNV_SHORTEN_CLAUSE JLB$CNV_EXTEND_CLAUSE JSY$CNV_EXTEND_CLAUSE JLB$CNV_CLAUSE_HIRAGANA JSY$CNV_CLAUSE_HIRAGANA JLB$CNV_CLAUSE_KATAKANA JSY$CNV_CLAUSE_KATAKANA JLB$CNV_CLAUSE_FULL JSY$CNV_CLAUSE_FULL JLB$CNV_CLAUSE_HALF JSY$CNV_CLAUSE_HALF JLB$CNV_CLAUSE_SYMBOL JSY$CNV_CLAUSE_SYMBOL JLB$CNV_CLAUSE_NOCONVERT JSY$CNV_CLAUSE_NOCONVERT JLB$CNV_CLAUSE_DELETE JSY$CNV_CLAUSE_DELETE JLB$CNV_LEARN JSY$CNV_LEARN JLB$CNV_REGISTER_WORD JSY$CNV_REGISTER_WORD JLB$CNV_DELETE_WORD JSY$CNV_DELETE_WORD JLB$CNV_IO_ERROR JSY$CNV_IO_ERROR JLB$TRA_DICINI JSY$TRA_DICINI JLB$TRA_DICCLS JSY$TRA_DICCLS JLB$ENT_TANGO JSY$ENT_TANGO JLB$DEL_TANGO JSY$DEL_TANGO JLB$TRA_ROM_TANGO JLB$TRA_KANA_TANGO JSY$TRA_KANA_TANGO JLB$TRA_TANGO_NEXT JSY$TRA_TANGO_NEXT JLB$TRA_TANGO_PREV JSY$TRA_TANGO_PREV JLB$TRA_TANGO_DONE JSY$TRA_TANGO_DONE vi

7 JLB$TRA_KANJI_DEC_JIS JLB$TRA_KANJI_JIS_DEC JLB$TRA_KANJI_DEC_HITACHI JLB$TRA_KANJI_HITACHI_DEC JLB$TRA_KANJI_DEC_IBM JLB$TRA_KANJI_IBM_DEC JLB$TRA_KANJI_DEC_JEF JLB$TRA_KANJI_JEF_DEC JLB$TRA_KANJI_DEC_NEC JLB$TRA_KANJI_NEC_DEC JLB$TRA_KANJI_DEC_MSDOS JLB$TRA_KANJI_MSDOS_DEC JLB$TRA_KANJI_DEC_CPM JLB$TRA_KANJI_CPM_DEC JSY$GTBL_TO_ASCII JSY$GTBL_TO_ASCII_K JSY$GTBL_TO_NEC JSY$GTBL_TO_NEC_K JSY$GTBL_TO_MSDOS JSY$GTBL_TO_MSDOS_K JSY$GTBL_TO_EBCDIK JSY$GTBL_EBCDIK_TO_ASCII DEC JLB$KCV_BEGIN_CONV JLB$KCV_END_CONV JLB$KCV_FIND JLB$KCV_CONVERT A vii

8 B B.1 /... B 1 B.2 /... B 6 B.3... B 8 B B 8 B B 8 B B 11 B B 11 B B JSY$GTBL_TO_ASCII JSY$GTBL_TO_ASCII_K JSY$GTBL_TO_NEC JSY$GTBL_TO_NEC_K JSY$GTBL_TO_MSDOS JSY$GTBL_TO_MSDOS_K JSY$GTBL_TO_EBCDIK JSY$GTBL_EBCDIK_TO_ASCII A 1 LK401-JJ LK401BJ... A 2 A 2... A 3 B 1 /... B 2 B 2 /... B 3 B 3... B 5 B B 8 B B 9 B B 10 B B 11 A 1... A 1 B 1 /... B 7 B 2... B 11 B B 12 viii

9 OpenVMS 1 OpenVMS A B OpenVMS RTL Library (LIB$) Manual OpenVMS RTL General Purpose (OTS$) Manual OpenVMS RTL Parallel Processing (PPL$) Manual OpenVMS RTL Screen Management (SMG$) Manual OpenVMS RTL String Manipulation (STR$) Manual ix

10 VMS RTL Mathematics (MTH$) Manual VMS RTL DECtalk (DTK$) Manual Ctrl/x Ctrl/x Ctrl PF1 x PF1 x PF1 Return HTML () [] 1 1 OpenVMS [ ] 1 {} 1 italic text UPPERCASE TEXT ( number) ( /PRODUCER=name) (device-name) x

11 Monospace C ( ) xi

12 1 / OpenVMS 1.1 OpenVMS DEC DEC 6 / SYS$SHARE:JSYSHR.EXE JSY$LIBRARY:JSYLIB.OLB

13 SYS$SHARE:JSYSHR.EXE $ LINK PROG,SYS$INPUT/OPTION SYS$SHARE:JSYSHR/SHARE $ $ LINK PROG,JSY$LIBRARY:JSYSHR/OPTION JSY$LIBRARY:JSYLIB.OLB SYS$SHARE:JSYSHR.EXE $ LINK PROG,JSY$LIBRARY:JSYLIB/LIBRARY,SYS$INPUT/OPTION SYS$SHARE:JSYSHR/SHARE $ LINK PROG,JSY$LIBRARY:JSYLIB/LIBRARY,JSY$LIBRARY:JSYSHR/OPTION JSY$LIBRARY:JSYLIB.OLB $ LINK PROG,JSY$LIBRARY:JSYLIB/LIBRARY 1 2

14 2 OpenVMS 2.1 FORTRAN JSY$EXAMPLES:GETINPUT.FOR $ $ getinput.for program sample character buff*40 integer stat! *, DEC FORTRAN do while (jlb$get_input(buff, :,leng)) *, :,buff end do end $ $ fortran getinput $ link getinput,jsy$library:jsyshr/option $ run getinput DEC FORTRAN : : : : : EXIT $ 2 1

15 2.2 C 2.2 C JSY$EXAMPLES:GETINPUT.C $ $ getinput.c #include <stdio.h> #include <ssdef.h> #include <descrip.h> main () /* */ { static char buff[40]; static char prom[] = " : "; $DESCRIPTOR(buf,buff); $DESCRIPTOR(pro,prom); short len; printf("\ndec C \n"); while (jlb$get_input(&buf,&pro,&len) == SS$_NORMAL) { buff[len] = 0; printf(" : %s\n",buff); } } $ $ cc getinput $ link getinput,sys$input:/option sys$share:jsyshr.exe/share *EXIT* $ run getinput DEC C : : : : : EXIT $ 2.3 MACRO JSY$EXAMPLES:GETINPUT.MAR $ $ getinput.mar.title test.psect data.show.macro string str.ascid /str/.endm string 2 2

16 2.3 MACRO data1:.ascid /MACRO / data2: string <MACRO > inp: string < : > oup:.long b3-b1.address b1 buff:.long b3-b2.address b2 b1:.ascii / : / b2:.blkb 40 b3:.psect code.entry test,^m<> ; pushaq data1 calls #1,g^lib$put_output pushaq data2 calls #1,g^lib$put_output loop: pushaq inp pushaq buff calls #2,g^jlb$get_input blbc r0,eof pushaq oup calls #1,g^lib$put_output brb loop eof: $exit_s.end test $ $ macro getinput $ link getinput,jsy$library:jsyshr/option $ run getinput MACRO MACRO : : : : : EXIT $ 2 3

17 3 ( 3.1 ) ( 3.2 ) ( 3.3 ) ( 3.4 ) ( 3.5 ) ( 3.6 ) /2 3.2 JLB$NOF_BYTE JLB$NOF_CHAR JLB$POS_CURR JLB$POS_NEXT JLB$POS_PREV JLB$POSITION JLB$STR_EQUAL JLB$STR_START JLB$STR_SEARCH JLB$TRIM JLB$TRUNC JLB$LOCC JLB$SKPC JLB$RCHAR // / // / // / 3 1

18 3.1 JLB$RNEXT JLB$WCHAR JLB$WNEXT 3.3 JLB$TRA_ROM_HALF JLB$TRA_ROM_FULL JLB$TRA_ROM_SIZE JLB$TRA_ROM_LOWER JLB$TRA_ROM_UPPER JLB$TRA_ROM_CASE JLB$TRA_ROM_KANA JLB$TRA_KANA_HIRA JLB$TRA_KANA_KATA JLB$TRA_KANA_KANA JLB$TRA_KANA_DAKU JLB$TRA_KANA_HALF JLB$TRA_KANA_FULL JLB$TRA_SYMBOL / / / // / / / / / / 3.4 JLB$GET_COMMAND JLB$GET_INPUT LIB$GET_COMMAND LIB$GET_INPUT 3.5 JLB$RMS_USER_VTF7 JLB$RMS_VTF7_USER JSY$RMS_GET_ENCODING JSY$RMS_LIST_ENCODING VTF-7 VTF-7 3 2

19 3.1 JSY$RMS_SET_ENCODING JSY$RMS_USER_VTF7 JSY$RMS_VTF7_USER RMS VTF-7 VTF-7 JLB$DATE_TIME JLB$DEV_KANJI JLB$DEV_KANJI_IN /2 3 3

20 JLB$NOF_BYTE JLB$NOF_BYTE nof-byte = JLB$NOF_BYTE ( src-str, nof-char ) src-str nof_char Descriptor Longword Reference nof_byte #include <stdio.h> #include <descrip.h> #include <string.h> 3 4

21 JLB$NOF_BYTE main() { struct dsc$descriptor_s src_str; int nof_byte; extern int jlb$nof_byte(); char src_str_body[] = " RTL"; int nof_char = 4; src_str.dsc$b_class = DSC$K_CLASS_S; src_str.dsc$b_d = DSC$K_DTYPE_T; src_str.dsc$w_length = strlen( src_str_body ); src_str.dsc$a_pointer = src_str_body; nof_byte = jlb$nof_byte( &src_str, &nof_char ); printf( " :\"%s\" :%d\n :%d\n", src_str_body, nof_char, nof_byte ); } 3 5

22 JLB$NOF_CHAR JLB$NOF_CHAR nof-char = JLB$NOF_CHAR ( src-str ) src-str Descriptor nof-char 3 6

23 JLB$POS_CURR JLB$POS_CURR index = JLB$POS_CURR ( src-str, curr-index ) src-str curr-index Descriptor Longword Reference index 3 7

24 JLB$POS_NEXT JLB$POS_NEXT index = JLB$POS_NEXT ( src-str, curr-index ) src-str curr-index Descriptor Longword Reference index curr-index src-str 0 curr-index 0 3 8

25 JLB$POS_NEXT #include <stdio.h> #include <descrip.h> #include <string.h> main() { struct dsc$descriptor_s src_str; int index; extern int jlb$pos_next(); char src_str_body[] = " RTL"; int curr_index = 1; src_str.dsc$b_class = DSC$K_CLASS_S; src_str.dsc$b_d = DSC$K_DTYPE_T; src_str.dsc$w_length = strlen( src_str_body ); src_str.dsc$a_pointer = src_str_body; index = jlb$pos_next( &src_str, &curr_index ); printf( " :\"%s\" :%d\n :%d\n", src_str_body, curr_index, index ); } 3 9

26 JLB$POS_PREV JLB$POS_PREV index = JLB$POS_PREV ( src-str, curr-index ) src-str curr-index Descriptor Longword Reference index curr-index src-str 0 curr-index

27 JLB$POSITION JLB$POSITION 0 index = JLB$POSITION ( src-str, sub-str [, start-pos] ) src-str sub-str start-pos Descriptor Descriptor ( 1) Longword Reference index

28 JLB$STR_EQUAL JLB$STR_EQUAL // / match = JLB$STR_EQUAL ( str1, str2 [, flg] ) strl str2 flg 1 Descriptor 2 Descriptor ( 0) Byte Reference bit 0 0 : / 1 : / bit 1 0 : / 1 : / bit 2 0 : / 1 : / match 1:

29 JLB$STR_EQUAL 0:

30 JLB$STR_START JLB$STR_START // / 1 2 match = JLB$STR_START ( str1, str2 [, flg]) strl str2 flg 1 Descriptor 2 Descriptor Byte Reference bit 0 0 : / 1 : / bit 1 0 : / 1 : / bit 2 0 : / 1 : / 3 14

31 JLB$STR_START match 1 : 1 2 0:

32 JLB$STR_SEARCH JLB$STR_SEARCH // / 0 index = JLB$STR_SEARCH ( src-str, sub-str[[, start-pos][, flg]] ) src-str sub-str start-pos flg Descriptor Descriptor ( 1) Longword Reference ( 0) Byte Reference bit 0 0 : / 1 : / bit 1 0 : / 1 : / bit 2 0 : / 3 16

33 JLB$STR_SEARCH 1 : / index 0 1 #include <stdio.h> #include <descrip.h> #include <string.h> main() { struct dsc$descriptor_s struct dsc$descriptor_s char flg; int index; } extern int char src_str; sub_str; jlb$str_search(); src_str_body[] = "", sub_str_body[] = " "; int start_pos = 1; src_str.dsc$b_class = DSC$K_CLASS_S; src_str.dsc$b_d = DSC$K_DTYPE_T; src_str.dsc$w_length = strlen( src_str_body ); src_str.dsc$a_pointer = src_str_body; sub_str.dsc$b_class = DSC$K_CLASS_S; sub_str.dsc$b_d = DSC$K_DTYPE_T; sub_str.dsc$w_length = strlen( sub_str_body ); sub_str.dsc$a_pointer = sub_str_body; printf( " 1:\"%s\" 2:\"%s\"\n", src_str_body, sub_str_body); for ( flg = 0; flg < 8; ++flg ) { index = jlb$str_search( &src_str, &sub_str, &start_pos, &flg ); printf( " :%1d :%d\n", flg, index ); } 3 17

34 JLB$TRIM JLB$TRIM ( ) ret-status = JLB$TRIM ( dst-str, src-str [, out-len] ) dst-str src-str out-len Descriptor Descriptor ( ) Word Reference ret-status SS$_NORMAL LIB$_STRTRU 3 18

35 JLB$TRIM #include <stdio.h> #include <descrip.h> #include <ssdef.h> #include <libdef.h> #include <string.h> #include <ssdef.h> #include <stsdef.h> #include <varargs.h> main() { struct dsc$descriptor_s struct dsc$descriptor_s int ret_status; } dst_str; src_str; extern int jlb$trim(); char src_str_body[] = " "; char dst_str_body[] = " "; dst_str.dsc$b_class = src_str.dsc$b_class = DSC$K_CLASS_S; dst_str.dsc$b_d = src_str.dsc$b_d = DSC$K_DTYPE_T; src_str.dsc$w_length = strlen (src_str_body); dst_str.dsc$w_length = strlen (dst_str_body); src_str.dsc$a_pointer = src_str_body; dst_str.dsc$a_pointer = dst_str_body; printf( " :\"%s\"\n", src_str_body ); ret_status = jlb$trim( &dst_str, &src_str, &dst_str.dsc$w_length ); dst_str_body[ dst_str.dsc$w_length ] = \0 ; printf( " :\"%s\" :%d :", dst_str.dsc$a_pointer, dst_str.dsc$w_length ); switch ( ret_status ) { case SS$_NORMAL: printf( "SS$_NORMAL" ); break; case LIB$_STRTRU: printf( "LIB$_STRTRU" ); break; } putchar( \n ); 3 19

36 JLB$TRUNC JLB$TRUNC ret-status = JLB$TRUNC ( dst-str, src-str, size [, out-len] ) dst-str src-str size out-len Descriptor Descriptor Word Reference Word Reference 3 20

37 JLB$TRUNC ret-status SS$_NORMAL LIB$_STRTRU 3 21

38 JLB$LOCC JLB$LOCC 0 index = JLB$LOCC ( char-str, src-str ) char-str src-str Descriptor Descriptor index #include <stdio.h> #include <descrip.h> #include <string.h> 3 22

39 JLB$LOCC main() { struct dsc$descriptor_s struct dsc$descriptor_s int index; } extern int char char_str; src_str; jlb$locc(); char_str_body[] = " ", src_str_body[] = " "; char_str.dsc$b_class = src_str.dsc$b_class = DSC$K_CLASS_S; char_str.dsc$b_d = src_str.dsc$b_d = DSC$K_DTYPE_T; char_str.dsc$w_length = strlen( char_str_body ); char_str.dsc$a_pointer = char_str_body; src_str.dsc$w_length = strlen( src_str_body ); src_str.dsc$a_pointer = src_str_body; index = jlb$locc( &char_str, &src_str ); printf( " :\ %s\ :\"%s\"\n :%d\n", char_str_body, src_str_body, index ); 3 23

40 JLB$SKPC JLB$SKPC 0 index = JLB$SKPC ( char-str, src-str ) char-str src-str Descriptor Descriptor index char-str

41 JLB$RCHAR JLB$RCHAR char-code = JLB$RCHAR ( src-str [, pos] ) src-str pos Descriptor Longword Reference char-code 3 25

42 JLB$RNEXT JLB$RNEXT char-code = JLB$RNEXT ( src-str [, pos] ) src-str pos Descriptor Longword Reference char-code 3 26

43 JLB$WCHAR JLB$WCHAR ret-status = JLB$WCHAR ( char-code, dst-str [, pos] ) char-code dst-str pos Longword Reference Descriptor Longword Reference ret-status 1 : 0: 3 27

44 JLB$WNEXT JLB$WNEXT ret-status = JLB$WNEXT ( char-code, dst-str [, pos] ) char-code c dst-str pos Longword Reference Descriptor Longword Reference ret-status 1 : 0: 3 28

45

46 JLB$TRA_ROM_HALF JLB$TRA_ROM_HALF ret-status = JLB$TRA_ROM_HALF ( dst-str, src-str [, out-len] ) dst-str src-str out-len Descriptor Descriptor Word Reference ret-status SS$_NORMAL LIB$_STRTRU "" "abcdefghijklmnop" 3 30

47 JLB$TRA_ROM_FULL JLB$TRA_ROM_FULL ret-status = JLB$TRA_ROM_FULL ( dst-str, src-str [, out-len] ) dst-str src-str out-len Descriptor Descriptor Word Reference ret-status SS$_NORMAL LIB$_STRTRU "abcdefghijklmnop" "" 3 31

48 JLB$TRA_ROM_SIZE JLB$TRA_ROM_SIZE / ret-status = JLB$TRA_ROM_SIZE ( dst-str, src-str [, out-len] ) dst-str src-str out-len Descriptor Descriptor Word Reference ret-status SS$_NORMAL LIB$_STRTRU "EFGHMNOP" "abcdijkl" 3 32

49 JLB$TRA_ROM_LOWER JLB$TRA_ROM_LOWER / ret-status = JLB$TRA_ROM_LOWER ( dst-str, src-str [, out-len] ) dst-str src-str out-len Descriptor Descriptor Word Reference ret-status SS$_NORMAL LIB$_STRTRU "abcdefgh" "abcdefgh" 3 33

50 JLB$TRA_ROM_UPPER JLB$TRA_ROM_UPPER / ret-status = JLB$TRA_ROM_UPPER ( dst-str, src-str [, out-len] ) dst-str src-str out-len Descriptor Descriptor Word Reference ret-status SS$_NORMAL LIB$_STRTRU "abcdefgh" "ABCDEFGH" 3 34

51 JLB$TRA_ROM_CASE JLB$TRA_ROM_CASE // ret-status = JLB$TRA_ROM_CASE ( dst-str, src-str [, out-len] ) dst-str src-str out-len Descriptor Descriptor Word Reference ret-status SS$_NORMAL LIB$_STRTRU "abcdefgh" "ABCDefgh" 3 35

52 JLB$TRA_ROM_KANA JLB$TRA_ROM_KANA / ret-status = JLB$TRA_ROM_KANA ( dst-str, src-str [, flg [, out-len]] ) dst-str src-str flg out-len Descriptor Descriptor ( 0) Byte Reference bit 0 0 : 1 : Word Reference ret-status SS$_NORMAL 3 36

53 JLB$TRA_ROM_KANA LIB$_STRTRU : "ro-maji" " " " " : #include <stdio.h> #include <descrip.h> #include <string.h> #include <ssdef.h> #include <libdef.h> main() { struct dsc$descriptor_s struct dsc$descriptor_s char flg; int ret_status; dst_str; src_str; extern int jlb$tra_rom_kana(); char dst_str_body[] = " "; char src_str_body[] = "nihongo"; dst_str.dsc$b_class = DSC$K_CLASS_S; dst_str.dsc$b_d = DSC$K_DTYPE_T; dst_str.dsc$w_length = strlen( dst_str_body ); dst_str.dsc$a_pointer = dst_str_body; src_str.dsc$b_class = DSC$K_CLASS_S; src_str.dsc$b_d = DSC$K_DTYPE_T; src_str.dsc$w_length = strlen( src_str_body ); src_str.dsc$a_pointer = src_str_body; for ( flg = 0 ; flg < 2 ; ++flg ) { printf( " :\"%s\" :%1d\n", src_str_body, flg ); ret_status = jlb$tra_rom_kana( &dst_str, &src_str, &flg, &dst_str.dsc$w_length ); dst_str_body[ dst_str.dsc$w_length ] = \0 ; printf( " :\"%s\" :%d :", dst_str.dsc$a_pointer, dst_str.dsc$w_length ); 3 37

54 JLB$TRA_ROM_KANA } } switch ( ret_status ) { case SS$_NORMAL: printf( "SS$_NORMAL" ); break; case LIB$_STRTRU: printf( "LIB$_STRTRU" ); break; } printf( "\n\n" ); 3 38

55 JLB$TRA_KANA_HIRA JLB$TRA_KANA_HIRA ret-status = JLB$TRA_KANA_HIRA ( dst-str, src-str [, out-len] ) dst-str src-str out-len Descriptor Descriptor Word Reference ret-status SS$_NORMAL LIB$_STRTRU " " " " 3 39

56 JLB$TRA_KANA_KATA JLB$TRA_KANA_KATA ret-status = JLB$TRA_KANA_KATA ( dst-str, src-str [, out-len] ) dst-str src-str out-len Descriptor Descriptor Word Reference ret-status SS$_NORMAL LIB$_STRTRU " " " " 3 40

57 JLB$TRA_KANA_KANA JLB$TRA_KANA_KANA / ret-status = JLB$TRA_KANA_KANA ( dst-str, src-str [, out-len] ) dst-str src-str out-len Descriptor Descriptor Word Reference ret-status SS$_NORMAL LIB$_STRTRU " " " " 3 41

58 JLB$TRA_KANA_DAKU JLB$TRA_KANA_DAKU / / ret-status = JLB$TRA_KANA_DAKU ( dst-str, src-str [, out-len] ) dst-str src-str out-len Descriptor Descriptor Word Reference ret-status SS$_NORMAL LIB$_STRTRU " " " " 3 42

59 JLB$TRA_KANA_HALF JLB$TRA_KANA_HALF / ret-status = JLB$TRA_KANA_HALF ( dst-str, src-str [, out-len] ) dst-str src-str out-len Descriptor Descriptor Word Reference ret-status SS$_NORMAL LIB$_STRTRU 3 43

60 JLB$TRA_KANA_HALF " " " " 3 44

61 JLB$TRA_KANA_FULL JLB$TRA_KANA_FULL / ret-status = JLB$TRA_KANA_FULL ( dst-str, src-str [, flg [, out-len]] ) dst-str src-str flg out-len Descriptor Descriptor Byte Reference bit 0 0 : 1 : bit 1 0 : / 1 : / Word Reference 3 45

62 JLB$TRA_KANA_FULL ret-status SS$_NORMAL LIB$_STRTRU 3 46

63 JLB$TRA_SYMBOL JLB$TRA_SYMBOL B.3 ret-status = JLB$TRA_SYMBOL ( dst-str, src-str [, out-len] ) dst-str src-str out-len Descriptor Descriptor Word Reference ret-status SS$_NORMAL LIB$_STRTRU 3 47

64 JLB$TRA_SYMBOL "[( )] <> k<> 123" " " 3 48

65

66 JLB$GET_COMMAND JLB$GET_COMMAND LIB$GET_COMMAND ret-status = JLB$GET_COMMAND ( get-str [,[prompt-str] [,[out-len] [,[src-str]]]] ) get-str prompt-str out-len src-str Descriptor Descriptor Word Reference Descriptor LIB$GET_COMMAND 3 50

67 JLB$GET_COMMAND ret-status SS$_NORMAL RMS$_EOF 3 51

68 JLB$GET_INPUT JLB$GET_INPUT LIB$GET_INPUT ret-status = JLB$GET_INPUT ( get-str [,[prompt-str] [,[out-len] [,[src-str]]]] ) get-str prompt-str out-len src-str Descriptor Descriptor Word Reference Descriptor LIB$GET_INPUT 3 52

69 JLB$GET_INPUT ret-status SS$_NORMAL RMS$_EOF 3 53

70 OpenVMS VAX 3 54

71 JLB$RMS_USER_VTF7 JLB$RMS_USER_VTF7 VTF-7 ret-status = JLB$RMS_USER_VTF7 ( [dst-str], src-str, out-len, [codeset] ) dst-str src-str out-len codeset Byte string Descriptor Byte string Descriptor Word Reference Byte string Descriptor 3 55

72 JLB$RMS_USER_VTF7 RMS Windows NT iconv Fixed-Length String Descriptor Dynamic String Descriptor ( dst-str ) out-len ( codeset ) ret-status SS$_NORMAL JSY$_STRTRU 3 56

73 JLB$RMS_VTF7_USER JLB$RMS_VTF7_USER VTF-7 ret-status = JLB$RMS_VTF7_USER ( [dst-str], src-str, out-len, [codeset]) dst-str src-str out-len codeset Byte string Descriptor Byte string Descriptor Word Reference Byte string Descriptor 3 57

74 JLB$RMS_VTF7_USER RMS Windows NT iconv Fixed-Length String Descriptor Dynamic String Descriptor ( dst-str ) out-len ( codeset ) ret-status SS$_NORMAL JSY$_STRTRU 3 58

75 JSY$RMS_GET_ENCODING JSY$RMS_GET_ENCODING RMS ret-status = JSY$RMS_GET_ENCODING ( dst-str, dst-len ) dst-str dst-len Value Longword Reference "sdeckanji" "DISABLE" ret-status SS$_NORMAL SS$_INSFARG SS$_TOO_MANY_ARGS 3 59

76 JSY$RMS_LIST_ENCODING JSY$RMS_LIST_ENCODING ret-status = JSY$RMS_LIST_ENCODING ( context, dst-str, dst-len ) context dst-str dst-len Longword Reference Value Longword Reference JSY$RMS_LIST_ENCODING context JSY$RMS_LIST_ENCODING SS$_NOMOREITEMS context 3 60

77 JSY$RMS_LIST_ENCODING ret-status SS$_NORMAL RMS$_EXTNOTFOU SS$_BADPARAM SS$_INSFARG SS$_NOMOREITEMS SS$_TOO_MANY_ARGS 3 61

78 JSY$RMS_SET_ENCODING JSY$RMS_SET_ENCODING RMS ret-status = JSY$RMS_SET_ENCODING ( src-str, src-len ) src-str src-len Value Longword Value "sdeckanji" "DEFAULT" / ret-status SS$_NORMAL RMS$_EXTNOTFOU SS$_ACCVIO SS$_BADPARAM 3 62

79 JSY$RMS_SET_ENCODING SS$_INSFARG SS$_TOO_MANY_ARGS 3 63

80 JSY$RMS_USER_VTF7 JSY$RMS_USER_VTF7 VTF-7 ret-status = JSY$RMS_USER_VTF7 ( src-str, src-len, [dst-str], [dst-len], out-len, [codeset], [codeset-len]) src-str src-len dst-str dst-len out-len Byte string Reference Longword Value Byte string Reference Longword Value Longword 3 64

81 JSY$RMS_USER_VTF7 codeset codeset-len Reference Byte string Reference Longword Value RMS Windows NT iconv ( dst-str dst-len ) out-len JSY$RMS_ USER_VTF7 ( codeset codeset-len ) ret-status SS$_NORMAL JSY$_STRTRU 3 65

82 JSY$RMS_VTF7_USER JSY$RMS_VTF7_USER VTF-7 ret-status = JSY$RMS_VTF7_USER ( src-str, src-len, [dst-str], [dst-len], out-len, [codeset], [codeset-len]) src-str src-len dst-str dst-len out-len Byte string Reference Longword Value Byte string Reference Longword Value Longword 3 66

83 JSY$RMS_VTF7_USER codeset codeset-len Reference Byte string Reference Longword Value RMS Windows NT iconv ( dst-str dst-len ) out-len JSY$RMS_ VTF7_USER ( codeset codeset-len ) ret-status SS$_NORMAL JSY$_STRTRU 3 67

84

85 JLB$DATE_TIME JLB$DATE_TIME ret-status = JLB$DATE_TIME ( dst-str [, flg[, out-len]] ) dst-str flg out-len Descriptor Byte Reference 0 : 12 ( ) 1 : 24 Word Reference ret-status SS$_NORMAL LIB$_STRTRU 3 69

86 JLB$DATE_TIME JLB$DATE_TIME SYS$STARTUP:JSY$DT_STARTUP.COM (SYS$STARTUP:JSY$STARTUP.COM ) $ define/system/exec jsy$era_name - "", - "", - "", - "" $ define/system/exec jsy$era_begin_date - " ", - " ", - " ", - " " $ define/system/exec jsy$era_display_form 1 3 JSY$ERA_DISPLAY_FORMAT 1 (0) (1) ( ) ( ) #include <stdio.h> #include <descrip.h> #include <ssdef.h> #include <libdef.h> #define BUFLEN 100 main() { struct dsc$descriptor_s dst_str; char flg; short int out_len; int ret_status; char buffer[ BUFLEN ]; extern int jlb$date_time(); 3 70

87 JLB$DATE_TIME } dst_str.dsc$b_class = DSC$K_CLASS_S; dst_str.dsc$b_d = DSC$K_DTYPE_T; dst_str.dsc$w_length = sizeof( buffer ); dst_str.dsc$a_pointer = buffer; for ( flg = 0 ; flg < 2 ; ++flg ) { ret_status = jlb$date_time( &dst_str, &flg, &out_len ); buffer[ out_len ] = \0 ; printf( " :%1d\n :\"%s\" :", flg, dst_str.dsc$a_pointer ); switch ( ret_status ) { case SS$_NORMAL: printf( "SS$_NORMAL" ); break; case LIB$_STRTRU: printf( "LIB$_STRTRU" ); break; } putchar( \n ); } 3 71

88 JLB$DEV_KANJI JLB$DEV_KANJI ret-status = JLB$DEV_KANJI ( device-name ) device-name Descriptor VT80 KANJIGEN SET /OUTPUT=KANJI ret-status 1 : 0: 3 72

89 JLB$DEV_KANJI_IN JLB$DEV_KANJI_IN ret-status = JLB$DEV_KANJI_IN ( device-name ) device-name Descriptor KANJIGEN SET /INPUT=KANJI ret-status 1 : 0: 3 73

90 4 1 ( 4.1 ) ( 4.2 ) ( 4.3 ) ( 4.4 ) /2 4.2 JSY$CH_NEXT JSY$CH_PREV JSY$CH_CURR JSY$POS_NEXT JSY$POS_PREV JSY$POS_CURR JSY$CH_RCHAR JSY$CH_RNEXT JSY$CH_WCHAR JSY$CH_WNEXT JSY$CH_GCHAR JSY$CH_GNEXT JSY$CH_PCHAR 4 1

91 4.1 JSY$CH_PNEXT JSY$CH_SIZE JSY$CH_NBYTE JSY$CH_NCHAR JSY$POSITION JSY$STR_EQUAL JSY$STR_START JSY$STR_SEARCH JSY$TRIM JSY$TRUNC JSY$LOCC JSY$SKPC // / // / // / 4.3 JSY$CHG_ROM_HALF JSY$CHG_ROM_FULL JSY$CHG_ROM_SIZE JSY$CHG_ROM_LOWER JSY$CHG_ROM_UPPER JSY$CHG_ROM_CASE JSY$CHG_KANA_HIRA JSY$CHG_KANA_KATA JSY$CHG_KANA_KANA JSY$CHG_KANA_DAKU JSY$CHG_KANA_HALF JSY$CHG_KANA_FULL JSY$CHG_GENERAL JSY$CHG_JIS_KUTEN JSY$CHG_KEISEN / / / // / / / / / / / / JIS DEC 4.4 JSY$TRA_ROM_HALF JSY$TRA_ROM_FULL 4 2

92 4.1 JSY$TRA_ROM_SIZE JSY$TRA_ROM_LOWER JSY$TRA_ROM_UPPER JSY$TRA_ROM_CASE JSY$TRA_ROM_KANA JSY$TRA_KANA_HIRA JSY$TRA_KANA_KATA JSY$TRA_KANA_KANA JSY$TRA_KANA_DAKU JSY$TRA_KANA_HALF JSY$TRA_KANA_FULL JSY$TRA_SYMBOL / / / // / / / / / / /2 4 3

93 JSY$CH_NEXT JSY$CH_NEXT next-ptr = JSY$CH_NEXT ( char-ptr ) char-ptr 1 Value next-ptr 1 1 #include <stdio.h> #include <string.h> static void create_display_string(); main() { char *char_ptr, *next_ptr; char string[] = " RTL"; char disp_str[32]; int byte_offset = 4; extern char *jsy$ch_next(); char_ptr = string + byte_offset; printf( " :\"%s\"\n", string ); create_display_string( char_ptr, disp_str ); printf( " :%s\n", disp_str ); 4 4

94 JSY$CH_NEXT next_ptr = jsy$ch_next( char_ptr ); create_display_string( next_ptr, disp_str ); printf( " :%s\n", disp_str ); } static void create_display_string(src, disp) char *src; char *disp; { int nof_byte_char = 1; unsigned char check; check = (unsigned char)(*src); if ( ( 0x0A1 <= check ) && ( check <= 0x0FE ) ) /* 2 */ nof_byte_char = 2; strncpy( disp, src, nof_byte_char ); disp[ nof_byte_char ] = \0 ; } 4 5

95 JSY$CH_PREV JSY$CH_PREV prev-ptr = JSY$CH_PREV ( top-ptr, char-ptr ) top-ptr char-ptr Value 1 Value prev-ptr 1 1 char-ptr top-ptr 0 4 6

96 JSY$CH_CURR JSY$CH_CURR curr-ptr = JSY$CH_CURR ( top-ptr, char-ptr ) top-ptr char-ptr Value 1 2 Value curr-ptr 1 char-ptr < top-ptr 0 4 7

97 JSY$POS_NEXT JSY$POS_NEXT next-ptr = JSY$POS_NEXT ( char-ptr, end-ptr ) char-ptr end-ptr 1 Value Value next-ptr 1 1 char-ptr end-ptr 0 4 8

98 JSY$POS_PREV JSY$POS_PREV prev-ptr = JSY$POS_PREV ( top-ptr, char-ptr, end-ptr ) top-ptr char-ptr end-ptr Value 1 Value Value prev-ptr 1 1 char-ptr top-ptr char-ptr end-ptr 0 #include <stdio.h> #include <string.h> #define MSB 0x80 static void create_display_string(); 4 9

99 JSY$POS_PREV main() { char *top_ptr, *char_ptr, *end_ptr, *prev_ptr; string[] = " RTL"; char char disp_str[32]; int byte_offset = 6; extern char *jsy$pos_prev(); top_ptr = string; end_ptr = string + strlen( string ); char_ptr = string + byte_offset; create_display_string( char_ptr, disp_str ); printf( " :\"%s\"\n", string ); printf( " :%s\n", disp_str ); prev_ptr = jsy$pos_prev( top_ptr, char_ptr, end_ptr ); create_display_string( prev_ptr, disp_str ); printf( " :%s\n", disp_str ); } static void create_display_string(src, disp) char *src; char *disp; { int nof_byte_char = 1; unsigned char check; check = (unsigned char)(*src); if ( ( 0x0A1 <= check ) && ( check <= 0x0FE ) ) /* 2 */ nof_byte_char = 2; strncpy( disp, src, nof_byte_char ); disp[ nof_byte_char ] = \0 ; } 4 10

100 JSY$POS_CURR JSY$POS_CURR curr-ptr = JSY$POS_CURR ( top-ptr, char-ptr, end-ptr ) top-ptr char-ptr end-ptr Value 1 2 Value Value curr-ptr 1 char-ptr < top-ptr char-pt end-ptr

101 JSY$CH_RCHAR JSY$CH_RCHAR char-code = JSY$CH_RCHAR ( char-ptr ) char-ptr 1 Value char-code 4 12

102 JSY$CH_RNEXT JSY$CH_RNEXT char-code = JSY$CH_RNEXT ( char-ptr ) char-ptr 1 Reference char-code 4 13

103 JSY$CH_WCHAR JSY$CH_WCHAR JSY$CH_WCHAR ( char-code, char-ptr ) char-code char-ptr Value 1 Value 4 14

104 JSY$CH_WNEXT JSY$CH_WNEXT JSY$CH_WNEXT ( char-code, char-ptr ) char-code char-ptr Value 1 Reference 4 15

105 JSY$CH_GCHAR JSY$CH_GCHAR char-code = JSY$CH_GCHAR ( char-ptr, end-ptr ) char-ptr end-ptr 1 Value Value char-code FFFF (16 ) 4 16

106 JSY$CH_GNEXT JSY$CH_GNEXT char-code = JSY$CH_GNEXT ( char-ptr, end-ptr ) char-ptr end-ptr 1 Reference Value char-code FFFF (16 ) 4 17

107 JSY$CH_PCHAR JSY$CH_PCHAR status = JSY$CH_PCHAR ( char-code, char-ptr, end-ptr ) char-code char-ptr end-ptr Value 1 Value Value status 1 : 0: (end-ptr ) 4 18

108 JSY$CH_PNEXT JSY$CH_PNEXT status = JSY$CH_PNEXT ( char-code, char-ptr, end-ptr ) char-code char-ptr end-ptr Value 1 Reference Value status 1 : 0: (end-ptr ) #include <stdio.h> #include <string.h> #define ENCODE( c )\ ( ( ( ( c ) & 0xff ) << 8 ) ( ( ( c ) & 0xff00 ) >> 8 ) ) static void create_display_string(); 4 19

109 JSY$CH_PNEXT main() { unsigned short int char_code; char *char_ptr, *end_ptr; int status; int byte_offset = 4; char string[] = " "; char disp_str[32]; extern int jsy$ch_pnext(); char_code = ENCODE( ); char_ptr = string + byte_offset; end_ptr = string + strlen( string ); printf( " :%c%c\n", ( char_code & 0xff00 ) >> 8, char_code & 0xff ); create_display_string( char_ptr, disp_str ); printf( " :\"%s\" :%s\n", string, disp_str ); status = jsy$ch_pnext( char_code, &char_ptr, end_ptr ); create_display_string( char_ptr, disp_str ); printf( " :\"%s\" :%s :%1d\n",) string, disp_str, status ); } static void create_display_string(src, disp) char *src; char *disp; { } int nof_byte_char = 1; unsigned char check; check = (unsigned char)(*src); if ( ( 0x0A1 <= check ) && ( check <= 0x0FE ) ) /* 2 */ nof_byte_char = 2; strncpy( disp, src, nof_byte_char ); disp[ nof_byte_char ] = \0 ; 4 20

110 JSY$CH_SIZE JSY$CH_SIZE nof-byte = JSY$CH_SIZE ( char-code ) char-code Value nof-byte

111 JSY$CH_NBYTE JSY$CH_NBYTE nof-byte = JSY$CH_NBYTE ( top-ptr,#nof-char ) top-ptr nof-char Value Value nof-byte top-ptr nof-char 4 22

112 JSY$CH_NCHAR JSY$CH_NCHAR nof-char = JSY$CH_NCHAR ( top-ptr,#nof-byte ) top-ptr nof-byte Value Value nof-char top-ptr nof-byte 4 23

113 JSY$POSITION JSY$POSITION address = JSY$POSITION ( src-str, src-len, sub-str, sub-len ) src-str src-len sub-str sub-len Value Value Value Value address 0 sub-len src-str 4 24

114 JSY$STR_EQUAL JSY$STR_EQUAL // / status = JSY$STR_EQUAL ( str1, len1, str2, len2, flg ) str1 len1 str2 len2 flg 1 Value 1 Value 2 Value 2 Value bit 0 0 : / 1 : / bit 1 0 : / 1 : / bit 2 0 : / 1 : / Value 4 25

115 JSY$STR_EQUAL ret-code 1 : 1 2 0:

116 JSY$STR_START JSY$STR_START // / 1 2 status = JSY$STR_START ( str1, len1, str2, len2, flg ) str1 len1 str2 len2 flg 1 Value 1 Value 2 Value 2 Value bit 0 0 : / 1 : / bit 1 0 : / 1 : / bit 2 0 : / 1 : / Value 4 27

117 JSY$STR_START ret-code 1 : 1 2 0:

118 JSY$STR_SEARCH JSY$STR_SEARCH // / address = JSY$STR_SEARCH ( src-str, src-len, sub-str, sub-len, flg ) src-str src-len sub-str sub-len flg Value Value Value Value bit 0 0 : / 1 : / bit 1 0 : / 1 : / bit 2 0 : / 1 : / Value 4 29

119 JSY$STR_SEARCH address 0 sub-len src-str 4 30

120 JSY$TRIM JSY$TRIM res-len = JSY$TRIM ( str, len ) str len Value Value res-len 4 31

121 JSY$TRUNC JSY$TRUNC res-len = JSY$TRUNC ( str, len, trunc-len ) str len trunc-len Value Value Value res-len 4 32

122 JSY$LOCC JSY$LOCC address = JSY$LOCC ( char-code, str, len ) char-code str len Value Value Value address

123 JSY$SKPC JSY$SKPC address = JSY$SKPC ( char-code, str, len ) char-code str len Value Value Value address

124

125 JSY$CHG_ROM_HALF JSY$CHG_ROM_HALF res-code = JSY$CHG_ROM_HALF ( char-code ) char-code Value res-code 4 36

126 JSY$CHG_ROM_FULL JSY$CHG_ROM_FULL res-code = JSY$CHG_ROM_FULL ( char-code ) char-code Value res-code 4 37

127 JSY$CHG_ROM_SIZE JSY$CHG_ROM_SIZE / res-code = JSY$CHG_ROM_SIZE ( char-code ) char-code Value res-code 4 38

128 JSY$CHG_ROM_LOWER JSY$CHG_ROM_LOWER / res-code = JSY$CHG_ROM_LOWER ( char-code ) char-code Value res-code 4 39

129 JSY$CHG_ROM_UPPER JSY$CHG_ROM_UPPER / res-code = JSY$CHG_ROM_UPPER ( char-code ) char-code Value res-code 4 40

130 JSY$CHG_ROM_CASE JSY$CHG_ROM_CASE // res-code = JSY$CHG_ROM_CASE ( char-code ) char-code Value res-code 4 41

131 JSY$CHG_KANA_HIRA JSY$CHG_KANA_HIRA res-code = JSY$CHG_KANA_HIRA ( char-code ) char-code Value res-code 4 42

132 JSY$CHG_KANA_KATA JSY$CHG_KANA_KATA res-code = JSY$CHG_KANA_KATA ( char-code ) char-code Value res-code 4 43

133 JSY$CHG_KANA_KANA JSY$CHG_KANA_KANA / res-code = JSY$CHG_KANA_KANA ( char-code ) char-code Value res-code 4 44

134 JSY$CHG_KANA_DAKU JSY$CHG_KANA_DAKU / / status = JSY$CHG_KANA_DAKU ( char-code, ten-code, res-code ) char-code ten-code res-code Value / Value ten-code Longword Reference status 1 : 0: 4 45

135 JSY$CHG_KANA_HALF JSY$CHG_KANA_HALF / status = JSY$CHG_KANA_HALF ( char-code, dst-str, res-len ) char-code dst-str res-len Value Value Longword Reference status 1 : 0: 4 46

136 JSY$CHG_KANA_FULL JSY$CHG_KANA_FULL / res-code = JSY$CHG_KANA_FULL ( char-code, flg ) char-code flg Value 0 : 1 : Value res-code 4 47

137 JSY$CHG_GENERAL JSY$CHG_GENERAL // / res-code = JSY$CHG_GENERAL ( char-code, flg ) char-code flg Value bit 0 0 : / 1 : / bit 1 0 : / 1 : / bit 2 0 : / 1 : / Value res-code 4 48

138 JSY$CHG_JIS_KUTEN JSY$CHG_JIS_KUTEN JIS DEC DEC DEC res-code = JSY$CHG_JIS_KUTEN ( kuten-code ) kuten-code Value res-code 4 49

139 JSY$CHG_KEISEN JSY$CHG_KEISEN res-code = JSY$CHG_KEISEN ( char-code ) char-code Value res-code 4 50

140

141 JSY$TRA_ROM_HALF JSY$TRA_ROM_HALF status = JSY$TRA_ROM_HALF ( src-str, src-len, dst-str, dst-len, out-len ) src-str src-len dst-str dst-len out-len Value Value Value Value Longword Reference status 1 : 0: 4 52

142 JSY$TRA_ROM_FULL JSY$TRA_ROM_FULL status = JSY$TRA_ROM_FULL ( src-str, src-len, dst-str, dst-len, out-len ) src-str src-len dst-str dst-len out-len Value Value Value Value Longword Reference status 1 : 0: 4 53

143 JSY$TRA_ROM_SIZE JSY$TRA_ROM_SIZE / status = JSY$TRA_ROM_SIZE ( src-str, src-len, dst-str, dst-len, out-len ) src-str src-len dst-str dst-len out-len Value Value Value Value Longword Reference status 1 : 0: 4 54

144 JSY$TRA_ROM_LOWER JSY$TRA_ROM_LOWER / status = JSY$TRA_ROM_LOWER ( src-str, src-len, dst-str, dst-len, out-len ) src-str src-len dst-str dst-len out-len Value Value Value Value Longword Reference status 1 : 0: 4 55

145 JSY$TRA_ROM_UPPER JSY$TRA_ROM_UPPER / status = JSY$TRA_ROM_UPPER ( src-str, src-len, dst-str, dst-len, out-len ) src-str src-len dst-str dst-len out-len Value Value Value Value Longword Reference status 1 : 0: 4 56

146 JSY$TRA_ROM_CASE JSY$TRA_ROM_CASE // status = JSY$TRA_ROM_CASE ( src-str, src-len, dst-str, dst-len, out-len ) src-str src-len dst-str dst-len out-len Value Value Value Value Longword Reference status 1 : 0: 4 57

147 JSY$TRA_ROM_KANA JSY$TRA_ROM_KANA / status = JSY$TRA_ROM_KANA ( src-str, src-len,#flg, dst-str, dst-len, out-len ) src-str src-len flg dst-str dst-len out-len Value Value bit 0 0 : 1 : Value Value Value Longword Reference 4 58

148 JSY$TRA_ROM_KANA status 1 : 0: 4 59

149 JSY$TRA_KANA_HIRA JSY$TRA_KANA_HIRA status = JSY$TRA_KANA_HIRA ( src-str, src-len, dst-str, dst-len, out-len ) src-str src-len dst-str dst-len out-len Value Value Value Value Longword Reference status 1 : 0: 4 60

150 JSY$TRA_KANA_KATA JSY$TRA_KANA_KATA status = JSY$TRA_KANA_KATA ( src-str, src-len, dst-str, dst-len, out-len ) src-str src-len dst-str dst-len out-len Value Value Value Value Longword Reference status 1 : 0: 4 61

151 JSY$TRA_KANA_KANA JSY$TRA_KANA_KANA / status = JSY$TRA_KANA_KANA ( src-str, src-len, dst-str, dst-len, out-len ) src-str src-len dst-str dst-len out-len Value Value Value Value Longword Reference status 1 : 0: 4 62

152 JSY$TRA_KANA_DAKU JSY$TRA_KANA_DAKU / / status = JSY$TRA_KANA_DAKU ( src-str, src-len, dst-str, dst-len, out-len ) src-str src-len dst-str dst-len out-len Value Value Value Value Longword Reference status 1 : 0: 4 63

153 JSY$TRA_KANA_HALF JSY$TRA_KANA_HALF / status = JSY$TRA_KANA_HALF ( src-str, src-len, dst-str, dst-len, out-len ) src-str src-len dst-str dst-len out-len Value Value Value Value Longword Reference status 1 : 0: 4 64

154 JSY$TRA_KANA_FULL JSY$TRA_KANA_FULL / status = JSY$TRA_KANA_FULL ( src-str, src-len,#flg, dst-str, dst-len, out-len ) src-str src-len flg dst-str dst-len out-len Value Value bit 0 0 : 1 : bit 1 0 : / 1 : / Value Value Value Longword Reference 4 65

155 JSY$TRA_KANA_FULL status 1 : 0: 4 66

156 JSY$TRA_SYMBOL JSY$TRA_SYMBOL B.3 status = JSY$TRA_SYMBOL ( src-str, src-len, dst-str, dst-len, out-len ) src-str src-len dst-str dst-len out-len n n Value Value Value Value Longword Reference status 1 : 0: 4 67

157 5 JLB$xxxxx JSY$xxxxx 2 JLB$xxxxx VMS ( 5.1 ) ( 5.2 ) ( 5.3 ) ( 5.4 ) ( 5.5 ) JLB$CNV_OPEN_DICTIONARY JSY$CNV_OPEN_DICTIONARY JLB$CNV_CLOSE_DICTIONARY JSY$CNV_CLOSE_DICTIONARY JLB$CNV_CONVERT JSY$CNV_CONVERT JLB$CNV_ROM_CONVERT JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI JLB$CNV_NEXT_WORD JSY$CNV_NEXT_WORD JLB$CNV_PREV_WORD JSY$CNV_PREV_WORD JLB$CNV_GET_CLAUSE JSY$CNV_GET_CLAUSE 5 1

158 5.1 JSY$CNV_GET_PHONETIC_CLAUSE JLB$CNV_SHORTEN_CLAUSE JSY$CNV_SHORTEN_CLAUSE JLB$CNV_EXTEND_CLAUSE JSY$CNV_EXTEND_CLAUSE JLB$CNV_CLAUSE_HIRAGANA JSY$CNV_CLAUSE_HIRAGANA JLB$CNV_CLAUSE_KATAKANA JSY$CNV_CLAUSE_KATAKANA JLB$CNV_CLAUSE_FULL JSY$CNV_CLAUSE_FULL JLB$CNV_CLAUSE_HALF JSY$CNV_CLAUSE_HALF JLB$CNV_CLAUSE_SYMBOL JSY$CNV_CLAUSE_SYMBOL JLB$CNV_CLAUSE_NOCONVERT JSY$CNV_CLAUSE_NOCONVERT JLB$CNV_CLAUSE_DELETE JSY$CNV_CLAUSE_DELETE JLB$CNV_LEARN JSY$CNV_LEARN JLB$CNV_REGISTER_WORD JSY$CNV_REGISTER_WORD JLB$CNV_DELETE_WORD JSY$CNV_DELETE_WORD JLB$CNV_IO_ERROR I/O JSY$CNV_IO_ERROR I/O 5.3 JLB$TRA_DICINI JSY$TRA_DICINI JLB$TRA_DICCLS JSY$TRA_DICCLS JLB$ENT_TANGO JSY$ENT_TANGO JLB$DEL_TANGO JSY$DEL_TANGO JLB$TRA_ROM_TANGO JLB$TRA_KANA_TANGO 5 2

159 5.1 JSY$TRA_KANA_TANGO JLB$TRA_TANGO_NEXT JSY$TRA_TANGO_NEXT JLB$TRA_TANGO_PREV JSY$TRA_TANGO_PREV JLB$TRA_TANGO_DONE JSY$TRA_TANGO_DONE 5.2 (JLB$CNV_xxxxx JSY$CNV_xxxxx) JSY$LIBRARY FORTRAN PASCAL PL/I C MACRO BLISS JSYDEF.FOR JSYDEF.H JSYDEF.MAR JSYDEF.R32 JSYDEF.L32 FORTRAN C MACRO BLISS(REQUIRE) BLISS(LIBRARY) JLB$CNV_OPEN_DICTIONARY() JLB$CNV_CONVERT(...) JLB$CNV_GET_KANJI(...) JLB$CNV_NEXT_WORD(...) JLB$CNV_PREV_WORD(...) JLB$CNV_SHORTEN_CLAUSE(...) JLB$CNV_EXTEND_CLAUSE(...) JLB$CNV_LEARN() JLB$CNV_CLOSE_DICTIONARY() 5 3

160 JLB$CNV_OPEN_DICTIONARY JSY$CNV_OPEN_DICTIONARY JLB$CNV_OPEN_DICTIONARY JSY$CNV_OPEN_ DICTIONARY status = JLB$CNV_OPEN_DICTIONARY status = JSY$CNV_OPEN_DICTIONARY JSY$KOJIN_ MODE "3" () 5.4 status SS$_NORMAL JSY$_NOTDICFIL JSY$_RMSERR JLB$CNV_IO_ERROR JSY$CNV_IO_ ERROR I/O RMS JLB$CNV_ IO_ERROR JSY$CNV_IO_ERROR 5 4

161 JLB$CNV_OPEN_DICTIONARY JSY$CNV_OPEN_DICTIONARY JSY$_CNVINTERR () 5 5

162 JLB$CNV_CLOSE_DICTIONARY JSY$CNV_CLOSE_DICTIONARY JLB$CNV_CLOSE_DICTIONARY JSY$CNV_CLOSE_ DICTIONARY status = JLB$CNV_CLOSE_DICTIONARY status = JSY$CNV_CLOSE_DICTIONARY 5.4 status SS$_NORMAL 5 6

163 JLB$CNV_CONVERT JSY$CNV_CONVERT JLB$CNV_CONVERT JSY$CNV_CONVERT status = JLB$CNV_CONVERT ( yomi-str ) yomi-str () Descriptor status = JSY$CNV_CONVERT ( yomi-str, yomi-len ) yomi-str yomi-len michanism michanism () Reference () Longword Value JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI 5 7

164 JLB$CNV_CONVERT JSY$CNV_CONVERT status SS$_NORMAL JSY$_CANNOTCNV JSY$_CNVINTERR JSY$_DICNOTOPN JSY$_PHONTOOLNG JSY$_RMSERR 506 ( 253 ) I/O RMS JLB$CNV_IO_ERROR JSY$CNV_IO_ERROR 5 8

165 JLB$CNV_ROM_CONVERT JLB$CNV_ROM_CONVERT status = JLB$CNV_ROM_CONVERT ( yomi-str ) yomi-str michanism () Descriptor (JLB$TRA_ ROM_KANA) JLB$CNV_GET_KANJI JSY$CNV_GET_ KANJI status SS$_NORMAL JSY$_CANNOTCNV JSY$_CNVINTERR 5 9

166 JLB$CNV_ROM_CONVERT JSY$_DICNOTOPN JSY$_PHONTOOLNG JSY$_RMSERR 253 I/O RMS JLB$CNV_IO_ERROR JSY$CNV_IO_ERROR 5 10

167 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI JLB$CNV_CONVERT JLB$CNV_NEXT_WORD JLB$CNV_PREV_WORD () status = JLB$CNV_GET_KANJI ( kanji-str, clause-no [, out-len] ) kanji-str michanism clause-no michanism out-len michanism ( ) Descriptor Longword Reference () Word (Unsigned) Reference status = JSY$CNV_GET_KANJI ( kanji-str, kanji-len, out-len, clause-no ) kanji-str kanji-len michanism ( ) Value 5 11

168 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI michanism out-len michanism clause-no michanism () Longword Value () Longword Reference Longword Reference status SS$_NORMAL JSY$_INVCALL JSY$_STRTRU 5 12

169 JLB$CNV_NEXT_WORD JSY$CNV_NEXT_WORD JLB$CNV_NEXT_WORD JSY$CNV_NEXT_WORD status = JLB$CNV_NEXT_WORD ( clause-no ) clause-no Longword Reference 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI status = JSY$CNV_NEXT_WORD ( clause-no ) clause-no Longword Value 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI JLB$CNV_GET_KANJI JSY$CNV_ GET_KANJI JSY$_ROUNDK 5 13

170 JLB$CNV_NEXT_WORD JSY$CNV_NEXT_WORD status SS$_NORMAL JSY$_ROUNDK JSY$_CNVINTERR JSY$_INVCALL JSY$_INVCLSNUM JSY$_RMSERR () I/O RMS JLB$CNV_IO_ERROR JSY$CNV_IO_ERROR 5 14

171 JLB$CNV_PREV_WORD JSY$CNV_PREV_WORD JLB$CNV_PREV_WORD JSY$CNV_PREV_WORD status = JLB$CNV_PREV_WORD ( clause-no ) clause-no Longword Reference 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI status = JSY$CNV_PREV_WORD ( clause-no ) clause-no Longword Value 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI JLB$CNV_GET_KANJI JSY$CNV_ GET_KANJI 5 15

172 JLB$CNV_PREV_WORD JSY$CNV_PREV_WORD status SS$_NORMAL JSY$_CNVINTERR JSY$_INVCALL JSY$_INVCLSNUM JSY$_RMSERR I/O RMS JLB$CNV_IO_ERROR JSY$CNV_IO_ERROR 5 16

173 JLB$CNV_GET_CLAUSE JSY$CNV_GET_CLAUSE JLB$CNV_GET_CLAUSE JSY$CNV_GET_CLAUSE status = JLB$CNV_GET_CLAUSE ( clause-no, offset, length, flag ) clause-no offset length flag Longword Reference 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI Longword Reference JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI ( ) () Word (Unsigned) Reference Longword Reference 1 ( V4.5 ) 5 17

174 JLB$CNV_GET_CLAUSE JSY$CNV_GET_CLAUSE status = JSY$CNV_GET_CLAUSE ( clause-no, offset, length, flag ) clause-no offset length flag Longword Value 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI Longword Reference JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI ( ) () Longword Reference Longword Reference 1 ( V4.5 ) status SS$_NORMAL JSY$_INVCALL JSY$_INVCLSNUM 5 18

175 JSY$CNV_GET_PHONETIC_CLAUSE JSY$CNV_GET_PHONETIC_CLAUSE status = JSY$CNV_GET_PHONETIC_CLAUSE ( clause-no, offset, length ) clause-no offset length Longword Value 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI Longword Reference JLB$CNV_CONVERT JSY$CNV_CONVERT ( ) JLB$CNV_ROM_CONVERT JSY$CNV_ROM_CONVERT (JLB$TRA_ROM_KANA) ( ) () Longword Reference 5 19

176 JSY$CNV_GET_PHONETIC_CLAUSE status SS$_NORMAL JSY$_INVCALL JSY$_INVCLSNUM 5 20

177 JLB$CNV_SHORTEN_CLAUSE JSY$CNV_SHORTEN_CLAUSE JLB$CNV_SHORTEN_CLAUSE JSY$CNV_ SHORTEN_CLAUSE status = JLB$CNV_SHORTEN_CLAUSE ( clause-no ) clause-no Longword Reference 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI status = JSY$CNV_SHORTEN_CLAUSE ( clause-no ) clause-no Longword Value 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI 5 21

178 JLB$CNV_SHORTEN_CLAUSE JSY$CNV_SHORTEN_CLAUSE status SS$_NORMAL JSY$_CANNOTCNV JSY$_CNVINTERR JSY$_INVCALL JSY$_INVCLSNUM JSY$_RMSERR I/O RMS JLB$CNV_IO_ERROR JSY$CNV_IO_ERROR 5 22

179 JLB$CNV_EXTEND_CLAUSE JSY$CNV_EXTEND_CLAUSE JLB$CNV_EXTEND_CLAUSE JSY$CNV_EXTEND_ CLAUSE status = JLB$CNV_EXTEND_CLAUSE ( clause-no ) clause-no Longword Reference 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI status = JSY$CNV_EXTEND_CLAUSE ( clause-no ) clause-no Longword Value 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI 5 23

180 JLB$CNV_EXTEND_CLAUSE JSY$CNV_EXTEND_CLAUSE status SS$_NORMAL JSY$_CANNOTCNV JSY$_CNVINTERR JSY$_INVCALL JSY$_INVCLSNUM JSY$_RMSERR I/O RMS JLB$CNV_IO_ERROR JSY$CNV_IO_ERROR 5 24

181 JLB$CNV_CLAUSE_HIRAGANA JSY$CNV_CLAUSE_HIRAGANA JLB$CNV_CLAUSE_HIRAGANA JSY$CNV_ CLAUSE_HIRAGANA status = JLB$CNV_CLAUSE_HIRAGANA ( clause-no ) clause-no Longword Reference 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI status = JSY$CNV_CLAUSE_HIRAGANA ( clause-no ) clause-no Longword Value 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI 5 25

182 JLB$CNV_CLAUSE_HIRAGANA JSY$CNV_CLAUSE_HIRAGANA status SS$_NORMAL JSY$_INVCALL JSY$_INVCLSNUM 5 26

183 JLB$CNV_CLAUSE_KATAKANA JSY$CNV_CLAUSE_KATAKANA JLB$CNV_CLAUSE_KATAKANA JSY$CNV_ CLAUSE_KATAKANA status = JLB$CNV_CLAUSE_KATAKANA ( clause-no ) clause-no Longword Reference 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI status = JSY$CNV_CLAUSE_KATAKANA ( clause-no ) clause-no Longword Value 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI 2 JLB$CNV_GET_ KANJI JSY$CNV_GET_KANJI " " "/ "(/ ) " / " " / " 5 27

184 JLB$CNV_CLAUSE_KATAKANA JSY$CNV_CLAUSE_KATAKANA status SS$_NORMAL JSY$_INVCALL JSY$_INVCLSNUM JSY$_CNVINTERR 5 28

185 JLB$CNV_CLAUSE_FULL JSY$CNV_CLAUSE_FULL JLB$CNV_CLAUSE_FULL JSY$CNV_CLAUSE_FULL JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI status = JLB$CNV_CLAUSE_FULL ( clause-no ) clause-no Longword Reference 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI status = JSY$CNV_CLAUSE_FULL ( clause-no ) clause-no Longword Value 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI status SS$_NORMAL JSY$_INVCALL 5 29

186 JLB$CNV_CLAUSE_FULL JSY$CNV_CLAUSE_FULL JSY$_INVCLSNUM JSY$_CNVINTERR 5 30

187 JLB$CNV_CLAUSE_HALF JSY$CNV_CLAUSE_HALF JLB$CNV_CLAUSE_HALF JSY$CNV_CLAUSE_ HALF JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI status = JLB$CNV_CLAUSE_HALF ( clause-no ) clause-no Longword Reference 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI status = JSY$CNV_CLAUSE_HALF ( clause-no ) clause-no Longword Value 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI status SS$_NORMAL 5 31

188 JLB$CNV_CLAUSE_HALF JSY$CNV_CLAUSE_HALF JSY$_INVCALL JSY$_INVCLSNUM JSY$_CNVINIERR 5 32

189 JLB$CNV_CLAUSE_SYMBOL JSY$CNV_CLAUSE_SYMBOL JLB$CNV_CLAUSE_SYMBOL JSY$CNV_CLAUSE_ SYMBOL JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI status = JLB$CNV_CLAUSE_SYMBOL ( clause-no ) clause-no Longword Reference 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI status = JSY$CNV_CLAUSE_SYMBOL ( clause-no ) clause-no Longword Value 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI status SS$_NORMAL 5 33

190 JLB$CNV_CLAUSE_SYMBOL JSY$CNV_CLAUSE_SYMBOL JSY$_INVCALL JSY$_INVCLSNUM JSY$_CNVINIERR 5 34

191 JLB$CNV_CLAUSE_NOCONVERT JSY$CNV_CLAUSE_NOCONVERT JLB$CNV_CLAUSE_NOCONVERT JSY$CNV_ CLAUSE_NOCONVERT status = JLB$CNV_CLAUSE_NOCONVERT ( clause-no ) clause-no Longword Reference 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI status = JSY$CNV_CLAUSE_NOCONVERT ( clause-no ) clause-no Longword Value 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI JLB$TRA_ROM_CONVERT JSY$TRA_ROM_CONVERT JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI 5 35

192 JLB$CNV_CLAUSE_NOCONVERT JSY$CNV_CLAUSE_NOCONVERT status SS$_NORMAL JSY$_INVCALL JSY$_INVCLSNUM JSY$_CNVINIERR 5 36

193 JLB$CNV_CLAUSE_DELETE JSY$CNV_CLAUSE_DELETE JLB$CNV_CLAUSE_DELETE JSY$CNV_CLAUSE_ DELETE status = JLB$CNV_CLAUSE_DELETE ( clause-no ) clause-no Longword Reference 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI status = JSY$CNV_CLAUSE_DELETE ( clause-no ) clause-no Longword Value 1 JLB$CNV_GET_KANJI JSY$CNV_GET_KANJI JLB$CNV_GET_ KANJI () 5 37

194 JLB$CNV_CLAUSE_DELETE JSY$CNV_CLAUSE_DELETE status SS$_NORMAL JSY$_INVCALL JSY$_INVCLSNUM JSY$_RMSERR JSY$_WRDNOTFND JSY$_CNVINIERR I/O RMS JLB$CNV_IO_ERROR JSY$CNV_IO_ERROR 5 38

195 JLB$CNV_LEARN JSY$CNV_LEARN JLB$CNV_LEARN JSY$CNV_LEARN status = JLB$CNV_LEARN status = JSY$CNV_LEARN 5.4 status SS$_NORMAL JSY$_INDEXFULL JSY$_INVCALL JSY$KOJIN

196 JLB$CNV_LEARN JSY$CNV_LEARN JSY$_RMSERR JSY$_CNVINIERR I/O RMS JLB$CNV_ IO_ERROR JSY$CNV_IO_ERROR 5 40

197 JLB$CNV_REGISTER_WORD JSY$CNV_REGISTER_WORD JLB$CNV_REGISTER_WORD JSY$CNV_ REGISTER_WORD status = JLB$CNV_REGISTER_WORD ( yomi-str, kanji-str ) yomi-str kanji-str Descriptor 16 1 Descriptor 80 ( 40 ) status = JSY$CNV_REGISTER_WORD ( yomi-str, yomi-len, kanji-str, kanji-len ) yomi-str yomi-len Reference

198 JLB$CNV_REGISTER_WORD JSY$CNV_REGISTER_WORD kanji-str kanji-len () Longword Value 16 1 Reference 80 ( 40 ) () Longword Value status SS$_NORMAL SS$_DICNOTOPN JSY$_INDEXFULL JSY$_INVPHONSTR JSY$_PHONTOOLNG JSY$_RMSERR JSY$_WRDTOOLNG JSY$_CNVINIERR JSY$KOJIN I/O RMS JLB$CNV_ IO_ERROR JSY$CNV_IO_ERROR 80 ( 40 ) 5 42

199 JLB$CNV_DELETE_WORD JSY$CNV_DELETE_WORD JLB$CNV_DELETE_WORD JSY$CNV_DELETE_ WORD status = JLB$CNV_DELETE_WORD ( yomi-str, kanji-str ) yomi-str kanji-str Descriptor 16 1 Descriptor status = JSY$CNV_DELETE_WORD ( yomi-str, yomi-len, kanji-str, kanji-len ) yomi-str yomi-len Reference 16 1 () Longword 5 43

200 JLB$CNV_DELETE_WORD JSY$CNV_DELETE_WORD kanji-str kanji-len Value Value () Longword Value status SS$_NORMAL SS$_DICNOTOPN JSY$_INVPHONSTR JSY$_PHONTOOLNG JSY$_RMSERR JSY$_WRDNOTFND JSY$_WRDTOOLNG JSY$_CNVINIERR 16 1 I/O RMS JLB$CNV_ IO_ERROR JSY$CNV_IO_ERROR 80 ( 40 ) 5 44

201 JLB$CNV_IO_ERROR JSY$CNV_IO_ERROR JLB$CNV_IO_ERROR JSY$CNV_IO_ERROR I/O status = JLB$CNV_IO_ERROR ( file-name, dic-, rms-sts, rms-stv, name-len ) file-name Descriptor dic- Longword Reference 1 = 2 = rms-sts RMS 1 Longword Reference rms-stv RMS 2 Longword Reference name-len Word (Unsigned) Reference 5 45

202 JLB$CNV_IO_ERROR JSY$CNV_IO_ERROR status = JSY$CNV_IO_ERROR ( file-name, file-len, name-len, dic-, rms-sts ) file-name file-len name-len dic- rms-sts Reference Longword Value Longword Reference Longword Reference 1 = 2 = RMS 2 Longword Reference JLB$CNV_xxxxxx JSY$CNV_xxxxxx I/O JLB$CNV_xxxxxx JSY$CNV_xxxxxx I/O JSY$_RMSERR rms-sts RMS$_NORMAL 5 46

203 JLB$CNV_IO_ERROR JSY$CNV_IO_ERROR status SS$_NORMAL JSY$_STRTRU 5 47

204 JLB$TRA_DICINI JLB$TRA_ROM_KANA JLB$TRA_KANA_TANGO(...) JLB$TRA_ROM_TANGO(...) JLB$TRA_TANGO_NEXT(...) JLB$TRA_TANGO_PREV(...) JLB$DEL_TANGO JLB$TRA_TANGO_DONE JLB$TRA_DICCLS 5 48

205 JLB$TRA_DICINI JSY$TRA_DICINI JLB$TRA_DICINI JSY$TRA_DICINI status = JLB$TRA_DICINI status SS$_NORMAL status = JSY$TRA_DICINI status SS$_NORMAL 0 RMS RMS LIB$STOP 5 49

206 JLB$TRA_DICCLS JSY$TRA_DICCLS JLB$TRA_DICCLS JSY$TRA_DICCLS status = JLB$TRA_DICCLS status = JSY$TRA_DICCLS status SS$_NORMAL 5 50

207 JLB$ENT_TANGO JSY$ENT_TANGO JLB$ENT_TANGO JSY$ENT_TANGO status = JLB$ENT_TANGO ( kana-str, tango-str ) kana-str tango-str (/) Descriptor Descriptor status = JSY$ENT_TANGO ( kana-str, kana-len, tango-str, tango-len ) kana-str kana-len tango-str (/) Reference Longword Value Reference 5 51