home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mega Top 1
/
os2_top1.zip
/
os2_top1
/
APPS
/
PROG
/
REXX
/
CMD
/
PDS.ZIP
/
PDEDIT.PNL
< prev
next >
Wrap
Text File
|
1994-02-27
|
36KB
|
778 lines
)PANEL NAME=PANEL000 CLS=Y
)COLORS INPUT=GREENHI OUTPUT=YELLOWHI TEXT=WHITEHI
HSS/PDS EDIT CC 0000 0000
COMMAND ===> +SCROLL ===> +
)END )NOWAIT )NODISPLAY
)PANEL NAME=PANEL001 CLS=N AID=(ZENTER,ZENTER_KPAD,ZF1,ZPGUP,ZPGDW)
)XID ZESC
)REM )XID ZESC ZF3 ZF4_A ZHOME
)AID ZF3_A ZF4_A
)AID Z_D_A Z_I_A Z_R_A Z_J_A Z_T_A Z_S_A
)AID ZPGUP_C ZPGDW_C ZF2 ZF3 ZF4 ZF5 ZF6 ZF10 ZF11
)REM )AID ZARRWUP ZARRWDOWN
)VARS sGlobal.iCCBeg sGlobal.iCCEnd
)COLORS INPUT=GREENHI OUTPUT=YELLOWHI TEXT=WHITEHI
)ROW 01 15 FLDS="%sFlSpec +"
)ROW 01 72 FLDS="%* +%* +"
)ROW 02 15 FLDS="_ZCMD +"
)ROW 02 77 FLDS="_ZAMT+"
)ROW 3
_sPDRec.1 +
_sPDRec.2 +
_sPDRec.3 +
_sPDRec.4 +
_sPDRec.5 +
_sPDRec.6 +
_sPDRec.7 +
_sPDRec.8 +
_sPDRec.9 +
_sPDRec.10 +
_sPDRec.11 +
_sPDRec.12 +
_sPDRec.13 +
_sPDRec.14 +
_sPDRec.15 +
_sPDRec.16 +
_sPDRec.17 +
_sPDRec.18 +
_sPDRec.19 +
_sPDRec.20 +
_sPDRec.21 +
_sPDRec.22 +
)PROC
/* The following defines just those AID keys this )PROC needs here */
Call rxPDZVarDefine 'ZPGUP', 'ZPGDW'
/* Test for the "PGUP" key */
if ZKey = ZPGUP | ZKey = ZPGDW then
do
return ZKey
end
/* The following defines the possible return codes */
Call rxPDZVarDefine 'ZVERIFYPROC_RC_NORETURN'
/* The following defines the additional AID keys */
Call rxPDZVarDefine 'ZENTER', 'ZENTER_KPAD', 'ZF1'
/* Test for the "F1" key */
if ZKey = ZF1 then
do
Call rxPDZVarDefine 'ZF4_A'
svid = rxPDSaveScreen(ZBid)
akey = ZENTER
sHelpTitle = CENTER('EDIT Help',66)
do while akey = ZENTER
sOverVu = '_'
sPrimCmds = '_'
sFKeys = '_'
sRows = '_'
akey = rxPDDisplay(zBID,'PUPHLP01')
end /* do while akey = ZENTER */
rc = rxPDRestoreScreen(ZBid,svid)
if akey = ZF4_A then return akey
return ZVERIFYPROC_RC_NORETURN
end
/* May be Enter or the KPAD_ENTER */
if ZKey = ZENTER | ZKey = ZENTER_KPAD then
do
return ZENTER
end
/* Must be one of the other AID keys */
return ZKEY
)END )BLANK
)PANEL NAME=PANELXSYSTEM CLS=N
)COLORS INPUT=GREENHI OUTPUT=YELLOWHI TEXT=WHITEHI
HSS/PDS
)END )NOWAIT FLDS=" X SYSTEM "
)PANEL NAME=PUPDELETEERR XID=(ZESC)
)COLORS TEXT=REDHI
)ROW 22 08 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 23 08 FLDS="║ Unable to delete TSD file %sFlSpec +║"
)ROW 24 08 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"
)PANEL NAME=PUPOPENERR XID=(ZESC)
)COLORS TEXT=REDHI
)ROW 22 08 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 23 08 FLDS="║ Unable to open TSD file %sFlSpec +║"
)ROW 24 08 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"
)PANEL NAME=PUPWRITEERR XID=(ZESC)
)COLORS TEXT=REDHI
)ROW 22 08 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 23 08 FLDS="║ Error writing TSD file %sFlSpec +║"
)ROW 24 08 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"
)PANEL NAME=PUPHLP01 XID=(ZESC,ZF3,ZF4_A) AID=(ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)VARS sOverVu sPrimCmds sFKeys sRows
)ROW 05 06 FLDS="╔═══════════════════════════════════════════════════════════════════╗"
)ROW 06 06 FLDS="║ %sHelpTitle +║"
)ROW 07 06 FLDS="║ Select one or more of the following topics: ║"
)ROW 08 06 FLDS="║ _+Overview of the PDS Editor Sample. ║"
)ROW 09 06 FLDS="║ _+Primary Commands. ║"
)ROW 10 06 FLDS="║ _+Function Keys and Command Keys. ║"
)ROW 11 06 FLDS="║ _+Manipulating the rows and the data in the rows. ║"
)ROW 12 06 FLDS="║ ║"
)ROW 13 06 FLDS="╚═══════════════════════════════════════════════════════════════════╝"
)PROC
Call rxPDZVarDefine 'ZENTER', 'ZESC', 'ZF4_A', 'ZF3'
/* The following defines the possible return codes */
Call rxPDZVarDefine 'ZVERIFYPROC_RC_NORETURN'
if sOverVu = '_' & sPrimCmds = '_' & sFKeys = '_' & sRows = '_' then
do
select
when ZFName = 'sOverVu' then
do
sOverVu = 'S'
end
when ZFName = 'sPrimCmds' then
do
sPrimCmds = 'S'
end
when ZFName = 'sRows' then
do
sRows = 'S'
end
when ZFName = 'sFKeys' then
do
sFKeys = 'S'
end
otherwise
do
return ZVERIFYPROC_RC_NORETURN
end
end /* End of select */
end
svid = rxPDSaveScreen(ZBid)
if sOverVu <> '_' then
do
sHelpTitle = CENTER('Overview of the PDS Editor Sample.',60)
akey = ZENTER
iOV = 1
iOVMax = 4
do while akey = ZENTER & iOV <= iOVMax
akey = rxPDDisplay(zBID,'PUPOVRVU'iOV)
iOV=iOV+1
end /* do while akey = ZENTER */
if akey = ZF3 | akey = ZF4_A then
do
Call rxPDSetCursorFld ZBid, ZPName, 'sOverVu'
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
Call rxPDSetCursorFld ZBid, ZPName, 'sOverVu'
end
if sPrimCmds <> '_' then
do
sHelpTitle = CENTER('Primary Commands.',60)
akey = ZENTER
do while akey = ZENTER
sCancel = '_'
sEnd = '_'
sDelete = '_'
sInsert = '_'
sRepeat = '_'
sFind = '_'
sChange = '_'
sLocate = '_'
akey = rxPDDisplay(zBID,'PUPPCMDS1')
end /* do while akey = ZENTER */
if akey = ZF3 | akey = ZF4_A then
do
Call rxPDSetCursorFld ZBid, ZPName, 'sOverVu'
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
Call rxPDSetCursorFld ZBid, ZPName, 'sPrimCmds'
end
if sFKeys <> '_' then
do
sHelpTitle = CENTER('Function keys and Command keys.',60)
akey = ZENTER
iFK = 1
iFKMax = 3
do while akey = ZENTER & iFK <= iFKMax
sF1 = 'F1'
sF2 = 'F2'
sF3 = 'F3'
sF4 = 'F4'
sF10 = 'F10'
sF11 = 'F11'
sF4A = 'Alt_F4'
sPGUP = 'PGUP'
sPGDW = 'PGDW'
sENTER = 'ENTER'
sTA = 'Alt_T'
sIA = 'Alt_I'
sRA = 'Alt_R'
sDA = 'Alt_D'
sJA = 'Alt_J'
sSA = 'Alt_S'
akey = rxPDDisplay(zBID,'PUPFKEYS'iFK)
iFK=iFK+1
end /* do while akey = ZENTER */
if akey = ZF3 | akey = ZF4_A then
do
Call rxPDSetCursorFld ZBid, ZPName, 'sOverVu'
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
Call rxPDSetCursorFld ZBid, ZPName, 'sFKeys'
end
if sRows <> '_' then
do
sHelpTitle = CENTER('Manipulating the rows and the data in the rows.',60)
akey = ZENTER
do while akey = ZENTER
sPage = '_'
sEdit = '_'
sDelete = '_'
sInsert = '_'
sRepeat = '_'
akey = rxPDDisplay(zBID,'PUPROWS01')
end /* do while akey = ZENTER */
if akey = ZF3 | akey = ZF4_A then
do
Call rxPDSetCursorFld ZBid, ZPName, 'sOverVu'
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
Call rxPDSetCursorFld ZBid, ZPName, 'sRows'
end
rc = rxPDRestoreScreen(ZBid,svid)
if akey = ZESC then akey = ZENTER
return akey
)END )BLANK FLDS="<Press ESC to end, F3 to quit or ENTER to select topic>"
)PANEL NAME=PUPOVRVU1 XID=(ZESC,ZF3,ZF4_A) AID=(ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 07 11 FLDS="╔════════════════════════════════════════════════════════════╗"
)ROW 08 11 FLDS="║ %sHelpTitle +║"
)ROW 09 11 FLDS="║ ║"
)ROW 10 11 FLDS="║ The PDEDIT.CMD file is a sample editor, written in REXX, ║"
)ROW 11 11 FLDS="║ which uses the 'Panel Display System' shareware product. ║"
)ROW 12 11 FLDS="║ ║"
)ROW 13 11 FLDS="║ It demonstrates the use of most of the PD system's REXX ║"
)ROW 14 11 FLDS="║ application interface known as the 'rxPD' interface. ║"
)ROW 15 11 FLDS="║ ║"
)ROW 16 11 FLDS="╚════════════════════════════════════════════════════════════╝"
)COLORS TEXT=REDHI
)ROW 15 65 FLDS="<more>"
)COLORS TEXT=RED
)END )BLANK FLDS="<Press ESC to end, F3 to quit or ENTER to see more>"
)PANEL NAME=PUPOVRVU2 XID=(ZESC,ZF3,ZF4_A) AID=(ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 07 11 FLDS="╔════════════════════════════════════════════════════════════╗"
)ROW 08 11 FLDS="║ %sHelpTitle +║"
)ROW 09 11 FLDS="║ ║"
)ROW 10 11 FLDS="║ This sample makes use of composite panels, popup panels, ║"
)ROW 11 11 FLDS="║ function keys, command keys and the power of REXX to ║"
)ROW 12 11 FLDS="║ implement many of the functions required of an editor. ║"
)ROW 13 11 FLDS="║ ║"
)ROW 14 11 FLDS="║ ║"
)ROW 15 11 FLDS="║ ║"
)ROW 16 11 FLDS="╚════════════════════════════════════════════════════════════╝"
)COLORS TEXT=REDHI
)ROW 15 65 FLDS="<more>"
)COLORS TEXT=RED
)END )BLANK FLDS="<Press ESC to end, F3 to quit or ENTER to see more>"
)PANEL NAME=PUPOVRVU3 XID=(ZESC,ZF3,ZF4_A) AID=(ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 07 11 FLDS="╔════════════════════════════════════════════════════════════╗"
)ROW 08 11 FLDS="║ %sHelpTitle +║"
)ROW 09 11 FLDS="║ ║"
)ROW 10 11 FLDS="║ Some of the functions are 'Insert', 'Delete', 'Repeat', ║"
)ROW 11 11 FLDS="║ 'Split', 'Join' and of course the ability to modify a ║"
)ROW 12 11 FLDS="║ row. ║"
)ROW 13 11 FLDS="║ ║"
)ROW 14 11 FLDS="║ You can also scroll up, down, left and right thru the ║"
)ROW 15 11 FLDS="║ file. ║"
)ROW 16 11 FLDS="╚════════════════════════════════════════════════════════════╝"
)COLORS TEXT=REDHI
)ROW 15 65 FLDS="<more>"
)COLORS TEXT=RED
)END )BLANK FLDS="<Press ESC to end, F3 to quit or ENTER to see more>"
)PANEL NAME=PUPOVRVU4 XID=(ZESC,ZF3,ZF4_A) AID=(ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 07 11 FLDS="╔════════════════════════════════════════════════════════════╗"
)ROW 08 11 FLDS="║ %sHelpTitle +║"
)ROW 09 11 FLDS="║ ║"
)ROW 10 11 FLDS="║ This is a functioning editor! Modifications to the rows ║"
)ROW 11 11 FLDS="║ of the display will automatically be written to the file ║"
)ROW 12 11 FLDS="║ when you exit the editor! ║"
)ROW 13 11 FLDS="║ ║"
)ROW 14 11 FLDS="║ You can cancel all modifications to the file with the ║"
)ROW 15 11 FLDS="║ 'CANCEL' command. ║"
)ROW 16 11 FLDS="╚════════════════════════════════════════════════════════════╝"
)COLORS TEXT=REDHI
)REM )ROW 15 65 FLDS="<more>"
)COLORS TEXT=RED
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"
)PANEL NAME=PUPPCMDS1 XID=(ZESC,ZF3,ZF4_A) AID=(ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)VARS sCancel sEnd sDelete sInsert sRepeat sLocate
)ROW 07 11 FLDS="╔════════════════════════════════════════════════════════════╗"
)ROW 08 11 FLDS="║ %sHelpTitle +║"
)ROW 09 11 FLDS="║ Select one or more of the following topics: ║"
)ROW 10 11 FLDS="║ _+Cancel all modifications and exit the editor. ║"
)ROW 11 11 FLDS="║ _+Save any modifications and exit the editor. ║"
)ROW 12 11 FLDS="║ _+Delete a row. ║"
)ROW 13 11 FLDS="║ _+Insert a row. ║"
)ROW 14 11 FLDS="║ _+Repeat a row. ║"
)ROW 15 11 FLDS="║ _+Locate a row. ║"
)ROW 16 11 FLDS="╚════════════════════════════════════════════════════════════╝"
)PROC
Call rxPDZVarDefine 'ZENTER', 'ZESC', 'ZF4_A', 'ZF3'
/* The following defines the possible return codes */
Call rxPDZVarDefine 'ZVERIFYPROC_RC_NORETURN'
if 0 = rxPDQueryMDT(ZBid,'PUPPCMDS1') then
do
select
when ZFName = 'sCancel' then
do
sCancel = 'S'
end
when ZFName = 'sEnd' then
do
sEnd = 'S'
end
when ZFName = 'sDelete' then
do
sDelete = 'S'
end
when ZFName = 'sInsert' then
do
sInsert = 'S'
end
when ZFName = 'sRepeat' then
do
sRepeat = 'S'
end
when ZFName = 'sLocate' then
do
sLocate = 'S'
end
otherwise
do
return ZVERIFYPROC_RC_NORETURN
end
end /* End of select */
end
svid = rxPDSaveScreen(ZBid)
if rxPDQueryMDT(ZBid,'PUPPCMDS1','sCancel') | sCancel = 'S' then
do
sHelpTitle=CENTER('Cancel all modifications and exit the editor.',60)
akey = rxPDDisplay(zBID,'PUPCANCEL1')
Call rxPDSetCursorFld ZBid, ZPName, 'sCancel'
if akey = ZF3 | akey = ZF4_A then
do
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
end
if rxPDQueryMDT(ZBid,'PUPPCMDS1','sEnd') | sEnd = 'S' then
do
sHelpTitle=CENTER('Save any modifications and exit the editor.',60)
akey = rxPDDisplay(zBID,'PUPEND1')
if akey = ZF3 | akey = ZF4_A then
do
Call rxPDSetCursorFld ZBid, ZPName, 'sCancel'
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
Call rxPDSetCursorFld ZBid, ZPName, 'sEnd'
end
if rxPDQueryMDT(ZBid,'PUPPCMDS1','sDelete') | sDelete = 'S' then
do
sHelpTitle=CENTER('Delete a row.',60)
akey = rxPDDisplay(zBID,'PUPDELETE02')
if akey = ZF3 | akey = ZF4_A then
do
Call rxPDSetCursorFld ZBid, ZPName, 'sCancel'
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
Call rxPDSetCursorFld ZBid, ZPName, 'sDelete'
end
if rxPDQueryMDT(ZBid,'PUPPCMDS1','sInsert') | sInsert = 'S' then
do
sHelpTitle=CENTER('Insert a row.',60)
akey = rxPDDisplay(zBID,'PUPINSERT02')
if akey = ZF3 | akey = ZF4_A then
do
Call rxPDSetCursorFld ZBid, ZPName, 'sCancel'
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
Call rxPDSetCursorFld ZBid, ZPName, 'sInsert'
end
if rxPDQueryMDT(ZBid,'PUPPCMDS1','sRepeat') | sRepeat = 'S' then
do
sHelpTitle=CENTER('Repeat a row.',60)
akey = rxPDDisplay(zBID,'PUPREPEAT02')
if akey = ZF3 | akey = ZF4_A then
do
Call rxPDSetCursorFld ZBid, ZPName, 'sCancel'
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
Call rxPDSetCursorFld ZBid, ZPName, 'sRepeat'
end
if rxPDQueryMDT(ZBid,'PUPPCMDS1','sLocate') | sLocate = 'S' then
do
sHelpTitle=CENTER('Locate a row.',60)
akey = rxPDDisplay(zBID,'PUPLOCATE01')
if akey = ZF3 | akey = ZF4_A then
do
Call rxPDSetCursorFld ZBid, ZPName, 'sCancel'
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
Call rxPDSetCursorFld ZBid, ZPName, 'sLocate'
end
rc = rxPDRestoreScreen(ZBid,svid)
if akey = ZESC then akey = ZENTER
return akey
)END )BLANK FLDS="<Press ESC to end, F3 to quit or ENTER to select topic>"
)PANEL NAME=PUPFKEYS1 XID=(ZESC,ZF3,ZF4_A) AID=(ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)VARS sF1 sF2 sF3 sF4 sF10 sF11 sF4A
)ROW 07 11 FLDS="╔════════════════════════════════════════════════════════════╗"
)ROW 08 11 FLDS="║ %sHelpTitle +║"
)COLORS OUTPUT=REDHI
)ROW 09 11 FLDS="║ %* +- Display PDEDIT help. ║"
)ROW 10 11 FLDS="║ %* +- Split the row at the current cursor position. ║"
)ROW 11 11 FLDS="║ %* +- Insert a row at the current cursor position. ║"
)ROW 12 11 FLDS="║ %* +- Repeat the row at the current cursor position. ║"
)ROW 13 11 FLDS="║ %* +- Scroll left thru the rows. ║"
)ROW 14 11 FLDS="║ %* +- Scroll right thru the rows. ║"
)ROW 15 11 FLDS="║ %* +- Save any modifications and exit PDEDIT. ║"
)ROW 16 11 FLDS="╚════════════════════════════════════════════════════════════╝"
)COLORS TEXT=REDHI
)ROW 15 65 FLDS="<more>"
)COLORS TEXT=RED
)END )BLANK FLDS="<Press ESC to end, F3 to quit or ENTER to see more>"
)PANEL NAME=PUPFKEYS2 XID=(ZESC,ZF3,ZF4_A) AID=(ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)VARS sPGUP sPGDW sENTER
)ROW 07 11 FLDS="╔════════════════════════════════════════════════════════════╗"
)ROW 08 11 FLDS="║ %sHelpTitle +║"
)COLORS OUTPUT=REDHI
)ROW 09 11 FLDS="║ ║"
)ROW 10 11 FLDS="║ %* +- Scroll up thru the rows. ║"
)ROW 11 11 FLDS="║ %* +- Scroll down thru the rows. ║"
)ROW 12 11 FLDS="║ %* +- Update any rows and/or execute a command. ║"
)ROW 13 11 FLDS="║ ║"
)ROW 14 11 FLDS="║ ║"
)ROW 15 11 FLDS="║ ║"
)ROW 16 11 FLDS="╚════════════════════════════════════════════════════════════╝"
)COLORS TEXT=REDHI
)ROW 15 65 FLDS="<more>"
)COLORS TEXT=RED
)END )BLANK FLDS="<Press ESC to end, F3 to quit or ENTER to see more>"
)PANEL NAME=PUPFKEYS3 XID=(ZESC,ZF3,ZF4_A) AID=(ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)VARS sTA sIA sRA sDA sJA sSA
)ROW 07 11 FLDS="╔════════════════════════════════════════════════════════════╗"
)ROW 08 11 FLDS="║ %sHelpTitle +║"
)COLORS OUTPUT=REDHI
)ROW 09 11 FLDS="║ %* +- Split the row at the current cursor position. ║"
)ROW 10 11 FLDS="║ %* +- Insert a row at the current cursor position. ║"
)ROW 11 11 FLDS="║ %* +- Repeat the row at the current cursor position ║"
)ROW 12 11 FLDS="║ %* +- Delete the row at the current cursor position ║"
)ROW 13 11 FLDS="║ %* +- Join the 2 rows at the current cursor position ║"
)ROW 14 11 FLDS="║ %* +- Save any modifications to the file. ║"
)ROW 15 11 FLDS="║ ║"
)ROW 16 11 FLDS="╚════════════════════════════════════════════════════════════╝"
)REM )COLORS TEXT=REDHI
)REM )ROW 15 65 FLDS="<more>"
)COLORS TEXT=RED
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"
)PANEL NAME=PUPCANCEL1 XID=(ZESC,ZF4_A,ZF3,ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 09 16 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 10 16 FLDS="║ %sHelpTitle +║"
)ROW 11 16 FLDS="║ You can cancel any modifications you have made to the file║"
)ROW 12 16 FLDS="║ and exit the PDS Editor with the 'CANCEL' command. ║"
)ROW 13 16 FLDS="║ ║"
)ROW 14 16 FLDS="║ The command can be abbreviated to 'CAN'. ║"
)ROW 15 16 FLDS="║ ║"
)ROW 16 16 FLDS="║ ║"
)ROW 17 16 FLDS="║ ║"
)ROW 18 16 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"
)PANEL NAME=PUPEND1 XID=(ZESC,ZF4_A,ZF3,ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 09 16 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 10 16 FLDS="║ %sHelpTitle +║"
)ROW 11 16 FLDS="║ You save any modifications you have made to the file and ║"
)ROW 12 16 FLDS="║ exit the PDS Editor with the 'END' command. ║"
)ROW 13 16 FLDS="║ ║"
)ROW 14 16 FLDS="║ There isn't any abbreviation for the 'END' command. ║"
)ROW 15 16 FLDS="║ ║"
)ROW 16 16 FLDS="║ ║"
)ROW 17 16 FLDS="║ ║"
)ROW 18 16 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"
)PANEL NAME=PUPROWS01 XID=(ZESC,ZF3,ZF4_A) AID=(ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)VARS sPage sEdit sDelete sInsert sRepeat
)ROW 07 11 FLDS="╔════════════════════════════════════════════════════════════╗"
)ROW 08 11 FLDS="║ %sHelpTitle +║"
)ROW 09 11 FLDS="║ Select one or more of the following topics: ║"
)ROW 10 11 FLDS="║ _+Scrolling the rows by cursor position. ║"
)ROW 11 11 FLDS="║ _+Modify the data in a row. ║"
)ROW 12 11 FLDS="║ _+Delete a row. ║"
)ROW 13 11 FLDS="║ _+Insert a row. ║"
)ROW 14 11 FLDS="║ _+Repeat a row. ║"
)ROW 15 11 FLDS="║ ║"
)ROW 16 11 FLDS="╚════════════════════════════════════════════════════════════╝"
)PROC
Call rxPDZVarDefine 'ZENTER', 'ZESC', 'ZF4_A', 'ZF3'
/* The following defines the possible return codes */
Call rxPDZVarDefine 'ZVERIFYPROC_RC_NORETURN'
if sPage||sEdit||sDelete||sInsert||sRepeat = '_____' then
do
select
when ZFName = 'sPage' then
do
sPage = 'S'
end
when ZFName = 'sEdit' then
do
sEdit = 'S'
end
when ZFName = 'sDelete' then
do
sDelete = 'S'
end
when ZFName = 'sInsert' then
do
sInsert = 'S'
end
when ZFName = 'sRepeat' then
do
sRepeat = 'S'
end
otherwise
do
return ZVERIFYPROC_RC_NORETURN
end
end /* End of select */
end
svid = rxPDSaveScreen(ZBid)
if sPage <> '_' then
do
sHelpTitle=CENTER('Scrolling the rows by cursor positioning.',60)
akey = rxPDDisplay(zBID,'PUPPAGE01')
Call rxPDSetCursorFld ZBid, ZPName, 'sPage'
if akey = ZF3 | akey = ZF4_A then
do
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
end
if sEdit <> '_' then
do
sHelpTitle=CENTER('Edit a row.',60)
akey = rxPDDisplay(zBID,'PUPEDIT01')
if akey = ZF3 | akey = ZF4_A then
do
Call rxPDSetCursorFld ZBid, ZPName, 'sPage'
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
Call rxPDSetCursorFld ZBid, ZPName, 'sEdit'
end
if sDelete <> '_' then
do
sHelpTitle=CENTER('Delete a row.',60)
akey = rxPDDisplay(zBID,'PUPDELETE01')
if akey = ZF3 | akey = ZF4_A then
do
Call rxPDSetCursorFld ZBid, ZPName, 'sPage'
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
Call rxPDSetCursorFld ZBid, ZPName, 'sDelete'
end
if sInsert <> '_' then
do
sHelpTitle=CENTER('Insert a row.',60)
akey = rxPDDisplay(zBID,'PUPINSERT01')
if akey = ZF3 | akey = ZF4_A then
do
Call rxPDSetCursorFld ZBid, ZPName, 'sPage'
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
Call rxPDSetCursorFld ZBid, ZPName, 'sInsert'
end
if sRepeat <> '_' then
do
sHelpTitle=CENTER('Repeat a row.',60)
akey = rxPDDisplay(zBID,'PUPREPEAT01')
if akey = ZF3 | akey = ZF4_A then
do
Call rxPDSetCursorFld ZBid, ZPName, 'sPage'
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
Call rxPDSetCursorFld ZBid, ZPName, 'sRepeat'
end
rc = rxPDRestoreScreen(ZBid,svid)
if akey = ZESC then akey = ZENTER
return akey
)END )BLANK FLDS="<Press ESC to end, F3 to quit or ENTER to select topic>"
)PANEL NAME=PUPPAGE01 XID=(ZESC,ZF4_A,ZF3,ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 09 16 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 10 16 FLDS="║ %sHelpTitle +║"
)ROW 11 16 FLDS="║ You can scroll a currently displayed record to the top or ║"
)ROW 12 16 FLDS="║ bottom of the display by positioning the cursor on the ║"
)ROW 13 16 FLDS="║ desired record and pressing either 'PAGEDOWN' or 'PAGEUP' ║"
)ROW 14 16 FLDS="║ to scroll the display. You can also scroll left or right ║"
)ROW 15 16 FLDS="║ to a specific position in the record by pressing 'F10' ║"
)ROW 16 16 FLDS="║ to scroll left or 'F11' to scroll right. ║"
)ROW 17 16 FLDS="║ ║"
)ROW 18 16 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"
)PANEL NAME=PUPEDIT01 XID=(ZESC,ZF4_A,ZF3,ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 09 16 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 10 16 FLDS="║ %sHelpTitle +║"
)ROW 11 16 FLDS="║ You can modify a record by simply typing over the data in ║"
)ROW 12 16 FLDS="║ that record and then press 'ENTER' to update the record. ║"
)ROW 13 16 FLDS="║ Note, the file being edited is not updated when 'ENTER' ║"
)ROW 14 16 FLDS="║ is pressed. Modified records are not written to the file ║"
)ROW 15 16 FLDS="║ until the file is closed or saved. ║"
)ROW 16 16 FLDS="║ ║"
)ROW 17 16 FLDS="║ ║"
)ROW 18 16 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"
)PANEL NAME=PUPDELETE01 XID=(ZESC,ZF4_A,ZF3,ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 09 16 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 10 16 FLDS="║ %sHelpTitle +║"
)ROW 11 16 FLDS="║ You can delete a row by pressing the 'ALT' and 'D' keys ║"
)ROW 12 16 FLDS="║ at the same time. When these keys are pressed, the row ║"
)ROW 13 16 FLDS="║ will be deleted from the database. Note, this action is ║"
)ROW 14 16 FLDS="║ immediate and final. No 'Verification' panel is displayed ║"
)ROW 15 16 FLDS="║ where you might change your mind. ║"
)ROW 16 16 FLDS="║ ║"
)ROW 17 16 FLDS="║ ║"
)ROW 18 16 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"
)PANEL NAME=PUPDELETE02 XID=(ZESC,ZF4_A,ZF3,ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 09 16 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 10 16 FLDS="║ %sHelpTitle +║"
)ROW 11 16 FLDS="║ You can delete one row by entering the 'D' command. You ║"
)ROW 12 16 FLDS="║ can delete multiple rows with the 'D num' command. Which ║"
)ROW 13 16 FLDS="║ rows are deleted depends upon the cursor position. If the ║"
)ROW 14 16 FLDS="║ cursor is on the command line then the action is taken on ║"
)ROW 15 16 FLDS="║ the row at the top of the display. If the cursor is in the║"
)ROW 16 16 FLDS="║ body of the display, then the action affects that row. ║"
)ROW 17 16 FLDS="║ ║"
)ROW 18 16 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"
)PANEL NAME=PUPINSERT01 XID=(ZESC,ZF4_A,ZF3,ZENTER) ATTR=`%+
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 09 16 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 10 16 FLDS="║ %sHelpTitle +║"
)ROW 11 16 FLDS="║ You can insert a blank record by pressing the 'ALT' and ║"
)ROW 12 16 FLDS="║ 'I' keys at the same time. When pressed, a blank row will ║"
)ROW 13 16 FLDS="║ be inserted after the record where the cursor was when the║"
)ROW 14 16 FLDS="║ 'ALT_I' was pressed. ║"
)ROW 15 16 FLDS="║ ║"
)ROW 16 16 FLDS="║ ║"
)ROW 17 16 FLDS="║ ║"
)ROW 18 16 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"
)PANEL NAME=PUPINSERT02 XID=(ZESC,ZF4_A,ZF3,ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 09 16 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 10 16 FLDS="║ %sHelpTitle +║"
)ROW 11 16 FLDS="║ You can insert one row by entering the 'I' command. You ║"
)ROW 12 16 FLDS="║ can insert multiple rows with the 'I num' command. Which ║"
)ROW 13 16 FLDS="║ rows are inserted depends upon the cursor position. If the║"
)ROW 14 16 FLDS="║ cursor is on the command line then the action is taken on ║"
)ROW 15 16 FLDS="║ the row at the top of the display. If the cursor is in the║"
)ROW 16 16 FLDS="║ body of the display, then the action affects that row. ║"
)ROW 17 16 FLDS="║ ║"
)ROW 18 16 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"
)PANEL NAME=PUPREPEAT01 XID=(ZESC,ZF4_A,ZF3,ZENTER) ATTR=`%+
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 09 16 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 10 16 FLDS="║ %sHelpTitle +║"
)ROW 11 16 FLDS="║ You can repeat a record by pressing the 'ALT' and 'R' keys║"
)ROW 12 16 FLDS="║ at the same time. When these keys are pressed, a the row ║"
)ROW 13 16 FLDS="║ where the cursor is position is repeated at that position.║"
)ROW 14 16 FLDS="║ ║"
)ROW 15 16 FLDS="║ ║"
)ROW 16 16 FLDS="║ ║"
)ROW 17 16 FLDS="║ ║"
)ROW 18 16 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"
)PANEL NAME=PUPREPEAT02 XID=(ZESC,ZF4_A,ZF3,ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 09 16 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 10 16 FLDS="║ %sHelpTitle +║"
)ROW 11 16 FLDS="║ You can repeat one row by entering the 'R' command. You ║"
)ROW 12 16 FLDS="║ can repeat multiple rows with the 'R num' command. Which ║"
)ROW 13 16 FLDS="║ rows are repeated depends upon the cursor position. If the║"
)ROW 14 16 FLDS="║ cursor is on the command line then the action is taken on ║"
)ROW 15 16 FLDS="║ the row at the top of the display. If the cursor is in the║"
)ROW 16 16 FLDS="║ body of the display, then the action affects that row. ║"
)ROW 17 16 FLDS="║ ║"
)ROW 18 16 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"
)PANEL NAME=PUPLOCATE01 XID=(ZESC,ZF4_A,ZF3,ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 09 16 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 10 16 FLDS="║ %sHelpTitle +║"
)ROW 11 16 FLDS="║ You can locate a row in the file with the 'L num' command.║"
)ROW 12 16 FLDS="║ This command will scroll the display placing that row at ║"
)ROW 13 16 FLDS="║ the top of the display. ║"
)ROW 14 16 FLDS="║ ║"
)ROW 15 16 FLDS="║ If the row number requested is outside the bounds of the ║"
)ROW 16 16 FLDS="║ file, then the 'BOTTOM' row is scrolled to the top of the ║"
)ROW 17 16 FLDS="║ display. ║"
)ROW 18 16 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"