フィールドを保護するためのRPGプログラムのDSPATR(PR)
-
09-12-2019 - |
質問
IBM開発ソフトウェアのRPGプログラムを開発しています
入力フィールドの表示ファイルを作成していること
私は1つのタスクを達成しようとしています。
既にすべてのフィールドを入力し、他のレコードが表示されている場合は、を押すまで値を入力するだけのファイルを保護したい。
しかし、私はDSPATR(PR)を使用してフィールドを保護する方法を混乱させることができます
解決 2
私の質問の答えを見つけました。
これを行うただスクリーンデザイナのプロパティに移動します。>右クリックしてプロパティを右クリックしてキーワードprotect
を見つけ、これは、enter
が保護されないようになるまで、画面全体を保護します。
標識を指定してDSPATR(PR)
を追加し、必要なフィールドのインジケータをオンにするためにこれをRPG
に追加することもできます。
他のヒント
緑色画面でRPGプログラムは、画面に<enter>
を押すと画面上にあるものだけを知っています。ユーザーがフィールドにデータを入力した後にフィールドを保護したいように聞こえます。各フィールドにCHECK(ER)
を持たない限り、可能なとは思わない。プログラム機能によっては迷惑になるでしょう。ハンズダウンエントリの人々は、入力を続けることを好み、データを入力するために必要なタブとスペースの数を正確に記憶しています。
研究専用の場合は、RPGの「バックエンド」コード、たとえば、Protect(読み取り専用)の16進コード値(読み取り専用)が 'A0'であるため、コードの外観を参照してください。
DDSSRC:
.....AAN01N02N03T.Nombre++++RLon++TPdBLínPosFunciones+++++++++++++++++++++++++++
A* First declare the variable
A REV1 1A P
A*
A* then, after the display field in function limit you assign it
A*
A FIELD01 14Y 2B 17 42EDTCDE(1)
A DSPATR(&REV1)
.
RPGSRCでは、必要なときに設定またはクリアするだけです。
CL0N01Factor1+++++++Operac&ExtFactor2+++++++Resultado+++++Lon++D+MaMeIg....Comentarios+++++++++
C*
C* Set the hex value in the QDDSSRC variable
C EVAL REV2 = x'A0'
C*
C* Clear the variable
C CLEAR REV1 1
.
多くの目的にはあまりにも多くのヘキサコードがあり、www :)を見回す必要があります。
A SEL 1A B 11 2
A 99 DSPATR(PC)
A 99 DSPATR(RI)
緑色の画面にフィールドを表示すると、一般的にI / Oの場合はexfmt。 ここでは、まずSELフィールドをクリアしてから、ディスプレイ(DDS)ファイルからレコードフォーマットをexfmtします。ユーザーがEnterを押すと、インジケータ99を「点灯」します。 その後、画面を表示するためにもう一度exfmtします。* IN99が* ONの例では、カーソルはSELフィールドに位置し、それをリバースイメージします。Protect DSPATR(PR)と同じことができます。コードでは、インジケーターを「オフ」して画面を表示します。ユーザーヒットインジケータを「オンにする」と入力して画面を再設定します。
RPGでは、move * on * in99を使用できます。
またはあなたはSeton ........ 99を使うことができます。
または「1」* IN99を移動する。
CLPでは、CHGVAR VAR(&IN99)値( '1')