You are here:
DBG/400
>
DBG400 Web
>
SourceCodeList
>
DdsSource
>
DspfDBG105DF0
(18 Jun 2005,
MartinRowe
)
(raw view)
E
dit
A
ttach
<verbatim> ************************************************************************** * DBG100DF: Maintain database generation links * 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 20000607 143255 MROWE REL-V4R4M0 5769-PW1 A*%%EC A DSPSIZ(24 80 *DS3) A PRINT A ALTHELP A HELP(01) A R SFL1 SFL A*%%TS SD 19981222 172147 MROWE REL-V3R7M0 5716-PW1 A H#SQLR 300A H A #SEL 1A B 6 3VALUES('1' '2' '3' '4' '5' ' ') A S#TGTF 10A O 6 5 A S#SRCF 10A O 6 16 A S#TEXT 50A O 6 31 A S#SEQN 2Y 0O 6 27 A R SFLCTL1 SFLCTL(SFL1) A*%%TS SD 19981223 091020 MROWE REL-V3R7M0 5716-PW1 A SFLSIZ(0016) A SFLPAG(0016) A CA03(03 'End') A CF06(06 'Add link') A CF12(12 'Previous') A ROLLUP(27 'ROLLUP') A ROLLDOWN(28 'ROLLDOWN') A BLINK A OVERLAY A N36 ERASE(SFL1) A 36 SFLDSP A SFLDSPCTL A N36 SFLCLR A 35 SFLEND(*MORE) 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' DBG100R4' A DSPATR(RI) A 2 2' ' A DSPATR(RI) A 2 5'Maintain Database Generation Links' A DSPATR(HI) A 2 80' ' A DSPATR(RI) A 3 2' - A - A ' A DSPATR(RI) A 4 2'Position to Link:' A POSSRC 10A B 4 20 A 4 32'Options: 1=Select 2=Change 3=Copy - A 4=Delete 5=View' A COLOR(BLU) A 5 2'Op' A DSPATR(HI) A 5 5'Target' A DSPATR(HI) A 5 16'Control' A DSPATR(HI) A 5 27'Seq' A DSPATR(HI) A 5 31'Text' A DSPATR(HI) A R FOOTER1 A*%%TS SD 19940420 132051 MROWE REL-V2R3M0 5738-PW1 A OVERLAY A 23 2'F1=Help' A COLOR(BLU) A 23 12'F3=Exit' A COLOR(BLU) A 23 22'F6=Add link' A COLOR(BLU) A 23 36'F12=Previous' A COLOR(BLU) A* A R WINDOW1 A*%%TS SD 20000607 142623 MROWE REL-V4R4M0 5769-PW1 A CF05(05 'Refresh') A CF07(07 'Target fields') A CF08(08 'Control fields') A CF12(12 'Previous') A RTNCSRLOC(*WINDOW &DUMMY1 &DUMMY2 - A &CSRROW &CSRCOL) A CSRLOC(CSRROW CSRCOL) A OVERLAY A WINDOW(*DFT 13 51) A CSRROW 3S 0H A CSRCOL 3S 0H A DUMMY1 3S 0H A DUMMY2 3S 0H A 1 18'Add Link' A DSPATR(HI) A DSPATR(UL) A 2 1'Target:' A DSPATR(HI) A W#TGTF 10A B 2 9 A 2 21'Control:' A DSPATR(HI) A W#SRCF 10A B 2 30 A 2 42'Seq #:' A DSPATR(HI) A W#SEQN 2Y 0O 2 49 A W#TEXT 50A B 3 1CHECK(LC) A 4 1'SQL request:' A DSPATR(HI) A W#SQLR 300A B 5 1CNTFLD(050) A 11 1'F1=Help' A COLOR(BLU) A 11 11'F5=Refresh' A COLOR(BLU) A 11 24'F7=Target fields' A COLOR(BLU) A 12 1'F8=Control fields' A COLOR(BLU) A 12 24'F12=Previous' A COLOR(BLU) A R WINDOW2 A*%%TS SD 19981229 100640 MROWE REL-V3R7M0 5716-PW1 A WINDOW(*DFT 13 51) A OVERLAY A CF05(05 'Refresh') A CF07(07 'Target fields') A CF08(08 'Control fields') A CF12(12 'Previous') A RTNCSRLOC(*WINDOW &DUMMY1 &DUMMY2 - A &CSRROW &CSRCOL) A CSRLOC(CSRROW CSRCOL) A CSRROW 3S 0H A CSRCOL 3S 0H A DUMMY1 3S 0H A DUMMY2 3S 0H A 1 18'Change Link' A DSPATR(HI) A DSPATR(UL) A 2 1'Target:' A DSPATR(HI) A W#TGTF 10A O 2 9 A 2 21'Control:' A DSPATR(HI) A W#SRCF 10A O 2 30 A 2 42'Seq #:' A DSPATR(HI) A W#SEQN 2Y 0O 2 49 A W#TEXT 50A B 3 1CHECK(LC) A 4 1'SQL request:' A DSPATR(HI) A W#SQLR 300A B 5 1CNTFLD(050) A 11 1'F1=Help' A COLOR(BLU) A 11 11'F5=Refresh' A COLOR(BLU) A 11 24'F7=Target fields' A COLOR(BLU) A 12 1'F8=Control fields' A COLOR(BLU) A 12 24'F12=Previous' A COLOR(BLU) A* A R WINDOW3 A*%%TS SD 19981229 100640 MROWE REL-V3R7M0 5716-PW1 A WINDOW(*DFT 13 51) A OVERLAY A CF12(12 'Previous') A W#TITLE 12A O 1 18DSPATR(UL) A DSPATR(HI) A 2 1'Target:' A DSPATR(HI) A W#TGTF 10A O 2 9 A 2 21'Control:' A DSPATR(HI) A W#SRCF 10A O 2 30 A 2 42'Seq #:' A DSPATR(HI) A W#SEQN 2Y 0O 2 49 A W#TEXT 50A O 3 1 A 4 1'SQL request:' A DSPATR(HI) A W#SQLR 300A B 5 1CNTFLD(050) A DSPATR(PR) A 12 1'F1=Help' A COLOR(BLU) A 12 24'F12=Previous' A COLOR(BLU) * A R MSFL SFL A SFLMSGRCD(24) A MSGKEY SFLMSGKEY A SDS#PGM SFLPGMQ * >=======< must match field name in SDS of RPG pgm A R MSFLC SFLCTL(MSFL) A LOCK A OVERLAY A SFLDSP SFLDSPCTL SFLINZ A 26 AON26 SFLEND A SFLSIZ(0002) A SFLPAG(0001) A SDS#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:30:34 -
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