You are here: DBG/400>DBG400 Web>SourceCodeList>DdsSource>DspfDBG186DF0 (01 Oct 2014, UnknownUser)EditAttach
**************************************************************************
* DBG186DF: Work with User Output queues
* 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 DSPSIZ(24 80 *DS3)
A PRINT
A ALTHELP
A HELP(01)
A R HEADER
A OVERLAY
A DA_SELUSER 1A P
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' DBG186R4'
A DSPATR(RI)
A 2 2' '
A DSPATR(RI)
A 2 5'Work with Output queue:'
A DSPATR(HI)
A OUTQUE 10A O 2 29DSPATR(HI)
A F16STS 20A O 2 58COLOR(BLU)
A 2 80' '
A DSPATR(RI)
A 3 2' -
A -
A '
A DSPATR(RI)
A 4 2'Options:'
A COLOR(BLU)
A OPTXT1 70A O 4 11COLOR(BLU)
A OPTXT2 79A O 5 2COLOR(BLU)
A 6 2'Restrict by File*:'
A DSPATR(HI)
A SELFILE 10A B 6 21CHANGE(55)
A 6 33'User:'
A DSPATR(HI)
A SELUSER 10A B 6 39CHANGE(55)
A DSPATR(&DA_SELUSER)
A 6 51'User Data*:'
A DSPATR(HI)
A SELUSRDTA 10A B 6 63CHANGE(55)
A R SFL SFL
*%%TS SD 19981120 155422 MROWE REL-V3R7M0 5716-PW1
A CHGINPDFT
A LISTRRN 9S 0H
A SPLNAME 10A H
A SPLJOBNAME 10A H
A SPLUSERPRF 10A H
A SPLNBR 5S 0H
A SPLJOBNBR 6A H
A SPLOUTQ 10A H
A SPLOUTQLIB 10A H
A SPLDEVICE 10A H
A SPLUSRDTA 10A H
A SPLSTATUS 10A H
A SPLTOTPAGE 5S 0H
A SPLCURPAGE 5S 0H
A SPLCPYLEFT 5S 0H
A SPLFORMTYP 10A H
A SPLPRIORTY 2A H
A SPLDATE 6S 0H
A SPLTIME 6S 0H
A SPLINJOBID 16A H
A SPLINSPLID 16A H
A SPLDEVTYPE 10A H
A SSEL 1A B 9 3DSPATR(HI UL)
A VALUES('1' '2' '3' '4' '5' '6' '7' -
A '8' '9' 'F' 'P' 'T' 'V' ' ')
A SP_NAME 10A O 9 7
A 53 SP_JOBNAME 10A O 9 25
A N53 SP_USRPRF1 10A O 9 19
A 53 SP_USRPRF2 10A O 9 37
A 53 SP_NBR 5Y 0O 9 18EDTCDE(Z)
A 53 SP_JOBNBR 6A O 9 49
A 53 SP_OUTQ 10A O 9 57
A 53 SP_OUTQLIB 10A O 9 69
A 51 SP_DEVICE 10A O 9 31
A 51 SP_USRDTA 10A O 9 43
A 51 SP_STS 4A O 9 55
A 51 SP_TOTPAGE 5Y 0O 9 61EDTCDE(Z)
A 51 SP_CURPAGE 5Y 0O 9 69EDTCDE(Z)
A 51 SP_CPYLEFT 5Y 0O 9 75EDTCDE(Z)
A 52 SP_FORMTYP 10A O 9 31
A 52 SP_PRIORTY 2A O 9 43
A 52 SP_DATE 6Y 0O 9 48EDTCDE(Y)
A 52 SP_TIME 6Y 0O 9 58EDTWRD(' : : ')
A R SFLCTL SFLCTL(SFL)
A SFLSIZ(0013)
A SFLPAG(0013)
A CA03(03 'Exit')
A CF05(05 'Refresh')
A CF08(08 'Setup')
A CF11(11 'View 1/2/3')
A CF16(16 'Search')
A 54 CF17(17 'OutQ list')
A 54 CF21(21 'Cmd line')
A CF24(24 'More keys')
A ROLLUP(27 'Rollup')
A ROLLDOWN(28 'Rolldown')
A RTNCSRLOC(*WINDOW &CSRLIN &CSRCOL)
A CSRLOC(CSRLIN CSRCOL)
A OVERLAY
A N36 ERASE(SFL)
A 36 SFLDSP
A SFLDSPCTL
A N36 SFLCLR
A 35 SFLEND(*MORE)
A CSRLIN 3S 0H
A CSRCOL 3S 0H
A 51 7 2' Devic-
A e or Total -
A Cur '
A DSPATR(HI)
A 51 8 2'Opt File User Queue-
A User Data Sts Pages P-
A age Copy'
A DSPATR(HI)
A 52 8 2'Opt File User Form -
A Type Pty Date Time'
A DSPATR(HI)
A 53 7 2' File -
A -
A '
A DSPATR(HI)
A 53 8 2'Opt File Nbr Job -
A User Number Queue Li-
A brary '
A DSPATR(HI)
A R FOOTER1
A OVERLAY
A 23 2'F1=Help'
A COLOR(BLU)
A 23 10'F3=Exit'
A COLOR(BLU)
A 23 18'F5=Refresh'
A COLOR(BLU)
A 23 29'F8=Setup'
A COLOR(BLU)
A 23 38'F11=View 1/2/3'
A COLOR(BLU)
A 23 53'F16=Find'
A COLOR(BLU)
A 54 23 62'F17=*OUTQs'
A COLOR(BLU)
A 54 23 73'F21=Cmd'
A COLOR(BLU)
A R HEADER2
A OVERLAY
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' DBG186R4'
A DSPATR(RI)
A 2 2' '
A DSPATR(RI)
A 2 4'Delete selected reports from:'
A DSPATR(HI)
A OUTQUE 10A O 2 34DSPATR(HI)
A 2 80' '
A DSPATR(RI)
A 3 2' -
A -
A '
A DSPATR(RI)
A 5 3'Press Enter to accept, F12 to Canc-
A el'
A COLOR(BLU)
A R SFL2 SFL
A CHGINPDFT
A SPLNAME 10 H
A SPLJOBNAME 10 H
A SPLUSERPRF 10 H
A SPLNBR 5 0H
A SPLJOBNBR 6 H
A SPLOUTQ 10 H
A SPLOUTQLIB 10 H
A SPLDEVICE 10 H
A SPLUSRDTA 10 H
A SPLSTATUS 10 H
A SPLTOTPAGE 5 0H
A SPLCURPAGE 5 0H
A SPLCPYLEFT 5 0H
A SPLFORMTYP 10 H
A SPLPRIORTY 2 H
A SPLDATE 6 0H
A SPLTIME 6 0H
A SPLINJOBID 16 H
A SPLINSPLID 16 H
A SPLDEVTYPE 10 H
A SP_NAME 10 O 9 7
A SP_USRPRF1 10 O 9 19
A SP_DEVICE 10 O 9 31
A SP_USRDTA 10 O 9 43
A SP_STS 4 O 9 55
A SP_TOTPAGE 5 0O 9 61 EDTCDE(Z)
A SP_CURPAGE 5 0O 9 69 EDTCDE(Z)
A SP_CPYLEFT 5 0O 9 75 EDTCDE(Z)
A R SFLCTL2 SFLCTL(SFL2)
A SFLSIZ(0014)
A SFLPAG(0013)
A CF11(11 'View 1/2/3')
A CF12(12 'Cancel')
A RTNCSRLOC(*WINDOW &CSRLIN &CSRCOL)
A CSRLOC(CSRLIN CSRCOL)
A OVERLAY
A N38 ERASE(SFL2)
A 38 SFLDSP
A SFLDSPCTL
A N38 SFLCLR
A 37 SFLEND(*MORE)
A CSRLIN 3S 0H
A CSRCOL 3S 0H
A 7 2' Devic-
A e or Total -
A Cur '
A DSPATR(HI)
A 8 2'Opt File User Queue-
A User Data Sts Pages P-
A age Copy'
A DSPATR(HI)
A R SFL4 SFL
A CHGINPDFT
A SPLNAME 10 H
A SPLJOBNAME 10 H
A SPLUSERPRF 10 H
A SPLNBR 5 0H
A SPLJOBNBR 6 H
A SPLOUTQ 10 H
A SPLOUTQLIB 10 H
A SPLDEVICE 10 H
A SPLUSRDTA 10 H
A SPLSTATUS 10 H
A SPLTOTPAGE 5 0H
A SPLCURPAGE 5 0H
A SPLCPYLEFT 5 0H
A SPLFORMTYP 10 H
A SPLPRIORTY 2 H
A SPLDATE 6 0H
A SPLTIME 6 0H
A SPLINJOBID 16 H
A SPLINSPLID 16 H
A SPLDEVTYPE 10 H
A SP_NAME 10 O 9 7
A SP_USRPRF1 10 O 9 19
A SP_FORMTYP 10 O 9 31
A SP_PRIORTY 2 O 9 43
A SP_DATE 6 0O 9 48 EDTCDE(Y)
A SP_TIME 6 0O 9 58 EDTWRD(' : : ')
A R SFLCTL4 SFLCTL(SFL4)
A SFLSIZ(0014)
A SFLPAG(0013)
A CF11(11 'View 1/2/3')
A CF12(12 'Cancel')
A RTNCSRLOC(*WINDOW &CSRLIN &CSRCOL)
A CSRLOC(CSRLIN CSRCOL)
A OVERLAY
A N38 ERASE(SFL4)
A 38 SFLDSP
A SFLDSPCTL
A N38 SFLCLR
A 37 SFLEND(*MORE)
A CSRLIN 3S 0H
A CSRCOL 3S 0H
A 8 2'Opt File User Form -
A Type Pty Date Time'
A DSPATR(HI)
A R SFL5 SFL
A CHGINPDFT
A SPLNAME 10 H
A SPLJOBNAME 10 H
A SPLUSERPRF 10 H
A SPLNBR 5 0H
A SPLJOBNBR 6 H
A SPLOUTQ 10 H
A SPLOUTQLIB 10 H
A SPLDEVICE 10 H
A SPLUSRDTA 10 H
A SPLSTATUS 10 H
A SPLTOTPAGE 5 0H
A SPLCURPAGE 5 0H
A SPLCPYLEFT 5 0H
A SPLFORMTYP 10 H
A SPLPRIORTY 2 H
A SPLDATE 6 0H
A SPLTIME 6 0H
A SPLINJOBID 16 H
A SPLINSPLID 16 H
A SPLDEVTYPE 10 H
A SP_NAME 10 O 9 7
A SP_JOBNAME 10 O 9 25
A SP_USRPRF2 10 O 9 37
A SP_NBR 5 0O 9 18
A SP_JOBNBR 6 O 9 49
A SP_OUTQ 10 O 9 57
A SP_OUTQLIB 10 O 9 69
A R SFLCTL5 SFLCTL(SFL5)
A SFLSIZ(0014)
A SFLPAG(0013)
A CF11(11 'View 1/2/3')
A CF12(12 'Cancel')
A RTNCSRLOC(*WINDOW &CSRLIN &CSRCOL)
A CSRLOC(CSRLIN CSRCOL)
A OVERLAY
A N38 ERASE(SFL5)
A 38 SFLDSP
A SFLDSPCTL
A N38 SFLCLR
A 37 SFLEND(*MORE)
A CSRLIN 3S 0H
A CSRCOL 3S 0H
A 7 2' File -
A -
A '
A DSPATR(HI)
A 8 2'Opt File Nbr Job -
A User Number Queue Li-
A brary '
A DSPATR(HI)
A R FOOTER2
A OVERLAY
A 23 2'F1=Help'
A COLOR(BLU)
A 23 12'F11=View 1/2/3'
A COLOR(BLU)
A 23 29'F12=Cancel'
A COLOR(BLU)
A R HEADER3
A OVERLAY
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' DBG186R4'
A DSPATR(RI)
A 2 2' '
A DSPATR(RI)
A 2 4'Select *OUTQs to work with'
A DSPATR(HI)
A 2 80' '
A DSPATR(RI)
A 3 2' -
A -
A '
A DSPATR(RI)
A 5 2'Options: 1=Select'
A COLOR(BLU)
A R SFL3 SFL
A SSEL3 1A B 7 3
A AOQUE 10A O 7 10
A AOQUEL 10A O 7 25
A AOFILS 5Y 0O 7 41EDTCDE(Z)
A AOWTR 10A O 7 52
A AOSTS 10A O 7 68
A R SFLCTL3 SFLCTL(SFL3)
A SFLSIZ(0016)
A SFLPAG(0015)
A CA03(03 'Exit')
A CF05(05 'Refresh')
A CF12(12 'Cancel')
A RTNCSRLOC(*WINDOW &CSRLIN &CSRCOL)
A CSRLOC(CSRLIN CSRCOL)
A OVERLAY
A N40 ERASE(SFL3)
A 40 SFLDSP
A SFLDSPCTL
A N40 SFLCLR
A 39 SFLEND(*MORE)
A CSRLIN 3S 0H
A CSRCOL 3S 0H
A 6 2'Opt Queue Library -
A Files Writer Stat-
A us'
A DSPATR(HI)
A R FOOTER3
A OVERLAY
A 23 2'F1=Help'
A COLOR(BLU)
A 23 12'F3=Exit'
A COLOR(BLU)
A 23 22'F5=Refresh'
A COLOR(BLU)
A 23 35'F12=Cancel'
A COLOR(BLU)
A R WINDOW
A WINDOW(*DFT 11 75)
A CF12(12 'Cancel')
A OVERLAY
A WDWBORDER((*COLOR GRN) (*DSPATR RI)-
A (*CHAR ' '))
A 1 28'File detail overrides'
A DSPATR(UL)
A DSPATR(HI)
A 2 1'File name:'
A DSPATR(HI)
A FILENAME2 50A B 2 13CHECK(LC)
A 2 65'Extn:'
A DSPATR(HI)
A PCFILEEXT2 5A B 2 71CHECK(LC)
A 3 1'IFS location:'
A DSPATR(HI)
A STMFDIR2 60A B 3 16CHECK(LC)
A 4 1'FTP location:'
A DSPATR(HI)
A FTPDIR2 60A B 4 16CHECK(LC)
A 5 1'Batch file:'
A DSPATR(HI)
A BATCHFILE2 50A B 5 13CHECK(LC)
A 5 64'Formatted:'
A DSPATR(HI)
A FORMAT2 1A B 5 75VALUES('Y' 'N')
A 6 1'Remote machine:'
A DSPATR(HI)
A RMTMACHINE 15A B 6 17CHECK(LC)
A 6 34'Remote user:'
A DSPATR(HI)
A RMTUSER 10A B 6 47CHECK(LC)
A 6 58'Passwd:'
A DSPATR(HI)
A RMTPASSWD 10A B 6 66CHECK(LC) DSPATR(ND)
A 7 1'HTML title:'
A DSPATR(HI)
A HTMLTITLE2 50A B 7 13CHECK(LC)
A 7 64'FTP log?:'
A DSPATR(HI)
A FTPLOG2 1A B 7 74VALUES('Y' 'N')
A 9 1'F1=Help'
A COLOR(BLU)
A 9 11'F12=Cancel'
A COLOR(BLU)
A R SCREEN
A CA03(03 'Exit')
A CF12(12 'Cancel')
A CF20(20 'Save settings')
A OVERLAY
A DA_STMFDIR 1A P
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' DBG186R4'
A DSPATR(RI)
A 2 2' '
A DSPATR(RI)
A 2 4'Work with Output queue:'
A DSPATR(HI)
A OUTQUE 10A O 2 28DSPATR(HI)
A 2 80' '
A DSPATR(RI)
A 3 2' -
A -
A '
A DSPATR(RI)
A 5 32'Edit PC options'
A DSPATR(HI)
A DSPATR(UL)
A 7 3'PC file extension:'
A DSPATR(HI)
A PCFILEEXT 5A B 7 22CHECK(LC)
A 7 29'Formatted output:'
A DSPATR(HI)
A FORMAT 1A B 7 47VALUES('Y' 'N')
A 7 49'(Y/N)'
A DSPATR(HI)
A 7 55'Override prompt?'
A DSPATR(HI)
A OVERPROMPT 1A B 7 72VALUES('Y' 'N')
A 7 74'(Y/N)'
A DSPATR(HI)
A 9 3'IFS location:'
A DSPATR(HI)
A STMFDIR 60A B 9 17DSPATR(&DA_STMFDIR)
A CHECK(LC)
A 10 29'(defaults to current working direc-
A tory if blank)'
A 11 3'FTP location:'
A DSPATR(HI)
A FTPDIR 60A B 11 17CHECK(LC)
A 12 33'(defaults to remote home directory-
A if blank)'
A 13 3'PC Batch File:'
A DSPATR(HI)
A BATCHFILE 50A B 13 18CHECK(LC)
A 14 18'The batch file will be passed thre-
A e parameters:'
A 15 18'1: The network path to the file'
A 16 18'2: The file name'
A 17 18'3: The file extension'
A 19 3'Remote Machine:'
A DSPATR(HI)
A REMOTEMACH 15A B 19 19CHECK(LC)
A 19 35'Remote User:'
A DSPATR(HI)
A REMOTEUSER 10A B 19 48CHECK(LC)
A 19 59'Show FTP log:'
A DSPATR(HI)
A FTPLOG 1A B 19 73VALUES('Y' 'N')
A 19 75'(Y/N)'
A DSPATR(HI)
A 21 3'Remote Password:'
A DSPATR(HI)
A REMOTEPASS 10A B 21 20DSPATR(ND)
A CHECK(LC)
A 21 31'Confirm password:'
A DSPATR(HI)
A CONFRMPASS 10A B 21 49DSPATR(ND)
A CHECK(LC)
A PASSWRDSET 12A O 21 61
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'F20=Save settings'
A COLOR(BLU)
A R WINDOW2
A*%%TS SD 20020109 151250 MROWE REL-V4R4M0 5769-PW1
A CF12(12 'Cancel')
A CF16(16 'Search')
A OVERLAY
A WINDOW(*DFT 4 60)
A WDWBORDER((*COLOR GRN) (*DSPATR RI)-
A (*CHAR ' '))
A 1 1'Search string:'
A DSPATR(HI)
A SEARCH 25A B 1 16CHECK(LC)
A 1 43'Ignore case:'
A DSPATR(HI)
A IGNORE 1A B 1 56VALUES('Y' 'N')
A 1 58'Y/N'
A 3 1'F1=Help'
A COLOR(BLU)
A 3 11'F12=Cancel'
A COLOR(BLU)
A 3 24'F16=Find'
A COLOR(BLU)
*
A R MSFL SFL
A SFLMSGRCD(24)
A MSGKEY SFLMSGKEY
A PGM SFLPGMQ
*
A R MSFLC SFLCTL(MSFL)
A LOCK
A OVERLAY
A SFLSIZ(50) SFLPAG(1)
A SFLDSP SFLDSPCTL SFLINZ
A 26
AON26 SFLEND
A PGM SFLPGMQ
-- MartinRowe - 18 Jun 2005 Edit | Attach | Print version | History: r2 < r1 | Backlinks | View wiki text | Edit wiki text | More topic actions
Topic revision: r2 - 01 Oct 2014 - 19:37:01 - UnknownUser
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