MOVE 命令传送複数項目的場合、TO、OF 要对齐。(①参照)接受方是複数项目的場合、接受方的項目分行写、开始列对齐。(②参照)发送方和接受方的长度尽可能相同。 MOVE ““ TO SB1 MOVE KEY-MA-CHR TO KEY-NEW-CHR ① MOVE SHU-HOJO OF I1B2 TO SHU-HOJO OF SB2 MOVE KOHI-KBN OF I1B2 TO KOHI-...
* Declare a structure to hold the constants 01 MY-MQ-CONSTANTS. COPY CMQV. 上記の方式では、定数が参照されない場合であっても、プログラム内のストレージを定数が占有してしまいます。 同じ実行単位内の多数の別個のプログラムにこのような定数を組み込む場合は、同じ定数の複数のコピーが存在す...
TPQNOFAILUREQ IN TPQUEDEF-REC TO TRUE. SET TPQMSGID IN TPQUEDEF-REC TO TRUE. MOVE LOW-VALUES TO TPTYPE-REC. MOVE "STRING" TO REC-TYPE IN TPTYPE-REC. MOVE LENGTH OF USER-DATA-REC TO LEN IN TPTYPE-REC. CALL "TPENQUEUE" USING TPQUEDEF-REC TPTYPE-REC USER-DATA-REC TPSTATUS-...
ゾーンおよびパック数字データの省略時の正符号として16進数のCが使用されます。これは,VALUE文節の結果の他にMOVE, ADD, SUBTRACT, MULTIPLY, DIVIDE, COMPUTE,およびINITIALIZEステートメントのすべての結果に適用されます。 *NOEVENTF クライアント・ツールで使用するイベント・ファイルを作...
MOVE "STRING" TO QNAME IN TPQUEDEF-REC. SET TPTRAN IN TPQUEDEF-REC TO TRUE. SET TPBLOCK IN TPQUEDEF-REC TO TRUE. SET TPTIME IN TPQUEDEF-REC TO TRUE. SET TPSIGRSTRT IN TPQUEDEF-REC TO TRUE. MOVE LOW-VALUES TO TPTYPE-REC. MOVE "STRING" TO REC-TYPE IN TPTYPE-REC. MOVE ...
* Perform segment update activity Move 'aaa' to area1. Move 'bbb' to area2. * Issue DL/I Call: replace segment at current position 7 Call 'CBLTDli' using Func-REPL Pcb1 Dli-io-area ssa1 If uibfctr is not equal good-return-code then * Insert error diagnostic code Exec CICS ...
(8) VALUE 10. 0001.00 PROCEDURE DIVISION. 0001.10 MAINLINE. 0002.00 MOVE A 0003.00 TO B.'''*** データの終わり *** F3= 終了 F4= プロンプト F5= 最新表示 F9= コマンドの複写 F10= カーソル F11= 切り替え F16= 検索の反復 F17= 変更の反復 F24= キーの続き ILE COBOLソース・...
MOVE LOW-VALUES TO TPTYPE-REC. MOVE "STRING" TO REC-TYPE IN TPTYPE-REC. MOVE LENGTH OF USER-DATA-REC TO LEN IN TPTYPE-REC. CALL "TPENQUEUE" USING TPQUEDEF-REC TPTYPE-REC USER-DATA-REC TPSTATUS-REC. 「TMQUEUE(5)」リファレンス・ページの例では、サーバーを作成して構成ファ...
MOVE "STRING" TO REC-TYPE IN TPTYPE-REC. MOVE LENGTH OF USER-DATA-REC TO LEN IN TPTYPE-REC. CALL "TPENQUEUE" USING TPQUEDEF-REC TPTYPE-REC USER-DATA-REC TPSTATUS-REC.TMQUEUE(5) リファレンス・ページの例では、サーバを作成してコンフィギュレーション・ファイルで指定する際...
Move "Adult Woman" To Description When Other Move "Invalid Data" To Description End-Evaluate Evaluate True Also True When A + B < 10 Also C = 10 Move "Case 1" To Description When A + B > 50 Also C = ( D + E ) / F