midrange.com code scratchpad
Name:
wruncmd
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
10/10/2008 09:44:51 pm
IP:
Logged
Description:
interim command to set the ASP group and correct user library list
Code:
  1. CL:
  2.              PGM        PARM(&CMD)                                            
  3.                                                                               
  4.              DCL        VAR(&CMD) TYPE(*CHAR) LEN(2000)                       
  5.              DCL        VAR(&CMDLEN) TYPE(*DEC) LEN(15 5)                     
  6.                                                                               
  7.              DCL        VAR(&ASPGRP) TYPE(*CHAR) LEN(10)                      
  8.                                                                               
  9.              RTVJOBA    ASPGRP(&ASPGRP)                                       
  10.              CHGVAR     VAR(&CMDLEN) VALUE(%BIN(&CMD 1 2))                    
  11.              CHGVAR     VAR(&CMD) VALUE(%SST(&CMD 3 &CMDLEN))                 
  12.                                                                               
  13.              IF         ((&ASPGRP *NE '*NONE') *AND (&ASPGRP *NE '     ')) +  
  14.                         THEN(DO)                                              
  15.                SETASPGRP  ASPGRP(&ASPGRP) CURLIB(*CURUSR) USRLIBL(*CURUSR)    
  16.              ENDDO                                                            
  17.              CALL       PGM(QCMDEXC) PARM(&CMD &CMDLEN)                       
  18.                                                                               
  19.              ENDPGM                                                           
  20. CMD:
  21.              CMD        PROMPT('Set ASP ENV LIBS and Exec Cmd')            
  22.              PARM       KWD(CMD) TYPE(*CMDSTR) LEN(2000) VARY(*YES *INT2) +
  23.                         CHOICE('Command') PROMPT('Command to run' 1)       
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css