COBOL2002 ユーザーズガイド
CBLCURサービスルーチンは,画面上の指定された位置にカーソルを移動するものです。
CALL 'CBLCUR' USING 引数1 引数2
記述形式 | 内容 |
---|---|
01 データ名1. |
CALL文のUSINGで指定するインタフェース領域の名前を指定する。 |
02 データ名2 PIC 9(04) USAGE COMP. |
カーソルを移動する行の番号を,2バイトの2進項目で指定する。 |
02 データ名3 PIC 9(04) USAGE COMP. |
カーソルを移動するカラム位置を,2バイトの2進項目で指定する。 |
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE1. : DATA DIVISION. WORKING-STORAGE SECTION. 01 OP-1 PIC X VALUE SPACE. 01 OP-2. 02 OP-2-1 PIC 9(4) USAGE COMP VALUE 10. 02 OP-2-2 PIC 9(4) USAGE COMP VALUE 20. : PROCEDURE DIVISION. : CALL 'CBLCUR' USING OP-1 OP-2. IF RETURN-CODE NOT = 0 THEN CBLCURエラー処理 END-IF. :
All Rights Reserved. Copyright (C) 2013, 2016, Hitachi, Ltd.
All Rights Reserved. Copyright (C) 2002, 2011, Microsoft Corporation.