ページの先頭行へ戻る
NetCOBOL V11.0 メッセージ集
FUJITSU Software

2.8.107 JMN9910I-E

(@1@)OSIVシステムでは,@2@関数はサポートしていません.

埋め込みの説明

@1@ : GSS,GSW
@2@ : 関数名(コード指定)

例題

[P9910.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9910.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 WDATE       PIC X(20).
000008 01 WANS        PIC S9(2)V999.
000009 01 WANGLE      PIC S9(2)V999.
000010 PROCEDURE      DIVISION.
000011     MOVE FUNCTION CURRENT-DATE TO WDATE
000012     COMPUTE WANS = FUNCTION SIN(WANGLE)
000013 END PROGRAM    P9910.

P9910.cob 12: JMN9910I-E (GSS)OSIVシステムでは,FUNCTION SIN関数はサポートしていません.