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:
- CL:
- PGM PARM(&CMD)
-
- DCL VAR(&CMD) TYPE(*CHAR) LEN(2000)
- DCL VAR(&CMDLEN) TYPE(*DEC) LEN(15 5)
-
- DCL VAR(&ASPGRP) TYPE(*CHAR) LEN(10)
-
- RTVJOBA ASPGRP(&ASPGRP)
- CHGVAR VAR(&CMDLEN) VALUE(%BIN(&CMD 1 2))
- CHGVAR VAR(&CMD) VALUE(%SST(&CMD 3 &CMDLEN))
-
- IF ((&ASPGRP *NE '*NONE') *AND (&ASPGRP *NE ' ')) +
- THEN(DO)
- SETASPGRP ASPGRP(&ASPGRP) CURLIB(*CURUSR) USRLIBL(*CURUSR)
- ENDDO
- CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
-
- ENDPGM
- CMD:
- CMD PROMPT('Set ASP ENV LIBS and Exec Cmd')
- PARM KWD(CMD) TYPE(*CMDSTR) LEN(2000) VARY(*YES *INT2) +
- CHOICE('Command') PROMPT('Command to run' 1)
|
|
|