You are here:
DBG/400
>
DBG400 Web
>
SourceCodeList
>
DdsSource
>
DspfDBG005DF0
(18 Jun 2005,
MartinRowe
)
(raw view)
E
dit
A
ttach
<verbatim> ************************************************************************** * DBG005DF: Work with on-line documents * 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 19971107 151145 MROWE REL-V3R7M0 5716-PW1 A*%%EC A DSPSIZ(24 80 *DS3) A PRINT A ALTHELP A HELP(01) A R SFL SFL A*%%TS SD 19970627 091941 MROWE REL-V3R7M0 5716-PW1 A #SCDTE 8S 0H A #SCUSR 10A H A #SAUSR 10A H A #SLOCK 1A H A #SHEAD 1A H A #SHTX1 79A H A #SHTX2 79A H A #SHTX3 79A H A #SHTX4 79A H A #SHTX5 79A H A #SHTX6 79A H A #SFTX1 79A H A #SFTX2 79A H A #SFTX3 79A H A #SADD1 10A H A #SADD2 10A H A #SADD3 10A H A #SEL1 1A B 6 3VALUES('2' '3' '4' '5' '6' '7' '8' - A ' ') A #SDOCD 10A O 6 7 A #SDOCH 50A O 6 19 A #SADTE 8Y 0O 6 71EDTWRD(' / / ') A R SFLCTL SFLCTL(SFL) A*%%TS SD 19970627 091941 MROWE REL-V3R7M0 5716-PW1 A CHGINPDFT A SFLSIZ(0016) A SFLPAG(0016) A CA03(03 'End') A CF12(12 'Previous') A CF17(17 'Subset') A ROLLUP(27 'ROLLUP') A ROLLDOWN(28 'ROLLDOWN') A RTNCSRLOC(*WINDOW &CSRLIN &CSRCOL) A 01 CSRLOC(CSRLIN CSRCOL) A OVERLAY A PUTOVR A N01 OVRDTA A SFLCSRRRN(&RELRCD) A 36 SFLDSP A SFLDSPCTL A N36 SFLCLR A 35 SFLEND(*MORE) A N36 ERASE(SFL) A CSRLIN 3S 0H A CSRCOL 3S 0H A RELRCD 5S 0H A COMPNY 40A O 1 2DSPATR(RI) A 1 43USER A DSPATR(RI) A 1 54SYSNAME A DSPATR(RI) A 1 63DATE A EDTCDE(Y) A DSPATR(RI) A 1 72' DBG005R4' A DSPATR(RI) A 2 2' ' A DSPATR(RI) A 2 4'Work with documents in:' A DSPATR(HI) A #SDFIL 21A O 2 28DSPATR(HI) A SUBTXT 14A O 2 65DSPATR(HI) A 2 80' ' A DSPATR(RI) A 3 2'Position to document:' A DSPATR(RI) A #PDOCD 10A B 3 24DSPATR(UL) A DSPATR(RI) A DUMMYF 46A B 3 35DSPATR(PR) A DSPATR(RI) A 4 2'Opt' A DSPATR(HI) A 4 7'Document' A DSPATR(HI) A 4 19'Title' A DSPATR(HI) A 4 26'Options:' A COLOR(BLU) A N50 4 35'1=Add' A COLOR(BLU) A N50 4 42'2=Edit' A COLOR(BLU) A N50 4 51'3=Copy' A COLOR(BLU) A N50 4 61'4=Delete' A COLOR(BLU) A 4 71'Date' A DSPATR(HI) A N50 #CTL01 1A B 5 3DSPATR(UL) A VALUES('1' ' ') A N50 NEWDOC 10A B 5 7DSPATR(UL) A 5 31'5=Display' A COLOR(BLU) A 5 42'6=Print' A COLOR(BLU) A N50 5 51'7=Rename' A COLOR(BLU) A 5 61'8=Details' A COLOR(BLU) A R FOOTER1 OVERLAY A*%%TS SD 19940520 113205 MROWE REL-V2R3M0 5738-PW1 A 23 2'F1=Help' A COLOR(BLU) A 23 12'F3=Exit' A COLOR(BLU) A 23 22'F12=Previous' A COLOR(BLU) A 23 37'F17=Subset' A COLOR(BLU) A R FOOTER2 OVERLAY A*%%TS SD 19940520 113205 MROWE REL-V2R3M0 5738-PW1 A 23 2'F1=Help' A COLOR(BLU) A 23 12'F3=Exit' A COLOR(BLU) A 23 22'F12=Previous' A COLOR(BLU) A R WINDOW1 A*%%TS SD 19961107 123955 MROWE REL-V3R1M0 5763-PW1 A CF12(12 'Previous') A OVERLAY A WINDOW(*DFT 4 29) A PUTOVR A N01 OVRDTA A 01 CSRLOC(CSRLNW CSRCLW) A RTNCSRLOC(*WINDOW &CSRLN1 &CSRCL1 &- A CSRLNW &CSRCLW) A CSRLN1 3S 0H A CSRCL1 3S 0H A CSRLNW 3S 0H A CSRCLW 3S 0H A 1 1'Copy' A #SDOCD 10 O 1 6 A 1 17'to' A CPYDOC 10 B 1 20 A 2 1'F1=Help F12=Previous' A COLOR(BLU) A R WINDOW2 A*%%TS SD 19961107 132545 MROWE REL-V3R1M0 5763-PW1 A CF12(12 'Previous') A RTNCSRLOC(*WINDOW &CSRLN2 &CSRCL2 &- A CSRLNW &CSRCLW) A 01 CSRLOC(CSRLNW CSRCLW) A OVERLAY A PUTOVR A N01 OVRDTA A WINDOW(*DFT 4 30) A CSRLN2 3S 0H A CSRCL2 3S 0H A CSRLNW 3S 0H A CSRCLW 3S 0H A 1 1'Confirm delete of' A #SDOCD 10A O 1 19 A #SDLTF 1A B 1 30VALUES('Y' 'N') CHECK(ER) A 2 1'F1=Help F12=Previous' A COLOR(BLU) A R WINDOW3 A*%%TS SD 19961107 132545 MROWE REL-V3R1M0 5763-PW1 A CF12(12 'Previous') A RTNCSRLOC(*WINDOW &CSRLN3 &CSRCL3 &- A CSRLNW &CSRCLW) A 01 CSRLOC(CSRLNW CSRCLW) A OVERLAY A PUTOVR A N01 OVRDTA A WINDOW(*DFT 4 22) A CSRLN3 3S 0H A CSRCL3 3S 0H A CSRLNW 3S 0H A CSRCLW 3S 0H A 1 1'Rename to' A RNMDOC 10A B 1 11 A 2 1'F1=Help F12=Previous' A COLOR(BLU) A* A R SCREEN1 A*%%TS SD 19970627 113629 MROWE REL-V3R7M0 5716-PW1 A CHGINPDFT A OVERLAY A CA03(03 'End') A CF12(12 'Previous') A RTNCSRLOC(*WINDOW &CSRLIN &CSRCOL) A 01 CSRLOC(CSRLIN CSRCOL) A PUTOVR A N01 OVRDTA A CSRLIN 3S 0H A CSRCOL 3S 0H A COMPNY 40A O 1 2DSPATR(RI) A 1 43USER A DSPATR(RI) A 1 54SYSNAME A DSPATR(RI) A 1 63DATE A EDTCDE(Y) A DSPATR(RI) A 1 72' DBG005R4' A DSPATR(RI) A 2 2' ' A DSPATR(RI) A 2 4'Document:' A DSPATR(HI) A #SDOCD 10A O 2 14 A #WDOCH 50A B 2 26CHECK(LC) A 50 AO 51 DSPATR(PR) A N50N51 DSPATR(UL) A 2 80' ' A DSPATR(RI) A 3 2' - A - A ' A DSPATR(RI) A 4 2'Created by:' A DSPATR(HI) A #SCUSR 10A O 4 14 A 4 25'on' A DSPATR(HI) A #SCDTE 8Y 0O 4 28EDTWRD(' / / ') A 4 39'Last amended by:' A DSPATR(HI) A #SAUSR 10A O 4 56 A 4 67'on' A DSPATR(HI) A #SADTE 8Y 0O 4 70EDTWRD(' / / ') A 5 2'User defined header/footer on prin- A tout?' A DSPATR(HI) A #WHEAD 1A B 5 42VALUES('Y' 'N') A 50 AO 51 DSPATR(PR) A N50N51 DSPATR(UL) A 5 44'(Y/N)' A 6 2'First page header:' A DSPATR(HI) A #SHTX1 79A B 7 2CHECK(LC) A 50 AO 51 DSPATR(PR) A #SHTX2 79A B 8 2CHECK(LC) A 50 AO 51 DSPATR(PR) A #SHTX3 79A B 9 2CHECK(LC) A 50 AO 51 DSPATR(PR) A 10 2'Continuation header:' A DSPATR(HI) A #SHTX4 79A B 11 2CHECK(LC) A 50 AO 51 DSPATR(PR) A #SHTX5 79A B 12 2CHECK(LC) A 50 AO 51 DSPATR(PR) A #SHTX6 79A B 13 2CHECK(LC) A 50 AO 51 DSPATR(PR) A 14 2'First page footer:' A DSPATR(HI) A #SFTX1 79A B 15 2CHECK(LC) A 50 AO 51 DSPATR(PR) A 16 2'Continuation footer:' A DSPATR(HI) A #SFTX2 79A B 17 2CHECK(LC) A 50 AO 51 DSPATR(PR) A 18 2'Final page footer:' A DSPATR(HI) A #SFTX3 79A B 19 2CHECK(LC) A 50 AO 51 DSPATR(PR) A 21 3'Print attributes: use' A 21 25'{ } for bold,' A DSPATR(HI) A 21 39'[ ] for underline' A DSPATR(UL) A 21 57'and' A 21 62'< > for both' A DSPATR(HI) A DSPATR(UL) A R WINDOW4 A*%%TS SD 19971107 151145 MROWE REL-V3R7M0 5716-PW1 A CF12(12 'Previous') A RTNCSRLOC(*WINDOW &CSRLN4 &CSRCL4 &- A CSRLNW &CSRCLW) A 01 CSRLOC(CSRLNW CSRCLW) A OVERLAY A PUTOVR A N01 OVRDTA A WINDOW(*DFT 4 44) A CSRLN4 3S 0H A CSRCL4 3S 0H A CSRLNW 3S 0H A CSRCLW 3S 0H A 1 1'Keyword(s):' A DSPATR(HI) A KWORD1 10A B 1 13 A KWORD2 10A B 1 24 A KWORD3 10A B 1 35 A 2 1'F1=Help F12=Previous' A COLOR(BLU) A* A R MSFL SFL A SFLMSGRCD(24) A MSGKEY SFLMSGKEY A PGM SFLPGMQ A* 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:24:12 -
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