You are here:
DBG/400
>
DBG400 Web
>
SourceCodeList
>
DdsSource
>
DspfDBG020DF0
(18 Jun 2005,
MartinRowe
)
(raw view)
E
dit
A
ttach
<verbatim> ************************************************************************** * DBG020DF: Screen for edit text utility * Copyright (C) 2000 Martin Rowe <martin@dbg400.net> * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ************************************************************************** A*%%TS SD 19980706 165631 MROWE REL-V3R7M0 5716-PW1 A*%%EC A DSPSIZ(24 80 *DS3) A PRINT(29) A ALTHELP A HELP A R SFL SFL A*%%TS SD 19960625 095743 MROWE REL-V3R1M0 5763-PW1 A CHGINPDFT A TXTATR 1A P A TXTSEQ 5Y 0H A TXTDTA 79A B 4 2CHECK(LC) A DSPATR(&TXTATR) A R SFLCTL SFLCTL(SFL) A*%%TS SD 19961202 120937 MROWE REL-V3R1M0 5763-PW1 A CF02(02 'Syntax check/prompt') A CF03(03 'Exit') A CF04(04 'Split line') A CF05(05 'Move line') A CF06(06 'Insert line') A CF07(07 'Copy line') A CF08(08 'Remove line') A CF09(09 'Overlay line') A CF10(10 'Attributes') A CF11(11 'Word wrap') A CF12(12 'Previous') A CF14(14 'Find options') A CF16(16 'Find') A ROLLUP(60 'ROLLUP') A KEEP A RTNCSRLOC(*WINDOW &CSRLIN &CSRCOL) A CSRLOC(LINE COL) A OVERLAY A SFLCSRRRN(&RELRCD) A 36 SFLDSP A SFLDSPCTL A N36 SFLCLR A SFLSIZ(0019) A SFLPAG(0018) A SFPAGE 4S 0H SFLRCDNBR A LINE 3S 0H A COL 3S 0H A CSRLIN 3S 0H A CSRCOL 3S 0H A RELRCD 5S 0H A COMPNY 40A O 1 2DSPATR(RI) A COLOR(BLU) A 1 43USER A DSPATR(RI) A COLOR(BLU) A 1 54SYSNAME A DSPATR(RI) A COLOR(BLU) A 1 63DATE A EDTCDE(Y) A DSPATR(RI) A COLOR(BLU) A 1 72' DBG020R4' A DSPATR(RI) A COLOR(BLU) A 2 2' ' A DSPATR(RI) A COLOR(BLU) A 2 4'Edit document' A DSPATR(HI) A P#DOCD 10A O 2 18 A P#TITL 50A O 2 29 A 2 80' ' A DSPATR(RI) A COLOR(BLU) A 3 2' - A - A ' A DSPATR(RI) A COLOR(BLU) A* A R FOOTER A*%%TS SD 19980706 165631 MROWE REL-V3R7M0 5716-PW1 A OVERLAY A HLPTITLE('Edit Document Text') A H HLPPNLGRP(EDITTXT DBG020PG) A HLPARA(01 002 24 080) A 22 2'F1=Help' A COLOR(BLU) A 22 11'F3=Exit' A COLOR(BLU) A 22 20'F4=Split' A COLOR(BLU) A 22 30'F5=Move' A COLOR(BLU) A 22 39'F6=Insert' A COLOR(BLU) A 22 50'F7=Copy' A COLOR(BLU) A 22 59'F8=Remove' A COLOR(BLU) A 22 70'F9=Overlay' A COLOR(BLU) A 23 2'F10=Attributes' A COLOR(BLU) A 23 18'F11=Word wrap' A COLOR(BLU) A 23 33'F12=Previous' A COLOR(BLU) A 23 47'F14=Find options' A COLOR(BLU) A 23 65'F16=Find' A COLOR(BLU) A 23 75'Print' A COLOR(BLU) A R WINDOW1 A*%%TS SD 19970630 143632 MROWE REL-V3R7M0 5716-PW1 A WINDOW(*DFT 9 46) A CF12(12 'Previous') A HLPTITLE('Attributes') A H HLPPNLGRP(ATTRIBS DBG020PG) A HLPARA(01 001 07 035) A 1 1'Select attributes for text' A DSPATR(HI) A 2 1'Starting at:' A STRIND 1A B 2 14 A 2 18'Ending at:' A ENDIND 1A B 2 29 A 3 1'1.' A ATR001 2A O 3 4 A 3 8'5.' A ATR005 2A O 3 11 A 3 16'9.' A ATR009 2A O 3 19 A 3 23'13.' A ATR013 2A O 3 27 A 3 31'17.' A ATR017 2A O 3 35 A 3 39'21.' A ATR021 2A O 3 43 A 4 1'2.' A ATR002 2A O 4 4 A 4 8'6.' A ATR006 2A O 4 11 A 4 15'10.' A ATR010 2A O 4 19 A 4 23'14.' A ATR014 2A O 4 27 A 4 31'18.' A ATR018 2A O 4 35 A 4 39'22.' A ATR022 2A O 4 43 A 5 1'3.' A ATR003 2A O 5 4 A 5 8'7.' A ATR007 2A O 5 11 A 5 15'11.' A ATR011 2A O 5 19 A 5 23'15.' A ATR015 2A O 5 27 A 5 31'19.' A ATR019 2A O 5 35 A 5 39'23.' A ATR023 2A O 5 43 A 6 1'4.' A ATR004 2A O 6 4 A 6 8'8.' A ATR008 2A O 6 11 A 6 15'12.' A ATR012 2A O 6 19 A 6 23'16.' A ATR016 2A O 6 27 A 6 31'20.' A ATR020 2A O 6 35 A 6 39'24.' A ATR024 2A O 6 43 A 7 1'Option:' A DSPATR(HI) A OPTION 2Y 0B 7 9RANGE(0 24) A DSPATR(PC) A CHECK(ER) A EDTCDE(Z) A DSPATR(HI) A 7 13'Note: 14-24 blink (Mono screens)' A 8 1'F1=Help F12=Previous Enter=Updat- A e' A COLOR(BLU) A R WINDOW2 A*%%TS SD 19961202 120937 MROWE REL-V3R1M0 5763-PW1 A CF12(12 'Previous') A WINDOW(10 15 3 50) A 1 1'Save changes to document:' A DSPATR(HI) A P#DOCD 10A O 1 27 A #SSAVE 1A B 1 38VALUES('Y' 'N' ' ') A CHECK(ER) A 1 40'Y=Yes, N=No' A DSPATR(HI) A 2 1'F12=Previous Enter=Continue' A COLOR(BLU) A R WINDOW3 A*%%TS SD 19980706 144222 MROWE REL-V3R7M0 5716-PW1 A CF12(12 'Previous') A CF16(16 'Find') A WINDOW(10 15 4 45) A HLPTITLE('View Document Text') A H HLPPNLGRP(FKEY14 DBG020PG) A HLPARA(01 002 4 045) A 1 1'Find string:' A DSPATR(HI) A FINDSTRING 25 B 1 14CHECK(LC) A 2 1'Type of match:' A DSPATR(HI) A MATCHTYPE 1 B 2 16VALUES('1' '2') A 2 18'(1=Same case, 2=Ignore case)' A COLOR(BLU) A 3 1'F1=Help' A COLOR(BLU) A 3 11'F3=Exit' A COLOR(BLU) A 3 21'F12=Previous' A COLOR(BLU) A 3 36'Enter=Find' A COLOR(BLU) * A R MSFL SFL A SFLMSGRCD(24) A MSGKEY SFLMSGKEY A PGM SFLPGMQ * A R MSFLC SFLCTL(MSFL) A LOCK A OVERLAY A SFLDSP SFLDSPCTL SFLINZ A 26 AON26 SFLEND A SFLSIZ(0002) A SFLPAG(0001) A PGM SFLPGMQ </verbatim> -- Main.MartinRowe - 18 Jun 2005
E
dit
|
A
ttach
|
P
rint version
|
H
istory
: r1
|
B
acklinks
|
V
iew topic
|
Edit
w
iki text
|
M
ore topic actions
Topic revision: r1 - 18 Jun 2005 - 20:26:20 -
MartinRowe
DBG400
Log In
DBG400 Web
Index
Search
Changes
Notifications
Statistics
Site Map
Downloads
Webs
DBG400
Jamaro
Main
Sandbox
Sandtub
System
Send a link to this page
Copyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding DBG/400?
Send feedback