You are here: DBG/400>DBG400 Web>SourceCodeList>DdsSource>DspfDBG020DF0 (18 Jun 2005, MartinRowe)EditAttach
**************************************************************************
* 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
-- MartinRowe - 18 Jun 2005 Edit | Attach | Print version | History: r1 | Backlinks | View wiki text | Edit wiki text | More topic actions
Topic revision: r1 - 18 Jun 2005 - 20:26:20 - MartinRowe
Site Map
DBG400
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