COBOL2002 ユーザーズガイド
JCPOPUPサービスルーチンは,表形式のデータ項目を主画面とは別の画面に表示し,画面中でブロックカーソルを移動して選んだブロック番号をインタフェース領域に格納するものです。これを利用すると,画面上での各種のコードの入力などが目的の項目をマウスやキーで選ぶだけでできるようになります。
なお,ここで表示される画面をポップアップブロックカーソル画面といいます。
CALL 'JCPOPUP' USING 引数1 引数2
表32-4 JCPOPUPサービスルーチンのインタフェース領域
記述形式 | 内容 |
---|---|
01 データ名01. |
CALL文のUSINGで指定するインタフェース領域の名前を指定する。 |
02 データ名02 PIC 9(02). |
JCPOPUPサービスルーチンが次の戻り値を設定する。 00:正常終了した。 10:異常終了した。 |
02 データ名03 PIC 9(04). |
JCPOPUPサービスルーチンがブロックカーソルで選択したブロック番号を設定する(先頭を1とし,固定部分は含まない)。 |
02 データ名04 PIC 9(02). |
データを表示する画面上の行の番号を1〜99で指定する。※1 |
02 データ名05 PIC 9(02). |
データを表示する画面上のカラムの番号を1〜99で指定する。※1 |
02 データ名06 PIC 9(02). |
画面の行数を1〜24で指定する。 |
02 データ名07 PIC 9(02). |
画面の列数を1〜80で指定する。 |
02 データ名08 PIC 9(02). |
画面の固定領域行数を1〜24で指定する。 |
02 データ名09 PIC 9(02). |
画面の1ブロック(1エントリ)のサイズを指定する。 |
02 データ名10 PIC X(02). |
固定領域の色を指定する。 G△:緑色 W△:白色 R△:赤色 B△:青色 P△:紫色 Y△:黄色 S△:空色 |
02 データ名11 PIC X(02). |
ブロックカーソルの色をデータ名10と同じ形式で指定する。 |
02 データ名12 PIC X(02). |
可変領域の色をデータ名10と同じ形式で指定する。 |
02 データ名13 PIC X(02). |
可変領域の初期表示位置を指定する。 T△:先頭表示 B△:最終表示 |
02 データ名14 PIC 9(04). |
画面の固定領域のサイズを指定する。 |
02 データ名15 PIC 9(02). |
可変領域のデータ項目(1エントリ)のサイズを指定する。 |
02 データ名16 PIC 9(04). |
出力データのサイズ(固定領域+可変領域)を指定する。 |
02 データ名17 PIC 9(02). |
JCPOPUPサービスルーチンが終了キーコードを設定する。※2 |
02 データ名18 PIC X(01). |
画面に枠けい線を出力するかどうかを指定する。 Y:出力する。 N:出力しない。 |
02 FILLER PIC X(09). |
予備。値はX'00'でなければならない。ただし,このシステムではこの領域は使用しない。 |
01 データ名20. 02 FILLER PIC X(16) VALUE LOW-VALUE. 02 表示データ項目(固定領域+可変領域)を 表形式で指定する。 … 1. 02 FILLER PIC X(nn) VALUE LOW-VALUE. … 2.
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE1. : DATA DIVISION. WORKING-STORAGE SECTION. 01 ICHIRAN-GAMEN. 02 HUKKI-CODE PIC 9(2). 02 BLOCK-NUMBER PIC 9(4). …1. 02 Y-LOCATION PIC 9(2) VALUE 10. 02 X-LOCATION PIC 9(2) VALUE 10. 02 WINDOW-LINE PIC 9(2) VALUE 5. …2. 02 WINDOW-COLUMN PIC 9(2) VALUE 20. …3. 02 KOTEI-LINE PIC 9(2) VALUE 2. …4. 02 BLOCK-SIZE PIC 9(2) VALUE 10. …5. 02 KOTEI-COLOR PIC X(2) VALUE 'G '. 02 CURSOR-COLOR PIC X(2) VALUE 'R '. 02 KAHEN-COLOR PIC X(2) VALUE 'B '. 02 HYOUJI-ICHI PIC X(2) VALUE 'T '. …6. 02 KOTEI-SIZE PIC 9(4) VALUE 60. …7. 02 ENTRY-SIZE PIC 9(2) VALUE 15. …8. 02 DATA-SIZE PIC 9(4) VALUE 210. …9. 02 END-KEY PIC 9(2). …10. 02 WAKU-KEISEN PIC X(1) VALUE 'Y'. …11. 02 FILLER PIC X(9) VALUE LOW-VALUE. 01 ICHIRAN-DATA. 02 FILLER PIC X(16) VALUE LOW-VALUE. 02 HD1 PIC X(15) VALUE 'コード一覧'. 02 HD2 PIC X(15) VALUE SPACE. 02 HD2 PIC X(15) VALUE SPACE. 02 HD2 PIC X(15) VALUE SPACE. 02 ATEM PIC X(15) OCCURS 10 TIMES. 02 FILLER PIC X(140) VALUE LOW-VALUE. : PROCEDURE DIVISION. : MOVE '1:AAA' TO ATEM(1). MOVE '2:BBB' TO ATEM(2). : MOVE '10:JJJ' TO ATEM(10). CALL 'JCPOPUP' USING ICHIRAN-GAMEN ICHIRAN-DATA. :
All Rights Reserved. Copyright (C) 2013, 2016, Hitachi, Ltd.
All Rights Reserved. Copyright (C) 2002, 2011, Microsoft Corporation.