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