33 01 RECV-STRING PIC X(100). 34 01 SEND-STRING PIC X(100). 35 * 36 LINKAGE SECTION. 37 * 38 PROCEDURE DIVISION. 39 * 40 START-FUNDUPSR. 41 MOVE LENGTH OF LOGMSG TO LOGMSG-LEN. 42 MOVE "Started" TO LOGMSG-TEXT. 43 PERFORM DO-USERLOG. ...
MOVE "FOO " TO EMPNAME MOVE "barba" TO EMPNAME1 ... EXEC SQL INSERT INTO EMP (EMPNO, ENAME) VALUES(1234, 'FOO ') END-EXEC. ... EXEC SQL SELECT ENAME INTO :EMPNAME1 FROM EMP WHERE ENAME = :EMPNAME END-EXEC. ... また、この新規のデフォルトは、sample9のように、PIC X変数...
* Declare two instances of MQMD 01 MY-MQMD. COPY CMQMDV. 01 MY-OTHER-MQMD. COPY CMQMDV. * * Set MSGTYPE field in MY-OTHER-MQMD MOVE MQMT-REQUEST TO MQMD-MSGTYPE IN MY-OTHER-MQMD. 構造体は適切な境界で位置合わせします。COPY文を使用してレベル 01 項目以外の項目の後に続く構造...
01 SCHEMA PIC X(8). *** * DECLARE THE OUTPUT PARAMETERS FOR THE PROCEDURE *** 01 OUT-CODE PIC S9(9) USAGE BINARY. 01 PARMLST. 49 PARMLST-LEN PIC S9(4) USAGE BINARY. 49 PARMLST-TEXT PIC X(254). PROCEDURE DIVISION USING PROCNM, SCHEMA, OUT-CODE, PARMLST. ***...
003800 77 STMT-PROC PIC X(20). 003900 77 CRS00-ERR PIC 9 VALUE ZERO. 004000 77 FETCH-FLG PIC 9 VALUE ZERO. 004100 PROCEDURE DIVISION. 004200*** 004300* 制御系とする埋め込みSQL文は、例えば以下のように記述します。 004400*** 004500* 接続/切断できたかどうかを<埋め込み例外宣言...
cobol的书写格式(每行)1、 前6列为序号区(一般不编辑)2、 第7列为标示列,仅可以写如下几个标示符。 a. “*”注释符(注释当前行的代码) b “/“注释符(注释当前行的代码,程序编译时,强制程序清单另起一页,不建议使用) c “-“字符串连接符 d “D” DEBUG行标示符(程序为DEBUG模式时,标有该标示符...
“1”～”9” →”01”～”09” 6.2.4 OF 修飾的书写数据名用 OF 修飾。(指定数据名的所属集团项目) 01 LNK-IN-DATA. 05 IF-IN-AAA PIC X(01). 01 LNK-OUR-DATA. 05 IF-OUT-AAA PIC X(01). … MOVE IF-IN-AAA OF LNK-IN-DATA TO IF-OUT-AAA OF LNK-OUT-DATA 6.3 数据类型 6.3.1...
01 USER-DATA-REC PIC X(100). * * * MOVE LOW-VALUES TO TPQUEDEF-REC. MOVE "TMQUEUE" TO QSPACE-NAME IN TPQUEDEF-REC. MOVE "REPLYQ" TO QNAME IN TPQUEDEF-REC. SET TPTRAN IN TPQUEDEF-REC TO TRUE. SET TPBLOCK IN TPQUEDEF-REC TO TRUE. ...
02 BINVAR PIC S9(9) COMP.02 CHARVAR REDEFINES BINVAR PIC X(4).PROCEDURE DIVISION...MOVE ... TO BINVARIF CHARVAR(1:1) = ... THEN ...z/OSハードウェアなどのビッグエンディアン・マシンでは、CHARVAR(1:1)にはBINVARの最も重要な(上位オーダー)バイトが含まれます。ただし、リ...
MOVE '6/2/88' TO DATEVAL. MOVE 'MM/DD/YY' TO PICSTR. CALL CEECBLDY USING DATEVAL, PICSTR, COBINTDATE, fc); MOVE '06/02/88' TO DATEVAL. MOVE 'MM/DD/YY' TO PICSTR. CALL CEECBLDY USING DATEVAL, PICSTR, COBINTDATE, fc); MOVE '060288' TO DATEVAL. MOVE 'MMDDYY' TO PI...