针对类型为字母数字或国籍的函数引用的引用修改不会出现在模型中(如果该函数没有参数)。例如,未出现DISPLAY FUNCTION CURRENT-DATE (1:4)。 如果在嵌套程序外部声明但在嵌套程序内使用文件描述条目,那么检查该文件描述条目或引用该文件描述条目的语句的用户编写规则可能生成不可预测的结果。
4. CURRENT-DATE Used to find the current value of date. Example: Working Storage 01 WW-CURR-DATE PIC X(21) VALUE SPACES. PROCEDURE DIVISION. MOVE FUNCTION CURRENT-DATE TO WW-CURR-DATE DISPLAY ‘WW-CURR DATE–> ‘WW-CURR-DATE Output: WW-CURR DATE–> 2019010902463469-0659 It displays the...
例子:ADDNUM1TONUM2GIVINGNUM3.ADDNUM1,NUM2GIVINGNUM3.ADDNUM1,10TONUM2GIVINGNUM3.例子 ADD语句3 语法3:ADDCORRidentifier-1TOidentifier-2,…[ROUNDED][ONSIZEERRORstatement-1][NOTONSIZEERRORstatement-2][END-ADD]例子:03CURRENT-MONTH.05PAY PIC9(3)V9(2).05TAX PIC9(2)V9(2).03YTD.
當函數沒有參數時,模型中不會呈現對英數類型或國家類型之函數參照的參照修改。 例如,DISPLAY FUNCTION CURRENT-DATE (1:4)未呈現。 如果檔案說明項目在巢狀程式之外宣告,但在巢狀程式內使用,則使用者撰寫的規則 (檢查檔案說明項目或檢查參照檔案說明項目的陳述式) 可能會產生無法預期的結果。 程式碼複查無法分析包...
虽然COBOL标准库中没有直接名为function-datetime的函数,但可以通过组合使用多个内置函数来实现日期时间的格式化。 示例代码:以下是一个简单的示例,展示了如何在Enterprise COBOL中格式化当前日期和时间: 代码语言:txt 复制 WORKING-STORAGE SECTION. 01 CURRENT-DATE-TIME. 05 CURRENT-DATE PIC 9(8). 05 CURREN...
004800 01CURRENT-DATE-AND-TIME. 004900 05CD-YEARPIC9999. 005000 05CD-MONTHPIC99. 005100 05CD-DAYPIC99. 005200 05CD-HOURSPIC99. 005300 05CD-MINUTESPIC99. 005400 05FILLERPICX(9). 005500* 005600 01HEADING-LINE-1. 005700 05FILLERPICX(7)VALUE"DATE:". ...
012900MOVEfunctionCURRENT-DATEtOCURRENT-DATE-AND-TIME. 013000MOVECD-MONTHTOHL1-MONTH. 013100MOVECD-DAYTOHL1-DAY. 013200MOVECD-YEARTOHL1-YEAR. 013300MOVECD-HOURSTOHL2-HOURS. 013400MOVECD-MINUTESTOHL2-MINUTES. 013500 013600 200-PREPARE-SALES-LINES. ...
A122) By using Intrinsic function, FUNCTION CURRENT-DATE Q:怎么从系统中获取现在时期和时间 A:使用固有函数 FUNCTION CURRENT-DATE Q123) What is the maximum length of a field you can define using COMP-3? A123) 10 Bytes (S9(18) COMP-3)。 Q:使用 COMP-3,区域最大长度是多少 A:COMP-3 存...
00070622 000707 05 WS-CURRENT-DATE PIC X(19). 00070722 000718 WORKING-STORAGE SECTION. 00071814 000720* 01 DATE1 PIC 9(18). 00072019 000730 01 VSAM-STATUS-BYTES.
54、INTER句子是为了在接受区中指定最左边的位置,第一个被传进的字符会被保存在那个位置上Q116:怎么从系统中获取现在时期和时间A116:使用固有函数FUNCTION CURRENT-DATEQ117:使用COMP-3,区域最大长度是多少A117:COMP-3存数字最多能存18个也就是9(18)(这个最大数字书上有说明),算上符号所以是10个 字节(最小...