質問

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')

ライセンス: CC-BY-SA帰属
所属していません StackOverflow
scroll top