Code:
- Work with Spool (Advanced) (WRKSPLADV)
-
- Type choices, press Enter.
-
- Select files for:
- User . . . . . . . . . . . . . *CURRENT Name, *CURRENT, *ALL
- Output queue . . . . . . . . . *ALL Name, *ALL
- Library . . . . . . . . . . Name, *LIBL, *CURLIB
- Form type . . . . . . . . . . *ALL Character value, *ALL
- User data . . . . . . . . . . *ALL Character value, *ALL
- ASP . . . . . . . . . . . . . *ALL 1-32, *ALL, *ASPDEV
- * Name, *, *SYSBAS, *CURASPGRP
- Output . . . . . . . . . . . . . * *
- Date/time range:
- :
- From date . . . . . . . . . . *FIRST Date, *FIRST
- From time . . . . . . . . . . *FIRST Time, *FIRST
- :
- To date . . . . . . . . . . . *LAST Date, *LAST
- To time . . . . . . . . . . . *LAST Time, *LAST
- Bottom
-
- - - - - - - - - - - - - - -
-
- WRKSPLADV: CMD PROMPT('Work with Spool (Advanced)')
-
- PARM KWD(SELECT) TYPE(MAINELEM) PROMPT('Select +
- files for')
- PARM KWD(ASPDEV) TYPE(*NAME) LEN(10) DFT(*) +
- SPCVAL((*) (*SYSBAS) (*CURASPGRP))
- PARM KWD(OUTPUT) TYPE(*NAME) LEN(10) RSTD(*YES) +
- DFT(*) SPCVAL((*)) PROMPT('Output')
- PARM KWD(DATERANGE) TYPE(DATERANGE) +
- PROMPT('Date/time range')
-
- MAINELEM: ELEM TYPE(*NAME) LEN(10) DFT(*CURRENT) +
- SPCVAL((*CURRENT) (*ALL)) EXPR(*YES) +
- PROMPT('User')
- ELEM TYPE(QUALOBJ) DFT(*ALL) SNGVAL((*ALL)) +
- PROMPT('Output queue')
- ELEM TYPE(*CHAR) LEN(10) DFT(*ALL) SPCVAL((*ALL)) +
- EXPR(*YES) PROMPT('Form type')
- ELEM TYPE(*CHAR) LEN(10) DFT(*ALL) SPCVAL((*ALL)) +
- EXPR(*YES) PROMPT('User data')
- ELEM TYPE(*INT2) DFT(*ALL) RANGE(1 32) +
- SPCVAL((*ALL 0) (*ASPDEV -1)) EXPR(*YES) +
- PROMPT('ASP')
-
- QUALOBJ: QUAL TYPE(*NAME) EXPR(*YES)
- QUAL TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL) +
- (*CURLIB)) PROMPT('Library')
-
- DATERANGE: ELEM TYPE(FROMRANGE) PROMPT('')
- ELEM TYPE(TORANGE) PROMPT('')
-
- FROMRANGE: ELEM TYPE(*DATE) DFT(*FIRST) SPCVAL((*FIRST +
- 0000000)) EXPR(*YES) PROMPT('From date')
- ELEM TYPE(*TIME) DFT(*FIRST) SPCVAL((*FIRST +
- 000000)) EXPR(*YES) PROMPT('From time')
-
- TORANGE: ELEM TYPE(*DATE) DFT(*LAST) SPCVAL((*LAST +
- 9999999)) EXPR(*YES) PROMPT(' Date')
- ELEM TYPE(*TIME) DFT(*LAST) SPCVAL((*LAST +
- 235959)) EXPR(*YES) PROMPT(' Time')
-
|
|