You are here: DBG/400>DBG400 Web>SourceCodeList>DdsSource>DspfDBG005DF0 (18 Jun 2005, MartinRowe)EditAttach
**************************************************************************
* 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
-- 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:24:12 - 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