midrange.com code scratchpad
Name:
Almost-blank line separator in command definition
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
08/05/2010 07:28:56 pm
IP:
Logged
Description:
Demonstrates a way to put an almost blank line into a command prompt to separate value sets
Code:
  1.                     Work with Spool (Advanced) (WRKSPLADV)                   
  2.                                                                               
  3. Type choices, press Enter.                                                    
  4.                                                                               
  5. Select files for:                                                             
  6.   User . . . . . . . . . . . . .   *CURRENT      Name, *CURRENT, *ALL         
  7.   Output queue . . . . . . . . .   *ALL          Name, *ALL                   
  8.     Library  . . . . . . . . . .                 Name, *LIBL, *CURLIB         
  9.   Form type  . . . . . . . . . .   *ALL          Character value, *ALL        
  10.   User data  . . . . . . . . . .   *ALL          Character value, *ALL        
  11.   ASP  . . . . . . . . . . . . .   *ALL          1-32, *ALL, *ASPDEV          
  12.                                    *             Name, *, *SYSBAS, *CURASPGRP 
  13. Output . . . . . . . . . . . . .   *             *                            
  14. Date/time range:                                                              
  15.    :                                                                          
  16.   From date  . . . . . . . . . .   *FIRST        Date, *FIRST                 
  17.   From time  . . . . . . . . . .   *FIRST        Time, *FIRST                 
  18.    :                                                                          
  19.   To date  . . . . . . . . . . .   *LAST         Date, *LAST                  
  20.   To time  . . . . . . . . . . .   *LAST         Time, *LAST                  
  21.                                                                         Bottom
  22.  
  23. - - - - - - - - - - - - - -
  24.  
  25.  WRKSPLADV:  CMD        PROMPT('Work with Spool (Advanced)')           
  26.                                                                        
  27.              PARM       KWD(SELECT) TYPE(MAINELEM) PROMPT('Select +    
  28.                           files for')                                  
  29.              PARM       KWD(ASPDEV) TYPE(*NAME) LEN(10) DFT(*) +       
  30.                           SPCVAL((*) (*SYSBAS) (*CURASPGRP))           
  31.              PARM       KWD(OUTPUT) TYPE(*NAME) LEN(10) RSTD(*YES) +   
  32.                           DFT(*) SPCVAL((*)) PROMPT('Output')          
  33.              PARM       KWD(DATERANGE) TYPE(DATERANGE) +               
  34.                           PROMPT('Date/time range')                    
  35.                                                                        
  36.  MAINELEM:   ELEM       TYPE(*NAME) LEN(10) DFT(*CURRENT) +            
  37.                           SPCVAL((*CURRENT) (*ALL)) EXPR(*YES) +       
  38.                           PROMPT('User')                               
  39.              ELEM       TYPE(QUALOBJ) DFT(*ALL) SNGVAL((*ALL)) +       
  40.                           PROMPT('Output queue')                       
  41.              ELEM       TYPE(*CHAR) LEN(10) DFT(*ALL) SPCVAL((*ALL)) + 
  42.                           EXPR(*YES) PROMPT('Form type')               
  43.              ELEM       TYPE(*CHAR) LEN(10) DFT(*ALL) SPCVAL((*ALL)) + 
  44.                           EXPR(*YES) PROMPT('User data')               
  45.              ELEM       TYPE(*INT2) DFT(*ALL) RANGE(1 32) +         
  46.                           SPCVAL((*ALL 0) (*ASPDEV -1)) EXPR(*YES) +
  47.                           PROMPT('ASP')                             
  48.                                                                     
  49.  QUALOBJ:    QUAL       TYPE(*NAME) EXPR(*YES)                      
  50.              QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL) +     
  51.                           (*CURLIB)) PROMPT('Library')              
  52.                                                                     
  53.  DATERANGE:  ELEM       TYPE(FROMRANGE) PROMPT('')                 
  54.              ELEM       TYPE(TORANGE) PROMPT('')                   
  55.                                                                     
  56.  FROMRANGE:  ELEM       TYPE(*DATE) DFT(*FIRST) SPCVAL((*FIRST +    
  57.                           0000000)) EXPR(*YES) PROMPT('From date')     
  58.              ELEM       TYPE(*TIME) DFT(*FIRST) SPCVAL((*FIRST +    
  59.                           000000)) EXPR(*YES) PROMPT('From time')      
  60.                                                                     
  61.  TORANGE:    ELEM       TYPE(*DATE) DFT(*LAST) SPCVAL((*LAST +      
  62.                           9999999)) EXPR(*YES) PROMPT('  Date')     
  63.              ELEM       TYPE(*TIME) DFT(*LAST) SPCVAL((*LAST +      
  64.                           235959)) EXPR(*YES) PROMPT('  Time')      
  65.  
© 2004-2019 by midrange.com generated in 0.007s valid xhtml & css