您的位置：程序门 -> websphere -> 基础类

一个cl程序...寻求帮助！

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

一个cl程序...寻求帮助！

发表于：2008-02-11 06:57:33 楼主

显示文件要求
design your display file to include the following:
function keys:
f3 – exit
f21 – command line
f21 must be defined as a cf function key.
system date
system time
user signed on
appropriate title
name of display file（lab5df)
the following text:
1. system date
2. odin's model number
3. the day of the week
4. my storage used.
5. my %storage used
6. send a message

a both field that allows 2 characters. this field is designed to hold the option entered. possible values are:
1, 2, 3, 4, 5, 6, 01, 02, 03, 04, 05, 06. include an error message if something else is entered. if there is an error, the option field should be reverse image and the cursor positioned on it.

a both field that allows 10 characters. this field is designed to the message queue where to send the requested message.

a both field that allows 50 characters. this field is designed to store the message needed for option 6.

a 70 character output only field. this field is designed to hold the text of for the selected request. this field is referred to as ‘request text' below.

发表于：2008-02-11 06:58:361楼得分:0

cl程序要求

1. declare the display file and any variables not defined in the screen's record format.
2. prepare screen indicators and fields for display.
3. sndrcvf （send / receive file command)
4. loop until f3 is pressed
a. turn off indicators for data validation and field attributes/conditioning
b. if f21 has been pressed, call the program, quscmdln. bypass the logic below and redisplay the screen.
c. clear the request text
d. process based on the option selected
? option 1 should retrieve the system date from the job attributes and calculate a request text similar to this: today is 050707
? option 2 should retrieve odin's model number from the system values and calculate a request text similar to this: odins model is 999.
? option 3 should retrieve the day of the week from the system values and calculate a request text similar to this: today is *mon
? option 4 should retrieve the amount of storage used from your user profile. becareful, this is a *dec value! calculate a request text similar to this: storage used: 000000000133944
? option 5 should retrieve the amount of storage used from your user profile and the maximum storage assigned from the user profile. the %storage used is storage used divided by maximum storage * 100. calculate a request text similar to this: %storage used: 999.99
? option 6 should validate the userid and message text that was entered in the screen. if the userid is valid （exists and not blank) and the message text is entered （not blank). then the send message command should be ＥＸＥＣuted; otherwise, display the appropriate error. should the send message command fail （ie. invalid userid), display the appropriate error.
? display an appropriate error message if an invalid option was typed.
e. sndrcvf （send/receive file command)

5. end: program runs any commands not requiring user interface and ends

发表于：2008-02-11 07:01:352楼得分:0

我写的显示文件，不知道对不对...
a*%%ts dd 20080210 142453 administra rel-v5.0.1 wdsc
a*%%ec
a dspsiz（24 80 *ds3)
a r record1
a*%%ts dd 20080210 142453 administra rel-v5.0.1 wdsc
a 1 36'lab5df'
a 1 61date
a edtcde（y)
a 2 61time
a 1 3user
a 7 30'1.system date'
a 8 30'2.odin''s model number'
a 9 30'3.the day of the week'
a 10 30'4.my storage used'
a 11 30'5.my %storage used'
a 12 30'6.send a message'
a 15 5'enter your option: '
a option 2 b 15 25
a 02 dspatr（ri)
a 02 dspatr（pc)
a 16 15'send to:'
a sendto 10 b 16 25
a 17 15'message:'
a msg 50 b 17 25
a 18 8'request output:'
a output 50 o 18 25
a*%%gp screen1 01

发表于：2008-02-11 07:04:583楼得分:0

程序文件我只知道
pgm
dsplf file（lab5df)
endpgm

请给位高手不吝赐教！谢谢！

下一篇：某银行招聘websphere开发人员
上一篇：高分求教mqseries问题，很急！对于高手可能很简单！！！

其他资讯