A***************************************************************** A* ファイル名: SZIPMENU * A*関連プログラム: SCHZIP * A* 関連ファイル: CUSMSTL2 (論理ファイル) * A* 説明: これは、表示装置ファイル SZIPMENU です。 * A* レコード様式があります * A***************************************************************** A REF(CUSMSTL2) A CHGINPDFT(CS) A PRINT(QSYSPRT) A INDARA A CA03(03 'END OF JOB') A R HEAD A OVERLAY A 2 4TIME A DSPATR(HI) A 2 28'CUSTOMER SEARCH BY ZIP' A DSPATR(HI RI) A 2 70DATE A EDTCDE(Y) A DSPATR(HI) A R FOOT1 A 23 6'ENTER - Continue' A DSPATR(HI) A 23 29'F3 - End Job' A DSPATR(HI) A R FOOT2 A 23 6'ENTER - Continue' A DSPATR(HI) A 23 29'F3 - End Job' A DSPATR(HI) A 23 47'F4 - RESTART ZIP CODE' A DSPATR(HI) A R PROMPT A OVERLAY A 4 4'Enter Zip Code' A DSPATR(HI) A ZIP R Y I 4 19DSPATR(CS) A CHECK(RZ) A 61 ERRMSG('ZIP CODE NOT FOUND' + A 61) A R SUBFILE SFL A NAME R 9 4 A ARBAL R 9 27EDTCDE(J) A R SUBCTL SFLCTL(SUBFILE) A 55 SFLCLR A 55 SFLCLR A N55 SFLDSPCTL A N55 SFLDSP A SFLSIZ(13) A SFLPAG(13) A ROLLUP(95 'ROLL UP') A OVERLAY A CA04(04 'RESTART ZIP CDE') A 4 4'Zip Code' A ZIP R O 4 14DSPATR(HI) A 7 4'Customer Name' A DSPATR(HI UL) A 7 27'A/R Balance' A DSPATR(HI UL)
SZIPMENU 表示装置ファイルの DDS には、HEAD、FOOT1、FOOT2、PROMPT、 SUBFILE、および SUBCTL という 6 つのレコード様式があります。
PROMPT レコード様式は、ユーザーに郵便番号を入力するように要求します。 郵便番号がファイルに見付からない場合には、エラー・メッセージが表示されます。ユーザーは、F3 キーを押して (標識 03 をオンに設定する)、プログラムを 終了することができます。
サブファイル・レコード様式は、サブファイル制御レコード様式 SUBCTL の直 前に定義しなければなりません。サブファイル・レコード様式はキーワード SFL を用いて定義しますが、 これはレコード内の各フィールドを記述し、最初のレコードが 画面に表示される位置 (ここでは 9 行目) を指定します。
サブファイル制御レコード様式には、次の固有なキーワードが含まれています。
OVERLAY キーワードは、このサブファイル制御レコード様式をオーバーレイ様式 として定義します。このレコード様式は、i5/OS システムが最初に画面を消去しなくても書き出す ことができます。F4 は、同じ郵便番号の検索を繰り返す場合に有効です。 (この F4 の使用によって前ページの形式が使用可能です。)
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.