You are here:
DBG/400
>
DBG400 Web
>
SourceCodeList
>
DdsSource
>
DspfDBG186DF0
(01 Oct 2014,
UnknownUser
)
(raw view)
E
dit
A
ttach
<verbatim> ************************************************************************** * 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 </verbatim> -- Main.MartinRowe - 18 Jun 2005
E
dit
|
A
ttach
|
P
rint version
|
H
istory
: r2
<
r1
|
B
acklinks
|
V
iew topic
|
Edit
w
iki text
|
M
ore topic actions
Topic revision: r2 - 01 Oct 2014 - 19:37:01 -
UnknownUser
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