You are here: DBG/400>DBG400 Web>SourceCodeList>DdsSource>DspfDBG186DF0 (revision 1)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 WikiText | More topic actions...
Topic revision: r1 - 18 Jun 2005 - 20:34:48 - 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