63 PERFORM EXIT-PROGRAM 64 END-IF. 65 66 INSPECT RECV-STRING CONVERTING 67 "abcdefghijklmnopqrstuvwxyz" TO 68 "ABCDEFGHIJKLMNOPQRSTUVWXYZ". 69 MOVE "Success" TO LOGMSG-TEXT. 70 PERFORM DO-USERLOG. 71 SET TPSUCCESS TO TRUE. 72 COPY TPRETURN REPLACING ...
FP-ROUNDING"ENTCOBOL" IBMCOMP ODOSLIDE PERFORM-TYPE"ENTCOBOL" RDWRECMODE"ENTCOBOL" REMAINDER"2" ASSIGN"EXTERNAL" SYSPUNCH"80"ZEROLENGTHFALSE COPYEXT"cpy,cbl"注意: Pro*COBOLプリプロセッサ用のOracle SQL必須コンパイル・オプションのリストは、『ART Workbench RDBMSコンバータ・リファレ...
cobol的书写格式(每行)1、 前6列为序号区(一般不编辑)2、 第7列为标示列,仅可以写如下几个标示符。 a. “*”注释符(注释当前行的代码) b “/“注释符(注释当前行的代码,程序编译时,强制程序清单另起一页,不建议使用) c “-“字符串连接符 d “D” DEBUG行标示符(程序为DEBUG模式时,标有该标示符...
PAGE LIMIT 節報告書の各行における水平印刷位置の最大数を定義するため、新しい COLUMNS 句が用意されています。また、LAST CONTROL HEADING 句が追加されました。 段落名手続き部またはセクションの先頭に、段落名は必要ありません。 PERFORM ステートメン...
62 PERFORM DO-USERLOG 63 PERFORM EXIT-PROGRAM 64 END-IF. 65 66 INSPECT RECV-STRING CONVERTING 67 "abcdefghijklmnopqrstuvwxyz" TO 68 "ABCDEFGHIJKLMNOPQRSTUVWXYZ". 69 MOVE "Success" TO LOGMSG-TEXT. 70 PERFORM DO-USERLOG. 71 SET TPSUCCESS TO TRUE. ...
62 PERFORM DO-USERLOG 63 PERFORM EXIT-PROGRAM 64 END-IF. 65 66 INSPECT RECV-STRING CONVERTING 67 "abcdefghijklmnopqrstuvwxyz" TO 68 "ABCDEFGHIJKLMNOPQRSTUVWXYZ". 69 MOVE "Success" TO LOGMSG-TEXT. 70 PERFORM DO-USERLOG. 71 SET TPSUCCESS TO TRUE. ...
62 PERFORM DO-USERLOG 63 PERFORM EXIT-PROGRAM 64 END-IF. 65 66 INSPECT RECV-STRING CONVERTING 67 "abcdefghijklmnopqrstuvwxyz" TO 68 "ABCDEFGHIJKLMNOPQRSTUVWXYZ". 69 MOVE "Success" TO LOGMSG-TEXT. 70 PERFORM DO-USERLOG. 71 SET TPSUCCESS TO TRUE. ...
62 PERFORM DO-USERLOG63 PERFORM EXIT-PROGRAM64 END-IF.6566 INSPECT RECV-STRING CONVERTING67 "abcdefghijklmnopqrstuvwxyz" TO68 "ABCDEFGHIJKLMNOPQRSTUVWXYZ".69 MOVE "Success" TO LOGMSG-TEXT.70 PERFORM DO-USERLOG.71 SET TPSUCCESS TO TRUE.72 COPY TPRETURN REPLACING73 DATA-REC BY RECV-STRING....