**************************************************************************
      * 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
Topic revision: r1 - 18 Jun 2005 - 20:24:12 - 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