This is a simple XEDIT: /* REXX */ 'xedit xpanel data a (prof xpanel' <=== The name of your Xedit Profile say 'Your results are:' 'EXECIO * DISKR XPANEL DATA A2 1 (STEM VMFA.' 'EXECIO 0 DISKR XPANEL DATA A2 (FINIS' vmfa = VMFA.0 do x = 1 to vmfa parse var vmfa.x . 'Input:' data data = strip(data) say 'Record' x 'DATA:' data end exit 0
/* Xedit Profile */
/* */
dt = Date(u)
tm = Time()
strng = dt || ' Data Entry Panel ' || tm
hdr0 = ' -------------------------------- '
'set ctlchar ! escape'
'set ctlchar % noprotect green underline'
'set ctlchar " protect nohigh'
'set reserved 1 yellow rev high ' strng
'set reserved 2 turq nohigh' hdr0
field1 = 'field 1'
field2 = 'field 2'
'set reserved 3 turq rev high Enter Field 1:'
'set reserved 4 noh One:!% !"'
'set reserved 5 turq rev high Enter Field 2:'
'set reserved 6 noh Two:!% !"'
'set reserved 7 Default None Nohigh'
'set reserved 8 Default None Nohigh'
'set reserved 9 Default None Nohigh'
'set reserved 10 Default None Nohigh'
'set reserved 11 Default None Nohigh'
'set reserved 12 Default None Nohigh'
'set reserved 13 Default None Nohigh'
'set reserved 14 Default None Nohigh'
'set reserved 15 Default None Nohigh'
'set reserved 16 Default None Nohigh'
'set reserved 17 Default None Nohigh'
'set reserved 18 Default None Nohigh'
'set reserved 19 Default None Nohigh'
'set reserved 20 Default None Nohigh'
'set reserved 21 Default None Nohigh'
'set reserved 22 Default None Nohigh'
'command cursor screen 4 6'
'READ All Tag'
VMFA = queued()
Do x = 1 to VMFA
Parse upper pull V1 V2 V3 V4 .
Select
When x = 1 then do
'ERASE XPANEL DATA A2'
'EXECIO 0 DISKW XPANEL DATA A2 0 F 80'
end
When x = 2 then do
if V2 = 4 then do
out = 'Field 1 Input: ' V4
'EXECIO 1 DISKW XPANEL DATA A2 1 ( STRING' OUT
end
if V2 = 6 then do
out = 'Field 2 Input: ' V4
'EXECIO 1 DISKW XPANEL DATA A2 2 ( STRING' OUT
end
end
When x = 3 then do
if V2 = 6 then do
out = 'Field 2 Input: ' V4
'EXECIO 1 DISKW XPANEL DATA A2 2 ( STRING' OUT
end
end
Otherwise nop
/* select */
End
'FINIS XPANEL DATA A2'
/* do */
End
/* */
'Quit'
HTH - Dave H.
"Lionel B. Dyck" <[EMAIL PROTECTED]>
Sent by: The IBM z/VM Operating System
<[email protected]>
To
[email protected]
cc
01/31/2008 11:44 AM
Subject
Display
Menus without ISPF/VM ?
Please respond to
The IBM z/VM Operating System
<[email protected]>
I don't have ISPF/VM and yet I would like to create simple display panels
with menus and data entry options.
Is there a way to do this using XEdit or some other native z/VM facility?
TIA
