**************************************************************************
      * 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
Topic revision: r1 - 18 Jun 2005 - 20:29:42 - MartinRowe
 
This site is powered by FoswikiCopyright © 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